;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Project 4 - Python and Scheme
;;;
;;; Description:
;;;    Scheme was origin
;;;    but now Python is reader
;;;    Now they work as one

(define (draw)

(speed 0)

;;;Scheme Logo(?);;;
(begin_fill)
(right 90) (forward 30) (right 60) (forward 200) (left 30) (forward 15) 
(right 150) (forward 35) (right 60) (forward 100) (left 120) (forward 100)
(right 60) (forward 25) (right 120) (forward 130) (left 60) (forward 80)
(end_fill)

;;;Top Python;;;
(penup) (right 120) (forward 20) (left 120) (pendown) (color 'blue) (begin_fill)
(forward 25) (left 60) (forward 25) (left 30) (forward 25) (right 90)
(forward 10) (right 90) (forward 10) (left 60) (forward 10) (right 60)
(forward 15) (right 30) (forward 35) (right 60) (forward 55) (right 70)
(forward 30) (left 60) (forward 10) (right 150) (forward 25) (right 90)
(forward 25) (end_fill)

(penup) (forward 10) (right 120) (forward 30) (pendown) (begin_fill)
(left 45) (forward 20) (right 100) (forward 35) (right 90) (forward 15)
(right 90) (forward 25) (left 60) (forward 10) (end_fill)

(penup) (right 180) (forward 30) (left 45) (forward 5) (pendown) (begin_fill)
(forward 25) (left 85) (forward 50) (left 60) (forward 25) (right 160)
(forward 35) (right 80) (forward 75) (right 90) (forward 15) (right 40)
(forward 30) (end_fill)

;;;Bottom Python;;;
(color 'yellow)
(penup) (backward 120) (left 120) (forward 15) (pendown) (begin_fill)
(forward 25) (left 40) (forward 20) (left 60) (forward 15) (left 30)
(forward 15) (right 85) (forward 10) (right 100) (forward 15) (left 80)
(forward 5) (right 80) (forward 15) (right 45) (forward 20) (right 45)
(forward 30) (right 30) (forward 35) (right 120) (forward 25) (end_fill)

(penup) (left 120) (forward 30) (pendown) (begin_fill)
(forward 15) (left 90) (forward 25) (left 30) (forward 65) (left 60)
(forward 15) (left 120) (forward 80) (right 70) (forward 15) (end_fill)

(penup) (backward 15) (right 120) (forward 98) (pendown) (begin_fill)
(left 65) (forward 15) (right 120) (forward 15) (right 90) (forward 60)
(right 120) (forward 15) (right 60) (forward 50) (end_fill)

(penup) (right 150) (forward 25) (pendown) (begin_fill)
(left 120) (forward 20) (left 30) (forward 30) (right 150) (forward 35)
(right 60) (forward 33) (right 115) (forward 20) (end_fill)

(hideturtle)

  (exitonclick))

; 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)