Navajo Blanket Procedures

TO DESIGN
;This procedure combines all the other
;procedures to make the blanket design.
;This color is a royal blue
SETBG 243 
SETPENSIZE 5 5 
PU 
LT 90 
FD 207 
RT 90 
FD 100 
PD 
M 
PU 
LT 90 
FD 15 
PD 
M2 
PU 
FD 60 
PD 
LT 90 
W 
PU 
RT 180 
FD 15 
PD 
WD 
PU 
FD 5 
LT 90 
PD 
WD2 
PU 
RT 180 
FD 90 
RT 90 
FD 45 
LT 90 
FD 10 
RT 90 
PD 
WHITEUP 
RT 180 
WHITEDOWN2 
LT 90 
WD2 
FD 10 
LT 90 
WU 
PU 
LT 90 
FD 200 
RT 90 
PD 
WHITEUP 
PU 
RT 180 
FD 100 
LT 90 
PD 
WU2 
PU 
RT 90 
FD 50 
RT 90 
FD 100 
LT 90 
FD 15 
LT 180 
PD 
M 
PU 
FD 30 
RT 90 
FD 50 
LT 90 
PD 
W 
PU 
RT 180 
FD 15 
PD 
W2 
PU 
RT 90 
FD 270 
LT 90 
FD 30 
SETPENSIZE 1 1 
SETPC RED 
PD 
FILLSH [MAN] 
PU 
RT 90 
FD 180 
PD 
FILLSH [MAN] 
PU 
FD 120 
PD 
RT 90 
FILLSH [MAN2] 
RT 90 
PU 
FD 180 
RT 180 
PD 
FILLSH [MAN2] 
HT 
END

TO WHITEDOWN
;This procedure makes the white stairs going down
;at the top of the design.
SETPC WHITE 
REPEAT 10 [FD 5 RT 90 FD 10 LT 90] 
END

TO MAN2
;This procedure makes the man on the left side
;of the design.
FD 10 
LT 90 
FD 15 
RT 90 
FD 10 
RT 90 
FD 15 
LT 90 
FD 5 
LT 90 
FD 20 
LT 90 
FD 12 
RT 90 
FD 50 
RT 90 
FD 5 
LT 90 
FD 5 
LT 90 
FD 10 
LT 90 
FD 20 
RT 90 
FD 5 
RT 90 
FD 20 
LT 90 
FD 10 
LT 90 
FD 5 
LT 90 
FD 5 
RT 90 
FD 50 
RT 90 
FD 12 
LT 90 
FD 20 
LT 90 
FD 5 
LT 90 
FD 15 
RT 90 
FD 10 
RT 90 
FD 15 
END



TO REDUP
;This procedure draws the first red stairstep 
;going up at the top of the design 
SETPC RED 
REPEAT 10 [RT 90 FD 10 LT 90 FD 5] 
END

TO WHITEUP
;This procedure draws the white stairs at the top
;of the design that go up.
SETPC WHITE 
REPEAT 10 [FD 5 LT 90 FD 10 RT 90] 
END

TO WU2
;This procedure draws white stairs in the center
;of the design.
SETPC WHITE 
REPEAT 10 [FD 10 LT 90 FD 5 RT 90] 
END

TO REDDOWN
;The procedure will draw the red stairs going down
SETPC RED 
REPEAT 10 [FD 10 RT 90 FD 5 LT 90] 
END

TO WD2
;This procedure draws a white stair in the center
;of the design.
SETPC WHITE 
REPEAT 9 [FD 10 RT 90 FD 5 LT 90] 
END

TO M2
;This procedure combines whiteup and whitedown
;to make the white 'm' at the top of the design.
WHITEUP 
RT 180 
WHITEDOWN 
RT 180 
WHITEUP 
RT 180 
WHITEDOWN 
END

TO WD
;This procedure draws the white stairs going down
;in the center of the design.
SETPC WHITE 
REPEAT 9 [FD 5 RT 90 FD 10 LT 90] 
END

TO M
;This procedure draws the red lines that look like
; an 'm' at the top of the design.
REDUP 
RT 90 
REDDOWN 
LT 90 
REDUP 
RT 90 
REDDOWN 
END
TO WHITEDOWN2
;This procedure makes white stairs in the center
;of the design.
SETPC WHITE 
REPEAT 9 [FD 5 RT 90 FD 10 LT 90] 
FD 5 
END

TO W
;This procedure combines redup and redown to make
;the red 'w' in the middle of the design.
REDDOWN 
LT 90 
REDUP 
RT 90 
REDDOWN 
LT 90 
REDUP 
END

TO WHITEUP2
;This procedure makes white stairs in the center
;of the design.
REPEAT 10 [FD 10 RT 90 FD 5 LT 90] 
END

TO MAN
;This procedure make the man on the right side
;of the design.
FD 10 
RT 90 
FD 15 
LT 90 
FD 10 
LT 90 
FD 15 
RT 90 
FD 5 
RT 90 
FD 20 
RT 90 
FD 12 
LT 90 
FD 50 
LT 90 
FD 5 
RT 90 
FD 5 
RT 90 
FD 10 
RT 90 
FD 20 
LT 90 
FD 5 
LT 90 
FD 20 
RT 90 
FD 10 
RT 90 
FD 5 
RT 90 
FD 5 
LT 90 
FD 50 
LT 90 
FD 12 
RT 90 
FD 20 
RT 90 
FD 5 
RT 90 
FD 15 
LT 90 
FD 10 
LT 90 
FD 15 
END

TO WU
;This procedure draws white stairs going up
;in the center of the design.
REPEAT 9 [FD 5 RT 90 FD 10 LT 90] 
END

TO W2
;This procedure draws the white 'w' at the bottom
;of the design.
WHITEDOWN 
RT 180 
WHITEUP 
RT 180 
WHITEDOWN 
RT 180 
WHITEUP 
END

Return to Erika's design page