;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Thinking
;;;
;;; Description:
;;;   <Beginning is hard.
;;;    What to draw I contemplate.
;;;    I am still not sure.>

(define (rectangle x y x2 y2 x3 y3 x4 y4 x5 y5 c)
(color c)
(penup)
(goto x y)
(begin_fill)
(pendown)
(goto x2 y2)
(goto x3 y3)
(goto x4 y4)
(goto x5 y5)
(end_fill)
(penup))

(define (triangle x y x2 y2 x3 y3 x4 y4 c1)
(color c1)
(penup)
(goto x y)
(begin_fill)
(pendown)
(goto x2 y2)
(goto x3 y3)
(goto x4 y4)
(end_fill)
(penup))

(define (line x y x2 y2 c1)
(color c1)
(penup)
(goto x y)
(pendown)
(goto x2 y2)
(penup))

(define (drawing_line x y x2 y2 x3 y3 x4 y4)
(penup)
(goto x y)
(pendown)
(goto x2 y2)
(left 40)
(goto x3 y3)
(right 40)
(goto x4 y4)
(penup))

(define (small_circle x y r c1)
(color c1)
(penup)
(goto x y)
(pendown)
(begin_fill)
(circle r)
(end_fill)
(penup))

(define (draw)
  (drawing_line -200 -200 -100 -100 -50 -150 50 -50)
  (triangle 50 -50 70 20 120 -40 50 -50 "#f2c97c")
  (triangle 50 -50 59 -19 85 -45 50 -50 "black")
  (rectangle 70 20 120 -40 265 105 210 160 70 20 "orange")
  (rectangle 210 160 265 105 280 120 225 175 210 160 "black")
  (rectangle 225 175 280 120 300 140 245 195 225 175 "pink")
  (line 100 30 210 140 "black")
  (line 135 -5 245 105 "black")
  (line 107 2 227 122 "black")
  (small_circle 227 157 3 "#333333")
  (small_circle 245 140 3 "#333333")
  (small_circle 262 122 3 "#333333")
  (hideturtle)
  (exitonclick))

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