CODEWITHSUNDEEP
wolfram-mathematicagrayscaledata-conversion
Stefan Sprenger
Stefan Sprenger

Reputation: 1080

Mathematica Picture Import Greyscale Error

I'm trying to convert an imported colored picture to greyscale.

Here is what i tried so far, but mathematica simple crashes after executing this code, maybe you can find the error, can't recognize what I'm doing wrong:

SetDirectory[NotebookDirectory[]]
testimage = Import["test.jpg"]
matrixpic = getMatrix[testimage]

matrixpic = getMatrix[testimage]
greypic = 
  Graphics[
    Raster[
        matrixpic, {{0, 0}, {sizeX[matrixpic], sizeY[matrixpic]}}, {0, 
        255}, ColorFunction -> (GrayLevel[#[[1]]*0.3 + #[[2]]*0.5 + #[[
        3]]*0.2] &)
    ], 
    ImageSize -> {sizeX[matrixpic], sizeY[matrixpic]}, 
    AspectRation -> Automatic
 ]

 Show[greypic]

Upvotes: 1

Views: 272

Answers (3)

Alexey Popkov
Alexey Popkov

Reputation: 9425

Your code can be simplified to

img = Import["ExampleData/lena.tif"];
matrixpic = ImageData[img, DataReversed -> True];
Graphics[Raster[matrixpic, 
  ColorFunction -> (GrayLevel[{.3, .5, .2}.#] &)]]

This works without errors in Mathematica 8.0.4.

Upvotes: 1

Mr.Wizard
Mr.Wizard

Reputation: 24336

I believe the best way to make this conversion is to use ImageApply and Dot:

img = Import["ExampleData/lena.tif"]

enter image description here

ImageApply[{.3, .5, .2}.# &, img]

enter image description here

Please ask your future questions on the dedicated Mathematica StackExchange site:

enter image description here

Upvotes: 2

stuartw
stuartw

Reputation: 120

This works and is more Mathematica style code.

SetDirectory[NotebookDirectory[]];
img = Import["55th-All-Japan-Kendo-Champ2007-4.jpg"];
colorXform[p_] := p[[1]]*0.3 + p[[2]]*0.5 + p[[3]]*0.2;
newImg = Image[Map[colorXform, ImageData[img], {2}]];
Show[newImg]

Upvotes: 1

Related Questions