;;-*-Lisp-*-
(in-package goal)

;; name: mood-tables.gc
;; name in dgo: mood-tables
;; dgos: GAME

(define-extern *debug-mood-color-table* mood-color-table)
(define-extern *debug-mood-fog-table* mood-fog-table)
(define-extern print-mood-tables (function none))

;; DECOMP BEGINS

(define *no-cloud-haze-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 160.0 :y 150.0 :z 200.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 1843200.0 :z 255.0 :w 128.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 150.0 :y 165.0 :z 220.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 1843200.0 :z 255.0 :w 128.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 128.0 :y 180.0 :z 243.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 1843200.0 :z 255.0 :w 128.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 150.0 :y 165.0 :z 220.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 128.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 160.0 :y 150.0 :z 200.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 1843200.0 :z 255.0 :w 128.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 16.0 :y 32.0 :z 100.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 1843200.0 :z 255.0 :w 128.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :y 24.0 :z 64.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 1843200.0 :z 255.0 :w 128.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :y 44.7999 :z 57.5999 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 1843200.0 :z 255.0 :w 128.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *no-cloud-clear-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 160.0 :y 150.0 :z 200.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 150.0 :y 165.0 :z 220.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 128.0 :y 180.0 :z 243.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 150.0 :y 165.0 :z 220.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 160.0 :y 150.0 :z 200.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 12.7999 :y 25.5999 :z 80.0 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :y 19.1999 :z 51.1999 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :y 44.7999 :z 57.5999 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *no-cloud-smog-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 108.75 :y 87.5 :z 61.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 65536.0 :y 1572864.0 :z 255.0 :w 96.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 105.625 :y 100.3437 :z 84.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 65536.0 :y 1572864.0 :z 255.0 :w 96.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 105.625 :y 104.9648 :z 103.6445 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 65536.0 :y 1572864.0 :z 255.0 :w 96.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 105.625 :y 100.3437 :z 84.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 65536.0 :y 1572864.0 :z 255.0 :w 96.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 108.75 :y 90.0 :z 61.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 65536.0 :y 1572864.0 :z 255.0 :w 96.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 54.0 :y 62.0 :z 108.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 65536.0 :y 1572864.0 :z 255.0 :w 96.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 18.5625 :y 24.75 :z 37.125 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 65536.0 :y 1572864.0 :z 255.0 :w 96.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :y 38.5 :z 49.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 65536.0 :y 1572864.0 :z 255.0 :w 96.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *overcast-fog-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 84.5625 :y 83.875 :z 80.7124 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 196.0 :w 4.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 103.7812 :y 116.2734 :z 117.2343 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 196.0 :w 4.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 108.9843 :y 116.25 :z 124.2421 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 196.0 :w 4.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 103.7812 :y 116.2734 :z 117.2343 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 196.0 :w 4.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 84.082 :y 84.7656 :z 79.5703 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 196.0 :w 4.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 34.0 :y 40.0 :z 61.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 196608.0 :y 1024000.0 :z 196.0 :w 4.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 16.7343 :y 18.7031 :z 26.5781 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 196.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 18.75 :y 28.75 :z 33.75 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 196.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *overcast-clear-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 136.0 :y 130.0 :z 160.0 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 134.0 :y 143.0 :z 176.0 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 125.4 :y 156.5999 :z 194.3999 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 134.0 :y 143.0 :z 176.0 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 136.0 :y 130.0 :z 160.0 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 23.68 :y 31.3599 :z 64.0 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 10.2399 :y 21.7599 :z 40.9599 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 11.5199 :y 38.3999 :z 46.0799 :w 1.0)
                 :fog-dists
                 (new 'static 'vector :x 131072.0 :y 4096000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *overcast-rain-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 69.4938 :y 84.6425 :z 100.0708 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 77.0012 :y 108.5625 :z 126.4826 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 82.6313 :y 108.699 :z 132.716 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 77.0012 :y 108.5625 :z 126.4826 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 68.186 :y 85.1003 :z 99.9291 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 33.2822 :y 41.2822 :z 67.5448 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 2.0 :y 18.25 :z 26.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 2.4022 :y 24.8554 :z 29.6991 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *storm-fog-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 51.4475 :y 60.0221 :z 72.8841 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 37.0013 :y 69.5625 :z 75.4827 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 46.6313 :y 70.6991 :z 76.7161 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 37.0013 :y 69.5625 :z 75.4827 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 56.1861 :y 62.1004 :z 73.9291 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 29.2823 :y 29.2823 :z 40.5449 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 2.0 :y 10.25 :z 18.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 2.4023 :y 15.8554 :z 19.6992 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *storm-clear-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 115.0 :y 115.0 :z 110.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 32768.0 :y 2048000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 122.5 :y 127.5 :z 127.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 32768.0 :y 2048000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 127.5 :y 127.5 :z 127.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 32768.0 :y 2048000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 122.5 :y 127.5 :z 127.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 32768.0 :y 2048000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 110.0 :y 110.0 :z 105.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 32768.0 :y 2048000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 90.0 :y 85.0 :z 90.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 32768.0 :y 2048000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :y 12.0 :z 32.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 32768.0 :y 2048000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :y 28.0 :z 36.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :x 32768.0 :y 2048000.0 :z 255.0 :w 162.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *storm-rain-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 51.4475 :y 60.0221 :z 72.8841 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 37.0013 :y 69.5625 :z 75.4827 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 46.6313 :y 70.6991 :z 76.7161 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 37.0013 :y 69.5625 :z 75.4827 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 56.1861 :y 62.1004 :z 73.9291 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 29.2823 :y 29.2823 :z 40.5449 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 2.0 :y 10.25 :z 18.5 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 2.4023 :y 15.8554 :z 19.6992 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1024000.0 :z 255.0 :w 16.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *desert-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 136.3944 :y 92.6952 :z 52.9687 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1228800.0 :z 255.0 :w 180.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 154.1268 :y 114.1443 :z 76.7968 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 180.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 171.8592 :y 135.5936 :z 100.625 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 180.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 154.1268 :y 114.1443 :z 76.7968 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 180.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 136.3944 :y 92.6952 :z 52.9687 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 180.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 46.0 :y 27.0 :z 22.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 180.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 46.0 :y 27.0 :z 22.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 180.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 44.0 :y 35.0 :z 20.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 180.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *sandstorm-start-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 100.3943 :y 76.6951 :z 48.9686 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 10.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 131.1268 :y 118.1443 :z 83.7967 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 10.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 155.8591 :y 138.5934 :z 93.6249 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 10.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 121.1268 :y 103.1443 :z 66.7967 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 10.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 129.3943 :y 107.695 :z 71.9685 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 10.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 46.0 :y 37.0 :z 44.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 10.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 35.0 :y 29.0 :z 32.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 10.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 44.0 :y 45.0 :z 30.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 3276800.0 :z 255.0 :w 10.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *sandstorm-end-mood-fog-table*
  (new 'static
       'mood-fog-table
       :data
       (new 'static
            'inline-array
            mood-fog
            8
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 100.3943 :y 76.6951 :z 48.9686 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1048576.0 :z 255.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 131.1268 :y 118.1443 :z 83.7967 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1048576.0 :z 255.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 155.8591 :y 138.5934 :z 93.6249 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1048576.0 :z 255.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 121.1268 :y 103.1443 :z 66.7967 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1048576.0 :z 255.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 129.3943 :y 107.695 :z 71.9685 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1048576.0 :z 255.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 46.0 :y 37.0 :z 44.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1638400.0 :z 255.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 35.0 :y 29.0 :z 32.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1638400.0 :z 255.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0))
            (new 'static
                 'mood-fog
                 :fog-color
                 (new 'static 'vector :x 44.0 :y 45.0 :z 30.0 :w 128.0)
                 :fog-dists
                 (new 'static 'vector :y 1638400.0 :z 255.0 :w 8.0)
                 :erase-color
                 (new 'static 'vector :w 128.0)))))

