;; my-world function creates a background with trees on canvas size 600 600
;; allows for color customization of the sky, ground, tree leaves color and the tree trunk
(define (my-world skycolor groundcolor treecolor trunkcolor)
  (and
  (draw-solid-rect (make-posn 0 0) 600 500 skycolor)
  (draw-solid-rect (make-posn 0 500) 600 100 groundcolor)
  (draw-solid-disk (make-posn 100 100) 40 'yellow)
  (draw-solid-rect (make-posn 62 400) 24 100 trunkcolor)
  (draw-solid-rect (make-posn 512 400) 24 100 trunkcolor)
  (draw-solid-disk (make-posn 74 400) 50 treecolor)
  (draw-solid-disk (make-posn 524 400) 50 treecolor)))

;(start 600 600)
;(my-world 'lightskyblue 'saddlebrown 'green 'goldenrod)