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