;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Chrysanthemum Tea Drink>
;;;
;;; Description:
;;;   <Chrysanthemum tea,
;;;    sipping it through a straw and
;;;    reminds me of home.>

(define (draw)
  ; *YOUR CODE HERE*
  (begin
    ; draw yellow box for juice carton
    (penup)
    (color "#ffff66")
    (setposition -200 250)
    (pendown)
    (begin_fill)
    (forward 450)
    (right 90)
    (forward 500)
    (right 90)
    (forward 450)
    (right 90)
    (forward 500)
    (end_fill)

    ; VITA in red
    (penup)
    (color "#ff0000")
    (setposition -190 240)
    (pendown)
    (begin_fill)
    (left 180)
    (forward 50)
    (left 90)
    (forward 5)
    (left 90)
    (forward 50)
    (left 90)
    (forward 5)
    (end_fill)
    (left 90)
    (forward 50)
    (begin_fill)
    (left 135)
    (forward 70)
    (left 90)
    (backward 5)
    (left 90)
    (forward 70)
    (left 90)
    (backward 5)
    (end_fill)
    (penup)
    (setposition -135 220)
    (pendown)
    (begin_fill)
    (left 45)
    (forward 5)
    (right 90)
    (forward 30)
    (right 90)
    (forward 5)
    (right 90)
    (forward 30)
    (end_fill)
    (penup)
    (setposition -135 235)
    (pendown)
    (begin_fill)
    (forward 5)
    (right 90)
    (forward 100)
    (right 90)
    (forward 5)
    (right 90)
    (forward 100)
    (end_fill)
    (begin_fill)
    (backward 25)
    (left 90)
    (forward 45)
    (left 90)
    (forward 5)
    (left 90)
    (forward 45)
    (end_fill)
    (begin_fill)
    (right 90)
    (forward 70)
    (right 90)
    (forward 45)
    (right 90)
    (forward 5)
    (right 90)
    (forward 45)
    (end_fill)
    (begin_fill)
    (right 180)
    (forward 15)
    (right 90)
    (forward 50)
    (left 90)
    (forward 5)
    (left 90)
    (forward 50)
    (end_fill)
    (begin_fill)
    (right 90)
    (forward 20)
    (right 90)
    (forward 50)
    (left 90)
    (forward 5)
    (left 90)
    (forward 50)
    (end_fill)
    (begin_fill)
    (right 180)
    (forward 50)
    (right 90)
    (forward 30)
    (right 90)
    (forward 5)
    (right 90)
    (forward 30)
    (end_fill)

    ; TEA in green
    ; T
    (penup)
    (color "#006600")
    (setposition -50 100)
    (pendown)
    (begin_fill)
    (left 30)
    (forward 10)
    (left 90)
    (forward 70)
    (left 90)
    (forward 10)
    (left 90)
    (forward 70)
    (end_fill)
    (begin_fill)
    (backward 30)
    (left 90)
    (forward 70)
    (left 90)
    (forward 10)
    (left 90)
    (forward 70)
    (end_fill)
    ; E
    (penup)
    (setposition 20 140)
    (pendown)
    (begin_fill)
    (right 180)
    (forward 70)
    (left 90)
    (forward 10)
    (left 90)
    (forward 70)
    (left 90)
    (forward 10)
    (end_fill)
    (begin_fill)
    (left 180)
    (forward 50)
    (right 90)
    (forward 10)
    (right 90)
    (forward 50)
    (end_fill)
    (begin_fill)
    (left 90)
    (forward 20)
    (left 90)
    (forward 50)
    (right 90)
    (forward 10)
    (right 90)
    (forward 50)
    (end_fill)
    (begin_fill)
    (left 90)
    (forward 20)
    (left 90)
    (forward 50)
    (right 90)
    (forward 10)
    (right 90)
    (forward 50)
    (end_fill)
    ; A
    (penup)
    (setposition 110 185)
    (pendown)
    (begin_fill)
    (forward 10)
    (right 115)
    (backward 75)
    (right 50)
    (forward 10)
    (left 50)
    (forward 73)
    (end_fill)
    (begin_fill)
    (left 110)
    (forward 10)
    (left 120)
    (forward 75)
    (left 75)
    (forward 10)
    (left 105)
    (forward 73)
    (end_fill)
    (begin_fill)
    (backward 40)
    (right 115)
    (backward 40)
    (right 90)
    (forward 10)
    (right 90)
    (backward 40)
    (right 90)
    (forward 10)
    (end_fill)

    ; draw chrysanthemum flower
    (penup)
    (setposition 100 -100)
    (pendown)
    (speed 10)
  	(color "#006600")
  	(filled_petals 1)
    (filled_petals_small 1)
    (color "#ff0000")
    (outlined_petals 1)
  	(color "#ffffff")
  	(flower_texture 1)
    (left 10)
    (color "#ffffff")
    (flower_texture 1)
    (color "#ffffff")
    (flower_texture_counter 1)
  	(penup)
  	(setposition 100 -95)
  	(color "#ff0000")
  	(flower_center 1)
    (penup)
    (setposition 100 -105)
    (flower_center 1)
    (penup)
    (setposition 105 -100)
    (flower_center 1)
    (penup)
    (setposition 95 -100)
    (flower_center 1)
    (hideturtle)
    (exitonclick)
    )
)

(define (filled_petals n)
	(if (< n 10)
		(begin
			(begin_fill)
  			(circle 100 90)
  			(left 90)
  			(circle 100 90)
  			(left 50)
  			(end_fill)
  			(filled_petals (+ n 1)))))

(define (filled_petals_small n)
  (if (< n 10)
    (begin
      (begin_fill)
      (circle 70 90)
      (left 90)
      (circle 70 90)
      (left 50)
      (color "#ffcc00")
      (end_fill)
      (filled_petals_small (+ n 1)))))

(define (outlined_petals n)
	(if (< n 10)
		(begin
			(circle 70 90)
			(left 90)
			(circle 70 90)
			(left 50)
			(outlined_petals (+ n 1)))))

(define (flower_center n)
	(if (< n 7)
		(begin
			(begin_fill)
			(circle 3)
			(end_fill)
			(penup)
			(forward 5)
			(right 60)
			(pendown)
			(flower_center (+ n 1)))))

(define (flower_texture n)
  (if (< n 19)
    (begin
		  (circle 100 90)
      (left 10)
      (penup)
      (setposition 100 -100)
      (pendown)
      (flower_texture (+ n 1)))))

(define (flower_texture_counter n)
  (if (< n 19)
    (begin
      (circle 100 -90)
      (right 10)
      (penup)
      (setposition 100 -100)
      (pendown)
      (flower_texture_counter (+ n 1)))))

; Please leave this last line alone.  You may add additional procedures above
; this line.  All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)