Improved graphics

1 files changed, 82 insertions, 73 deletions

diff --git a/samples/redwisp.ta b/samples/redwisp.ta
index 3158a7d..497d3a6 100755
--- a/samples/redwisp.ta
+++ b/samples/redwisp.ta
@@ -222,133 +222,142 @@ aNatp73
 a(I23
 S'setpensize'
 p74
-I162
-I124
+I228
+I140
 (lp75
-NaI24
-aI25
+I25
+aI24
+aI26
 atp76
 a(I24
 (g7
 S'15'
 p77
 tp78
-I236
-I141
+I302
+I157
 (lp79
 I23
 aNatp80
 a(I25
+S'clean'
+p81
+I228
+I101
+(lp82
+NaI23
+atp83
+a(I26
 g4
-I162
-I178
-(lp81
+I228
+I194
+(lp84
 I23
-aI26
 aI27
-aNatp82
-a(I26
+aI28
+aNatp85
+a(I27
 (g7
 S'360'
-p83
-tp84
-I248
-I187
-(lp85
-I25
-aNatp86
-a(I27
-S'storeinbox1'
-p87
-I257
-I227
+p86
+tp87
+I314
+I203
 (lp88
-I25
-aI28
-aI31
-atp89
+I26
+aNatp89
 a(I28
-S'heading'
+S'storeinbox1'
 p90
-I331
-I244
+I323
+I243
 (lp91
-I27
+I26
 aI29
+aI32
 atp92
 a(I29
-S'product'
+S'heading'
 p93
-I424
-I236
+I397
+I260
 (lp94
 I28
 aI30
 atp95
 a(I30
-(g7
-S'600'
+S'product'
 p96
-tp97
-I463
-I244
-(lp98
+I490
+I252
+(lp97
 I29
-aNatp99
+aI31
+atp98
 a(I31
-S'setshade'
-p100
-I257
-I281
+(g7
+S'600'
+p99
+tp100
+I529
+I260
 (lp101
-I27
-aI32
-aI35
-atp102
+I30
+aNatp102
 a(I32
-S'box1'
+S'setshade'
 p103
-I331
-I298
+I323
+I297
 (lp104
-I31
+I28
 aI33
+aI36
 atp105
 a(I33
-S'division'
+S'box1'
 p106
-I424
-I290
+I397
+I314
 (lp107
 I32
 aI34
 atp108
 a(I34
-(g7
-S'360'
+S'division'
 p109
-tp110
-I463
-I298
-(lp111
+I490
+I306
+(lp110
 I33
-aNatp112
+aI35
+atp111
 a(I35
-S'stack1'
-p113
-I257
-I335
+(g7
+S'360'
+p112
+tp113
+I529
+I314
 (lp114
-I31
+I34
 aNatp115
+a(I36
+S'stack1'
+p116
+I323
+I351
+(lp117
+I32
+aNatp118
 a(I-1
 S'turtle'
-p116
-I-552
-I376
+p119
+I-559
+I403
 F0.0
 I0
 F598.33333333333337
 F15.0
-tp117
+tp120
 a.
\ No newline at end of file