Yes, it's very satisfying, isn't it.
Mind you, your sticky tabs
probably need to have a
more practical size when N is >> 5 !
Did you
see my more recent offering re user-specified
nets? (7/7/15)
Perhaps
not elementary enough for your demonstration
project/s.
Cheers,
Mike
On 13/07/2015 14:09, Linda Alvord wrote:
> load 'viewmat'
>
ColorCube=: 3 : 0
> N=:y
> G=:<.(i.N)*255%<: N
> A=:#:i.8
> B=:(((<:N)
#0),G),.G,(<:N)#255
> BIGBOX=:<"2(|."2)1 0 2{"1(|:"2)(8 3 ,<:2*N)$,|:(,
A){"1 B
> 'BLACK BLUE RED MAGENTA GREEN CYAN YELLOW WHITE'=:>BIGBOX
>
LYELLOW=:(i.N){"2 YELLOW
> LCYAN=:(i.N){"2 CYAN
> LMAGENTA=:(i.N){"2
MAGENTA
> GREEN=:((<:N)+i.N){"2 GREEN
> RED=:((<:N)+i.N){"2 RED
>
BLUE=:((<:N)+i.N){"2 BLUE
> BACK=:((*:N), 3)$,LMAGENTA<."1/LYELLOW
>
TOP=:((*:N), 3)$,LCYAN<."1/LYELLOW
> LEFT=:((*:N), 3)$,LMAGENTA<."
1/LCYAN
> FRONT=:((*:N), 3)$,GREEN+"1/BLUE
> RIGHT=:((*:N), 3)$,GREEN+"
1/RED
> BASE=:((*:N), 3)$,RED+"1/BLUE
> F=:i.2#N
> T=:(<:6*N^2),((<:N),
N)$0
> L=:|:T
> R=:|:|.T
> WOW1=:(R,.(|.F),.L),((|:|.(N^2)+F),.((2*N^2)
+F),.|.T)
> WOW2=:WOW1,(T,.((3*N^2)+F),.|:|.|:(4*N^2)+F)
> WOW3=:WOW2,
(R,.(|.(5*N^2)+F),.L),"2,N(#"0) 0, (6*N^2), 0
> ALL=:BACK,LEFT,TOP,
FRONT,RIGHT,BASE(,"2)0 0 0
> ALL viewmat WOW3;'Color Cube')
> )
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