(define *no-cloud-mood-color-table*
  (new 'static
       'mood-color-table
       :data
       (new 'static
            'inline-array
            mood-color
            8
            (new 'static 'mood-color :lgt-color (new 'static 'vector :x 1.5092 :y 1.2699) :amb-color (new 'static 'vector :x 0.498 :y 0.4406 :z 0.5777 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 1.6168 :y 1.4675 :z 1.0976)
                 :amb-color
                 (new 'static 'vector :x 0.4199 :y 0.5195 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 1.8412 :y 1.685 :z 1.4374)
                 :amb-color
                 (new 'static 'vector :x 0.4199 :y 0.5195 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 1.6168 :y 1.4675 :z 1.0976)
                 :amb-color
                 (new 'static 'vector :x 0.4199 :y 0.5195 :z 0.5976 :w 1.0))
            (new 'static 'mood-color :lgt-color (new 'static 'vector :x 1.6464 :y 1.2601) :amb-color (new 'static 'vector :x 0.3984 :y 0.4478 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.3312 :y 0.149 :z 0.5)
                 :amb-color
                 (new 'static 'vector :x 0.2788 :y 0.3593 :z 0.498 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1097 :y 0.384 :z 0.8232)
                 :amb-color
                 (new 'static 'vector :x 0.2695 :y 0.3143 :z 0.4492 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1 :y 0.5749 :z 0.4)
                 :amb-color
                 (new 'static 'vector :x 0.239 :y 0.3386 :z 0.3984 :w 1.0)))))

