Hopefully....
loadd 'viewmat'
N=:30
f=: 13 :'<.(i.y)*255%<:y'
]A=:|.1 0 2{"1 #:i.8
D=:(,A)*"0 1 ($f N)#255
E=:(|.f N) 5 6 10 13 15 20}D
F=:(<"2)|:"2(8,3,N)$,E
erase names<'W Y C G M R B V'
(W`Y`C`G`M`R`B`V)=:(i.8){F
V=:((N^2),3)$0
BAC=:((N^2),3)$,M<."1/Y
LEF=:((N^2),3)$,M<."1/C
TOP=:((N^2),3)$,C<."1/Y
RIG=:((N^2),3)$,R+"1/G
FACE=:((N^2),3)$,G+"1/B
BASE=:((N^2),3)$,R+"1/B
PALS=:V,BAC,LEF,TOP,FACE,RIG,BASE
erase names 'H,I,J'
(H`I`J)=:R=:' ';'|. ';'|:|.'
PAT=:12 4$H,I,H,J,H,H,H,H,J,H,I,H
K=:(N^2)*0 1 0 2 3 0 0 4 5 0 6 0
L=:K+"0>12#<i.N,N
O=:PAT,"1 (":,.i.12),"1'{L'
ALL=:,./;"1|:4 3$<"2 ".":"1 O
PALS viewmat ALL
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of bill lam
Sent: Thursday, September 10, 2015 9:01 PM
To: [email protected]
Subject: Re: [Jbeta] jandroid
ALL=:,./;"1|:4 3$<"2 ".":"1 O
|domain error: scriptd
| .2{L
can you double check?
On Sep 11, 2015 8:35 AM, "Linda Alvord" <[email protected]> wrote:
> Sorry:
>
> load 'viewmat'
> N=:30
> f=: 13 :'<.(i.y)*255%<:y'
> ]A=:|.1 0 2{"1 #:i.8
> D=:(,A)*"0 1 ($f N)#255
> E=:(|.f N) 5 6 10 13 15 20}D
> F=:(<"2)|:"2(8,3,N)$,E
> erase names<'W Y C G M R B V'
> (W`Y`C`G`M`R`B`V)=:(i.8){F
> V=:((N^2),3)$0
> BAC=:((N^2),3)$,M<."1/Y
> LEF=:((N^2),3)$,M<."1/C
> TOP=:((N^2),3)$,C<."1/Y
> RIG=:((N^2),3)$,R+"1/G
> FACE=:((N^2),3)$,G+"1/B
> BASE=:((N^2),3)$,R+"1/B
> PALS=:V,BAC,LEF,TOP,FACE,RIG,BASE
> erase names 'H,I,J'
> (H`I`J)=:R=:' ';'|. ';'|:|.'
> PAT=:12 4$H,I,H,J,H,H,H,H,J,H,I,H
> K=:(N^2)*0 1 0 2 3 0 0 4 5 0 6 0
> L=:K+"0>12#<i.N,N
> O=:PAT,"1 (":,.i.12),"1'{L'
> ALL=:,./;"1|:4 3$<"2 ".":"1 O
> PALS viewmat ALL
>
> Linda
>
>
>
>
>
> --Original Message-----
> From: [email protected]
> [mailto:[email protected]] On Behalf Of bill lam
> Sent: Thursday, September 10, 2015 7:00 PM
> To: [email protected]
> Subject: Re: [Jbeta] jandroid
>
> |open quote
> | O=:PAT,"1 (":,.i.12),"1'{L
> | ^
>
> I don't think the script will run on any version of J.
> ----------------------------------------------------------------------
> 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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
