(define (fill-screen color)
	(pixelsize 700)
	(pixel 0 0 color)
	)


(define (campinile size)
  (seth 90)(color "blue")(begin_fill)(forward size)(left 90)
  (forward (* 3 size))(left 30)(forward size)(left 120)
  (forward size)(left 120)(forward size)(forward (- 0 size))
  (right 90)(forward (* 3 size))(left 90)(pu)(color "yellow")
  (end_fill)(color "blue")(forward (/ size 2))(left 90)
  (forward (+ (* 2 size) (* .3 size)))(right 90)(pd)(circle (* .24 size))
  (right 90)(pu)(forward (+ (* 2 size) (* .3 size)))(right 90)
  (forward (/ size 2))(right 180)(pd)
)


(define (recurs levels size fcn)
  (fcn size)
  (if (eq? 0 levels) (forward 0) (recurs (- levels 1) (/ size 2) fcn))
  )

(define (flower petals levels size fcn c)
  (recurs levels size fcn)
  (left (/ 360 c))
  (if (eq? 0 petals) (forward 0) (flower (- petals 1) levels size fcn c))
  )

(define (psych start petals levels size fcn c cl)
  (color (colors cl))
  (flower petals levels size fcn c)
  (if (eq? 0 start) (flower petals levels size fcn c) (psych (- start 1) petals levels (- size 1) fcn c (if (eq? 6 cl) 0 (+ 1 cl)))) 
  )

(define (colors n)
  (cond ((eq? 0 n) "red")
        ((eq? 1 n) "orange")
        ((eq? 2 n) "yellow")
        ((eq? 3 n) "green")
        ((eq? 4 n) "blue")
        ((eq? 5 n) "purple")
        ((eq? 6 n) "pink")
))

(define (row x fcn)
  (pd)(psych 25 6 3 50 fcn 6 0)(pu)(seth 90)(forward 150)
  (if (eq? 1 x) (psych 25 6 3 50 fcn 6 0) (row (- x 1) fcn))
  )

(define (psych-screen fcn)
  (goto -300 280)
  (row 5 fcn)
  (goto -300 100)
  (row 5 fcn)
  (goto -300 -80)
  (row 5 fcn)
  (goto -300 -260)
  (row 5 fcn))
  
(speed 200)
(fill-screen "green")
(psych-screen circle)
(goto 200 100)
(campinile 50)

; write cs61a
;c
(pu)
(goto -100 0)
(pd)
(seth -90)
(forward 50)
(right 90)
(forward 50)
(right 90)
(forward 50)
;s
(pu)
(goto -80 0)
(pd)
(forward 50)
(left 90)
(forward 25)
(left 90)
(forward 50)
(right 90)
(forward 25)
(right 90)
(forward 50)
;6
(pu)
(goto -10 0)
(pd)
(forward 50)
(lt 90)
(fd 25)
(lt 90)
(fd 50)
(pu)
(goto -10 0)
(pd)
(rt 90)
(fd 50)
(right 90)
(fd 50)
;1
(pu)
(goto 60 0)
(pd)
(lt 90)
(fd 50)
;a
(pu)
(goto 80 0)
(pd)
(forward 50)
(rt 90)
(fd 50)
(rt 90)
(fd 50)
(bk 25)
(lt 90)
(bk 50)
(ht)