Improved graphics

1 files changed, 354 insertions, 354 deletions

diff --git a/samples/curlygates.ta b/samples/curlygates.ta
index 53b1c6f..b739008 100755
--- a/samples/curlygates.ta
+++ b/samples/curlygates.ta
@@ -1,469 +1,469 @@
 (lp0
 (I0
-S'fillscreen'
+S'hat1'
 p1
-I137
-I130
+I752
+I51
 (lp2
 NaI1
-aI2
-aI3
 atp3
 a(I1
-(S'number'
+S'repeat'
 p4
-S'50'
-p5
-tp6
-I211
-I139
-(lp7
+I764
+I101
+(lp5
 I0
-aNatp8
+aI2
+aI3
+aNatp6
 a(I2
-(g4
-S'30'
-p9
-tp10
-I211
-I176
-(lp11
-I0
-aNatp12
+(S'number'
+p7
+S'3'
+p8
+tp9
+I850
+I110
+(lp10
+I1
+aNatp11
 a(I3
-S'repeat'
-p13
-I137
-I206
-(lp14
-I0
+S'storeinbox1'
+p12
+I859
+I150
+(lp13
+I1
 aI4
 aI5
-aNatp15
+atp14
 a(I4
-(g4
-S'20'
-p16
-tp17
-I223
-I215
-(lp18
+(g7
+S'200'
+p15
+tp16
+I933
+I167
+(lp17
 I3
-aNatp19
+aNatp18
 a(I5
-S'setxy'
-p20
-I232
-I255
-(lp21
+g4
+I859
+I204
+(lp19
 I3
 aI6
-aI9
-aI12
-atp22
+aI7
+aNatp20
 a(I6
-S'random'
-p23
-I306
-I245
-(lp24
+(g7
+S'20'
+p21
+tp22
+I945
+I213
+(lp23
 I5
-aI7
-aI8
-aNatp25
+aNatp24
 a(I7
-(g4
-S'-570'
-p26
-tp27
-I334
-I264
-(lp28
-I6
-aNatp29
-a(I8
-(g4
-S'570'
-p30
-tp31
-I456
-I264
-(lp32
-I6
-aNatp33
-a(I9
-g23
-I306
-I282
-(lp34
+S'arc'
+p25
+I954
+I253
+(lp26
 I5
+aI8
+aI9
 aI10
-aI11
-aNatp35
+atp27
+a(I8
+(g7
+S'30'
+p28
+tp29
+I1028
+I262
+(lp30
+I7
+aNatp31
+a(I9
+S'box1'
+p32
+I1028
+I299
+(lp33
+I7
+aNatp34
 a(I10
-(g4
-S'-440'
-p36
-tp37
-I334
-I301
-(lp38
-I9
-aNatp39
+g12
+I954
+I329
+(lp35
+I7
+aI11
+aNatp36
 a(I11
-(g4
-S'440'
-p40
-tp41
-I456
-I301
-(lp42
-I9
-aNatp43
+g32
+I1028
+I346
+(lp37
+I10
+aI12
+atp38
 a(I12
-S'seth'
-p44
-I232
-I331
-(lp45
-I5
+S'division'
+p39
+I1121
+I338
+(lp40
+I11
 aI13
-aI16
-atp46
+atp41
 a(I13
-g23
-I306
-I321
-(lp47
+(g7
+S'1.2'
+p42
+tp43
+I1160
+I346
+(lp44
 I12
-aI14
-aI15
-aNatp48
+aNatp45
 a(I14
-(g4
-S'0'
-p49
-tp50
-I334
-I340
-(lp51
-I13
-aNatp52
+S'hat2'
+p46
+I708
+I263
+(lp47
+NaI15
+atp48
 a(I15
-(g4
-S'360'
-p53
-tp54
-I456
-I340
-(lp55
-I13
-aNatp56
+S'setcolor'
+p49
+I720
+I313
+(lp50
+I14
+aI16
+aI17
+atp51
 a(I16
-S'stack2'
-p57
-I232
-I370
-(lp58
-I12
-aNatp59
+(g7
+S'20'
+p52
+tp53
+I794
+I330
+(lp54
+I15
+aNatp55
 a(I17
-S'hat2'
-p60
-I647
-I304
-(lp61
-NaI18
-atp62
+S'setshade'
+p56
+I720
+I367
+(lp57
+I15
+aI18
+aI19
+atp58
 a(I18
-S'setcolor'
+(g7
+S'60'
+p59
+tp60
+I794
+I384
+(lp61
+I17
+aNatp62
+a(I19
+S'setpensize'
 p63
-I659
-I354
+I720
+I421
 (lp64
 I17
-aI19
 aI20
+aI21
 atp65
-a(I19
-(g4
+a(I20
+(g7
 S'20'
 p66
 tp67
-I733
-I371
+I794
+I438
 (lp68
-I18
+I19
 aNatp69
-a(I20
-S'setshade'
+a(I21
+S'stack1'
 p70
-I659
-I408
+I720
+I475
 (lp71
-I18
-aI21
+I19
 aI22
 atp72
-a(I21
-(g4
-S'60'
-p73
-tp74
-I733
-I425
-(lp75
-I20
-aNatp76
 a(I22
-S'setpensize'
-p77
-I659
-I462
-(lp78
-I20
+g49
+I720
+I514
+(lp73
+I21
 aI23
 aI24
-atp79
+atp74
 a(I23
-(g4
-S'20'
-p80
-tp81
-I733
-I479
-(lp82
+(g7
+S'0'
+p75
+tp76
+I794
+I531
+(lp77
 I22
-aNatp83
+aNatp78
 a(I24
-S'stack1'
-p84
-I659
-I516
-(lp85
+g56
+I720
+I568
+(lp79
 I22
 aI25
-atp86
+aI28
+atp80
 a(I25
-g63
-I659
-I555
-(lp87
+S'random'
+p81
+I794
+I566
+(lp82
 I24
 aI26
 aI27
-atp88
+aNatp83
 a(I26
-(g4
-g49
+(g7
+S'60'
+p84
+tp85
+I822
+I585
+(lp86
+I25
+aNatp87
+a(I27
+(g7
+S'80'
+p88
 tp89
-I733
-I572
+I944
+I585
 (lp90
 I25
 aNatp91
-a(I27
-g70
-I659
-I609
-(lp92
-I25
-aI28
-aI31
-atp93
 a(I28
-g23
-I733
-I607
-(lp94
-I27
+g63
+I720
+I622
+(lp92
+I24
 aI29
 aI30
-aNatp95
+atp93
 a(I29
-(g4
-S'60'
-p96
-tp97
-I761
-I626
-(lp98
+(g7
+S'12'
+p94
+tp95
+I794
+I639
+(lp96
 I28
-aNatp99
+aNatp97
 a(I30
-(g4
-S'80'
-p100
-tp101
-I883
-I626
-(lp102
+g70
+I720
+I676
+(lp98
 I28
-aNatp103
+aNatp99
 a(I31
-g77
-I659
-I663
-(lp104
-I27
-aI32
+S'fillscreen'
+p100
+I224
+I113
+(lp101
+NaI32
 aI33
-atp105
+aI34
+atp102
 a(I32
-(g4
-S'12'
-p106
-tp107
-I733
-I680
-(lp108
+(g7
+S'50'
+p103
+tp104
+I298
+I122
+(lp105
 I31
-aNatp109
+aNatp106
 a(I33
-g84
-I659
-I717
-(lp110
+(g7
+S'30'
+p107
+tp108
+I298
+I159
+(lp109
 I31
-aNatp111
+aNatp110
 a(I34
-S'hat1'
-p112
-I670
-I65
-(lp113
-NaI35
-atp114
+g4
+I224
+I189
+(lp111
+I31
+aI35
+aI36
+aNatp112
 a(I35
-g13
-I682
-I115
+(g7
+S'20'
+p113
+tp114
+I310
+I198
 (lp115
 I34
-aI36
-aI37
 aNatp116
 a(I36
-(g4
-S'3'
+S'setxy'
 p117
-tp118
-I768
-I124
-(lp119
-I35
-aNatp120
+I319
+I238
+(lp118
+I34
+aI37
+aI40
+aI43
+atp119
 a(I37
-S'storeinbox1'
-p121
-I777
-I164
-(lp122
-I35
+g81
+I393
+I228
+(lp120
+I36
 aI38
 aI39
-atp123
+aNatp121
 a(I38
-(g4
-S'200'
-p124
-tp125
-I851
-I181
-(lp126
+(g7
+S'-570'
+p122
+tp123
+I421
+I247
+(lp124
 I37
-aNatp127
+aNatp125
 a(I39
-g13
-I777
-I218
+(g7
+S'570'
+p126
+tp127
+I543
+I247
 (lp128
 I37
-aI40
-aI41
 aNatp129
 a(I40
-(g4
-S'20'
-p130
-tp131
-I863
-I227
-(lp132
-I39
-aNatp133
-a(I41
-S'arc'
-p134
-I872
-I267
-(lp135
-I39
+g81
+I393
+I265
+(lp130
+I36
+aI41
 aI42
-aI43
-aI44
-atp136
+aNatp131
+a(I41
+(g7
+S'-440'
+p132
+tp133
+I421
+I284
+(lp134
+I40
+aNatp135
 a(I42
-(g4
-S'30'
-p137
-tp138
-I946
-I276
-(lp139
-I41
-aNatp140
+(g7
+S'440'
+p136
+tp137
+I543
+I284
+(lp138
+I40
+aNatp139
 a(I43
-S'box1'
-p141
-I946
-I313
-(lp142
-I41
-aNatp143
+S'seth'
+p140
+I319
+I314
+(lp141
+I36
+aI44
+aI47
+atp142
 a(I44
-g121
-I872
-I343
-(lp144
-I41
+g81
+I393
+I304
+(lp143
+I43
 aI45
-aNatp145
+aI46
+aNatp144
 a(I45
-g141
-I946
-I360
+(g7
+g75
+tp145
+I421
+I323
 (lp146
 I44
-aI46
-atp147
+aNatp147
 a(I46
-S'division'
+(g7
+S'360'
 p148
-I1039
-I352
-(lp149
-I45
-aI47
-atp150
+tp149
+I543
+I323
+(lp150
+I44
+aNatp151
 a(I47
-(g4
-S'1.2'
-p151
-tp152
-I1078
-I360
+S'stack2'
+p152
+I319
+I353
 (lp153
-I46
+I43
 aNatp154
 a(I-1
 S'turtle'
 p155
-F-54.000000000000028
-F-435.00000000000006
-F251.0
+F397.99999999999983
+F-386.00000000000097
+F115.0
 F0.0
-I71
+I74
 F12.0
 tp156
 a.
\ No newline at end of file