The 4-D version is impressive! NUM=: (i.8 8),.(64+i.8 8) NUM=:NUM, (128+i.8 8),.192+i.8 8 NUM2=:,/,./"3 i.2 2 8 8 NUM-:NUM2 1
I had used t to remove the duplicates in each palette. Then I did it again in NUM. I guess it is time for me to move up a dimension. Thanks, Linda -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Raul Miller Sent: Wednesday, November 4, 2015 7:18 AM To: Programming forum Subject: Re: [Jprogramming] Puzzling Images Because of NUM. I think you wanted this: (A,B,C,D) viewmat ,/,./"3 i.2 2 8 8 Thanks, -- Raul On Wed, Nov 4, 2015 at 4:39 AM, Linda A Alvord <[email protected]> wrote: > Why do the first four images have a black background, but the composite > image has a white background? > > > > load 'viewmat' > > GRB=:|.255*1 0 2{"1 #:i.8 > > perm=: 13 :'(i.!y)A.i.y' > > N=:perm 3 > > > > t=: 13 :'>:/~i.y' > > pair1=: 13 :'(((0{$y)^2),3)$,(t 8)*<.-:+"1/~>y' > > pair2=: 13 :'(((0{$y)^2),3)$,(t 8)*<."1/~y' > > pair3=: 13 :'255<.((2^~{.$y),}.$y)$,(t 8)*+"1/~y' > > gray=: 13 :'|.3#"1,.<.(i.y)*255%<:y' > > gpal=: 13 :'(((0{$y)^2),3)$, (t 8)*<.-:+"1/~y' > > > > A=:pair1 GRB > > B=:pair2 GRB > > C=:pair3 GRB > > D=:gpal gray 8 > > > > > > A viewmat i.8 8 > > B viewmat i.8 8 > > C viewmat i.8 8 > > D viewmat i.8 8 > > > > NUM=: ((t 8)*i.8 8),.(64+(t 8)*i.8 8) > > [NUM=:NUM, (128+(t 8)*i.8 8),.192+(t 8)*i.8 8 > > (A,B,C,D) viewmat NUM > > > > Linda > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
