1 ( Dadress)}5 5 $0 0 0 1 0 0 0 1 1 1 0 1 1 1 1 1 0 1 1 1 0 0 0 1 0 0
calc_sier4=: 4 : 0
NB. Usage:viewmat -. (125 125 $ 0) calc_sier4 0 62
mat =. x
AD4=. y + (L:0) 0 0; 32 32;64 0; 32 _32 NB. N E S W
for_ctr. i. 4 do.
mat =. mat calc_sier3 ctr{AD4
end.
Cpos=. ({.AD4) + (L:0) 56 0 NB. 24 0 OK , but why ??
1 (Cadress+ (L:0) Cpos )}mat
)
viewmat -. (125 125 $ 0) calc_sier4 0 62