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