From 3af60034adfce89798b3fba7c2d3c97697c19c57 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@walter-laptop.(none)>
Date: Mon, 24 Aug 2009 02:14:15 +0000
Subject: adding new samples

---
(limited to 'samples/reflections.ta')

diff --git a/samples/reflections.ta b/samples/reflections.ta
new file mode 100644
index 0000000..77c6a7e
--- /dev/null
+++ b/samples/reflections.ta
@@ -0,0 +1,298 @@
+(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