;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: If you stop scrolling and look at the corner...
;;;
;;; Description:
;;;   Nice.

(define (draw)
  (bgcolor "#161317")
  	;;; cake shape
    (color "#49E5CB")
    (penup)
    (goto -230 100)
    (begin_fill)
    (pendown)
    (goto -40 230)
    (goto 230 50)
    (goto 230 -190)
    (goto -230 -140)
    (end_fill)

    ;;;gaps 
    (color "#161317")
    (penup)
    (goto -180 60)
    (begin_fill)
    (pendown)
    (goto 180 20)
    (goto 180 -10)
    (goto -180 30)
    (goto -180 60)
    (end_fill)

    (color "#161317")
    (penup)
    (goto -180 0)
    (begin_fill)
    (pendown)
    (goto 180 -40)
    (goto 180 -70)
    (goto -180 -30)
    (goto -180 0)
    (end_fill)

        (color "#161317")
    (penup)
    (goto -180 -60)
    (begin_fill)
    (pendown)
    (goto 180 -100)
    (goto 180 -130)
    (goto -180 -90)
    (goto -180 -60)
    (end_fill)

    ;;;orange arrow
    (color "#FF4701")
    (penup)
    (goto 180 -220)
    (begin_fill)
    (pendown)
    (goto 250 -150)
    (goto 320 -220)
    (goto 270 -220)
    (goto 270 -300)
    (goto 230 -300)
    (goto 230 -220)
    (goto 180 -220)
    (end_fill)

    ;;; attempt to write
    (color "#585250")
  (penup) (setposition -350 -318) (pendown)
  (goto -350 -322)
  (goto -348 -322)
  (goto -348 -320)
  (goto -350 -320)

  (penup) (setposition -344 -318) (pendown)
  (goto -346 -318)
  (goto -346 -316)
  (goto -344 -316)
  (goto -344 -320)
  (goto -346 -320)

  (ht)


    

  (exitonclick))

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