desert.rkt

#lang racket

(require 2htdp/image)

(define p (empty-scene 256 256 (color 27 200 98 127)))

(define purple_star
  (underlay (ellipse 30 60 40 "yellow")
            (ellipse 40 50 40 "yellow")
            (ellipse 50 40 40 "yellow")
            (ellipse 60 30 40 "yellow")
            (ellipse 70 20 40 "yellow")
            (ellipse 80 10 40 "yellow")))

(define yellow_beam (beside 
                             (rotate 30 (ellipse 40 70 "solid" "blue"))
                             (ellipse 40 50 "solid" "darkblue")
                             (rotate 30(ellipse 40 30 "solid" "grey"))
                             (ellipse 40 10 "solid" "black")))

(define brown_stones (beside 
                             (triangle 40 "solid" "black")
                             (triangle 50 "solid" "brown")
                             (triangle 38 "solid" "black")
                             (triangle 45 "solid" "brown")))

(place-image/align brown_stones 100 256 "center" "bottom"
                   (place-image/align purple_star 200 100 "right" "bottom"
                   (place-image/align yellow_beam 156 156 "right" "bottom"
                                      (place-image/align (bitmap/file "/home/emporas/sand.jpeg") 0 0 "left" "top"
                                                         p))))