NB. starting with E from Linda's program...
'k b w r' =: 0 1 7 2 NB. black/blue/white/red
box=:({.,~{.,~{.,{.,])}."1 E NB. make blue area 49 px high
top=:(7*7)$,.7# r,w NB. 7 stripes, each 7 px high
bot=:(8*7)$,.7# w,r NB. 8 more stripes
flg=:(box ,. (n=:100)#"1 top) NB. put it all together
flg=:flg,(n + #|:box)#"1 bot
pic=:(k,k,|:@|.)^:4 flg NB. re-add the black border
GRB viewmat pic
On Tue, Dec 2, 2014 at 3:10 AM, Linda Alvord <[email protected]>
wrote:
> load 'viewmat'
>
> GRB=:1 0 2{"1 (#:i.8){0 255
>
>
>
> B=:7(2 2;2 2)}A=:5 5$1
>
> $C=: ".31$'B,.A,.'
>
> $D=: ".31$'A,.B,.'
>
> $E=:0,"1".17$'C,D,'
>
>
>
> GRB viewmat E
>
>
>
> 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
