;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: i wasted too much time on this
;;;
;;; Description:
;;;   i rue not spending
;;;   my time studying instead');
;;;   DROP TABLE students;--

(define (draw)
  ; YOUR CODE HERE
  (penup)
  (bgcolor "black")
  (color "orange")
  (python)
  (ok 100 175)
  (boomer -100 0)
  (hideturtle)

  (exitonclick))


(define (python)
  (goto -370 175)
  (pendown)
  (begin_fill)
  (goto -320 175)
  (goto -320 225)
  (goto -360 225)  
  (goto -360 255)
  (goto -320 255)
  (goto -320 265)
  (goto -370 265)
  (goto -370 215)
  (goto -330 215)
  (goto -330 185)
  (goto -370 185)
  (goto -370 175)
  (end_fill)
  (penup)

  (goto -350 165)
  (pendown)
  (begin_fill)
  (goto -350 275)
  (goto -340 275)
  (goto -340 165)
  (end_fill)
  (penup)

  (goto -300 125)
  (pendown)
  (begin_fill)
  (goto -300 225)
  (goto -250 225)
  (goto -250 175)
  (goto -260 175)
  (goto -290 175)
  (goto -290 185)
  (goto -260 185)
  (goto -260 215)
  (goto -290 215)
  (goto -290 125)
  (goto -300 125)
  (end_fill)
  (penup)

  (goto -240 175)
  (pendown)
  (begin_fill)
  (goto -240 225)
  (goto -230 225)
  (goto -230 185)
  (goto -200 185)
  (goto -200 225)
  (goto -190 225)
  (goto -190 125)
  (goto -240 125)
  (goto -240 150)
  (goto -230 150)
  (goto -230 135)
  (goto -200 135)
  (goto -200 175)
  (goto -240 175)
  (end_fill)
  (penup)

  (goto -180 215)
  (pendown)
  (begin_fill)
  (goto -180 225)
  (goto -160 225)
  (goto -160 265)
  (goto -150 265)
  (goto -150 225)
  (goto -130 225)
  (goto -130 215)
  (goto -150 215)
  (goto -150 175)
  (goto -160 175)
  (goto -160 215)
  (goto -180 215)
  (end_fill)
  (penup)

  (goto -120 175)
  (pendown)
  (begin_fill)
  (goto -120 265)
  (goto -110 265)
  (goto -110 225)
  (goto -70 225)
  (goto -70 175)
  (goto -80 175)
  (goto -80 215)
  (goto -110 215)
  (goto -110 175)
  (goto -120 175)
  (end_fill)
  (penup)

  (goto -60 175)
  (pendown)
  (begin_fill)
  (goto -60 225)
  (goto -10 225)
  (goto -10 175)
  (goto -50 175)
  (goto -50 185)
  (goto -20 185)
  (goto -20 215)
  (goto -50 215)
  (goto -50 175)
  (goto -60 175)
  (end_fill)
  (penup)

  (goto 0 175)
  (pendown)
  (begin_fill)
  (goto 0 235)
  (goto 10 235)
  (goto 10 225)
  (goto 50 225)
  (goto 50 175)
  (goto 40 175)
  (goto 40 215)
  (goto 10 215)
  (goto 10 175)
  (goto 0 175)
  (end_fill)
  (penup))

(define (ok x y)
  (o x y)

  (goto (+ x 60) y)
  (pendown)
  (begin_fill)
  (goto (+ x 60) (+ y 100))
  (goto (+ x 70) (+ y 100))
  (goto (+ x 70) (+ y 36))
  (seth 45)
  (fd 30)
  (seth 135)
  (fd 10)
  (seth 225)
  (fd 30)
  (seth 135)
  (fd 30)
  (seth 225)
  (fd 10)
  (seth 315)
  (fd 30)
  (seth 180)
  (goto (+ x 70) y)
  (goto (+ x 60) y)
  (end_fill)
  (penup)


  ;(goto (+ x 100) (+ y 70))
  ;(goto (+ x 108) (+ y 64))
  ;(goto (+ x 78) (+ y 24))
  ;(goto (+ x 118) (+ y -4))
  ;(goto (+ x 78) (+ y 24))
  )

