beam.rkt

#lang racket

(require 2htdp/image)

(define p (rectangle 256 256 "solid" (color 0 0 250 127)))

(define red_star
  (underlay (ellipse 10 60 40 "red")
            (ellipse 20 50 40 "red")
            (ellipse 30 40 40 "red")
            (ellipse 40 30 40 "red")
            (ellipse 50 20 40 "red")
            (ellipse 60 10 40 "red")))

(define yellow_beam (beside 
                             (ellipse 20 70 "solid" "yellow")
                             (ellipse 20 50 "solid" "darkyellow")
                             (ellipse 20 30 "solid" "orange")
                             (ellipse 20 10 "solid" "darkorange")))

(underlay/offset p
                   0 0
                   (beside yellow_beam red_star))