Cherokee Moccasin Design

TO MOC
;this procedure draws the entire moccasin design
BG BROWN 
PU 
SETXY 0 60 
PD 
SETPPATTERN 2 
;sets the pen ti draw with a dotted pattern
SETPENSIZE 2 2 
;sets the pensize to a width and length of 2
SETPC 32 
;sets the pen color to pink
LINE 20 
LT 90 
PU 
FD 4 
PD 
SETPC YELLOW 
LT 90 
LINE2 20 
RT 90 
SETPC 32 
ARROW 20 40 
SETPC YELLOW 
TRACEARROW 20 40 
SETPC GOLD 
FILLARROW 20 40 
RT 90 
SETPC 32 
ARROW 10 25 
SETPC YELLOW 
TRACEARROW 10 25 
SETPC GOLD 
FILLARROW 10 25 
PU 
BK 3 
RT 90 
FD 2 
PD 
SETPC 32 
ARROW 20 40 
SETPC YELLOW 
TRACEARROW 20 40 
SETPC GOLD 
FILLARROW 20 40 
PU 
HOME 
PD 
SETPC YELLOW 
LINE 23 
SETPC GOLD 
LT 90 
PU 
FD 4 
PD 
LT 90 
LINE2 23 
RT 90 
SETPC YELLOW 
ARROW 20 40 
SETPC GOLD 
TRACEARROW 20 40 
SETPC 32 
FILLARROW 20 40 
RT 90 
SETPC YELLOW 
ARROW 30 30 
SETPC GOLD 
TRACEARROW 30 30 
SETPC 32 
FILLARROW 30 30 
PU 
BK 3 
RT 90 
FD 2 
PD 
SETPC YELLOW 
ARROW 20 40 
SETPC GOLD 
TRACEARROW 20 40 
SETPC 32 
FILLARROW 20 40 
PU 
SETXY 0 -60 
SETPC 32 
PD 
ARROW 20 25 
SETPC GOLD 
TRACEARROW 20 25 
SETPC YELLOW 
FILLARROW 20 25 
RT 90 
SETPC 32 
ARROW 10 15 
PU 
TRACEARROW 10 15 
;because this arrow is not outlined, I do the
;tracearrow procedure with the pen up
PD 
SETPC YELLOW 
FILLARROW 10 15 
PU 
BK 3 
RT 90 
FD 2 
PD 
SETPC 32 
ARROW 20 25 
SETPC GOLD 
TRACEARROW 20 25 
SETPC YELLOW 
FILLARROW 20 25 
PU 
HOME 
PD 
HT 
END



TO ARROW :LENGTH :SIDE
;this procedure draws an arrow whose shaft length
;   stored in length and whose head length is 
;   stored in side
;length holds the length of the shaft
;side holds the length of each side of the head
FD :LENGTH 
RT 90 
LEFTTRIANGLE :SIDE 
BK 2 
RT 90 
FD :LENGTH 
END

TO TRACEARROW :LENGTH :SIDE

;this procedure traces an orrow
;length holds the length of the arrow's shaft
;side holds the length of each side of the arrow's
;  head
RT 180 
PU 
RT 90 
FD 2 
LT 90 
PD 
FD :LENGTH - 2 
RT 90 
MAKE "SIDE :SIDE + 6 
LEFTTRIANGLE :SIDE 
PU 
BK 4 
PD 
RT 90 
FD :LENGTH - 2 
END

TO FILLARROW :LENGTH :SIDE
;this procedure traces the inside of an arrowhead
;length holds the length of the arrow's shaft
;side holds the length of each side of the arrowhead
PU 
LT 90 
FD 4 
RT 90 
RT 180 
FD :LENGTH + 2 
RT 90 
PD 
LEFTTRIANGLE :SIDE - 8 
RT 90 
PU 
FD :LENGTH + 2 
PD 
END

TO LINE :LENGTH
;this procedure draws a double line of a specified 
;   length
;length holds the length of the specified line
FD :LENGTH 
LT 90 
FD 2 
LT 90 
FD :LENGTH 
END



TO LINE2 :LENGTH
;this procedure outines a line of a specified length
;length holds the length of the line to be outlined
FD :LENGTH 
LT 90 
FD 4 
LT 90 
FD :LENGTH 
END


TO LEFTTRIANGLE :SIDE
;this procedure draws an equilateral triangle that
;   is centered at the turtles starting position
;side is the length of each side of the triangle
FD :SIDE / 2 
LT 120 
FD :SIDE 
LT 120 
FD :SIDE 
LT 120 
FD :SIDE / 2 
END