; Note, I had to redefine the "color" operator in scheme_primitives, reproduced below
; @primitive("color")
; def tscheme_color(c):
;  """Set the color to C, a symbol such as red or '#ffc0c0' (representing
; hexadecimal red, green, and blue values."""
; _tscheme_prep()
; check_type(c, scheme_symbolp, 0, "color")
; turtle.color(str('#') + str(c)[1:])

(define (teardrop larger smaller)
    (circle larger 180)
    (circle (- larger smaller) 180)
    (circle (- 0 smaller) 180))
    
    
(define (rotation larger smaller i fill_count)
    (if (= (remainder fill_count 2) 0)
        (color 'z8b1c7b) 
        (color 'z8b5bbe))
    (begin_fill)
    (teardrop larger smaller)
    (teardrop larger smaller)
    (end_fill)
    (left 7))
    
(define (spiral larger smaller i c)
    (if (< i 104)
        (begin (rotation larger smaller i c)
            (spiral larger smaller (+ i 1) (+ c 1)))
        (begin (display 'done) (newline))))
        
(speed 0)
(setposition -1500 -1500)
(begin_fill)
(setposition 1500 -1500)
(setposition 1500 1500)
(setposition -1500 1500)
(end_fill)
(setposition 0 0)
(spiral 150 148 0 0)
(hideturtle)