;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <#daddydenero2020>
;;;
;;; Description:
;;;   <What if Sierpinski
;;;    Made DeNero's Triangle?
;;;    Daddy would be proud.>

(define (johndenero)
  (color "peachpuff2")
  (begin_fill)
  (circle 12 180)
  (fd 14)
  (circle 6 40)
  (fd 9.6)
  (circle 5.8 100)
  (fd 9.6)
  (circle 6 40)
  (fd 14)
  (end_fill)
  (pu)
  (bk 2)
  (pd)
  (begin_fill)
  (circle -1.2 183)
  (fd 6)
  (circle -1.1 177)
  (end_fill)
  (pu)
  (lt 90)
  (fd 24)
  (rt 92)
  (fd 6)
  (lt 2)
  (begin_fill)
  (circle 1.2 183)
  (fd 6)
  (circle 1.1 177)
  (end_fill)
  (color "Saddle Brown")
  (pu)
  (fd 3)
  (pd)
  (begin_fill)
  (rt 15)
  (fd 5)
  (circle -5 75)
  (fd 11.2)
  (circle -5 75)
  (fd 5)
  (lt 160)
  (fd 6)
  (circle 10 80)
  (rt 10)
  (fd 2)
  (circle 10.6 115)
  (lt 2)
  (fd 7.6)
  (end_fill)
  (pu)
  (lt 90)
  (fd 3)
  (lt 30)
  (pd)
  (color "white")
  (begin_fill)
  (circle -6 70)
  (rt 110)
  (circle -6 70)
  (end_fill)
  (color "black")
  (rt 110)
  (circle -6 70)
  (circle -6 -70)
  (pu)
  (rt 33)
  (fd 4.5)
  (pd)
  (color "saddle brown")
  (lt 110)
  (begin_fill)
  (circle 1)
  (end_fill)
  (pu)
  (rt 110)
  (rt 90)
  (fd 0.5)
  (lt 90)
  (pd)
  (lt 80)
  (pu)
  (lt 90)
  (fd 0.4)
  (rt 90)
  (pd)
  (color "black")
  (begin_fill)
  (circle 0.5)
  (end_fill)
  (pu)
  (bk 0.4)
  (rt 74)
  (forward 6)
  (lt 30)
  (pd)
  (color "white")
  (begin_fill)
  (circle -6 70)
  (rt 110)
  (circle -6 70)
  (end_fill)
  (color "black")
  (rt 110)
  (circle -6 70)
  (circle -6 -70)
  (pu)
  (rt 33)
  (fd 4.5)
  (pd)
  (color "saddle brown")
  (lt 110)
  (begin_fill)
  (circle 1)
  (end_fill)
  (pu)
  (lt 160)
  (fd 0.5)
  (rt 100)
  (fd 0.4)
  (rt 90)
  (pd)
  (color "black")
  (begin_fill)
  (circle 0.5)
  (end_fill)
  (pu)
  (lt 90)
  (fd 7)
  (lt 90)
  (fd 8)
  (pd)
  (circle 1.4 60)
  (pu)
  (lt 30)
  (fd 1.4)
  (pd)
  (begin_fill)
  (rt 176)
  (fd 0.4)
  (circle -0.2 180)
  (circle -0.4 100)
  (end_fill)
  (lt 60)
  (circle 1.2 90)
  (rt 120)
  (begin_fill)
  (circle 0.4 -100)
  (circle 0.2 -180)
  (bk 0.4)
  (end_fill)
  (pu)
  (fd 1.7)
  (lt 90)
  (fd 1.4)
  (lt 10)
  (pd)
  (circle 1.4 -60)
  (color "light coral")
  (pu)
  (rt 20)
  (bk 8)
  (rt 77)
  (pd)
  (circle 0.6 50)
  (fd 9)
  (circle 0.6 50)
  (lt 170)
  (begin_fill)
  (circle -7.8 78)
  (rt 20)
  (circle -5.7 -116)
  (end_fill)
  (color "white")
  (begin_fill)
  (rt 20)
  (circle -7.8 75)
  (rt 143)
  (fd 9.3)
  (end_fill)
  (lt 150)
  (color "salmon")
  (begin_fill)
  (circle 0.5 80)
  (rt 80)
  (circle 0.6 100)
  (rt 130)
  (circle 0.7 120)
  (rt 110)
  (circle 1 120)
  (rt 135)
  (circle 1 120)
  (rt 120)
  (circle 0.7 120)
  (rt 120)
  (circle 0.7 100)
  (rt 90)
  (circle 0.6 80)
  (lt 153)
  (circle 75 7.2)
  (end_fill)
  (color "pale violet red")
  (begin_fill)
  (rt 0.5)
  (circle 75 -3.7)
  (rt 180)
  (circle -75 3.7)
  (end_fill)
  (color "black")
  (rt 100)
  (pu)
  (fd 2.5)
  (pd)
  (rt 170)
  (circle -4.5 40)
  (pu)
  (lt 150)
  (fd 9.8)
  (rt 103)
  (pd)
  (circle 4.5 40)
  (pu)
  (lt 113)
  (fd 17.5)
  (lt 140)
  (pd)
  (fd 3)
  (rt 27)
  (fd 8)
  (circle 1 100)
  (fd 2.5)
  (circle 1 80)
  (fd 6)
  (circle 1 75)
  (fd 2.9)
  (circle 1 60)
  (lt 42)
  (pu)
  (fd 21.4)
  (pd)
  (lt 157)
  (fd 2.7)
  (lt 27)
  (fd 8)
  (circle -1 100)
  (fd 2.5)
  (circle -1 80)
  (fd 6)
  (circle -1 75)
  (fd 2.9)
  (circle -1 60)
  (rt 55)
  (pu)
  (fd 9)
  (lt 62)
  (pd)
  (circle -0.61 120)
  (lt 80)
  (pu)
  (fd 13)
  (lt 77.7)
  (pd)
)

(define (repeat k fn)
    (if (> k 0)
        (begin (fn) (repeat (- k 1) fn))
        nil))

(define (tri fn)
    (repeat 3 (lambda () (fn) (lt 120))))

(define (sier d k)
    (tri (lambda ()
          (if (= k 1) (begin (johndenero) (pu) (fd (* 3 d)) (pd)) (leg d k)))))

(define (leg d k)
    (sier (/ d 2) (- k 1))
    (pu)
    (fd (* 3 d (sqrt k)))
    (pd))

(define (draw)
  (pu)
  (rt 120)
  (fd 500)
  (lt 150)
  (pd)
  (bgcolor "black")
  (speed 0)
  (sier 400 6)
  (ht)
  (exitonclick))

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