Aplette: a minimalist APL oriented toward scripting within a UNIX environment
github.com
github.com
Note to anyone posting a new language experiment: samples are critical!
https://github.com/gregfjohnson/aplette/blob/master/qa/print...
G m { gfx parms; left; right; bottom; top; near; far
left { parms[1]
right { parms[2]
bottom { parms[3]
top { parms[4]
near { parms[5]
far { parms[6]
m { 4 4R0
m[1;1] { 2 X near % (right-left)
m[1;3] { (right + left) % (right - left)
m[2;2] { 2 X near % (top-bottom)
m[2;3] { (top + bottom) % (top - bottom)
m[3;3] { -(far + near) % (far - near)
m[3;4] { -2 X far X near % (far - near)
m[4;3] { `1
)read gfx
m { gfx `10 10 `10 10 2 1000
8 4 J@N m
0.2000 0.0000 0.0000 0.0000
0.0000 0.2000 0.0000 0.0000
0.0000 0.0000 `1.0040 `4.0080
0.0000 0.0000 `1.0000 0.0000
8 4 J@N %@L m
5.0000 0.0000 0.0000 0.0000
0.0000 5.0000 0.0000 0.0000
0.0000 0.0000 0.0000 `1.0000
0.0000 0.0000 `0.2495 0.2505