season’s greetings from down under.
run this for a christmas message:
“you might have to wait a minute…”
r:200
m:(4>n)&null n:sum{xx}1000{c+(-/[xx];2prd x)}/c:flip(-2+til[r]%r30%80)cross -1+til[r]%r*40%80
M:reverse (r;r)#(0xffffff;0xff0000)m
d:{if[4h=u:abs t:type x;:x];if[u in 5 6 7h;:{reverse 0x0 vs x}each x];if[10=u;:4h$x];u}
a:{p:count[x 0]mod 4;raze raze,[;p#0x0]each x}
h:{((“BM”;6h$0x36+count y;0i;6h$0x36),(40i;6h$count each (x 1;x);1 24h;0 0 3000 2000 0 0i))}
b:{if[not 0x36=count m:raze raze d each h[x;p:a x];'size];m,p}
g::f.bmp;@[hdel;g;];f:hopen g;f b M; hclose f
“surprise - we don’t have the ice men in Australia :)”
system “mspaint f.bmp”
you will need to patch this to run on your system - change mspaint to your favourite bmp viewer.
jack.