;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <SUPERHEROSKI>
;;;
;;; Description:
;;;   <Soaring through the clouds
;;;    Searching for trees with no clout
;;;    Superheroski>

(define (rect rgb x y height width)
  (setposition x y)
  (setheading 90)
  (pendown)
  (color rgb)
  (begin_fill)
  (forward width)
  (right 90)
  (forward height)
  (right 90)
  (forward width)
  (right 90)
  (forward height)
  (end_fill)
  (penup)
)

(define (gradient colors y rect_size)
  (if (null? colors)
    nil
    (begin
      (rect (car colors) (* -0.5 (screen_width)) y rect_size (screen_width))
      (gradient (cdr colors) (- y rect_size) rect_size)
    )
  )
)

(define (fill_circle rgb radius)
  (color rgb)
  (pendown)
  (begin_fill)
  (circle radius)
  (end_fill)
  (penup)
)

(define (cloud1 rgb x y height width)
  (setposition x y)
  (rect rgb x y height width)
  (setheading 0)
  (setposition (+ x (* 1.2 height)) (+ y (* 0.2 height)))
  (fill_circle rgb (* 1.2 height))
  (setposition (+ x (* 0.9 width)) (+ y (* 0.5 height)))
  (fill_circle rgb (* height 1.5))
  (setposition (+ x width (* 0.8 height)) (- y (* 0.2 height)))
  (fill_circle rgb (* height 0.8))
)

(define (cloud2 rgb x y height width)
  (setposition x y)
  (rect rgb x y height width)
  (setheading 0)
  (setposition (+ x (* 0.7 height)) (- y (* 0.3 height)))
  (fill_circle rgb (* height 0.7))
  (setposition (+ x (* 0.53 width)) (+ y (* 0.05 height)))
  (fill_circle rgb (* height 1.05))
  (setposition (+ x (* 0.9 width)) (+ y (* 0.3 height)))
  (fill_circle rgb (* height 1.3))
  (setposition (+ x width height) y)
  (fill_circle rgb height)
)

(define (draw_clouds rgb)
  (cloud2 rgb (* -0.1 (screen_width)) (* 0.2 (screen_height)) 40 150)
  (cloud2 rgb (* -0.4 (screen_width)) (* -0.3 (screen_height)) 60 210)
  (cloud1 rgb (* -0.45 (screen_width)) (* 0.3 (screen_height)) 30 110)
  (cloud1 rgb (* 0.2 (screen_width)) (* -0.4 (screen_height)) 70 240)
  (cloud1 rgb (* 0.37 (screen_width)) (* 0.05 (screen_height)) 35 140)
  (cloud1 rgb (* 0.3 (screen_width)) (* 0.4 (screen_height)) 25 90)
)

(define (draw_pixel_row row x y size)
  (if (null? row)
    nil
    (begin
      (define pixels 1)
      (if (integer? (car row))
        (define pixels (car row))
        (pixel x y (car row))
      )
      (draw_pixel_row (cdr row) x (+ y (* size pixels)) size)
    )
  )
)

(define (draw_pixels matrix x y size)
  (if (null? matrix)
    nil
    (begin
      (draw_pixel_row (car matrix) x y size)
      (draw_pixels (cdr matrix) (+ x size) y size)
    )
  )
)

(define (draw_line rgb x1 y1 x2 y2)
  (penup)
  (color rgb)
  (setposition x1 y1)
  (begin_fill)
  (pendown)
  (setposition x2 y2)
  (setposition x2 (+ y2 3))
  (setposition x1 (+ y1 3))
  (end_fill)
  (penup)
)

(define (draw_trail)
  (draw_line "#003262" -370 -80 -500 -87)
  (draw_line "#FDB515" -360 -97 -490 -104)
  (draw_line "#003262" -375 -121 -485 -128)
  (draw_line "#FDB515" -365 -139 -495 -146)
  (draw_line "#003262" -355 -162 -475 -169)
)

