forked from theinternetftw/xkcd2601
-
Notifications
You must be signed in to change notification settings - Fork 0
/
xkcd.lgo
5302 lines (4380 loc) · 100 KB
/
xkcd.lgo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
; xkcd #2601: Instructions (the transcription)
; https://github.com/theinternetftw/xkcd2601
; TRANSCRIPTION START:
; And here we want to show you that you can program a picture right along with us.
;
; We'll use a single color, some unorthodox functions, and each line we'll put
; a bit of nature's masterpieces right here on our canvas.
;
; Today we'll have them run all the functions across the stream, right now,
; that you need to program along with us.
;
; Starting with a simple one:
TO DIST :X0 :Y0 :X1 :Y1
LOCALMAKE "RX DIFFERENCE :X1 :X0
LOCALMAKE "RY DIFFERENCE :Y1 :Y0
OUTPUT SQRT SUM PRODUCT :RX :RX PRODUCT :RY :RY
END
; There we go! Just like that.
TO LERP :A :B :T
OUTPUT SUM :A PRODUCT :T DIFFERENCE :B :A
END
; One more done. No pressure.
TO MIX :A :B
OUTPUT LERP :A :B 0.5
END
; Really makes our programming life easier.
TO CUBIC :X1 :Y1 :X2 :Y2 :EX :EY
LOCALMAKE "X0 XCOR
LOCALMAKE "Y0 YCOR
LOCALMAKE "ERRX1 LERP :X0 :EX 0.25
LOCALMAKE "ERRY1 LERP :Y0 :EY 0.25
LOCALMAKE "ERRX2 LERP :X0 :EX 0.75
LOCALMAKE "ERRY2 LERP :Y0 :EY 0.75
IFELSE OR LESSP :PIXERROR DIST :ERRX1 :ERRY1 :X1 :Y1 LESSP :PIXERROR DIST :ERRX2 :ERRY2 :X2 :Y2 [
LOCALMAKE "QX0 MIX :X0 :X1
LOCALMAKE "QY0 MIX :Y0 :Y1
LOCALMAKE "QX1 MIX :X1 :X2
LOCALMAKE "QY1 MIX :Y1 :Y2
LOCALMAKE "QX2 MIX :X2 :EX
LOCALMAKE "QY2 MIX :Y2 :EY
LOCALMAKE "LX0 MIX :QX0 :QX1
LOCALMAKE "LY0 MIX :QY0 :QY1
LOCALMAKE "LX1 MIX :QX1 :QX2
LOCALMAKE "LY1 MIX :QY1 :QY2
LOCALMAKE "PMX MIX :LX0 :LX1
LOCALMAKE "PMY MIX :LY0 :LY1
CUBIC :QX0 :QY0 :LX0 :LY0 :PMX :PMY
CUBIC :LX1 :LY1 :QX2 :QY2 :EX :EY
] [
SETXY :EX :EY
]
END
; I think there's a programmer hidden at the bottom of every single one of us.
TO XKCD
; NOTE: added this for the aUCBLogo IDE, which sadly started crashing (sad as it had nicely rendered output). Leaving in case it helps someone.
; SETSCREENRANGE -500 -450 500 450
; NOTE: Added for the FMSLogo interpreter (which is at least working, but renders ugly aliased graphics).
SETPENSIZE 1 ; NOTE: looks better at 3, but setting back to 1 to more easily see bugs.
MAKE "PIXERROR 0.5
; Let me show you what is going on up here.
CLEARSCREEN
WINDOW ; NOTE: for some LOGOs (like aUCBLogo), this must be WINDOWMODE.
PENUP
SETXY -473 391
; I've just covered the entire canvas with just a bit of white.
PENDOWN
; We start with a vision in our hearts and we put it on canvas.
CUBIC -469 424 -458 416 -456 389
PENUP
SETXY -471 400
PENDOWN
SETHEADING 87
FORWARD 14
PENUP
SETXY -443 412
PENDOWN
CUBIC -443 405 -443 397 -444 390
PENUP
SETXY -442 400
PENDOWN
SETHEADING 84
FORWARD 10
PENUP
SETXY -431 409
PENDOWN
CUBIC -432 403 -432 397 -431 390
PENUP
SETXY -427 392
PENDOWN
CUBIC -422 419 -415 416 -412 391
PENUP
SETXY -426 400
PENDOWN
CUBIC -422 400 -418 401 -414 401
PENUP
SETXY -409 410
PENDOWN
CUBIC -408 404 -408 398 -408 391
PENUP
SETXY -409 409
PENDOWN
CUBIC -395 421 -390 396 -408 403
PENUP
SETXY -393 410
PENDOWN
CUBIC -392 405 -392 399 -392 393
PENUP
SETXY -393 411
PENDOWN
CUBIC -380 419 -377 400 -392 402
PENUP
SETXY -372 391
PENDOWN
CUBIC -371 402 -374 400 -377 408
PENUP
SETXY -372 400
PENDOWN
SETHEADING 37
FORWARD 13
PENUP
SETXY -471 380
PENDOWN
CUBIC -471 366 -480 357 -460 361
PENUP
SETXY -457 379
PENDOWN
CUBIC -457 372 -457 366 -457 360
PENUP
SETXY -448 379
PENDOWN
SETHEADING 179
FORWARD 19
PENUP
; Merriam-Webster defines a turtle as: "Noun. Any of an order (Testudines synonym Chelonia)
; of terrestrial, freshwater, and marine reptiles that have a toothless horny beak and a shell
; of bony dermal plates usually covered with horny shields enclosing the trunk and into which
; the head, limbs, and tail usually may be withdrawn."
SETXY -454 378
PENDOWN
CUBIC -449 379 -444 380 -440 380
PENUP
SETXY -434 379
PENDOWN
SETHEADING 179
FORWARD 16
PENUP
SETXY -439 378
PENDOWN
CUBIC -434 379 -430 380 -425 380
PENUP
SETXY -425 377
PENDOWN
CUBIC -424 367 -431 356 -415 360
PENUP
SETXY -400 380
PENDOWN
CUBIC -404 379 -413 382 -412 376
CUBIC -410 360 -416 356 -400 360
PENUP
SETXY -412 368
PENDOWN
CUBIC -409 369 -406 370 -403 370
PENUP
SETXY -376 380
PENDOWN
SETHEADING 178
FORWARD 21
PENUP
SETXY -383 378
PENDOWN
CUBIC -379 379 -374 380 -369 381
PENUP
SETXY -366 379
PENDOWN
CUBIC -365 372 -366 366 -366 360
PENUP
SETXY -366 379
PENDOWN
CUBIC -353 384 -349 375 -363 371
CUBIC -358 372 -356 365 -353 361
PENUP
SETXY -338 379
PENDOWN
CUBIC -341 378 -351 381 -350 376
CUBIC -348 359 -355 358 -336 361
PENUP
SETXY -350 370
PENDOWN
CUBIC -347 370 -344 370 -341 370
PENUP
SETXY -320 379
PENDOWN
CUBIC -338 381 -331 375 -333 362
CUBIC -332 358 -323 362 -320 361
PENUP
SETXY -332 370
PENDOWN
SETHEADING 89
FORWARD 7
SETHEADING -79
FORWARD 1
PENUP
SETXY -474 336
PENDOWN
CUBIC -473 329 -473 322 -474 316
PENUP
SETXY -473 327
PENDOWN
SETHEADING 85
FORWARD 11
PENUP
SETXY -461 338
PENDOWN
CUBIC -461 331 -461 323 -460 316
PENUP
; Here are some interesting notes from "Interesting Facts About Turtles",
; a little nature study by a scientist, Forest and Stream, January 1916.
;
; "Over a great many years, I have taken a great interest in the land turtle.
; I have at the present time a number, some of which I have had for at least
; 17 years. To most people, they are ugly and repulsive, as the head, when fully
; protruded and extended, looks like a snake, and furthermore, their clumsy method
; of progression does not add anything attractive."
SETXY -453 335
PENDOWN
CUBIC -460 331 -456 312 -447 319
CUBIC -442 324 -444 339 -453 335
PENUP
; NOTE: [00:17:11]
SETXY -439 335
PENDOWN
CUBIC -439 329 -441 322 -439 316
CUBIC -437 315 -433 316 -430 316
PENUP
SETXY -426 315
PENDOWN
CUBIC -412 316 -408 339 -427 336
CUBIC -426 329 -426 322 -427 315
PENUP
SETXY -409 336
PENDOWN
CUBIC -409 330 -409 323 -409 316
PENUP
SETXY -405 316
PENDOWN
SETHEADING -1
FORWARD 19
CUBIC -400 329 -397 322 -394 316
SETHEADING 4
FORWARD 20
PENUP
SETXY -381 325
PENDOWN
CUBIC -379 325 -377 325 -375 325
CUBIC -373 322 -375 319 -377 318
CUBIC -393 311 -390 343 -375 334
PENUP
SETXY -359 335
PENDOWN
CUBIC -366 307 -340 310 -348 336
PENUP
SETXY -342 315
PENDOWN
CUBIC -341 321 -343 329 -342 335
CUBIC -326 342 -322 324 -342 325
PENUP
SETXY -319 315
PENDOWN
CUBIC -315 344 -305 337 -303 313
PENUP
SETXY -317 324
PENDOWN
SETHEADING 87
FORWARD 12
PENUP
SETXY -473 303
PENDOWN
CUBIC -473 296 -473 289 -473 282
PENUP
SETXY -473 292
PENDOWN
CUBIC -469 292 -465 293 -461 293
PENUP
SETXY -460 303
PENDOWN
CUBIC -461 297 -462 290 -461 284
PENUP
SETXY -456 285
PENDOWN
CUBIC -453 312 -445 306 -441 284
PENUP
SETXY -455 292
PENDOWN
CUBIC -451 293 -447 294 -443 293
SETHEADING -7
FORWARD 1
PENUP
SETXY -438 302
PENDOWN
SETHEADING 179
FORWARD 17
PENUP
SETXY -439 301
PENDOWN
CUBIC -425 311 -422 288 -438 293
PENUP
; "One of the interesting points about turtles is their great variety of foods.
; They are, as a rule, good scavengers, eating all kinds of decomposing and
; putrifying materials. Beef or in fact any meat is eaten. I have seen them
; eat the flesh of birds and of moles, and, while earthworms are relished by
; them, any worm or grub is taken. Worms from shell barks and ordinary maggots
; are gotten rid of in a hurry. Blackberries, mayapples, cherries and mulberries,
; tomatoes, cucumbers.
;
; And one vegetable eagerly eaten by my stock is green sugarcorn, either raw or
; cooked. In the spring, when they first come out of the soil and food is not
; plentiful in their pen, I have bought canned corn, and they certainly have made
; it disappear very quickly. Beetles and tumblebugs, potato bugs, either in
; larval or mature forms, are destroyed. Toadstools, especially the large flat
; pink ones, white and yellow ones, are eaten, while I have seen them pass a
; black toadstool by several days unnoticed."
; NOTE: [00:24:48]
SETXY -423 303
PENDOWN
CUBIC -424 296 -424 289 -424 282
PENUP
SETXY -423 294
PENDOWN
CUBIC -409 292 -406 308 -423 303
PENUP
SETXY -409 302
PENDOWN
CUBIC -404 296 -402 292 -403 284
PENUP
SETXY -403 294
PENDOWN
CUBIC -400 298 -397 301 -393 305
PENUP
SETXY -381 304
; Here we have a happy little
PENDOWN
; statement. That's it. And then,
SETHEADING -177
FORWARD 19
SETHEADING 87
FORWARD 10
PENUP
SETXY -367 303
PENDOWN
CUBIC -367 297 -368 291 -368 285
PENUP
SETXY -363 303
PENDOWN
CUBIC -359 304 -355 305 -351 305
PENUP
SETXY -357 304
PENDOWN
CUBIC -358 299 -358 291 -358 286
PENUP
; NOTE: [00:27:30]
SETXY -351 301
PENDOWN
CUBIC -346 303 -341 304 -336 305
PENUP
SETXY -344 304
PENDOWN
CUBIC -345 297 -345 291 -346 284
PENUP
SETXY -333 304
PENDOWN
CUBIC -334 293 -343 281 -324 286
PENUP
SETXY -308 305
PENDOWN
CUBIC -312 305 -317 304 -321 304
CUBIC -321 298 -320 291 -321 285
CUBIC -316 285 -312 285 -307 285
PENUP
SETXY -321 294
PENDOWN
CUBIC -318 295 -315 295 -312 295
PENUP
; NOTE: [00:29:31]
SETXY -473 273
PENDOWN
CUBIC -472 267 -470 241 -464 260
CUBIC -463 257 -462 254 -461 252
CUBIC -457 258 -455 265 -454 272
PENUP
SETXY -448 270
PENDOWN
CUBIC -450 265 -451 260 -449 256
CUBIC -442 246 -435 261 -439 267
CUBIC -440 272 -446 275 -448 270
PENUP
SETXY -433 253
PENDOWN
CUBIC -432 259 -432 266 -432 273
CUBIC -420 276 -416 262 -431 264
CUBIC -425 263 -421 258 -420 253
PENUP
SETXY -413 273
PENDOWN
CUBIC -413 252 -421 252 -403 253
PENUP
SETXY -399 253
PENDOWN
CUBIC -381 256 -376 275 -399 273
CUBIC -399 267 -399 259 -399 253
PENUP
; NOTE: [00:32:41]
; "Occasionally, when a female drops an egg on the ground, it
; is quickly eaten by the others. Ordinary hens' eggs are eaten
; and at great relish. Enjoyed hugely by them is thick sour milk.
; I have placed a quantity of this milk in two or three places in
; the pen, and in five minutes it is surrounded by the turtles, just
; like flies on a lump of sugar. The scraping of limburger cheese
; have also been eaten."
SETXY -423 354
PENDOWN
SETHEADING -174
FORWARD 10
PENUP
SETXY -430 242
PENDOWN
CUBIC -432 211 -427 177 -407 151
PENUP
SETXY -237 -103
PENDOWN
CUBIC -222 -67 -195 -8 -221 27
CUBIC -222 37 -221 35 -228 42
CUBIC -230 45 -228 49 -230 52
CUBIC -232 54 -235 55 -235 58
CUBIC -235 66 -234 75 -244 74
CUBIC -252 90 -255 76 -266 85
CUBIC -270 87 -273 83 -277 83
CUBIC -282 84 -287 84 -292 81
CUBIC -295 80 -297 82 -300 83
CUBIC -303 83 -306 80 -310 80
CUBIC -322 84 -327 74 -337 81
CUBIC -342 80 -342 74 -350 78
CUBIC -356 80 -362 75 -368 75
CUBIC -372 75 -375 77 -379 76
CUBIC -385 72 -391 76 -397 72
CUBIC -403 70 -409 69 -408 61
CUBIC -415 50 -409 53 -411 46
CUBIC -415 40 -411 32 -416 26
CUBIC -419 19 -415 11 -420 4
CUBIC -422 -8 -416 -4 -422 -18
CUBIC -422 -21 -420 -23 -419 -25
CUBIC -418 -32 -424 -31 -417 -39
CUBIC -416 -45 -420 -46 -415 -52
CUBIC -414 -55 -416 -57 -415 -60
CUBIC -415 -62 -414 -63 -412 -64
CUBIC -411 -65 -411 -68 -410 -69
CUBIC -407 -68 -406 -71 -404 -72
CUBIC -402 -72 -400 -72 -398 -73
CUBIC -393 -79 -395 -75 -389 -77
CUBIC -387 -83 -386 -79 -381 -80
CUBIC -380 -81 -380 -81 -379 -82
CUBIC -377 -84 -373 -81 -372 -83
CUBIC -371 -89 -367 -86 -363 -87
CUBIC -359 -89 -362 -95 -357 -95
CUBIC -356 -96 -355 -95 -354 -96
CUBIC -353 -100 -353 -104 -350 -106
CUBIC -348 -107 -347 -109 -345 -108
CUBIC -344 -107 -340 -108 -341 -106
CUBIC -346 -105 -340 -100 -342 -98
CUBIC -343 -96 -346 -93 -342 -91
CUBIC -337 -88 -343 -80 -340 -76
CUBIC -335 -75 -339 -64 -332 -68
CUBIC -328 -56 -328 -69 -321 -66
CUBIC -310 -59 -313 -68 -306 -64
CUBIC -303 -62 -301 -64 -299 -66
CUBIC -297 -66 -294 -63 -292 -65
CUBIC -289 -69 -282 -62 -280 -68
CUBIC -275 -73 -268 -61 -262 -68
; NOTE: [00:42:39]
CUBIC -258 -68 -255 -63 -252 -69
CUBIC -245 -63 -246 -69 -247 -75
CUBIC -247 -78 -241 -75 -245 -83
CUBIC -248 -88 -239 -85 -242 -93
CUBIC -242 -97 -236 -94 -238 -100
CUBIC -238 -101 -238 -103 -237 -103
PENUP
; "A piece of butter which had upon a platter in the icebox for months
; was placed before them, and this was eaten in due time. Crabapples and
; cantelope are enjoyed by them, but watermelon is not so eagerly gobbled
; up like the cantelope. I was surprised one morning when I found one of
; the large turtles had caught and disembowled a very large toad which I
; had in the yard. I have seen turtles eating at 11 o'clock at night,
; when, one would think, they would be resting."
; NOTE: [00:44:22]
SETXY -227 -80
PENDOWN
CUBIC -222 -84 -229 -88 -227 -92
CUBIC -226 -97 -229 -98 -230 -102
CUBIC -229 -111 -232 -108 -236 -115
CUBIC -239 -122 -245 -124 -247 -133
CUBIC -249 -136 -252 -137 -253 -141
CUBIC -253 -143 -255 -143 -257 -144
CUBIC -259 -145 -259 -148 -262 -148
CUBIC -269 -150 -264 -153 -275 -155
CUBIC -279 -159 -284 -157 -289 -160
CUBIC -290 -161 -292 -160 -293 -160
CUBIC -295 -160 -296 -158 -298 -158
CUBIC -307 -165 -305 -151 -313 -158
CUBIC -318 -163 -320 -153 -325 -153
CUBIC -335 -157 -333 -147 -338 -143
CUBIC -341 -143 -346 -145 -346 -140
CUBIC -348 -128 -351 -135 -356 -132
CUBIC -357 -130 -356 -125 -359 -124
CUBIC -361 -124 -363 -126 -365 -125
CUBIC -367 -123 -365 -114 -371 -114
CUBIC -372 -115 -374 -116 -375 -114
CUBIC -376 -112 -375 -105 -379 -106
CUBIC -388 -108 -384 -105 -388 -100
CUBIC -389 -99 -390 -99 -390 -100
CUBIC -397 -102 -393 -93 -398 -93
CUBIC -407 -90 -408 -81 -417 -79
CUBIC -419 -78 -417 -74 -419 -73
CUBIC -425 -70 -430 -72 -431 -64
CUBIC -436 -60 -441 -56 -444 -49
CUBIC -445 -47 -448 -47 -450 -46
CUBIC -458 -42 -450 -34 -463 -30
CUBIC -471 -27 -466 -17 -471 -12
CUBIC -483 -6 -472 7 -477 16
CUBIC -482 25 -471 29 -475 38
CUBIC -480 50 -467 53 -469 63
CUBIC -470 65 -470 68 -469 70
CUBIC -465 74 -458 76 -460 83
CUBIC -460 88 -455 90 -453 94
CUBIC -451 97 -449 100 -447 102
CUBIC -445 105 -446 109 -443 111
CUBIC -436 113 -435 122 -426 124
CUBIC -420 135 -420 128 -414 133
CUBIC -413 138 -412 137 -407 136
CUBIC -402 137 -403 143 -395 140
; NOTE: [00:53:15]
CUBIC -389 142 -384 144 -378 143
CUBIC -376 143 -374 145 -372 147
CUBIC -367 147 -365 142 -360 148
CUBIC -354 146 -353 145 -348 149
CUBIC -336 149 -324 153 -312 153
CUBIC -310 153 -307 155 -305 155
CUBIC -300 155 -295 155 -290 157
CUBIC -285 154 -281 154 -276 154
CUBIC -270 147 -271 150 -263 149
CUBIC -256 143 -246 142 -240 134
CUBIC -238 133 -235 135 -233 133
CUBIC -230 129 -226 126 -221 125
CUBIC -220 120 -217 116 -212 114
CUBIC -214 105 -206 105 -205 99
CUBIC -209 91 -197 93 -201 81
CUBIC -200 76 -196 71 -199 65
CUBIC -194 61 -197 56 -195 51
CUBIC -194 49 -195 48 -196 46
CUBIC -197 39 -195 34 -197 27
CUBIC -191 13 -200 17 -195 5
CUBIC -195 -1 -195 -8 -196 -14
CUBIC -197 -19 -194 -26 -199 -29
CUBIC -200 -33 -198 -38 -200 -42
CUBIC -203 -48 -206 -59 -214 -59
CUBIC -220 -59 -215 -67 -222 -67
; Here, you have the power to do anything you want.
SETHEADING 58
FORWARD 0
PENUP
; "They prefer the shade, and at certain times during the day,
; if the sun is very hot, they retreat under the logs which I
; have for a shelter. During rain, they are very active, and
; move about with heads and necks outstretched, enjoying the shower
; bath hugely, and evidently on the outlook for worms, just as some
; birds, after or during a shower. The youngest of turtles I have
; ever had seems to take to the same food as the adults."
SETXY -325 -154
PENDOWN
CUBIC -347 -211 -373 -268 -390 -327
CUBIC -395 -325 -395 -335 -393 -331
PENUP
SETXY -435 -371
PENDOWN
CUBIC -415 -351 -393 -330 -373 -310
CUBIC -372 -311 -372 -313 -370 -314
CUBIC -390 -335 -411 -356 -431 -377
CUBIC -432 -376 -436 -373 -435 -371
; NOTE: [01:00:12]
PENUP
SETXY -437 -375
PENDOWN
CUBIC -443 -374 -446 -383 -445 -387
CUBIC -442 -394 -439 -401 -442 -408
CUBIC -440 -402 -433 -398 -433 -391
CUBIC -433 -387 -434 -383 -432 -379
PENUP
SETXY -438 -379
PENDOWN
CUBIC -443 -384 -438 -392 -439 -398
PENUP
SETXY -382 -561
PENDOWN
CUBIC -356 -480 -341 -396 -312 -317
CUBIC -272 -397 -245 -482 -213 -566
PENUP
SETXY -312 -318
PENDOWN
CUBIC -310 -264 -309 -210 -310 -157
PENUP
SETXY -289 -160
PENDOWN
CUBIC -282 -183 -274 -206 -267 -229
CUBIC -266 -233 -262 -233 -259 -234
PENUP
SETXY -244 -141
PENDOWN
CUBIC -241 -200 -239 -209 -274 -259
CUBIC -312 -353 -191 -386 -134 -275
CUBIC -35 -135 -232 -42 -244 -141
PENUP
SETXY -220 -136
PENDOWN
CUBIC -213 -128 -206 -121 -197 -115
CUBIC -197 -116 -197 -117 -198 -118
CUBIC -204 -126 -211 -135 -217 -143
CUBIC -208 -136 -200 -125 -190 -121
CUBIC -197 -129 -204 -138 -210 -147
SETHEADING 48
FORWARD 33
CUBIC -190 -133 -198 -138 -202 -147
CUBIC -196 -143 -191 -139 -186 -134
PENUP
; "As a rule, they emerge in April. Sometimes that
; middle of the month, but as early as April 6th, they
; make their appearance. If the weather does not stay
; warm, they again go back to their retreats. Mating
; commences almost within a day or two after their
; emergence. The males are quite persistent in their
; lovemaking, biting at the females, etc. And on two
; occasions, I have seen the scale removed from the
; shell of the female and blood ooze from these surfaces."
SETXY -175 -150
PENDOWN
CUBIC -178 -153 -181 -157 -184 -161
CUBIC -177 -156 -170 -151 -162 -146
CUBIC -169 -156 -182 -163 -188 -174
CUBIC -177 -164 -166 -154 -154 -147
CUBIC -163 -156 -172 -166 -179 -177
CUBIC -172 -170 -165 -163 -157 -157
CUBIC -160 -163 -168 -168 -168 -174
CUBIC -165 -172 -163 -170 -160 -167
PENUP
SETXY -166 -208
PENDOWN
; NOTE: [01:08:20]
CUBIC -161 -203 -155 -199 -149 -197
CUBIC -154 -203 -161 -210 -167 -216
SETHEADING 59
FORWARD 38
CUBIC -149 -208 -163 -220 -177 -234
CUBIC -164 -223 -151 -214 -137 -205
SETHEADING -130
FORWARD 34
SETHEADING 62
FORWARD 20
CUBIC -147 -220 -149 -223 -151 -224
CUBIC -149 -223 -146 -221 -144 -220
PENUP
SETXY -186 -278
PENDOWN
CUBIC -178 -271 -170 -265 -161 -260
CUBIC -166 -272 -180 -279 -189 -289
CUBIC -179 -281 -169 -274 -159 -267
CUBIC -166 -278 -180 -284 -186 -295
CUBIC -179 -289 -170 -283 -162 -278
SETHEADING -137
FORWARD 24
SETHEADING 59
FORWARD 15
PENUP
; NOTE: [01:11:24]
; I made friends with a turtle yesterday and he gave me his phone number.
; I asked is that a landline? He said no it's my shell phone.
SETXY -234 -301
PENDOWN
CUBIC -239 -304 -244 -309 -248 -314
CUBIC -240 -309 -232 -304 -224 -300
SETHEADING -131
FORWARD 33
SETHEADING 60
FORWARD 37
CUBIC -227 -310 -237 -317 -246 -326
CUBIC -237 -321 -229 -316 -220 -312
CUBIC -226 -316 -233 -321 -237 -328
CUBIC -232 -325 -227 -323 -222 -320
PENUP
SETXY -280 -317
PENDOWN
CUBIC -278 -339 -277 -361 -277 -384
PENUP
SETXY -280 -403
PENDOWN
CUBIC -277 -451 -278 -500 -280 -548
CUBIC -263 -547 -246 -547 -229 -549
PENUP
SETXY -212 -547
PENDOWN
CUBIC 57 -552 326 -555 595 -548
CUBIC 584 -208 600 134 592 474
CUBIC 300 470 8 471 -284 476
CUBIC -270 375 -284 271 -285 169
PENUP
; NOTE: 1:15:01
; "It is interesting to see the males fight among themselves. They
; raised themselves as high as possible and lunge and bite and snap
; at each other. In getting away from his opponent, the Beaten one will
; beat a hasty retreat and retract his front feet or back feet as occasion
; demands and glide, not run away. Running away is slow as compared to this
; turtle propulsion. It is not a slide, it is really a darting, forward glide.
; Just recently I saw one male maltreating another in which the second fellow
; had all parts retracted and was being snapped at pushed and actually rolled
; over on his back by his opponent."
SETXY -181 15
PENDOWN
CUBIC -180 8 -180 1 -180 -6
CUBIC -174 -5 -169 -5 -164 -5
CUBIC -166 2 -166 9 -165 16
CUBIC -170 15 -176 14 -181 15
PENUP
SETXY -179 -19
PENDOWN
CUBIC -177 -19 -176 -19 -174 -20
SETHEADING 9
FORWARD 13
CUBIC -172 -8 -176 -7 -177 -7
CUBIC -178 -7 -178 -17 -179 -19
PENUP
SETXY -171 -7
PENDOWN
CUBIC -169 -11 -168 -15 -168 -20
CUBIC -166 -19 -164 -19 -162 -19
CUBIC -168 -6 -162 -6 -171 -7
PENUP
SETXY -158 4
PENDOWN
CUBIC -157 6 -156 7 -155 8
CUBIC -157 10 -160 12 -163 14
CUBIC -167 10 -161 8 -158 4
PENUP
SETXY -189 4
PENDOWN
CUBIC -190 3 -189 3 -189 3
CUBIC -188 2 -187 1 -187 -0
CUBIC -185 3 -182 5 -180 8
CUBIC -180 8 -181 10 -181 11
CUBIC -183 12 -188 5 -189 4
PENUP
SETXY -164 17
PENDOWN
CUBIC -164 22 -164 26 -163 30
SETHEADING -83
FORWARD 15
CUBIC -178 27 -179 23 -179 18
CUBIC -176 18 -168 18 -164 17
PENUP
SETXY -172 28
PENDOWN
CUBIC -172 28 -173 28 -174 28
CUBIC -173 27 -174 25 -174 24
CUBIC -172 25 -171 25 -169 24
CUBIC -169 27 -168 28 -172 28
PENUP
SETXY -163 28
PENDOWN
CUBIC -168 28 -166 28 -167 24
CUBIC -166 24 -165 24 -164 24
PENUP
SETXY -165 21
PENDOWN
CUBIC -167 22 -170 22 -173 22
CUBIC -173 21 -173 20 -173 19
CUBIC -170 19 -167 19 -164 18
PENUP
SETXY -171 22
PENDOWN
CUBIC -171 21 -171 20 -171 19
PENUP
SETXY -168 22
PENDOWN
CUBIC -169 21 -169 20 -169 19
PENUP
SETXY -166 21
PENDOWN
CUBIC -166 21 -166 20 -166 19
PENUP
SETXY -181 36
PENDOWN
SETHEADING -9
FORWARD 8
CUBIC -176 48 -175 41 -182 40
PENUP
SETXY -174 45
PENDOWN
CUBIC -176 43 -176 39 -174 38
CUBIC -169 37 -169 48 -174 45
PENUP
SETXY -169 43
PENDOWN
CUBIC -169 40 -165 38 -164 41
CUBIC -161 45 -167 49 -169 43
PENUP
SETXY -161 40
PENDOWN
CUBIC -161 42 -162 44 -162 46
CUBIC -158 50 -155 44 -161 43
CUBIC -158 43 -157 42 -156 40
PENUP
SETXY -154 46
PENDOWN
CUBIC -152 47 -149 47 -147 48
PENUP
SETXY -150 47
PENDOWN
CUBIC -150 45 -150 43 -150 41
PENUP
; NOTE: [01:25:38]
SETXY -147 46
PENDOWN
SETHEADING 178
FORWARD 5
PENUP
SETXY -147 45
PENDOWN
CUBIC -146 45 -145 45 -144 45
PENUP
SETXY -143 49
PENDOWN
CUBIC -144 46 -144 44 -143 41
PENUP
SETXY -141 49
PENDOWN
CUBIC -141 46 -141 44 -141 42
PENUP
SETXY -139 42
PENDOWN
CUBIC -139 44 -139 46 -139 48
SETHEADING 143
FORWARD 7
CUBIC -135 45 -135 47 -135 49