i:(1_'i)@=`s$*'i:" "\'(97>*:')_0:`i
w:640;s:w,h:480
v:@[+.''i`v;1;-:]
p:0.5*s+h*(2#v)*\:q:1%1-0.2*v@2
f:((.*"/"\)''i`f)-1
d:{-/x*|y}
(a;b;c):++'p[;f]
D:1%d[b-a]c-a
"o.ppm"1:("P6\n640 480\n255\n"),,//{{`c$$[#k:&~0>&/e:(1-B+C;B:D*d[x-a]c-a;C:D*d[b-a]x-a);_255*e[;k@*>Q:+/e[;k]*+q@f@k];&3]}'(!w),\:x}'!h