;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: uwu hewwo?? Apparently no one knows this meme, change my mind
;;;
;;; Description:
;;; You have been visited by an unpopular lucky meme
;;; vote to get a 3.3 GPA
;;; or see loss in your future
(define (losspng size)
(begin
(color "#FFB6B9")
(right 90)
(pendown)
(forward size)
(penup)
(left 90)
(forward (/ size 2))
(left 90)
(forward (/ size 2))
(left 90)
(pendown)
(forward size)
(penup)
(right 90)
(forward (/ size 3.5))
(right 90)
(pendown)
(forward (/ size 3))
(penup)
(forward (/ size 3))
(pendown)
(forward (/ size 3))
(penup)
(right 90)
(forward (/ size 8))
(right 90)
(forward (/ size 1.5))
(pendown)
(forward (/ size 3))
(penup)
(left 90)
(forward (/ size 1.5))
(left 180)
(pendown)
(forward (/ size 3))
(right 90)
(forward (/ size 3))
(penup)
(forward (/ size 3))
(pendown)
(forward (/ size 3))
(right 90)
(penup)
(forward (/ size 8))
(right 90)
(forward (/ size 9))
(pendown)
(forward (/ size 4)))
)
(define (recursive1 len size)
(if (> len 0)
(O len size))
)
(define (O len size)
(losspng size)
(right 50)
(penup)
(forward 200)
(pendown)
(recursive1 (- len 10) size))
(define (draw)
(speed 0)
(bgcolor "#000000")
(color "#FFB6B9")
(penup)
(setposition -300 100)
(setheading 0)
(recursive1 400 50)
(penup)
(setposition -180 -130)
(setheading 130)
(pendown)
(forward 100)
(left 80)
(forward 100)
(right 80)
(forward 100)
(left 80)
(forward 100)
(penup)
(setposition 300 100)
(setheading 0)
(pendown)
(recursive1 400 50)
(penup)
(setposition -350 20)
(setheading 0)
(pendown)
(losspng 50)
(penup)
(setposition 250 20)
(setheading 0)
(pendown)
(losspng 50)
(hideturtle)
(exitonclick))
; Please leave this last line alone. You may add additional procedures above
; this line.
(draw)