(define (draw_laser)
  (setposition 85 46)
  (color "#FDB515")
  (pendown)
  (begin_fill)
    (left 125)
    (forward 620)
    (left 90)
    (forward 10)
    (setposition 85 46)
  (end_fill)
  (penup)
  (right 90)

  (setposition 114 22)
  (color "#FDB515")
  (pendown)
  (begin_fill)
    (left 12)
    (forward 650)
    (left 90)
    (forward 10)
    (setposition 114 22)
  (end_fill)
  (penup)

    (hideturtle)
)

(define (draw_triangles)
   (setposition 265 20)
    (color "#003262")
    (pendown)
      (begin_fill)
      (right 45)
      (forward 50)
      (right 90)
      (forward 20)
      (right 110)
      (forward 60)
      (end_fill)
    (penup)

    (setposition 240 25)
    (color "#FDB515")
    (pendown)
      (begin_fill)
      (right 135)
      (forward 30)
      (right 90)
      (forward 10)
      (right 110)
      (forward 25)
      (end_fill)
    (penup)

    (setposition 260 -10)
    (color "#FDB515")
    (pendown)
      (begin_fill)
      (right 220)
      (forward 30)
      (right 90)
      (forward 10)
      (right 110)
      (forward 25)
      (end_fill)
    (penup)
)

(define (draw_beam direction)
  (setposition -130 550)
  (color "#FDB515")
  (setheading direction)
  (pendown)
  (begin_fill)
  (forward 270)
  (right 90)
  (forward 12)
  (setposition -130 550)
  (end_fill)
  (penup)
)

(define (draw_sun)
  (setposition 40 550)
  (fill_circle "#FDB515" 170)
  (define (draw_beams heading)
    (if (= heading 270)
      nil
      (begin
        (draw_beam heading)
        (draw_beams (+ heading 15))
      )
    )
  )

  (draw_beams 90)
)

