Happy Holiday!

Be a nice person in 2011, everyone will be happy.

How to generate this image?

First, find an image, then

img2 = ColorConvert[img, "HSB"];img3 = ImageData[img2][[All, All, 3]];

ListPlot[Table[img3[[i]]*10 - i, {i, 1, ImageDimensions[img][[2]], 3}],

PlotRange -> All, Axes -> None, Joined -> True, PlotStyle -> {{Black}, {Thick, Lighter[Black]}}, AspectRatio -> ImageAspectRatio[img]]

## 5 comments:

wow, with one dimensional ListPlot...took a minute to figure out that one

Very neat! I loved how you used ListPlot to do it! And I see you already use Mathematica 8 as well, very nice :)

太帅了！

Hey, so I'm trying to do what you did with the lines vertically instead (I just transposed to do it). I then wanted to ImageAdd the two graphs but I cant because they are graphs and not images:

img2 = ColorConvert[img, "HSB"];

img3 = ImageData[img2][[All, All, 3]];

img4 = Transpose[img3];

img5 = Rotate[

ListPlot[Table[

img4[[i]] - .025 i, {i, 1, ImageDimensions[img][[1]], 30}],

PlotRange -> All, Axes -> None, Joined -> True,

PlotStyle -> {{Blue, Thick}},

AspectRatio -> 1/ImageAspectRatio[img]], -90 Degree]; img6 =

ListPlot[Table[

img3[[i]] - .025 i, {i, 1, ImageDimensions[img][[2]], 30}],

PlotRange -> All, Axes -> None, Joined -> True,

PlotStyle -> {{Blue, Thick}}, AspectRatio -> ImageAspectRatio[img]];

ImageAdd[img5, img6]

ERROR

Any idea of how I could "AddGraph"?

(I'm still a beginner)

use Rasterize, this will convert a graphic into image

try this:

ImageMultiply[Rasterize[img5], Rasterize[img6]]

Post a Comment