(bgcolor "#030a20")
;begin teardrop
(define (oval x y h)
  (pu)
  (fillcolor "#bb3d6c")
  (pencolor "#d76992")
  (width 3)
  (goto (+ x 38) y)
  (seth h)
  (begin_fill)
  (pd)
  (circle 250 50)
  (pu)
  (goto (+ x 38) y)
  (pd)
  (seth (+ h 130))
  (circle 250 -50)
  (end_fill)
)
(define (lotus angle step)
  (oval -43 0 angle)
  (if (> step 10)
      (and (lotus (+ angle step) (/ step 2)) (lotus (- angle step) (/ step 2)))
  )
)

(define (leaf x y h)
  (pu)
  (width 3)
  (fillcolor "#2f832d")
  (pencolor "#37b034")
  (goto x y)
  (seth h)
  (begin_fill)
  (pd)
  (fd 60)
  (seth (+ 120 h))
  (fd 30)
  (seth (+ 45 h))
  (fd 50)
  (seth (+ 160 h))
  (fd 50)
  (seth (+ 125 h))
  (fd 55)
  (seth (- h 125))
  (fd 55)
  (seth (- h 160 ))
  (fd 50)
  (seth (- h 45))
  (fd 50)
  (seth (- h 120))
  (fd 30)
  (goto x y)
  (end_fill)
)

(define (randDots n)
  (if (> n 0)
      (and (pu)
      (goto (rnd -240 220 1)(rnd -120 250 1))
      (pd)
      (dot (rnd 1 7 1) "#e1ffc7")
      (randDots (- n 1))
  ))
)

(define (circles r)
(if (>= r 10)
  [and (define x (rnd 0 5 1))
  (pu)
  (cond [(= x 0) (pencolor "#1b264a")]
        [(= x 1)(pencolor "#233057")]
        [(= x 2)(pencolor "#121a36")]
        [(= x 3)(pencolor "#1f2847")]
        [(= x 4)(pencolor "#091b55")]
  )
  (width (rnd 10 40 3))
  (goto (- r 10) 30)
  (pd)
  (circle r)
  (circles (- r 30))
]))

(circles 450)
(leaf 0 40 45)
(leaf -20 40 135)
(leaf -10 50 90)
(lotus 25 40)
(randDots 70)
(ht)