Group Abstract

Message Boards

WOLFRAM COMMUNITY

9K Views

9 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Interlace 3 images into pixels using Wolfram Language?

Peter Amedzake

Posted 5 years ago

I am trying to interlace 2 or 3 images and make them to look it pixels. How do I first interlace the 2 or 3 images and then divide the final image to pixels?

POSTED BY: Peter Amedzake

9 Replies

Sort By:

Henrik Schachner

Henrik Schachner, Radiation Therapy Center, Weilheim, Germany

Posted 5 years ago

Peter, using `ImagePartition` you can decompose images only into rectangles. For more complex shapes you probably have to use masks. The documentation gives many helpful examples! What did you try so far? Where is your code?

POSTED BY: Henrik Schachner

Peter Amedzake

Posted 5 years ago

Henrik, How do you make the image partition and assemble take on shapes like circles or squares or hexagonal, instead of a straight line? Also, how do you assemble more than two images like creating 3+ interlaced images? I am trying to create 2D and 3D interlaced images to the size of thin-film micro-lens so that I can create animated images when I put the thin film micro-lens over the assembled images.

POSTED BY: Peter Amedzake

Henrik Schachner

Henrik Schachner, Radiation Therapy Center, Weilheim, Germany

Posted 5 years ago

Hi Peter, the documentation on `ImagePartition` states: Those units are pixels.

POSTED BY: Henrik Schachner

Peter Amedzake

Posted 5 years ago

Henrik Schachner, Thank you very much. So what does this {512, 8} in " {ip1, ip2} = ImagePartition[#, {512, 8}] & /@ {img1, img2};" in script means? Is it Lines per Inch?

POSTED BY: Peter Amedzake

Henrik Schachner

Henrik Schachner, Radiation Therapy Center, Weilheim, Germany

Posted 5 years ago

Hi Peter, I think you need `ImagePartition`: {img1, img2} = ExampleData /@ {{"TestImage", "Lena"}, {"TestImage", "Mandrill"}}; (* decomposition of images into strips: ) {ip1, ip2} = ImagePartition[#, {512, 8}] & /@ {img1, img2}; ( odd strips of img1: ) stp1 = Table[ip1[[n]], {n, 1, Length[ip1], 2}]; ( even strips of img2: *) stp2 = Table[ip2[[n]], {n, 2, Length[ip1], 2}]; ImageAssemble[Riffle[stp1, stp2]]

Hi Peter,

I think you need ImagePartition:

{img1, img2} = ExampleData /@ {{"TestImage", "Lena"}, {"TestImage", "Mandrill"}};
(* decomposition of images into strips: *)
{ip1, ip2} = ImagePartition[#, {512, 8}] & /@ {img1, img2};
(* odd strips of img1: *)
stp1 = Table[ip1[[n]], {n, 1, Length[ip1], 2}];
(* even strips of img2: *)
stp2 = Table[ip2[[n]], {n, 2, Length[ip1], 2}];
ImageAssemble[Riffle[stp1, stp2]]

enter image description here

POSTED BY: Henrik Schachner

Peter Amedzake

Posted 5 years ago

Claudio Chaib Thank you very much for the effort. What I wanted to do is design an auto-stereoscopic image by image partitioning into equal parts and mixing the two or three images that will do two or three-flip, or Multi-flip to create a smooth 3D animation effects using lenticular printing and lenticular lenses or lenticular displays. I hope this explains it. You may check the attached document for further visual explanation Attachments: Lenticular.pdf