From 33de02bc04595ec56fa8ef7c3200dba63c05297b Mon Sep 17 00:00:00 2001 From: Walter Bender Date: Thu, 12 Feb 2009 21:58:53 +0000 Subject: finishing up merge from TAPortfolio --- (limited to 'samples/reflections.ta') diff --git a/samples/reflections.ta b/samples/reflections.ta deleted file mode 100644 index 77c6a7e..0000000 --- a/samples/reflections.ta +++ /dev/null @@ -1,298 +0,0 @@ -(lp0 -(I0 -S'clean' -p1 -I243 -I63 -(lp2 -NaI1 -atp3 -a(I1 -S'setpensize' -p4 -I243 -I102 -(lp5 -I0 -aI2 -aI3 -atp6 -a(I2 -(S'number' -p7 -S'15' -p8 -tp9 -I317 -I119 -(lp10 -I1 -aNatp11 -a(I3 -S'storeinbox1' -p12 -I243 -I156 -(lp13 -I1 -aI4 -aI5 -atp14 -a(I4 -(g7 -S'6200' -p15 -tp16 -I317 -I173 -(lp17 -I3 -aNatp18 -a(I5 -S'repeat' -p19 -I243 -I210 -(lp20 -I3 -aI6 -aI7 -aNatp21 -a(I6 -(g7 -S'6200' -p22 -tp23 -I329 -I219 -(lp24 -I5 -aNatp25 -a(I7 -S'storeinbox2' -p26 -I338 -I259 -(lp27 -I5 -aI8 -aI11 -atp28 -a(I8 -S'box1' -p29 -I412 -I276 -(lp30 -I7 -aI9 -atp31 -a(I9 -S'division' -p32 -I505 -I268 -(lp33 -I8 -aI10 -atp34 -a(I10 -(g7 -S'50' -p35 -tp36 -I544 -I276 -(lp37 -I9 -aNatp38 -a(I11 -S'setshade' -p39 -I338 -I313 -(lp40 -I7 -aI12 -aI15 -atp41 -a(I12 -(g7 -S'100' -p42 -tp43 -I412 -I330 -(lp44 -I11 -aI13 -atp45 -a(I13 -S'minus' -p46 -I505 -I322 -(lp47 -I12 -aI14 -atp48 -a(I14 -S'box2' -p49 -I544 -I330 -(lp50 -I13 -aNatp51 -a(I15 -S'forward' -p52 -I338 -I367 -(lp53 -I11 -aI16 -aI19 -atp54 -a(I16 -g29 -I412 -I376 -(lp55 -I15 -aI17 -atp56 -a(I17 -g32 -I505 -I368 -(lp57 -I16 -aI18 -atp58 -a(I18 -(g7 -S'8' -p59 -tp60 -I544 -I376 -(lp61 -I17 -aNatp62 -a(I19 -S'back' -p63 -I338 -I406 -(lp64 -I15 -aI20 -aI23 -atp65 -a(I20 -g29 -I412 -I415 -(lp66 -I19 -aI21 -atp67 -a(I21 -g32 -I505 -I407 -(lp68 -I20 -aI22 -atp69 -a(I22 -(g7 -g59 -tp70 -I544 -I415 -(lp71 -I21 -aNatp72 -a(I23 -S'right' -p73 -I338 -I445 -(lp74 -I19 -aI24 -aI25 -atp75 -a(I24 -(g7 -S'1' -p76 -tp77 -I412 -I454 -(lp78 -I23 -aNatp79 -a(I25 -g12 -I338 -I484 -(lp80 -I23 -aI26 -aI29 -atp81 -a(I26 -g29 -I412 -I501 -(lp82 -I25 -aI27 -atp83 -a(I27 -g46 -I505 -I493 -(lp84 -I26 -aI28 -atp85 -a(I28 -(g7 -g76 -tp86 -I544 -I501 -(lp87 -I27 -aNatp88 -a(I29 -S'setcolor' -p89 -I338 -I538 -(lp90 -I25 -aI30 -aNatp91 -a(I30 -g29 -I412 -I555 -(lp92 -I29 -aNatp93 -a(I-1 -S'turtle' -p94 -I-521 -I371 -F80.0 -F0.0 -F99.980000000000004 -F15.0 -tp95 -a. \ No newline at end of file -- cgit v0.9.1