lines logo program

based on this thread on twitter: https://twitter.com/closethipster/status/1355982048071217153
2021-08-06 15:24:17 -04:00 · 2021-08-06 15:24:17 -04:00 · e1f1e35985
parent 1664868d96
commit e1f1e35985
1 changed files with 9 additions and 0 deletions
--- a/logo/lines.logo
+++ b/logo/lines.logo
@ -0,0 +1,9 @@
+TO L :Y
+PU SETPOS SE -20 :Y PD
+SETH 90 FD (8+RANDOM 132) PU SETPOS SE -20 :Y PE
+REPEAT ((RANDOM 30)+2)[SETH(286-RANDOM 32) FD RANDOM 6]
+END
+ST CS FS PU SETPOS[-140 96] PD RT 90 FD 120 RT 90 FD 192 RT 90 FD 120 RT 90 FD 191 FILL
+MAKE "Y 80
+REPEAT 33[L :Y MAKE "Y (:Y-5)]
+HT