The following is a list of the complete procedure used in developing the Navajo Sandpainting.
TO SUN ; We begin by setting the background color to brown SETBG BROWN PU BK 50 PD ; Make the first of three circles BD PU FD 100 RT 90 FD 50 LT 90 PD ; Make second circle BD LT 90 PU FD 100 RT 90 PD ; Make third circle BD PU HOME RT 90 FD 75 RT 90 FD 40 RT 180 PD ; Make the rectangle with the blue to the center REC2 PU BK 45 LT 90 FD 55 PD ; Make the rectangle with the red to the center REC3 PU HOME LT 90 FD 75 LT 90 FD 40 LT 180 PD ; Make the rectangle with the red to the center REC3 PU HOME FD 80 LT 90 BK 30 PD ; Make the rectangle with the blue to the center REC2 PU HOME PD ; The next several lines will make the outer circle with the various colors. I gradually increased the diameter of the circle to show the expansion of color. SETPC WHITE STAMPCIRCLE 120 SETPC YELLOW SETPENSIZE 5 5 STAMPCIRCLE 123 SETPENSIZE 2 2 SETPC WHITE STAMPCIRCLE 127 ; This is the blue I chose SETPC 139 SETPENSIZE 5 5 STAMPCIRCLE 131 SETPC WHITE SETPENSIZE 2 2 STAMPCIRCLE 135 SETPENSIZE 5 5 SETPC BLACK STAMPCIRCLE 139 SETPC WHITE SETPENSIZE 2 2 STAMPCIRCLE 142 ; This is the red I chose SETPC 77 SETPENSIZE 5 5 STAMPCIRCLE 145 SETPC WHITE SETPENSIZE 2 2 STAMPCIRCLE 148 PU FD 170 LT 90 BK 30 PD ; Make the rectangle with the blue towards the center REC2 PU HOME BK 170 LT 90 BK 30 PD ; Make the rectangle with the red towards the center REC3 PU HOME RT 90 FD 170 LT 90 BK 30 PD ; Make the rectangle with the blue towards the center REC2 PU HOME LT 90 FD 170 RT 90 BK 30 PD ; Make the rectangle with the red towards the center REC3 PU HOME FD 160 LT 90 FD 180 RT 90 SETPC BLACK BOLD PD LABEL `NAVAJO SUN` HT END TO BD ; This will make the small filled in circle SETPC WHITE ; This sets the pensize to a wider width SETPENSIZE 2 2 ; This will make a circle with the radius 10 STAMPCIRCLE 10 SETPC BLACK ; This fills in the circle with black FILLSH [STAMPCIRCLE 9] FILLSH [STAMPCIRCLE 8] FILLSH [STAMPCIRCLE 7] FILLSH [STAMPCIRCLE 6] FILLSH [STAMPCIRCLE 5] FILLSH [STAMPCIRCLE 4] FILLSH [STAMPCIRCLE 3] FILLSH [STAMPCIRCLE 2] FILLSH [STAMPCIRCLE 1] END TO RECTANGLE ; This will make the rectangle shape REPEAT 4 [FD 80 RT 90 FD 20 RT 90] END TO REC1 ; This will make the rectangle shape REPEAT 2 [FD 60 RT 90 FD 7 RT 90] END TO REC3 SETPC 139 REC1 FILLSH [REC1] SETPC WHITE SETPENSIZE 2 2 REC1 LT 90 FD 9 RT 90 SETPC 77 REC1 FILLSH [REC1] SETPC WHITE SETPENSIZE 2 2 REC1 PU END TO REC2 PD SETPC 139 REC1 FILLSH [REC1] SETPC WHITE SETPENSIZE 2 2 REC1 RT 90 FD 9 LT 90 SETPC 77 REC1 FILLSH [REC1] SETPC WHITE SETPENSIZE 2 2 REC1 PU END
Return to Navajo Sandpainting Page