(define *overcast-mood-color-table*
  (new 'static
       'mood-color-table
       :data
       (new 'static
            'inline-array
            mood-color
            8
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.3772 :y 0.3473 :z 0.1886)
                 :amb-color
                 (new 'static 'vector :x 0.5378 :y 0.4605 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.4041 :y 0.3855 :z 0.3392)
                 :amb-color
                 (new 'static 'vector :x 0.5087 :y 0.5639 :z 0.642 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.4602 :y 0.4407 :z 0.4098)
                 :amb-color
                 (new 'static 'vector :x 0.5087 :y 0.5639 :z 0.642 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.4041 :y 0.3855 :z 0.3392)
                 :amb-color
                 (new 'static 'vector :x 0.5087 :y 0.5639 :z 0.642 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.4115 :y 0.3633 :z 0.2057)
                 :amb-color
                 (new 'static 'vector :x 0.4979 :y 0.4975 :z 0.6473 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1038 :y 0.0811 :z 0.125)
                 :amb-color
                 (new 'static 'vector :x 0.3883 :y 0.414 :z 0.5527 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1166 :y 0.1508 :z 0.2057)
                 :amb-color
                 (new 'static 'vector :x 0.3593 :y 0.3592 :z 0.4941 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.0843 :y 0.1437 :z 0.1218)
                 :amb-color
                 (new 'static 'vector :x 0.3186 :y 0.3784 :z 0.4382 :w 1.0)))))

(define *storm-mood-color-table*
  (new 'static
       'mood-color-table
       :data
       (new 'static
            'inline-array
            mood-color
            8
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1509 :y 0.1449 :z 0.1131)
                 :amb-color
                 (new 'static 'vector :x 0.3714 :y 0.3964 :z 0.4877 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1616 :y 0.1579 :z 0.1486)
                 :amb-color
                 (new 'static 'vector :x 0.3684 :y 0.4604 :z 0.5124 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1841 :y 0.1802 :z 0.174)
                 :amb-color
                 (new 'static 'vector :x 0.3684 :y 0.4604 :z 0.5124 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1616 :y 0.1579 :z 0.1486)
                 :amb-color
                 (new 'static 'vector :x 0.3684 :y 0.4604 :z 0.5124 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1646 :y 0.1549 :z 0.1234)
                 :amb-color
                 (new 'static 'vector :x 0.3648 :y 0.4145 :z 0.5142 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.0457 :y 0.0412 :z 0.0499)
                 :amb-color
                 (new 'static 'vector :x 0.2951 :y 0.3406 :z 0.4329 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.0644 :y 0.0713 :z 0.0823)
                 :amb-color
                 (new 'static 'vector :x 0.3593 :y 0.3592 :z 0.4941 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.0456 :y 0.0574 :z 0.0531)
                 :amb-color
                 (new 'static 'vector :x 0.3186 :y 0.3784 :z 0.4382 :w 1.0)))))

