happybot/okrc.k

25 lines
3.6 KiB
Text

/extra built-ins: abs, tan, acos, asin, atan, sinh, cosh, tanh, atan2, pow
font:(0 0 0 0 0 0 0 0 0 0 0 0;0 0 8 8 8 8 8 0 8 8 0 0;0 20 20 20 0 0 0 0 0 0 0 0;0 0 20 20 62 20 20 62 20 20 0 0;0 0 8 28 42 40 28 10 42 28 8 0;0 0 18 42 20 4 8 10 21 18 0 0;0 0 8 20 20 8 26 36 36 26 0 0;0 8 8 8 0 0 0 0 0 0 0 0;0 0 4 8 16 16 16 16 8 4 0 0;0 0 16 8 4 4 4 4 8 16 0 0;0 0 0 0 20 8 62 8 20 0 0 0;0 0 0 0 8 8 62 8 8 0 0 0;0 0 0 0 0 0 0 0 8 8 16 0;0 0 0 0 0 0 62 0 0 0 0 0;0 0 0 0 0 0 0 0 8 8 0 0;0 0 2 2 4 4 8 8 16 16 0 0;0 0 28 34 38 42 50 34 34 28 0 0;0 0 8 24 8 8 8 8 8 28 0 0;0 0 28 34 34 2 4 8 16 62 0 0;0 0 28 34 2 12 2 2 34 28 0 0;0 0 2 6 10 18 34 62 2 2 0 0;0 0 62 32 32 60 2 2 34 28 0 0;0 0 28 32 32 60 34 34 34 28 0 0;0 0 62 2 2 4 4 8 8 8 0 0;0 0 28 34 34 28 34 34 34 28 0 0;0 0 28 34 34 34 30 2 2 28 0 0;0 0 0 0 8 8 0 0 8 8 0 0;0 0 0 0 8 8 0 0 8 8 16 0;0 0 0 2 4 8 16 8 4 2 0 0;0 0 0 0 62 0 0 62 0 0 0 0;0 0 0 16 8 4 2 4 8 16 0 0;0 0 28 34 34 4 8 0 8 8 0 0;0 0 28 34 38 42 42 38 32 30 0 0;0 0 28 34 34 34 62 34 34 34 0 0;0 0 60 34 34 60 34 34 34 60 0 0;0 0 28 34 32 32 32 32 34 28 0 0;0 0 56 36 34 34 34 34 36 56 0 0;0 0 62 32 32 60 32 32 32 62 0 0;0 0 62 32 32 60 32 32 32 32 0 0;0 0 28 34 32 32 46 34 34 28 0 0;0 0 34 34 34 62 34 34 34 34 0 0;0 0 28 8 8 8 8 8 8 28 0 0;0 0 14 4 4 4 4 36 36 24 0 0;0 0 34 36 40 48 48 40 36 34 0 0;0 0 32 32 32 32 32 32 32 62 0 0;0 0 34 54 42 42 34 34 34 34 0 0;0 0 34 34 50 42 38 34 34 34 0 0;0 0 28 34 34 34 34 34 34 28 0 0;0 0 60 34 34 34 60 32 32 32 0 0;0 0 28 34 34 34 34 34 42 28 2 0;0 0 60 34 34 34 60 40 36 34 0 0;0 0 28 34 32 28 2 2 34 28 0 0;0 0 62 8 8 8 8 8 8 8 0 0;0 0 34 34 34 34 34 34 34 28 0 0;0 0 34 34 34 20 20 20 8 8 0 0;0 0 34 34 34 34 42 42 54 34 0 0;0 0 34 34 20 8 8 20 34 34 0 0;0 0 34 34 20 20 8 8 8 8 0 0;0 0 62 2 4 8 16 32 32 62 0 0;0 0 28 16 16 16 16 16 16 28 0 0;0 0 16 16 8 8 4 4 2 2 0 0;0 0 28 4 4 4 4 4 4 28 0 0;0 8 20 34 0 0 0 0 0 0 0 0;0 0 0 0 0 0 0 0 0 0 62 0;16 8 0 0 0 0 0 0 0 0 0 0;0 0 0 0 28 2 30 34 34 30 0 0;0 0 32 32 60 34 34 34 34 60 0 0;0 0 0 0 28 34 32 32 34 28 0 0;0 0 2 2 30 34 34 34 34 30 0 0;0 0 0 0 28 34 62 32 32 30 0 0;0 0 6 8 28 8 8 8 8 8 0 0;0 0 0 0 30 34 34 34 34 30 2 28;0 0 32 32 60 34 34 34 34 34 0 0;0 8 8 0 24 8 8 8 8 28 0 0;0 2 2 0 6 2 2 2 2 2 18 12;0 0 16 16 18 20 24 24 20 18 0 0;0 0 24 8 8 8 8 8 8 28 0 0;0 0 0 0 60 42 42 42 42 42 0 0;0 0 0 0 60 34 34 34 34 34 0 0;0 0 0 0 28 34 34 34 34 28 0 0;0 0 0 0 60 34 34 34 34 60 32 32;0 0 0 0 30 34 34 34 34 30 2 2;0 0 0 0 46 48 32 32 32 32 0 0;0 0 0 0 30 32 28 2 2 60 0 0;0 0 8 8 28 8 8 8 8 6 0 0;0 0 0 0 34 34 34 34 34 30 0 0;0 0 0 0 34 34 20 20 8 8 0 0;0 0 0 0 34 34 42 42 42 28 0 0;0 0 0 0 34 20 8 8 20 34 0 0;0 0 0 0 34 34 34 34 34 30 2 28;0 0 0 0 62 4 8 16 32 62 0 0;0 0 6 8 8 16 8 8 8 6 0 0;0 0 8 8 8 8 8 8 8 8 0 0;0 0 24 4 4 2 4 4 4 24 0 0;0 18 42 36 0 0 0 0 0 0 0 0)
/view a binary matrix using braille characters
binview:{`0:`c$10240+{2/0|x./:8 2#4\3700758592}''+0N 4#/:+0N 2#/:x,(4!#x)#,0;x}
/plots given ydata, with implicit xdata:!#ydata.
plotn:{binview@+(|=x*4)@_.5+(-1+x*4)*w%|/w:y-&/y;y}
plot:plotn[3] /plotn with height of 3 lines
/uses font to turn text into a binary matrix
bintext:{(,')/((6#2)\')'font{x*x<#font}0|x-32}
randomdigit:{(,/("left ";"right "),\:/:((" "\"big second third fourth little"),\:" toe"),((,"thumb"),(" "\"index middle ring little"),\:" finger"))@x?20}
horizon:{%:x*x+12742.016} /distance to horizon, standing x km high on earth
apaper:{_.2+1000%2 pow .25*-1+2*x}'1 0+ /width and height of Ax paper (A4, etc)
pi:3.14159265358979323846264338327950288419716939937510
tau:2*pi
e:2.71828182845904523536028747135266249775724709369995
phi:(1+%5)%2
shikhin:1