It works listening on two local ports: one for custom graphic commands and the other for sending events. I am primarly developing it to enable simple games/graphic programming in K and APL.
Any contribution is welcomed :)
]: Begin (and clear) frame to renderSC r g b: Set drawing colorDL x_1 y_1 ... x_n y_n: Draw line(s)FR x_1 y_1 w_1 h_1 ... x_n y_n w_n h_n: Fill rect(s)FC x_1 y_1 r_1 ... x_n y_n r_n: Fill circle(s)
- 12345: Waits for graphic commands
- 12346: Sends keystrokes
Example program (in ngn/k)
\l asdl.k
res:1024 768
a:0 3.0 / acceleration
rrng:20 50 / radii range
n:200 / n. of balls
cls:(n;3)#*[3;n]?255 / colors
rs:rrng[0]+n?-/|rrng / radii
cts:+n?/:res / initial centers
vs:8*(n;2)#-0.5+?n*2 / velocities
dB:{SC@x;FC@y} / draw ball
bv:{-1 1@/:&[res>x+y;x>y]} / bounces
upd:{cts::&[res-\:/:rs;]rs|cts+vs;vs::a+/:vs*bv'[cts+vs;rs]}
main:{upd[];BF[];dB'[cls;_cts,'_rs];EF[]}
100 main/0n