(define *desert-mood-color-table*
  (new 'static
       'mood-color-table
       :data
       (new 'static
            'inline-array
            mood-color
            8
            (new 'static 'mood-color :lgt-color (new 'static 'vector :x 1.5092 :y 1.2699) :amb-color (new 'static 'vector :x 0.498 :y 0.4406 :z 0.5777 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 1.6168 :y 1.4675 :z 1.0976)
                 :amb-color
                 (new 'static 'vector :x 0.4199 :y 0.5195 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 1.8412 :y 1.685 :z 1.4374)
                 :amb-color
                 (new 'static 'vector :x 0.4199 :y 0.5195 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 1.6168 :y 1.4675 :z 1.0976)
                 :amb-color
                 (new 'static 'vector :x 0.4199 :y 0.5195 :z 0.5976 :w 1.0))
            (new 'static 'mood-color :lgt-color (new 'static 'vector :x 1.6464 :y 1.2601) :amb-color (new 'static 'vector :x 0.3984 :y 0.4478 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.426 :y 0.3584 :z 0.7049)
                 :amb-color
                 (new 'static 'vector :x 0.3071 :y 0.3957 :z 0.5485 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1097 :y 0.384 :z 0.8232)
                 :amb-color
                 (new 'static 'vector :x 0.2695 :y 0.3143 :z 0.4492 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1 :y 0.5749 :z 0.4)
                 :amb-color
                 (new 'static 'vector :x 0.239 :y 0.3386 :z 0.3984 :w 1.0)))))

(define *sandstorm-start-mood-color-table*
  (new 'static
       'mood-color-table
       :data
       (new 'static
            'inline-array
            mood-color
            8
            (new 'static 'mood-color :lgt-color (new 'static 'vector :x 1.5092 :y 1.2699) :amb-color (new 'static 'vector :x 0.498 :y 0.4406 :z 0.5777 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 1.6168 :y 1.4675 :z 1.0976)
                 :amb-color
                 (new 'static 'vector :x 0.4199 :y 0.5195 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 1.8412 :y 1.685 :z 1.4374)
                 :amb-color
                 (new 'static 'vector :x 0.4199 :y 0.5195 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 1.6168 :y 1.4675 :z 1.0976)
                 :amb-color
                 (new 'static 'vector :x 0.4199 :y 0.5195 :z 0.5976 :w 1.0))
            (new 'static 'mood-color :lgt-color (new 'static 'vector :x 1.6464 :y 1.2601) :amb-color (new 'static 'vector :x 0.3984 :y 0.4478 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.426 :y 0.3584 :z 0.7049)
                 :amb-color
                 (new 'static 'vector :x 0.3071 :y 0.3957 :z 0.5485 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1097 :y 0.384 :z 0.8232)
                 :amb-color
                 (new 'static 'vector :x 0.2695 :y 0.3143 :z 0.4492 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.1 :y 0.5749 :z 0.4)
                 :amb-color
                 (new 'static 'vector :x 0.239 :y 0.3386 :z 0.3984 :w 1.0)))))