(define (o x y)
  (goto x y)
  (pendown)
  (begin_fill)
  (goto (+ x 0) (+ y 50))
  (goto (+ x 50) (+ y 50))
  (goto (+ x 50) (+ y 0))
  (goto (+ x 10) (+ y 0))
  (goto (+ x 10) (+ y 10))
  (goto (+ x 40) (+ y 10))
  (goto (+ x 40) (+ y 40))
  (goto (+ x 10) (+ y 40))
  (goto (+ x 10) (+ y 0))
  (goto x y)
  (end_fill)
  (penup))

(define (boomer x y)
  (goto (+ x -120) (+ y 20))
  (pendown)
  (begin_fill)
  (goto (+ x -120) (+ y 30))
  (goto (+ x -70) (+ y 30))
  (goto (+ x -70) (+ y 20))
  (goto (+ x -120) (+ y 20))
  (end_fill)
  (penup)

  (goto (+ x -60) (+ y 20))
  (pendown)
  (begin_fill)
  (goto (+ x -60) (+ y 30))
  (goto (+ x -10) (+ y 30))
  (goto (+ x -10) (+ y 20))
  (goto (+ x -60) (+ y 20))
  (end_fill)
  (penup)

  (goto x y)
  (pendown)
  (begin_fill)
  (goto x (+ y 100))
  (goto (+ x 10) (+ y 100))
  (goto (+ x 10) (+ y 50))
  (goto (+ x 50) (+ y 50))
  (goto (+ x 50) y)
  (goto (+ x 10) y)
  (goto (+ x 10) (+ y 10))
  (goto (+ x 40) (+ y 10))
  (goto (+ x 40) (+ y 40))
  (goto (+ x 10) (+ y 40))
  (goto (+ x 10) y)
  (goto x y)
  (end_fill)
  (penup)

  (o (+ x 60) y)
  (o (+ x 120) y)

  
  (goto (+ x 180) y)
  (pendown)
  (begin_fill)
  (goto (+ x 180) (+ y 60))
  (goto (+ x 190) (+ y 60))
  (goto (+ x 190) (+ y 50))
  (goto (+ x 250) (+ y 50))
  (goto (+ x 250) y)
  (goto (+ x 240) y)
  (goto (+ x 240) (+ y 40))
  (goto (+ x 220) (+ y 40))
  (goto (+ x 220) y)
  (goto (+ x 210) y)
  (goto (+ x 210) (+ y 40))
  (goto (+ x 190) (+ y 40))
  (goto (+ x 190) y)
  (goto (+ x 180) y)
  (end_fill)
  (penup)

  (o (+ x 260) y)
  (goto (+ x 260) (+ y 20))
  (pendown)
  (begin_fill)
  (goto (+ x 260) (+ y 30))
  (goto (+ x 310) (+ y 30))
  (goto (+ x 310) (+ y 20))
  (goto (+ x 260) (+ y 20))
  (end_fill)
  (penup)
  (color "black")
  (goto (+ x 310) (+ y 19))
  (pendown)
  (begin_fill)
  (goto (+ x 310) y)
  (goto (+ x 300) y)
  (goto (+ x 300) (+ y 19))
  (goto (+ x 310) (+ y 19))
  (end_fill)
  (penup)

  (goto (+ x 320) y)
  (color "orange")
  (pendown)
  (begin_fill)
  (goto (+ x 320) (+ y 60))
  (goto (+ x 330) (+ y 60))
  (goto (+ x 330) (+ y 50))  
  (goto (+ x 370) (+ y 50))
  (goto (+ x 370) (+ y 30))
  (goto (+ x 360) (+ y 30))
  (goto (+ x 360) (+ y 40))
  (goto (+ x 330) (+ y 40))
  (goto (+ x 330) y)
  (goto (+ x 320) y)
  (end_fill)



  )


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