;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <BoBae>
;;;
;;; Description:
;;;   <I'm using CS
;;;    to show my love for boba,
;;;    this screams Berkeley trash.>

(define (rectangle c1 c2 x1 x2 x3 x4 y1 y2)
  (color c1)
  (penup)
  (goto x1 y2)
  (begin_fill)
  (pendown)
  (goto x2 y1)
  (goto x3 y1)
  (goto x4 y2)
  (goto x1 y2)
  (end_fill)
  (color c2)
  (goto x2 y1)
  (goto x3 y1)
  (goto x4 y2)
  (goto x1 y2))

(define (cup)
  (rectangle "#333333" "#333333" -115 60 265 95 -175 -255)
  (rectangle "white" "black" -170 -115 95 150 -255 150)
  (rectangle "#f2c97c" "black" -155 -110 90 135 -250 100)
  (rectangle "red" "black" 50 -80 -50 80 -247 250)
  (rectangle "black" "black" -170 -175 155 150 140 150)
  (rectangle "#d2a249" "#d2a249" 119 74 89 134 -249 99))

(define (placement x)
  (penup)
  (goto x -230)
  (pendown)
  (boba)
  (penup)
  (goto (+ x 20) -200)
  (pendown)
  (boba))

(define (boba)
  (color "black")
  (begin_fill)
  (circle 15)
  (end_fill))

(define (draw)
  ; YOUR CODE HERE
  (bgcolor "light blue")
  (cup)
  (map placement (list -68 -33 2 37 72))
    ; an extra boba
    (penup)
    (goto -83 -200)
    (pendown)
    (boba)
  (hideturtle)
  (exitonclick))

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