(define *sandstorm-end-mood-color-table*
  (new 'static
       'mood-color-table
       :data
       (new 'static
            'inline-array
            mood-color
            8
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.3772 :y 0.3473 :z 0.1886)
                 :amb-color
                 (new 'static 'vector :x 0.5378 :y 0.4605 :z 0.5976 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.4041 :y 0.3855 :z 0.3392)
                 :amb-color
                 (new 'static 'vector :x 0.5087 :y 0.5639 :z 0.642 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.4602 :y 0.4407 :z 0.4098)
                 :amb-color
                 (new 'static 'vector :x 0.5087 :y 0.5639 :z 0.642 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.4041 :y 0.3855 :z 0.3392)
                 :amb-color
                 (new 'static 'vector :x 0.5087 :y 0.5639 :z 0.642 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.4115 :y 0.3633 :z 0.2057)
                 :amb-color
                 (new 'static 'vector :x 0.4979 :y 0.4975 :z 0.6473 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.426 :y 0.3584 :z 0.7049)
                 :amb-color
                 (new 'static 'vector :x 0.3071 :y 0.3957 :z 0.5485 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.0604 :y 0.2114 :z 0.4534)
                 :amb-color
                 (new 'static 'vector :x 0.2694 :y 0.3142 :z 0.4491 :w 1.0))
            (new 'static
                 'mood-color
                 :lgt-color
                 (new 'static 'vector :x 0.0503 :y 0.2896 :z 0.2015)
                 :amb-color
                 (new 'static 'vector :x 0.2389 :y 0.3385 :z 0.3983 :w 1.0)))))

(define *no-cloud-mood-channel-group*
  (new 'static
       'mood-channel-group
       :data
       (new 'static
            'inline-array
            mood-channel
            4
            (new 'static
                 'mood-channel
                 :data
                 (new 'static 'array float 24 0.0 0.0 0.0 0.0 0.0 0.2 0.4 1.0 0.5 0.25 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0))
            (new 'static
                 'mood-channel
                 :data
                 (new 'static 'array float 24 0.8 0.6 0.4 0.2 0.0 0.0 0.0 0.0 0.5 0.75 1.0 0.75 0.5 0.25 0.0 0.0 0.0 0.0 0.0 0.75 0.82 0.88 0.94 1.0))
            (new 'static
                 'mood-channel
                 :data
                 (new 'static 'array float 24 0.2 0.4 0.6 0.8 1.0 0.8 0.6 0.0 0.0 0.0 0.0 0.25 0.5 0.75 1.0 0.84 0.67 0.5 0.0 0.0 0.0 0.0 0.0 0.0))
            (new 'static
                 'mood-channel
                 :data
                 (new 'static 'array float 24 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.16 0.33 0.5 1.0 0.25 0.18 0.12 0.06 0.0)))))

(define *overcast-mood-channel-group*
  (new 'static
       'mood-channel-group
       :data
       (new 'static
            'inline-array
            mood-channel
            4
            (new 'static 'mood-channel)
            (new 'static
                 'mood-channel
                 :data
                 (new 'static 'array float 24 0.5 0.42 0.34 0.25 0.17 0.08 0.0 1.0 0.9 0.8 0.7 0.6 0.5 0.42 0.34 0.25 0.17 0.08 0.0 1.0 0.9 0.8 0.7 0.6))
            (new 'static
                 'mood-channel
                 :data
                 (new 'static 'array float 24 0.5 0.58 0.66 0.75 0.83 0.92 1.0 0.0 0.1 0.2 0.3 0.4 0.5 0.58 0.66 0.75 0.83 0.92 1.0 0.0 0.1 0.2 0.3 0.4))
            (new 'static 'mood-channel))))

(define *stormy-mood-channel-group*
  (new 'static
       'mood-channel-group
       :data
       (new 'static
            'inline-array
            mood-channel
            4
            (new 'static 'mood-channel)
            (new 'static
                 'mood-channel
                 :data
                 (new 'static 'array float 24 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5))
            (new 'static
                 'mood-channel
                 :data
                 (new 'static 'array float 24 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5))
            (new 'static 'mood-channel))))

(define *clouds-000* (new 'static 'mood-clouds :cloud-min 1.0 :cloud-max 1.0))

(define *clouds-125* (new 'static 'mood-clouds :cloud-min 0.333 :cloud-max 1.0))

(define *clouds-250* (new 'static 'mood-clouds :cloud-min 0.333 :cloud-max 0.555))

(define *clouds-375* (new 'static 'mood-clouds :cloud-min 0.167 :cloud-max 0.605))

(define *clouds-500* (new 'static 'mood-clouds :cloud-max 0.655))

(define *clouds-625* (new 'static 'mood-clouds :cloud-max 0.605))

(define *clouds-750* (new 'static 'mood-clouds :cloud-max 0.555))

