;;; Scheme Recursive Art Contest Entry ;;; ;;; Please do not include your name or personal info in this file. ;;; ;;; Title: ;;; ;;; Description: ;;; (bgcolor "black") (speed 30) (penup) (setposition 205 0) (pendown) (color "#a12b03") (begin_fill) (circle 205) (end_fill) (setposition 190 0) (pendown) (color "#dd5003") (begin_fill) (circle 190) (end_fill) (setposition 170 0) (color "#cc6007") (begin_fill) (circle 170) (end_fill) (penup) (setposition 150 0) (color "#f49b41") (begin_fill) (circle 150) (end_fill) (penup) (setposition 90 20) (color "#b66c10") (begin_fill) (circle 80) (end_fill) (penup) (setposition 80 18) (color "#4b3306") (begin_fill) (circle 70) (end_fill) (penup) (setposition 70 16) (color "black") (begin_fill) (circle 60) (end_fill) (penup) (setposition 0 -130) (color "#ffc991") (begin_fill) (left 85) (color "#ffc991") (pendown) (forward 15) (penup) (right 5) (color "#ffc991") (pendown) (forward 20) (right 5) (color "#ffc991") (pendown) (forward 15) (right 5) (color "#ffc991") (pendown) (forward 10) (right 5) (color "#ffc991") (pendown) (forward 20) (right 5) (color "#ffc991") (pendown) (forward 20) (right 5) (color "#ffc991") (pendown) (forward 20) (right 5) (color "#ffc991") (pendown) (forward 20) (right 5) (color "#ffc991") (pendown) (forward 20) (right 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 10) (left 35) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 5) (left 20) (color "#ffc991") (pendown) (forward 5) (left 35) (color "#ffc991") (pendown) (forward 20) (left 30) (color "#ffc991") (pendown) (forward 15) (left 35) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 7) (color "#ffc991") (pendown) (forward 20) (left 7) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 20) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 3) (color "#ffc991") (pendown) (forward 20) (left 3) (color "#ffc991") (pendown) (forward 20) (left 3) (color "#ffc991") (pendown) (forward 10) (left 3) (color "#ffc991") (pendown) (forward 10) (left 3) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 35) (color "#ffc991") (pendown) (forward 5) (left 5) (color "#ffc991") (pendown) (forward 5) (left 35) (color "#ffc991") (pendown) (forward 10) (left 35) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 5) (color "#ffc991") (pendown) (forward 10) (left 3) (color "#ffc991") (pendown) (forward 10) (left 4) (color "#ffc991") (pendown) (forward 20) (right 9) (color "#ffc991") (pendown) (forward 10) (right 10) (color "#ffc991") (pendown) (forward 20) (right 13) (color "#ffc991") (pendown) (forward 20) (right 13) (color "#ffc991") (pendown) (forward 50) (end_fill) (hideturtle) (define (draw) (exitonclick)) ; Please leave this last line alone. You may add additional procedures above ; this line. (draw)