ellipses.rkt

#lang racket

(require 2htdp/image)

(define image (empty-scene 400 400 (color 200 40 98 127)))

(define brown_stones (beside 
                             (triangle (random 0 100) "solid" "black")
                             (triangle (random 0 100) "solid" "cyan")
                             (triangle (random 0 100) "solid" "black")
                             (triangle (random 0 100) "solid" "cyan")
                             (triangle (random 0 100) "solid" "black")))

(define (ellipses x)
  (if (> x 50) (ellipse 99 50 127 "blue")
   (beside
   (ellipse x (* 2 x) 127 "yellow")
   (ellipses (+ x 5)))))

(place-image/align (ellipses 2) 200 200  "center" "bottom"
   (place-image/align brown_stones 200 300 "center" "bottom"
     (place-image/align (bitmap/file "/home/emporas/sanddust.png") 0 0 "left" "top"
                      image)))