mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-21 07:37:45 -04:00
871 lines
59 KiB
Common Lisp
871 lines
59 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: mood-tables.gc
|
|
;; name in dgo: mood-tables
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; og:ignore-from-loc
|
|
|
|
;; 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 *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 *no-cloud-mood-channel-group*
|
|
(new 'static 'mood-channel-group
|
|
:data (new 'static 'inline-array mood-channel 4
|
|
(new 'static 'mood-channel :vecs (new 'static 'inline-array vector4 6
|
|
(new 'static 'vector4)
|
|
(new 'static 'vector4 :y 0.2 :z 0.4 :w 1.0)
|
|
(new 'static 'vector4 :x 0.5 :y 0.25)
|
|
(new 'static 'vector4)
|
|
(new 'static 'vector4)
|
|
(new 'static 'vector4)
|
|
)
|
|
)
|
|
(new 'static 'mood-channel :vecs (new 'static 'inline-array vector4 6
|
|
(new 'static 'vector4 :x 0.8 :y 0.6 :z 0.4 :w 0.2)
|
|
(new 'static 'vector4)
|
|
(new 'static 'vector4 :x 0.5 :y 0.75 :z 1.0 :w 0.75)
|
|
(new 'static 'vector4 :x 0.5 :y 0.25)
|
|
(new 'static 'vector4 :w 0.75)
|
|
(new 'static 'vector4 :x 0.82 :y 0.88 :z 0.94 :w 1.0)
|
|
)
|
|
)
|
|
(new 'static 'mood-channel :vecs (new 'static 'inline-array vector4 6
|
|
(new 'static 'vector4 :x 0.2 :y 0.4 :z 0.6 :w 0.8)
|
|
(new 'static 'vector4 :x 1.0 :y 0.8 :z 0.6)
|
|
(new 'static 'vector4 :w 0.25)
|
|
(new 'static 'vector4 :x 0.5 :y 0.75 :z 1.0 :w 0.84)
|
|
(new 'static 'vector4 :x 0.67 :y 0.5)
|
|
(new 'static 'vector4)
|
|
)
|
|
)
|
|
(new 'static 'mood-channel :vecs (new 'static 'inline-array vector4 6
|
|
(new 'static 'vector4)
|
|
(new 'static 'vector4)
|
|
(new 'static 'vector4)
|
|
(new 'static 'vector4 :w 0.16)
|
|
(new 'static 'vector4 :x 0.33 :y 0.5 :z 1.0 :w 0.25)
|
|
(new 'static 'vector4 :x 0.18 :y 0.12 :z 0.06)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(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 :vecs (new 'static 'inline-array vector4 6
|
|
(new 'static 'vector4 :x 0.5 :y 0.42 :z 0.34 :w 0.25)
|
|
(new 'static 'vector4 :x 0.17 :y 0.08 :w 1.0)
|
|
(new 'static 'vector4 :x 0.9 :y 0.8 :z 0.7 :w 0.6)
|
|
(new 'static 'vector4 :x 0.5 :y 0.42 :z 0.34 :w 0.25)
|
|
(new 'static 'vector4 :x 0.17 :y 0.08 :w 1.0)
|
|
(new 'static 'vector4 :x 0.9 :y 0.8 :z 0.7 :w 0.6)
|
|
)
|
|
)
|
|
(new 'static 'mood-channel :vecs (new 'static 'inline-array vector4 6
|
|
(new 'static 'vector4 :x 0.5 :y 0.58 :z 0.66 :w 0.75)
|
|
(new 'static 'vector4 :x 0.83 :y 0.92 :z 1.0)
|
|
(new 'static 'vector4 :x 0.1 :y 0.2 :z 0.3 :w 0.4)
|
|
(new 'static 'vector4 :x 0.5 :y 0.58 :z 0.66 :w 0.75)
|
|
(new 'static 'vector4 :x 0.83 :y 0.92 :z 1.0)
|
|
(new 'static 'vector4 :x 0.1 :y 0.2 :z 0.3 :w 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 :vecs (new 'static 'inline-array vector4 6
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
)
|
|
)
|
|
(new 'static 'mood-channel :vecs (new 'static 'inline-array vector4 6
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 0.5)
|
|
(new 'static 'vector4 :x 0.5 :y 0.5 :z 0.5 :w 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 *drill-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 41.6796 :y 52.6679 :z 72.75 :w 128.0)
|
|
:fog-dists (new 'static 'vector :y 2007040.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 53.7656 :y 72.6562 :z 93.0 :w 128.0)
|
|
:fog-dists (new 'static 'vector :y 2007040.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 59.0 :y 70.5 :z 89.0 :w 128.0)
|
|
:fog-dists (new 'static 'vector :y 2007040.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 50.5859 :y 72.2656 :z 92.5 :w 128.0)
|
|
:fog-dists (new 'static 'vector :y 2129920.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 40.8203 :y 51.582 :z 71.25 :w 128.0)
|
|
:fog-dists (new 'static 'vector :y 2007040.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 27.6093 :y 28.3359 :z 47.9531 :w 128.0)
|
|
:fog-dists (new 'static 'vector :x 131072.0 :y 2007040.0 :z 255.0 :w 16.0)
|
|
:erase-color (new 'static 'vector :w 128.0)
|
|
)
|
|
(new 'static 'mood-fog
|
|
:fog-color (new 'static 'vector :y 15.0 :z 25.0 :w 128.0)
|
|
:fog-dists (new 'static 'vector :y 2129920.0 :z 255.0 :w 16.0)
|
|
:erase-color (new 'static 'vector :w 128.0)
|
|
)
|
|
(new 'static 'mood-fog
|
|
:fog-color (new 'static 'vector :y 23.0 :z 28.0 :w 128.0)
|
|
:fog-dists (new 'static 'vector :y 2129920.0 :z 255.0 :w 16.0)
|
|
:erase-color (new 'static 'vector :w 128.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(define *drill-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.4153 :y 0.3906 :z 0.1171)
|
|
:amb-color (new 'static 'vector :x 0.3607 :y 0.4216 :z 0.5583 :w 1.0)
|
|
)
|
|
(new 'static 'mood-color
|
|
:lgt-color (new 'static 'vector :x 0.5676 :y 0.4026 :z 0.1406)
|
|
:amb-color (new 'static 'vector :x 0.25 :y 0.4483 :z 0.601 :w 1.0)
|
|
)
|
|
(new 'static 'mood-color
|
|
:lgt-color (new 'static 'vector :x 0.6106 :y 0.5588 :z 0.375)
|
|
:amb-color (new 'static 'vector :x 0.3729 :y 0.4561 :z 0.6127 :w 1.0)
|
|
)
|
|
(new 'static 'mood-color
|
|
:lgt-color (new 'static 'vector :x 0.5676 :y 0.3947 :z 0.1406)
|
|
:amb-color (new 'static 'vector :x 0.2518 :y 0.4404 :z 0.601 :w 1.0)
|
|
)
|
|
(new 'static 'mood-color
|
|
:lgt-color (new 'static 'vector :x 0.4114 :y 0.3166)
|
|
:amb-color (new 'static 'vector :x 0.3256 :y 0.4202 :z 0.5609 :w 1.0)
|
|
)
|
|
(new 'static 'mood-color
|
|
:lgt-color (new 'static 'vector :x 0.2082 :y 0.1115 :z 0.173)
|
|
:amb-color (new 'static 'vector :x 0.3416 :y 0.4248 :z 0.5776 :w 1.0)
|
|
)
|
|
(new 'static 'mood-color
|
|
:lgt-color (new 'static 'vector :x 0.1516 :y 0.2634 :z 0.4248)
|
|
:amb-color (new 'static 'vector :x 0.2694 :y 0.3532 :z 0.449 :w 1.0)
|
|
)
|
|
(new 'static 'mood-color
|
|
:lgt-color (new 'static 'vector :x 0.0686 :y 0.2877 :z 0.2748)
|
|
:amb-color (new 'static 'vector :x 0.2388 :y 0.3384 :z 0.3982 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(define *drill-mood-direction-table*
|
|
(new 'static 'mood-direction-table :data (new 'static 'inline-array vector 4
|
|
(new 'static 'vector :y 1.0)
|
|
(new 'static 'vector :y 1.0)
|
|
(new 'static 'vector :y 1.0)
|
|
(new 'static 'vector :y 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
(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 41.0 :y 64.0 :z 166.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 ((arg0 mood-control))
|
|
(set! (-> arg0 mood-fog-table) (new 'global 'mood-fog-table))
|
|
(set! (-> arg0 mood-color-table) (new 'global 'mood-color-table))
|
|
(set! (-> arg0 mood-channel-group) (new 'global 'mood-channel-group))
|
|
(set! (-> arg0 mood-clouds) (new 'global 'mood-clouds))
|
|
(set! (-> arg0 mood-direction-table) *mood-direction-table*)
|
|
(set! (-> arg0 mood-sky-table) *mood-sky-table*)
|
|
(set! (-> arg0 mood-interp-table) *mood-interp-table*)
|
|
(mem-copy! (the-as pointer (-> arg0 mood-fog-table)) (the-as pointer *no-cloud-clear-mood-fog-table*) 384)
|
|
(mem-copy! (the-as pointer (-> arg0 mood-color-table)) (the-as pointer *no-cloud-mood-color-table*) 256)
|
|
(mem-copy! (the-as pointer (-> arg0 mood-channel-group)) (the-as pointer *no-cloud-mood-channel-group*) 384)
|
|
(mem-copy! (the-as pointer (-> arg0 mood-clouds)) (the-as pointer *clouds-250*) 8)
|
|
(set! (-> arg0 fogs 0) *no-cloud-haze-mood-fog-table*)
|
|
(set! (-> arg0 fogs 1) *no-cloud-clear-mood-fog-table*)
|
|
(set! (-> arg0 fogs 2) *no-cloud-smog-mood-fog-table*)
|
|
(set! (-> arg0 fogs 3) *overcast-fog-mood-fog-table*)
|
|
(set! (-> arg0 fogs 4) *overcast-clear-mood-fog-table*)
|
|
(set! (-> arg0 fogs 5) *overcast-rain-mood-fog-table*)
|
|
(set! (-> arg0 fogs 6) *storm-fog-mood-fog-table*)
|
|
(set! (-> arg0 fogs 7) *storm-clear-mood-fog-table*)
|
|
(set! (-> arg0 fogs 8) *storm-rain-mood-fog-table*)
|
|
(set! (-> arg0 colors 0) *no-cloud-mood-color-table*)
|
|
(set! (-> arg0 colors 1) *overcast-mood-color-table*)
|
|
(set! (-> arg0 colors 2) *storm-mood-color-table*)
|
|
(set! (-> arg0 channels 0) *no-cloud-mood-channel-group*)
|
|
(set! (-> arg0 channels 1) *overcast-mood-channel-group*)
|
|
(set! (-> arg0 channels 2) *stormy-mood-channel-group*)
|
|
(set! (-> arg0 clouds 0) *clouds-000*)
|
|
(set! (-> arg0 clouds 1) *clouds-125*)
|
|
(set! (-> arg0 clouds 2) *clouds-250*)
|
|
(set! (-> arg0 clouds 3) *clouds-375*)
|
|
(set! (-> arg0 clouds 4) *clouds-500*)
|
|
(set! (-> arg0 clouds 5) *clouds-625*)
|
|
(set! (-> arg0 clouds 6) *clouds-750*)
|
|
(set! (-> arg0 clouds 7) *clouds-875*)
|
|
(set! (-> arg0 clouds 8) *clouds-1000*)
|
|
(set! (-> arg0 current-interp cloud) 0.25)
|
|
(set! (-> arg0 current-interp fog) 0.5)
|
|
(set! (-> arg0 target-interp cloud) 0.25)
|
|
(set! (-> arg0 target-interp fog) 0.5)
|
|
(set! (-> arg0 speed-interp cloud) 0.0005555556)
|
|
(set! (-> arg0 speed-interp fog) 0.0005555556)
|
|
(set! (-> arg0 range min-cloud) 0.0)
|
|
(set! (-> arg0 range max-cloud) 1.0)
|
|
(set! (-> arg0 range min-fog) 0.0)
|
|
(set! (-> arg0 range max-fog) 1.0)
|
|
(set! (-> arg0 time-until-random cloud) 36000.0)
|
|
(set! (-> arg0 time-until-random-min cloud) 36000.0)
|
|
(set! (-> arg0 time-until-random-max cloud) 72000.0)
|
|
(set! (-> arg0 time-until-random fog) 216000.0)
|
|
(set! (-> arg0 time-until-random-min fog) 36000.0)
|
|
(set! (-> arg0 time-until-random-max fog) 72000.0)
|
|
(set! (-> arg0 overide cloud) 0.25)
|
|
(set! (-> arg0 overide fog) 0.0)
|
|
(set! (-> arg0 overide-weather-flag) #t)
|
|
(set! (-> arg0 display-flag) #f)
|
|
(none)
|
|
)
|
|
|
|
(define *mood-control* (new 'static 'mood-control))
|
|
|
|
(init-mood-control *mood-control*)
|
|
|
|
|
|
|
|
|