logo: add some shapes

logo/dsr.logo

@@ -0,0 +1,21 @@
+TO DSR
+CS
+PU
+SETPOS [-45 75]
+PD
+SETHEADING 180
+FD 100 RT 90 FD 50 RT 90 FD 50 RT 90 FD 50
+PU
+SETPOS [25 25]
+LT 180
+PD
+FD 50 LT 90 FD 25 LT 90 FD 50 RT 90 FD 25 RT 90 FD 50
+PU
+SETPOS [45 -25]
+PD
+RT 90 FD 50 RT 90 FD 50
+PU
+SETPOS [-110 -45]
+PD
+FD 220
+END

logo/polyspi4.logo

@@ -0,0 +1,6 @@
+TO POLYSPI4 :S :A :D :L
+IF :SIZE < :L [STOP]
+FD :S RT :A
+POLYSPI4 (:S - :D) :A :D
+END
+

logo/sun.logo

@@ -0,0 +1,67 @@
+TO SUN
+SETPC 4
+PU
+SETPOS [-110 80]
+PD
+REPEAT 36 [RT 5 FD 2 RT 5]
+REPEAT 9 [RT 40 PU SETPOS [-100 80] FD 25 PD BK 10]
+END
+
+TO WATER
+PU
+SETPC 5
+SETPOS [140 0]
+PD
+SETHEADING 180
+FD 119 RT 90 FD 280 RT 90 FD 119
+RT 45
+REPEAT 20 [FD 10 RT 90 FD 10 LT 90]
+SETPOS 10 10
+FILL
+END
+
+TO BOAT
+PU
+SETPC 3
+SETHEADING 90
+SETPOS [0 20]
+PD
+FD 50 RT 135 FD 35 RT 45 FD 50 RT 45 FD 35 RT 135 FD 50
+LT 90
+FD 75 RT 30
+SETPC 1
+REPEAT 3 [RT 120 FD 70]
+END
+
+TO FISH
+PU
+SETPOS [0 -50]
+SETHEADING 45
+PD
+REPEAT 40 [FD 1 RT 3]
+PU
+SETPOS [0 -50]
+PD
+SETHEADING 135
+REPEAT 40 [FD 1 LT 3]
+END
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+