11 lines
215 B
Plaintext
11 lines
215 B
Plaintext
picture v;
|
|
def c = currentpicture enddef;
|
|
forever:
|
|
v:=c;
|
|
showit;
|
|
addto c also c shifted left + c shifted right;
|
|
addto c also c shifted up + c shifted down;
|
|
addto c also c-v;
|
|
cull c keeping (5,7);
|
|
endfor
|