Rectangle Wave:
Basic pattern:
FD 30 RT 90 FD 20 RT 90 FD 30 LT 90 FD 20 LT 90
Using REPEAT:
REPEAT 8 [
FD 30 RT 90 FD 20 RT 90 FD 30 LT 90 FD 20 LT 90
]
New procedure:
Erase "rwave
To rwave
Repeat 8 [
FD 30 RT 90 FD 20 RT 90 FD 30 LT 90 FD 20 LT 90
]
End
CS rwave
Square:
Basic pattern:
FD 100 RT 90
Using REPEAT:
Repeat 4 [FD 100 RT 90]
New procedure:
Erase "square
To square
Repeat 4 [FD 100 RT 90]
End
Range of hills
Basic pattern:
RT 45 FD 50 RT 90 FD 50 LT 135
Using REPEAT:
REPEAT 4 [
RT 45 FD 50 RT 90 FD 50 LT 135
]
New procedure:
Erase "hills
To hills
Repeat 4 [
RT 45 FD 50 RT 90 FD 50 LT 135
]
End
CS hills
Hospital sign:
Basic pattern:
FD 50 RT 90 FD 50 RT 90 FD 50 LT 90
Using REPEAT:
REPEAT 4 [FD 50 RT 90 FD 50 RT 90 FD 50 LT 90]
New procedure:
Erase "hsign
To hsign
Repeat 4 [FD 50 RT 90 FD 50 RT 90 FD 50 LT 90]
End
CS hsign
Practice of Drawing Stars:
Procedure to draw a star with 20 rays of length 50:
Erase "Point.star
To Point.star
Repeat 20 [FD 50 BK 50 RT 360/20]
End
Red star with 20 rays of length 100:
CS SETPC 4 Repeat 20 [FD 100 BK 100 RT 360/20]
Green star with 40 rays of length 200:
CS SETPC 2 Repeat 40 [FD 200 BK 200 RT 360/40]
Orange star with 10 rays of length 50:
CS SETPC 14 Repeat 10 [FD 50 BK 50 RT 360/10]
Star Challenge:
CS SETPENSIZE 2
SETPC 1 REPEAT 100 [FD 125 BK 125 RT 360/100]
SETPC 14 REPEAT 80 [FD 80 BK 80 RT 360/80]
SETPC 4 REPEAT 100 [FD 25 BK 25 RT 360/100]
Earth:
CS SETPENSIZE 5
SETPC 2 REPEAT 200 [FD 125 BK 125 RT 360/200]
SETPC 4 REPEAT 200 [FD 80 BK 80 RT 360/200]
SETPC 6 REPEAT 200 [FD 25 BK 25 RT 360/200]
HT