TO ANCHORS
SETPS 3 3 ; MAKES THE PEN 3 UNITS IN WIDTH
SETPC NAVY ; MAKES THE COLOR OF THE PEN NAVY
ANCHOR ; DRAWS AN ANCHOR, PREVIOUSLY DEFINED
LT 90
FD 100
RT 90
ANCHOR ; DRAWS AN ANCHOR
RT 90 ;
FD 100
LT 90
ANCHOR ; DRAWS AN ANCHOR
END
TO SHIELD
SETBG BROWN ; MAKES BACKGROUND BROWN
SETPC BLACK ; MAKES PEN COLOR BLACK
SETPS 3 3 ; MAKES WIDTH OF PEN 3 UNITS
PD
STAMPCIRCLE 150 ; DRAWS A CIRCLE
PU
HOME ; PUTS THE TURTLE IN THE MIDDLE
END
TO CIRCLES
SETPS 4 4 ; SETS THE WIDTH OF THE PEN AT 4 UNITS
FD 100
PD
STAMPCIRCLE 27 ; DRAWS A CIRCLE
PU
RT 90
FD 65
PD
STAMPCIRCLE 22 ; DRAWS A CIRCLE
PU
HOME ; PUTS THE TURTLE IN THE MIDDLE
BK 50
LT 90
FD 10
SETPS 10 10 ; SETS THE WIDTH OF THE PEN AT 10 UNITS
SETPC BLACK ; MAKES THE COLOR OF THE PEN BLACK
PD
STAMPCIRCLE 15 ; DRAWS A CIRCLE
PU
FD 80
PD
STAMPCIRCLE 20 ; DRAWS A CIRCLE
PU
BK 160
PD
STAMPCIRCLE 20 ; DRAWS A CIRCLE
PU
HOME ; PUTS THE TURTLE IN THE MIDDLE
END
TO LINES
SETPC BLACK ; MAKES THE COLOR OF THE PEN BLACK
FD 60
RT 90
BK 138
SETPS 2 2 ; SETS THE WIDTH OF THE PEN AT 2 UNITS
PD
FD 276 ; DRAWS A LINE
PU
HOME ; PUTS THE TURTLE IN THE MIDDLE
FD 15
RT 90
BK 149
PD
SETPS 4 4 ; MAKES THE WIDTH OF THE PEN 4 UNITS
SETPC ORANGE ; MAKES THE COLOR OF THE PEN ORANGE
FD 298 ; DRAWS A LINE
PU
HOME ; PUTS THE TURTLE IN THE MIDDLE
BK 15
RT 90
BK 149
PD
FD 298 ; DRAWS A LINE
PU
HOME ; PUTS THE TURTLE IN THE MIDDLE
END
TO RAWHIDESHIELD
SHIELD ; CREATES OUTER BORDER
CIRCLES ; MAKES CIRCLES INSIDE SHIELD
ANCHORS ; DRAWS 3 ANCHOR-LIK FIGURES
LINES ; DRAWS LINES THROUGH SHIELD
WAVE ; DRAWS WAVE ACROSS SHIELD
HUMP ; MAKES A HUMP AT BOTTOM OF SHIELD
END
TO WAVE
SETPS 4 4 ; MAKES THE WIDTH OF THE PEN 4 UNITS
SETPC YELLOW ; MAKES THE COLOR OF THE PEN YELLOW
RT 90
BK 150
LT 25
PD
FD 20 ; DRAWS A LINE
REPEAT 9 [RT 5 FD 2] ; DRAWS A CURVE
RT 5
FD 30 ; DRAWS A LINE
REPEAT 9 [LT 5 FD 2] ; DRAWS A CURVE
LT 5
FD 30 ; DRAWS A LINE
REPEAT 9 [RT 5 FD 2] ; DRAWS A CURVE
RT 5
FD 30 ; DRAWS A LINE
REPEAT 9 [LT 5 FD 2] ; DRAWS A CURVE
LT 5
FD 30 ; DRAWS A LINE
REPEAT 9 [RT 5 FD 2] ; DRAWS A CURVE
RT 5
FD 30 ; DRAWS A LINE
REPEAT 9 [LT 5 FD 2] ; DRAWS A CURVE
LT 5
FD 30 ; DRAWS A LINE
REPEAT 6 [RT 5 FD 2] ; MAKES A CURVE
RT 5
FD 1 ; DRAWS A LINE
PU
HOME ; PUTS THE TURTLE IN THE MIDDLE
END
TO HUMP
SETPS 6 6 ; MAKES THE WIDTH OF THE PEN 6 UNITS
SETPC GREEN ; MAKES THE COLOR OF THE PEN GREEN
PU
BK 120
RT 90
BK 90
LT 30
PD
REPEAT 62 [FD 3 RT 1] ; DRAWS A CURVE
FD 1
PU
HOME ; PUTS THE TURTLE IN THE MIDDLE
END
ANCHOR
FD 15
PD
FD 30 ; DRAWS A LINE
RT 60
REPEAT 11 [FD 2 RT 5] ; DRAWS A CURVE
PU
REPEAT 11 [LT 5 BK 2]
LT 120
PD
REPEAT 11 [FD 2 LT 5]
PU
HOME
END
TO RETURN TO MAIN MENU, CLICK BELOW