Skip to content

Instantly share code, notes, and snippets.

'get_res'⎕NA'U4 /home/flandre/apl-raymarcher/target/debug/libapl_window_draw_helper.so|get_res P >U4[2]'
'init_drawer'⎕NA'P /home/flandre/apl-raymarcher/target/debug/libapl_window_draw_helper.so|init_drawer'
'draw'⎕NA'U4 /home/flandre/apl-raymarcher/target/debug/libapl_window_draw_helper.so|draw P U4 U4 <F4[]'
'ddd'⎕NA'U4 /home/flandre/apl-raymarcher/target/debug/libapl_window_draw_helper.so|ddd U4 <U4[]'
⍝⎕SE.UCMD 'BOX on'
drawer←init_drawer
res←↑(get_res drawer ( 0 0 ))[2] ⋄ xres←(res)[1]
yres←(res)[2] ⋄ xy←{({⍵}¨((⍳(xres))-1))⍵}¨((⍳(yres))-1)