(define *clouds-875* (new 'static 'mood-clouds :cloud-max 0.505))

(define *clouds-1000* (new 'static 'mood-clouds :cloud-max 0.455))

(define *mood-direction-table*
  (new 'static
       'mood-direction-table
       :data
       (new 'static
            'inline-array
            vector
            4
            (new 'static 'vector :x 0.906 :y 0.397 :z 0.143)
            (new 'static 'vector :x 0.5 :y 0.814 :z 0.296)
            (new 'static 'vector :x -0.5 :y 0.814 :z 0.296)
            (new 'static 'vector :x -0.906 :y 0.397 :z 0.143))))

(define *mood-sky-table*
  (new 'static
       'mood-sky-table
       :data
       (new 'static
            'inline-array
            vector
            8
            (new 'static 'vector :x 83.0 :y 103.0 :z 190.0 :w 128.0)
            (new 'static 'vector :x 86.0 :y 108.0 :z 195.0 :w 128.0)
            (new 'static 'vector :x 89.0 :y 113.0 :z 200.0 :w 128.0)
            (new 'static 'vector :x 86.0 :y 108.0 :z 195.0 :w 128.0)
            (new 'static 'vector :x 83.0 :y 103.0 :z 190.0 :w 128.0)
            (new 'static 'vector :x 38.0 :y 48.0 :z 96.0 :w 128.0)
            (new 'static 'vector :z 8.0 :w 128.0)
            (new 'static 'vector :y 29.0 :z 33.0 :w 128.0))))

(define *mood-interp-table*
  (new 'static
       'sky-color-day
       :hour
       (new 'static
            'inline-array
            sky-color-hour
            24
            (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 7 :morph-start 0.2 :morph-end 0.4)
            (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 7 :morph-start 0.4 :morph-end 0.6)
            (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 7 :morph-start 0.6 :morph-end 0.8)
            (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 7 :morph-start 0.8 :morph-end 0.99)
            (new 'static 'sky-color-hour :snapshot2 7 :morph-start 0.99 :morph-end 0.8)
            (new 'static 'sky-color-hour :snapshot2 7 :morph-start 0.8 :morph-end 0.6)
            (new 'static 'sky-color-hour :snapshot2 7 :morph-start 0.6)
            (new 'static 'sky-color-hour :snapshot2 1 :morph-end 0.5)
            (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.5 :morph-end 0.75)
            (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.75 :morph-end 0.99)
            (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.99 :morph-end 0.5)
            (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.5)
            (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 3 :morph-end 0.5)
            (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 3 :morph-start 0.5 :morph-end 0.99)
            (new 'static 'sky-color-hour :snapshot1 4 :snapshot2 3 :morph-start 0.99 :morph-end 0.84)
            (new 'static 'sky-color-hour :snapshot1 4 :snapshot2 3 :morph-start 0.84 :morph-end 0.66)
            (new 'static 'sky-color-hour :snapshot1 4 :snapshot2 3 :morph-start 0.66 :morph-end 0.5)
            (new 'static 'sky-color-hour :snapshot1 4 :snapshot2 3 :morph-start 0.5)
            (new 'static 'sky-color-hour :snapshot1 4 :snapshot2 5 :morph-end 0.99)
            (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 5 :morph-start 0.99 :morph-end 0.75)
            (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 5 :morph-start 0.75 :morph-end 0.5)
            (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 5 :morph-start 0.5 :morph-end 0.25)
            (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 5 :morph-start 0.25)
            (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 7 :morph-end 0.2))))

