;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Trash Can???>
;;;
;;; Description:
;;;   <Don't know what to draw
;;;    Then, it is what I saw
;;;    Hope it make u VOTE!!!>
(define (trash-can x y col)
  (penup)
  (goto x y)
  (pendown)
  (color col)
  (right 49)
  (circle -50 80)
  (rt 60) (fd 50)
  (rt 49)
  (circle -42 63)
  (rt 42) (fd 50)
  (rt 146)
  (circle 50 80)
  )
(define (trash x y)
	(penup)
	(goto x y)
  	(pendown)
  	(begin_fill)
	(color "black")
	(rt 45) (fd 5)
	(lt 189) (fd 3)
	(rt 19) (fd 8)
	(rt 65) (fd 4)
	(rt 45) (fd 9)
	(end_fill)
	)

(define (draw)
  (speed 10)
  (hideturtle)

  (bgcolor "plum")
  (trash-can 30 30 "white")
  (trash 30 30)
  (trash 60 -10)
  (trash 70 -5)
  (trash 55 -3)
  (trash 80 -18)
  (trash 60 4)

  (trash-can 130 130 "forestgreen")
  (trash 140 130)
  (trash 165 120)
  (trash 170 146)
  (trash 155 128)
  (trash 180 135)
  (trash 155 114)
  (trash 180 114)

  (trash-can -140 110 "firebrick")
  (trash -140 130)
  (trash -165 120)
  (trash -170 146)
  (trash -155 128)
  (trash -180 135)
  (trash -155 114)
  (trash -180 114)

  (trash-can -140 -150 "darkcyan")
  (trash -140 -130)
  (trash -165 -120)
  (trash -170 -146)
  (trash -155 -128)
  (trash -180 -135)
  (trash -155 -114)
  (trash -180 -114)

  (trash-can 200 -140 "indigo")
  (trash 140 -130)
  (trash 165 -120)
  (trash 170 -146)
  (trash 155 -128)
  (trash 180 -135)
  (trash 155 -114)

  (exitonclick))

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