; This is a Logo computer language program to draw a peace
; symbol. Logo is a simple programming language for kids to make drawings.
; It is built around the metaphor of a "turtle" drawing with a pen.
; My program was developed at http://www.logointerpreter.com/  which is
; an online programing environment.  Try it, it's fun.
; See also my page http://justcomm.org/block/paint.htm which has links
; to resulting images
;
; Notes in general on Logo program: Short version of commands used below:
; pd=pen down. fd=(move pen) forward. bk=back. ht=hide turtle.
; arc n=(draw and arc of n degrees).
; Headings in degrees. 0 is up and initial heading.
; Semicolon makes rest of line a comment.
;
; Notes on versions of drawing
; Version 2 (yellow outside, wider lines, larger        ; Version 1
;  wing angle ( a variable)                             ; vvvvvvvvv

; Start program:
setbgcolor "black
make "radius 240 ; 240 pixels = 10 feet (20 ft diameter)
make "narrow 14  ; width of narrow lines (circles).      9 pix / 7"
make "angle 47 ; angle of "wing" lines from vertical     45
; Note that 2 * 47 = 94 degrees - a bit more than 90
make "radius2 :radius - 3 * :narrow
; Note that middle lines overlap the circles but
; the latter are drawn later and cover the overlap.
; radius2 makes sure they are covered completely.

; draw middle
setwidth 35  ; wide lines 17.5 "                      : :narrow * 5
setcolor "red  ; change to have diff. color "wings"
setheading 180 - :angle
pd
fd :radius2
bk :radius2
setheading 180 + :angle
fd :radius2
bk :radius2
setheading 0
setcolor "red  ; of vertical
fd :radius2
bk :radius2
bk :radius2
fd :radius2

; draw circles
setwidth :narrow +1 ; make them overlap a bit to
; eliminate slight line between them  Order of colors starting with outside:
; starting with outer color.    **    Active(3)  Ver 4    Ver3     Ver2   Ver1
setcolor                              "purple
arc 360 :radius
setcolor                              "yellow ; white    yellow   yellow red
arc 360 :radius - :narrow
setcolor                              "red    ; red      red      red    black
arc 360 :radius - ( 2 * :narrow )
setcolor                              "black  ; black    black    black  green
arc 360 :radius - ( 3 * :narrow )
setcolor                              "green  ; green    green    green  yellow
arc 360 :radius - ( 4 * :narrow )
; 2 following lines added for ver 3-4
setcolor "#96571a ;= brown                      brown    brown     --     --
arc 360 :radius - ( 5 * :narrow )
setcolor                              "white  ; yellow   white    white  white
setwidth :narrow
arc 360 :radius - ( 6 * :narrow )             ;          5 *      4 *   4 *
ht

; ** Note that "Active" column is part of program code.
; Ver 4  Ver 3  Ver 2  Ver 1 columns are comments and refer to other versions of program.