;;; Scheme Recursive Art Contest Entry ;;; ;;; Please do not include your name or personal info in this file. ;;; ;;; Title: ;;; ;;; Description: ;;; (define (draw) ; YOUR CODE HERE (begin (bgcolor "#ED7E9E") ;-------------------------- (color "#D45A81") (penup) (setposition -360 250) (right 90) (pendown) (forward (screen_width)) (penup) (setposition -360 105) (pendown) (forward 100) (penup) (forward 220) (pendown) (forward (screen_width)) (penup) (setposition -360 -40) (pendown) (forward (screen_width)) (penup) (setposition -360 -260) (pendown) (forward (screen_width)) ;|||||||||||||||||||||||||||||||||||||| (penup) (right 90) (setposition -260 250) (pendown) (forward (screen_width)) (penup) (setposition -40 250) (pendown) (forward (screen_width)) (penup) (setposition 180 250) (pendown) (forward (screen_width)) (penup) (setposition 270 -40) (pendown) (forward (screen_width)) ;left circle (penup) (setposition -65 -10) (pendown) (color "#ffffff") (left 140) (circle 110 220) (circle 250 50) (forward 220) (left 180) (circle 300 -30) (penup) (setposition -180 0) (pendown) (left 180) (circle 250 35) (forward 150) (left 180) (circle 250 -50) ;right circle (penup) (setposition -80 65) (pendown) (right 180) (circle 155 -210) (penup) (setposition 260 105) (pendown) (left 30) (circle 270 -70) (forward -190) (left 180) (circle 400 50) (exitonclick))) ; Please leave this last line alone. You may add additional procedures above ; this line. (draw)