;; WARN: Return type mismatch symbol vs none.
(defun init-mood-control ((ctrl mood-control))
  "Given a [[mood-control]] initialize and set it up with default settings
   @param! ctrl The [[mood-control]]
   @returns [[none]]"
  (set! (-> ctrl mood-fog-table) (new 'global 'mood-fog-table))
  (set! (-> ctrl mood-color-table) (new 'global 'mood-color-table))
  (set! (-> ctrl mood-channel-group) (new 'global 'mood-channel-group))
  (set! (-> ctrl mood-clouds) (new 'global 'mood-clouds))
  (set! (-> ctrl mood-direction-table) *mood-direction-table*)
  (set! (-> ctrl mood-sky-table) *mood-sky-table*)
  (set! (-> ctrl mood-interp-table) *mood-interp-table*)
  (mem-copy! (the-as pointer (-> ctrl mood-fog-table)) (the-as pointer *no-cloud-clear-mood-fog-table*) 384)
  (mem-copy! (the-as pointer (-> ctrl mood-color-table)) (the-as pointer *no-cloud-mood-color-table*) 256)
  (mem-copy! (the-as pointer (-> ctrl mood-channel-group)) (the-as pointer *no-cloud-mood-channel-group*) 384)
  (mem-copy! (the-as pointer (-> ctrl mood-clouds)) (the-as pointer *clouds-250*) 8)
  (set! (-> ctrl fogs 0) *no-cloud-haze-mood-fog-table*)
  (set! (-> ctrl fogs 1) *no-cloud-clear-mood-fog-table*)
  (set! (-> ctrl fogs 2) *no-cloud-smog-mood-fog-table*)
  (set! (-> ctrl fogs 3) *overcast-fog-mood-fog-table*)
  (set! (-> ctrl fogs 4) *overcast-clear-mood-fog-table*)
  (set! (-> ctrl fogs 5) *overcast-rain-mood-fog-table*)
  (set! (-> ctrl fogs 6) *storm-fog-mood-fog-table*)
  (set! (-> ctrl fogs 7) *storm-clear-mood-fog-table*)
  (set! (-> ctrl fogs 8) *storm-rain-mood-fog-table*)
  (set! (-> ctrl colors 0) *no-cloud-mood-color-table*)
  (set! (-> ctrl colors 1) *overcast-mood-color-table*)
  (set! (-> ctrl colors 2) *storm-mood-color-table*)
  (set! (-> ctrl channels 0) *no-cloud-mood-channel-group*)
  (set! (-> ctrl channels 1) *overcast-mood-channel-group*)
  (set! (-> ctrl channels 2) *stormy-mood-channel-group*)
  (set! (-> ctrl clouds 0) *clouds-000*)
  (set! (-> ctrl clouds 1) *clouds-125*)
  (set! (-> ctrl clouds 2) *clouds-250*)
  (set! (-> ctrl clouds 3) *clouds-375*)
  (set! (-> ctrl clouds 4) *clouds-500*)
  (set! (-> ctrl clouds 5) *clouds-625*)
  (set! (-> ctrl clouds 6) *clouds-750*)
  (set! (-> ctrl clouds 7) *clouds-875*)
  (set! (-> ctrl clouds 8) *clouds-1000*)
  (set! (-> ctrl current-interp cloud) 0.25)
  (set! (-> ctrl current-interp fog) 0.5)
  (set! (-> ctrl target-interp cloud) 0.25)
  (set! (-> ctrl target-interp fog) 0.5)
  (set! (-> ctrl speed-interp cloud) 0.0005555556)
  (set! (-> ctrl speed-interp fog) 0.0005555556)
  (set! (-> ctrl range min-cloud) 0.0)
  (set! (-> ctrl range max-cloud) 1.0)
  (set! (-> ctrl range min-fog) 0.0)
  (set! (-> ctrl range max-fog) 1.0)
  (set! (-> ctrl time-until-random cloud) 36000.0)
  (set! (-> ctrl time-until-random-min cloud) 36000.0)
  (set! (-> ctrl time-until-random-max cloud) 72000.0)
  (set! (-> ctrl time-until-random fog) 216000.0)
  (set! (-> ctrl time-until-random-min fog) 36000.0)
  (set! (-> ctrl time-until-random-max fog) 72000.0)
  (set! (-> ctrl overide cloud) 0.25)
  (set! (-> ctrl overide fog) 0.0)
  (set! (-> ctrl overide-weather-flag) #t)
  (set! (-> ctrl display-flag) #f)
  (none))

(define *mood-control* (new 'static 'mood-control))

(init-mood-control *mood-control*)
