spin.rkt

#lang racket

(require 2htdp/image)

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

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

(define blue_beam (add-curve p
             20 20 0 1/3
             200 200 0 1/3
             "blue"))

(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")))

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