blue 3d glasses?

Current License: CC BY-SA 3.0

8 events

when toggle format	what		by	license	comment
Dec 5, 2017 at 13:16	comment	added	neutrino		Is something missing before [[#[[2]] ]]? I cannot figure out its purpose.
Dec 5, 2017 at 13:08	comment	added	neutrino		Only Red/Blue were available at nearby shop and i was eager to test them.
Dec 5, 2017 at 12:29	comment	added	José Antonio Díaz Navas		You have to combine three grayscale images. The process treat each image as a single array. If you have only two of them you need a third one having zeros to combine only red and blue channels (as green should be a zero array having the same dimensions of the images). As an additional information, I do no know why you have a red-blue image. Conventional red-blue glasses are not red-blue, but a red-cyan. Maybe, I am missing something...
Dec 5, 2017 at 12:16	comment	added	neutrino		p = Plot3D[Sin[x y]^2, {x, -2, 2}, {y, -2, 2}]; {r, g} = ColorConvert[ Image[Show[p, ViewPoint -> {3 Sin[#], 3 Cos[#], 2} &[# Degree]], ImageSize -> {360, 275}], "RGB"] & /@ {141, 139} photoanaglyph[imgi_, imgd_] := ColorCombine[ Flatten@(ColorSeparate[#[[1]]][[#[[2]]]] & /@ {{imgi, 1}, {imgd, 3}})] photoanaglyph[r, g]. I obtain a colour less output. What am i doing wrong here.
Dec 5, 2017 at 6:41	comment	added	José Antonio Díaz Navas		Easy, just change to `{imgd, 3}` in the code
Dec 5, 2017 at 0:47	comment	added	neutrino		These examples are for red/cyan only. I need for red/blue as well.
Dec 4, 2017 at 17:54	history	edited	José Antonio Díaz Navas	CC BY-SA 3.0	added 29 characters in body
Dec 4, 2017 at 17:48	history	answered	José Antonio Díaz Navas	CC BY-SA 3.0