(define (draw)
  (hideturtle)
  (speed 0)
  (penup)

  (gradient
    (list "#0066ff" "#0167ff" "#0169ff" "#026aff" "#036cff" "#046eff" "#0570ff" "#0571ff" "#0673ff" "#0774ff" "#0776ff" "#0877ff"
          "#0979ff" "#0a7aff" "#0b7cff" "#0b7eff" "#0c7fff" "#0d81ff" "#0e83ff" "#0f84ff" "#0f86ff" "#1088ff" "#1189ff" "#128bff"
          "#138dff" "#148eff" "#1590ff" "#1592ff" "#1693ff" "#1795ff" "#1897ff" "#1998ff" "#1a9aff" "#1a9cff" "#1b9dff" "#1c9fff" )
    (* 0.5 (screen_height)) (* (/ 1 36) (screen_height)))
  (draw_clouds "#DDD5C7")

  (draw_trail)

  (draw_sun)

  (setheading 0)

  (pixelsize 8)
  (draw_pixels
    (list  (list 8 "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff") (list 8 "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff") (list "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff" 3 "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff") (list "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff" 4 "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff") (list "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff" 4 "#ffffff" "#ffffff" "#ffffff" "#ffffff" 13 "#00316b") (list 2 "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff" 4 "#ffffff" "#ffffff" "#ffffff" "#ffffff" 12 "#003262" "#003262" "#003262") (list 3 "#ffffff" "#ffffff" "#ffffff" "#ffffff" 4 "#ffffff" "#ffffff" "#ffffff" "#ffffff" 12 "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#ffffff" "#ffffff" "#ffffff" "#ffffff" 4 "#ffffff" "#ffffff" "#ffffff" "#ffffff" 12 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#ffffff" "#ffffff" "#ffffff" "#ffffff" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" 12 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#ffffff" "#ffffff" "#ffffff" "#ffffff" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" 1 "#3b7ea1" 10 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" 1 "#3b7ea1" "#3b7ea1" 8 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" 1 "#3b7ea1" "#3b7ea1" "#3b7ea1" 7 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" 5 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" 2 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 3 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 3 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#37799d" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 3 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 3 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 3 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" 5 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 3 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" 2 "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" "#003262" 4 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" "#003262" "#003262" 3 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#37799d" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" "#003262" "#003262" 3 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 4 "#003262" "#003262" "#003262" "#003262" "#003262" 3 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 5 "#003262" "#003262" "#003262" "#003262" "#003262" 2 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 5 "#003262" "#003262" "#003262" "#003262" "#003262" 2 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 5 "#003262" "#003262" "#003262" "#003262" "#003262" 2 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 5 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" 1 "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 5 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 6 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 6 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#37799d" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 6 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 6 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 7 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 7 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 7 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 7 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#fdb515" "#000000" "#000000" "#000000" "#000000" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 8 "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#fdb515" "#fdb515" "#000000" "#000000" "#000000" "#000000" "#000000" "#000000" "#000000" "#3b7ea1" "#3b7ea1" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 8 "#003262" "#003262" "#003262" "#003262" "#003262" "#000000" "#000000" "#000000" "#000000" "#000000" "#000000" "#0c0a07" "#49392a" "#9e7c5b" "#ba926b" "#4c819b" "#878d85" "#9d8e78" "#927f6d" "#244565" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 8 "#003262" "#003262" "#003262" "#003262" "#000000" "#000000" "#000000" "#000000" "#000000" "#241d15" "#796046" "#b68f69" "#c29970" "#ba926b" "#ac9173" "#c29970" "#c29970" "#c29970" "#c29970" "#b6936f" "#0c3863" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 8 "#003262" "#003262" "#002f5c" "#000000" "#000000" "#000000" "#000000" "#3d3023" "#9e7c5b" "#c29970" "#c29970" "#c29970" "#c29970" "#ad8764" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#3d5266" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 8 "#003262" "#002c56" "#000000" "#000000" "#000000" "#0c0a07" "#796046" "#c29970" "#c29970" "#ba926b" "#b8906a" "#bd956d" "#ba926b" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#616669" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 9 "#000000" "#000000" "#000000" "#241d15" "#9e7c5b" "#bd956d" "#987555" "#765840" "#9e7a59" "#ae8863" "#9e7a59" "#ad8764" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#616669" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 9 "#000000" "#000000" "#49392a" "#b68f69" "#ab8561" "#9e7a59" "#9e7a59" "#a37f5d" "#a88360" "#c29970" "#c29970" "#ad8764" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#927f6d" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262" "#003262") (list 9 "#0c0a07" "#796046" "#c29970" "#ba926b" "#9e7a59" "#bf976e" "#bf976e" "#b38c66" "#b58e68" "#c29970" "#b58e68" "#ad8764" "#c29970" "#c29970" "#c29970" "#ad8764" "#c29970" "#c29970" "#c29970" "#c29970" "#616669" "#003262" "#003262" "#003262" "#003262" "#003262") (list 10 "#c29970" "#c29970" "#b8906a" "#a6815e" "#c29970" "#c29970" "#c29970" "#c29970" "#a17d5b" "#a6815e" "#c29970" "#c29970" "#c29970" "#c29970" "#ad8764" "#c29970" "#c29970" "#c29970" "#c29970" "#b6936f" "#0c3863" "#003262" "#003262" "#003262" "#003262") (list 10 "#c29970" "#c29970" "#c29970" "#bd956d" "#bd956d" "#a88360" "#a37f5d" "#a37f5d" "#9a7757" "#ad8764" "#c29970" "#c29970" "#c29970" "#ad8764" "#bf976e" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#3d5266" "#003262" "#003262" "#003262" "#003262") (list 11 "#c29970" "#c29970" "#c29970" "#a17d5b" "#b58e68" "#c29970" "#ba926b" "#a17d5b" "#ad8764" "#c29970" "#c29970" "#c29970" "#ad8764" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#616669" "#003262" "#003262" "#003262" "#003262") (list 11 "#c29970" "#c29970" "#c29970" "#b38c66" "#c29970" "#c29970" "#c29970" "#c29970" "#ad8764" "#c29970" "#c29970" "#bf976e" "#ad8764" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#616669" "#003262" "#003262" "#003262" "#003262") (list 12 "#c29970" "#c29970" "#c29970" "#bf976e" "#ab8561" "#9c7858" "#a37f5d" "#a6815e" "#c29970" "#c29970" "#ad8764" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#314c66" "#003262" "#003262" "#003262" "#003262") (list 12 "#c29970" "#c29970" "#c29970" "#ae8863" "#ab8561" "#bf976e" "#c29970" "#ad8764" "#c29970" "#c29970" "#ad8764" "#a88360" "#a37f5d" "#b8906a" "#c29970" "#c29970" "#c29970" "#c29970" "#616669" "#003262" "#003262" "#003262") (list 12 "#c29970" "#c29970" "#c29970" "#b8906a" "#bd956d" "#c29970" "#c29970" "#ad8764" "#c29970" "#c29970" "#9c7958" "#ae8863" "#b58e68" "#a88360" "#c29970" "#c29970" "#c29970" "#c29970" "#aa8c6e" "#003262" "#003262" "#003262") (list 13 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#ad8764" "#bf976e" "#c29970" "#b78f69" "#a6815e" "#b38c66" "#c29970" "#bd956d" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#183f64" "#003262" "#003262") (list 13 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#d9bfa6" "#f7f2ed" "#f0e6db" "#dfcebd" "#bf976e" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#314c66" "#003262" "#003262") (list 13 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#f7f2ed" "#ffffff" "#ffffff" "#ffffff" "#d1b394" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#314c66" "#003262" "#003262") (list 13 "#c29970" "#c29970" "#bf976e" "#b08a65" "#9e7a59" "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#c69f79" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#003262" "#003262" "#003262") (list 13 "#c29970" "#bf976e" "#9e7a59" "#a88360" "#bd956d" "#e8d9c9" "#ffffff" "#ffffff" "#e2d0bf" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#79726b" "#003262" "#003262") (list 13 "#c29970" "#a88360" "#a88360" "#ae8863" "#c29970" "#c29970" "#cdac8b" "#c1a183" "#b58e68" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#987555" "#6d513a" "#5c422f" "#3a2519" "#3a2519" "#3a2519") (list 13 "#c29970" "#a37f5d" "#b8906a" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#987555" "#4b3424" "#432c1e" "#5c422f" "#76583f" "#7e5f45" "#7e5f45" "#654934" "#543b29" "#3a2519" "#3a2519") (list 14 "#ab8561" "#ae8863" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#6d513a" "#543b29" "#987555" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#b18b65" "#7e5f45" "#4b3424" "#3a2519") (list 14 "#bf976e" "#ae8863" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#6d513a" "#76583f" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#7e5f45" "#3a2519" "#3a2519") (list 14 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#76583f" "#76583f" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#a98360" "#432c1e" "#3a2519") (list 15 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#b18b65" "#543b29" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#987555" "#543b29" "#3a2519") (list 15 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#6d513a" "#987555" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#ba926b" "#543b29" "#3a2519") (list 16 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#5c422f" "#c29970" "#c29970" "#c29970" "#c29970" "#a07c5a" "#6d513a" "#4b3424" "#3a2519" "#3a2519" "#3a2519" "#432c1e" "#6d513a" "#a07c5a" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#a98360" "#3a2519" "#3a2519"))
    (* -0.35 (screen_width)) -20 0.7
  )
  (draw_pixels
    (list  (list 16 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#7e5f45" "#c29970" "#c29970" "#c29970" "#76583f" "#3a2519" "#6d513a" "#a07c5a" "#c29970" "#c29970" "#ba926b" "#a07c5a" "#7e5f45" "#8f6e4f" "#c29970" "#c29970" "#31261c" "#9e7c5b" "#c29970" "#c29970" "#c29970" "#6d513a" "#3a2519" "#3a2519") (list 17 "#c29970" "#c29970" "#c29970" "#c29970" "#87664a" "#c29970" "#c29970" "#6d513a" "#543b29" "#a98360" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#aa8662" "#e0e0e0" "#6c6967" "#9e7c5b" "#c29970" "#c29970" "#a98360" "#3a2519" "#3a2519" "#3a2519") (list 18 "#c29970" "#c29970" "#c29970" "#8f6e4f" "#c29970" "#a07c5a" "#432c1e" "#ba926b" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#49392a" "#404040" "#e0e0e0" "#50463c" "#c29970" "#c29970" "#c29970" "#4b3424" "#3a2519" "#3a2519" "#3a2519") (list 18 "#c29970" "#c29970" "#c29970" "#c29970" "#a98360" "#654934" "#8f6e4f" "#c29970" "#8f6e4f" "#7e5f45" "#8f6e4f" "#ba926b" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#9e7c5b" "#000000" "#000000" "#e0e0e0" "#707070" "#c29970" "#c29970" "#c29970" "#5c422f" "#3a2519" "#3a2519" "#3a2519") (list 18 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#432c1e" "#ba926b" "#7e5f45" "#3a2519" "#3a2519" "#3a2519" "#432c1e" "#987555" "#c29970" "#c29970" "#c29970" "#b68f69" "#1c1a17" "#101010" "#000000" "#e0e0e0" "#606060" "#c29970" "#c29970" "#c29970" "#5c422f" "#3a2519" "#3a2519" "#3a2519" "#3a2519") (list 18 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#7e5f45" "#c29970" "#432c1e" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#76583f" "#987555" "#8f6e4f" "#c29970" "#927354" "#59493a" "#70665c" "#60564c" "#85694d" "#c29970" "#c29970" "#c29970" "#5c422f" "#3a2519" "#3a2519" "#3a2519" "#3a2519") (list 19 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#543b29" "#aa8662" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#5c422f" "#3a2519" "#3a2519" "#3a2519" "#3a2519") (list 19 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" 1 "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#84674b" "#e0e0e0" "#59493a" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#432c1e" "#3a2519" "#3a2519" "#3a2519") (list 19 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" 2 "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#624a35" "#0c0a07" "#101010" "#e0e0e0" "#796046" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#987555" "#3a2519" "#3a2519" "#3a2519" "#3a2519") (list 19 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" 3 "#3a2519" "#3a2519" "#3a2519" "#614733" "#18130e" "#000000" "#000000" "#e0e0e0" "#50463c" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#5c422f" "#3a2519" "#3a2519" "#3a2519") (list 20 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" 4 "#543b29" "#a07c5a" "#9e7c5b" "#31261c" "#e0e0e0" "#e0e0e0" "#59493a" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#6d513a" "#3a2519" "#3a2519") (list 20 "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" 5 "#3a2519" "#654934" "#ba926b" "#aa8662" "#927354" "#c29970" "#c29970" "#c29970" "#c29970" "#c29970" "#6d513a" "#3a2519" "#3a2519") (list 21 "#c29970" "#c29970" "#c29970" "#c29970" 6 "#362527" "#4b3424" "#a98360" "#c29970" "#c29970" "#c29970" "#c29970" "#a07c5a" "#543b29" "#3a2519" "#3a2519" "#3a2519") (list 22 "#c29970" "#c29970" "#c29970" 8 "#3a2519" "#654934" "#7e5f45" "#6d513a" "#4b3424" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519") (list 22 "#c29970" "#c29970" "#c29970" 11 "#362527" "#3a2519" "#3a2519" "#3a2519" "#3a2519" "#3a2519") (list 22 "#c29970" "#c29970" "#c29970" 12 "#3a2519" "#3a2519" "#3a2519" "#3a2519") (list 22 "#c29970" "#c29970" "#c29970") (list 23 "#c29970" "#c29970" "#c29970") (list 23 "#c29970" "#c29970" "#c29970") (list 23 "#c29970" "#c29970" "#c29970") (list 24 "#c29970" "#c29970") (list 24 "#c29970" "#c29970") (list 24 "#c29970" "#c29970" "#c29970") (list 25 "#c29970" "#c29970") (list 25 "#c29970" "#c69f79" "#ffffff") (list 25 "#ffffff" "#ffffff" "#ffffff" "#ffffff") (list 25 "#ffffff" "#ffffff" "#ffffff" "#ffffff") (list 25 "#ffffff" "#ffffff" "#ffffff" "#ffffff" "#ffffff") (list 26 "#ffffff" "#ffffff" "#ffffff" "#ffffff") (list 26 "#ffffff" "#ffffff" "#ffffff" "#ffffff") (list 27 "#ffffff" "#ffffff"))
    (+ (* -0.35 (screen_width)) (* 0.7 74)) -20 0.7
  )

  (draw_triangles)
  (draw_laser)

  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)