;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <The Lights in the Dark>
;;;
;;; Description:
;;;   <Hog, Maps, Ants, now Scheme
;;;    We’ve gone up and down the path
;;;    We’ll remember them>

(define (draw)
  ; YOUR CODE HERE
  (bgcolor "black") (penup)

  (define (filled-circle size clr) (color clr) (begin_fill) (circle size) (end_fill))
  (define (pos-head x y direction) (setposition x y) (setheading direction))
  (define (fr-l-fr fr l fr2) (forward fr) (left l) (forward fr2))

  (define (draw1 level size curr_color)
	  (if 
	  	(eq? level 1)
	  	(begin (forward size) (filled-circle (* size 0.25) curr_color))
	  	(begin
	  		(draw1 (- level 1) (* size 0.6) "blue")
	  		(left 50)
	  		(draw1 (- level 1) (* size 0.6) "orange")
	  		(right 100)
	  		(draw1 (- level 1) (* size 0.6) "green")
	  		(left 50)
	  		(draw1 (- level 1) (* size 0.6) "red"))))
    
  (pos-head -275 0 90)
  (draw1 4 60 "red") 

  ; pig
  (pos-head -140 60 90)
  (filled-circle 15 "pink")
  
  (pos-head -147 77 90)
  (filled-circle 3 "black")
  (forward 12)
  (filled-circle 3 "black")
  
  (pos-head -144 65 90)
  (filled-circle 2 "black")
  (forward 7)
  (filled-circle 2 "black")
  (pos-head -140 60 90)
  (pendown)
  (circle 8)
  
  (penup) (color "pink")
  (left 90) (fr-l-fr 30 90 10) (right 25)
  (pendown)
  (fr-l-fr 9 135 11)
  (penup)
  (pos-head -140 60 90)
  (left 90) (forward 30) (right 90) (forward 10) (left 25)
  (pendown)
  (forward 9) (right 135) (forward 11)
  
  ; map
  (penup)
  (pos-head -65 120 90)
  (color "brown")
  (pendown) 
  (fr-l-fr 30 90 20) (left 90) (fr-l-fr 30 90 20) (left 90) 
  (fr-l-fr 10 2 2) 
  (filled-circle 4 "orange")
  (fr-l-fr 0 45 20)
  (filled-circle 4 "green")

  ; ant
  (penup)
  (pos-head 47 60 90)
  (filled-circle 15 "red")
  
  (pos-head 39 74 90)
  (pos-head 39 74 90)
  (filled-circle 5 "white")
  (forward 9)
  (filled-circle 5 "white")

  (pos-head 41 74 90)
  (filled-circle 3 "black")
  (forward 8)
  (filled-circle 3 "black")

  (setheading 0)
  (forward 5)(right 45)
  (color "red")
  (pendown)
  (forward 35) (right 45)
  (filled-circle 3 "red")
  (penup) 
  (pos-head 32 83 325)
  (pendown)
  (forward 31) (left 30)
  (filled-circle 3 "red")

  (hideturtle)
)

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)