Cheyenne Parfleche Procedures

TO TRUNK
; This procedure will draw my entire design.
; This will set the background to beige. 
SETBG 17 
; This will draw door6.
DOOR6 
; This will draw door5.
DOOR5 
; This will draw door4.
DOOR4 
; This will draw door3.
DOOR3 
; This will draw door2.
DOOR2 
; This will draw door1.
DOOR1 
; This will draw the crowns on top of design.
CROWN2 
HT 
; This will type in the title of my design.
DESCRIBE 
END

TO CROWN2
; This procedure will make the crowns on top of the design.
PU 
LT 90 
FD 118 
RT 90 
FD 202 
PD 
; This sets the pen color to brown. 
SETPC 13 
; This sets the pen size thickness to 6 by 6. 
SETPS 6 6 
FD 5 
; This sets the pen size thickness to 2 by 2.
SETPS 2 2 
FD 30 
; This sets the pen size thickness to 6 by 6.
SETPS 6 6 
FD 5 
REPEAT 4 [PU RT 180 FD 40 LT 90 FD 61 LT 90 PD SETPC 13 SETPS 6 6 FD 5 SETPS 2 2 FD 30 SETPS 6 6 FD 5] 
END

TO DOOR6
; This draws a rectangle.
PU 
LT 180 
FD 125 
RT 90 
FD 125 
RT 90 
PD 
; This will set pen color to turquoise.
SETPC 119 
; This will fill shape of rectangle to turquoise.
FILLSH [RECT6] 
; This will set pen color to brown.
SETPC 13 
; This will outline the rectangle 6 in brown.
RECT6 
END

TO DOOR5
; This draws a rectangle.
PU 
RT 90 
FD 30 
LT 90 
PD 
; This will set pen color to tan.
SETPC 23 
; This will fill the shape of the rectangle to tan.
FILLSH [RECT5] 
; This will set pen color to brown.
SETPC 13 
; This will outline the rectangle 5 in brown.
RECT5 
END

TO DOOR4
; This draws a rectangle.
PU 
RT 90 
FD 30 
LT 90 
PD 
; This will set pen color to burnt orange.
SETPC 5 
; This will fill shape of rectangle to burnt orange.
FILLSH [RECT4] 
; This will set pen color to brown.
SETPC 13 
; This will outline the rectangle 4 in brown.
RECT4 
END

TO DOOR3
; This draws a rectangle.
PU 
RT 90 
FD 30 
LT 90 
PD 
; This will set pen color to a light brown.
SETPC 63 
; This will fill shape of rectangle to light brown.
FILLSH [RECT3] 
; This will set pen color to brown.
SETPC 13 
; This will outline the rectangle 3 in brown.
RECT3 
END

TO DOOR2
; This will draw a rectangle.
PU 
RT 90 
FD 20 
LT 90 
PD 
; This will set pen color to burnt red.
SETPC 221 
; This will fill shape of rectangle to burnt red.
FILLSH [RECT2] 
; This will set pen color to brown.
SETPC 13 
; This will outline the rectangle 2 in brown.
RECT2 
END

TO DOOR1
; This will draw a rectangle.
PU 
RT 90 
FD 10 
LT 90 
PD 
; This will set pen color to a deeper turquoise.
SETPC 160 
; This will fill shape of rectangle to turquoise.
FILLSH [RECT1] 
; This will set pen color to brown.
SETPC 13 
; This will outline the rectangle 1 in brown.
RECT1 
END

TO RECT2
; This will draw rectangle 2.
REPEAT 2 [FD 100 RT 90 FD 30 RT 90] 
END

TO RECT3
; This will draw rectangle 3.
REPEAT 2 [FD 125 RT 90 FD 70 RT 90] 
END

TO DESCRIBE
; This is the title of design.
PU 
LT 90 
FD 175 
RT 90 
FD 30 
; This will set pen color to brown. 
SETPC 13 
; This will set the style of the letters in my title.
OUTLINE 
PD 
; This will type in the title of my design.
LABEL `Cheyenne Parfleche` 
END

TO RECT1
; This will draw rectangle 1.
REPEAT 2 [FD 85 RT 90 FD 10 RT 90]
END

TO RECT6
; This will draw rectangle 6.
REPEAT 2 [FD 200 RT 90 FD 250 RT 90]
END

TO RECT4
; This will draw rectangle 4.
REPEAT 2 [FD 150 RT 90 FD 130 RT 90]
END

TO RECT5
; This will draw rectangle 5.
REPEAT 2 [FD 175 RT 90 FD 190 RT 90]
END

Return to Cheyenne Parfleche Page