diff --git a/decompiler/analysis/atomic_op_builder.cpp b/decompiler/analysis/atomic_op_builder.cpp index 3d591eacfa..13a15c3482 100644 --- a/decompiler/analysis/atomic_op_builder.cpp +++ b/decompiler/analysis/atomic_op_builder.cpp @@ -682,6 +682,17 @@ std::unique_ptr convert_sw_1(const Instruction& i0, int idx) { } } +std::unique_ptr convert_swc1_1(const Instruction& i0, int idx) { + if (i0.get_src(1).is_sym() && i0.get_src(2).is_reg(rs7())) { + // storing a float in the symbol table. It's very rare, but possible + return std::make_unique(4, StoreOp::Kind::FLOAT, + SimpleAtom::make_sym_val(i0.get_src(1).get_sym()).as_expr(), + make_src_atom(i0.get_src(0).get_reg(), idx), idx); + } else { + return make_standard_store(i0, idx, 4, StoreOp::Kind::FLOAT); + } +} + std::unique_ptr convert_sd_1(const Instruction& i0, int idx) { if (i0.get_src(0).is_reg(rr0()) && i0.get_src(1).is_imm(2) && i0.get_src(2).is_reg(rr0())) { return std::make_unique(SpecialOp::Kind::CRASH, idx); @@ -901,7 +912,7 @@ std::unique_ptr convert_1(const Instruction& i0, case InstructionKind::SQC2: return make_standard_store(i0, idx, 16, StoreOp::Kind::VECTOR_FLOAT); case InstructionKind::SWC1: - return make_standard_store(i0, idx, 4, StoreOp::Kind::FLOAT); + return convert_swc1_1(i0, idx); case InstructionKind::CVTWS: // float to int return make_2reg_op(i0, SimpleExpression::Kind::FLOAT_TO_INT, idx); case InstructionKind::CVTSW: // int to float diff --git a/decompiler/config/all-types.gc b/decompiler/config/all-types.gc index 3074b48eba..6028068356 100644 --- a/decompiler/config/all-types.gc +++ b/decompiler/config/all-types.gc @@ -17445,7 +17445,7 @@ (define-extern update-mood-palette (function mood-context float int float)) (define-extern update-mood-interp (function mood-context mood-context mood-context float none)) (define-extern update-mood-lightning (function mood-context int int int int float symbol none)) ;; TODO - asm - ret not verified -(define-extern update-mood-lava (function mood-context float int symbol none)) +(define-extern update-mood-lava (function mood-context int int symbol none)) (define-extern update-light-kit (function light-group light float float)) (define-extern set-target-light-index (function int int)) (define-extern update-mood-caustics (function mood-context int int float)) ;; TODO - double check @@ -17475,7 +17475,7 @@ ;; - Symbols (define-extern *time-of-day-proc* (pointer time-of-day-proc)) -(define-extern *lightning-time2* float) ;; TODO - guess +(define-extern *lightning-time2* int) (define-extern *rolling-spheres-on* (inline-array vector)) ;; 11 vectors (define-extern *rolling-spheres-light0* vector) ;; TODO - what is going on here... (define-extern *rolling-spheres-light1* (inline-array vector)) ; TODO - what is going on here... @@ -17491,7 +17491,7 @@ (define-extern *flash6* (array float)) (define-extern *flash7* (array float)) (define-extern *lightning-index* int) -(define-extern *lightning-time* float) ;; a guess, might be uint (useconds) +(define-extern *lightning-time* int) (define-extern *lightning-frame-done* symbol) (define-extern *lightning-realtime-done* symbol) (define-extern *thunder-id0* sound-id) @@ -17499,7 +17499,7 @@ (define-extern *thunder-id2* sound-id) (define-extern *thunder-id* sound-id) (define-extern *thunder-count* int) -(define-extern *lava-time* int) ;; TODO - guess +(define-extern *lava-time* float) ;; TODO - guess ;; ---------------------- diff --git a/decompiler/config/jak1_ntsc_black_label/hacks.jsonc b/decompiler/config/jak1_ntsc_black_label/hacks.jsonc index c1571aef65..49fc6727de 100644 --- a/decompiler/config/jak1_ntsc_black_label/hacks.jsonc +++ b/decompiler/config/jak1_ntsc_black_label/hacks.jsonc @@ -219,11 +219,6 @@ "particle-adgif", "sp-init-fields!", - - // mood BUG - "update-mood-lava", // BUG: - "update-mood-lightning", - // time-of-day "time-of-day-interp-colors-scratch", "time-of-day-interp-colors", diff --git a/decompiler/config/jak1_ntsc_black_label/type_casts.jsonc b/decompiler/config/jak1_ntsc_black_label/type_casts.jsonc index 4fe5802a4e..745bd9cea1 100644 --- a/decompiler/config/jak1_ntsc_black_label/type_casts.jsonc +++ b/decompiler/config/jak1_ntsc_black_label/type_casts.jsonc @@ -3871,5 +3871,14 @@ [59, "v1", "dma-packet"] ], + "update-mood-lightning": [ + [[255, 259], "s5", "process-drawable"], + [[293, 297], "s5", "process-drawable"], + [[331, 336], "s5", "process-drawable"], + [235, "v0", "sound-rpc-set-param"], + [273, "v0", "sound-rpc-set-param"], + [311, "v0", "sound-rpc-set-param"] + ], + "placeholder-do-not-add-below": [] } diff --git a/goal_src/engine/ambient/mood-tables.gc b/goal_src/engine/ambient/mood-tables.gc index d7dc822e07..62e4a9cfaa 100644 --- a/goal_src/engine/ambient/mood-tables.gc +++ b/goal_src/engine/ambient/mood-tables.gc @@ -26,15 +26,15 @@ (set-vector! (-> arg0 dir1 color) 0.8 0.775 0.7 1.0) (set! (-> arg0 dir1 levels x) arg3) (vector-matrix*! - (the-as vector (-> arg0 dir0)) - (the-as vector (-> arg0 dir0)) - s4-0 - ) + (the-as vector (-> arg0 dir0)) + (the-as vector (-> arg0 dir0)) + s4-0 + ) (vector-matrix*! - (the-as vector (-> arg0 dir1)) - (the-as vector (-> arg0 dir1)) - s4-0 - ) + (the-as vector (-> arg0 dir1)) + (the-as vector (-> arg0 dir1)) + s4-0 + ) ) (let ((v1-4 (-> arg0 dir2))) (set! (-> v1-4 direction x) 0.0) @@ -270,21 +270,20 @@ (set! (-> v1-0 x) (- (-> arg0 direction x))) (set! (-> v1-0 y) (- (-> arg0 direction y))) (set! (-> v1-0 z) (- (-> arg0 direction z))) - (if (< (-> arg0 direction y) 0.9063) - (let* ((f0-7 0.4226) - (f1-1 (-> v1-0 x)) - (f1-3 (* f1-1 f1-1)) - (f2-0 (-> v1-0 z)) - (f0-8 (/ f0-7 (sqrtf (+ f1-3 (* f2-0 f2-0))))) - ) - (set! (-> v1-0 x) (* (-> v1-0 x) f0-8)) - (set! (-> v1-0 y) -0.9063) - (set! (-> v1-0 z) (* (-> v1-0 z) f0-8)) - ) + (when (< (-> arg0 direction y) 0.9063) + (let* ((f0-7 0.4226) + (f1-1 (-> v1-0 x)) + (f1-3 (* f1-1 f1-1)) + (f2-0 (-> v1-0 z)) + (f0-8 (/ f0-7 (sqrtf (+ f1-3 (* f2-0 f2-0))))) + ) + (set! (-> v1-0 x) (* (-> v1-0 x) f0-8)) + (set! (-> v1-0 y) -0.9063) + (set! (-> v1-0 z) (* (-> v1-0 z) f0-8)) ) + ) ) - (let ((v0-0 0)) - ) + 0 (none) ) @@ -293,11 +292,11 @@ (defun update-mood-erase-color ((arg0 mood-fog) (arg1 mood-lights)) (let ((s5-0 (-> arg0 erase-color))) (vector+float*! - s5-0 - (-> arg1 amb-color) - (-> arg1 lgt-color) - (-> arg1 direction y) - ) + s5-0 + (-> arg1 amb-color) + (-> arg1 lgt-color) + (-> arg1 direction y) + ) (vector*! s5-0 s5-0 (-> *ocean-map-village2* far-color)) (set! (-> s5-0 x) (* 2.0 (-> s5-0 x))) (set! (-> s5-0 y) (* 2.0 (-> s5-0 y))) @@ -306,8 +305,7 @@ (vector4-lerp! s5-0 s5-0 (-> arg0 fog-color) f0-8) ) ) - (let ((v0-3 0)) - ) + 0 (none) ) @@ -319,26 +317,26 @@ (let ((s4-0 (new 'stack-no-clear 'mood-fog))) (set! (-> s4-0 fog-color quad) (the-as uint128 0)) (vector+float*! - s5-0 - (-> arg1 amb-color) - (-> arg1 lgt-color) - (-> arg1 direction y) - ) + s5-0 + (-> arg1 amb-color) + (-> arg1 lgt-color) + (-> arg1 direction y) + ) (vector*! s5-0 s5-0 (-> *ocean-map-village2* far-color)) (set! (-> s5-0 x) (* 2.0 (-> s5-0 x))) (set! (-> s5-0 y) (* 2.0 (-> s5-0 y))) (set! (-> s5-0 z) (* 2.0 (-> s5-0 z))) (vector+float*! - (the-as vector s4-0) - (-> arg2 amb-color) - (-> arg2 lgt-color) - (-> arg2 direction y) - ) + (the-as vector s4-0) + (-> arg2 amb-color) + (-> arg2 lgt-color) + (-> arg2 direction y) + ) (vector*! - (the-as vector s4-0) - (the-as vector s4-0) - (-> *ocean-map-village2* far-color) - ) + (the-as vector s4-0) + (the-as vector s4-0) + (-> *ocean-map-village2* far-color) + ) (set! (-> s4-0 fog-color x) (* 2.0 (-> s4-0 fog-color x))) (set! (-> s4-0 fog-color y) (* 2.0 (-> s4-0 fog-color y))) (set! (-> s4-0 fog-color z) (* 2.0 (-> s4-0 fog-color z))) @@ -348,770 +346,776 @@ (vector4-lerp! s5-0 s5-0 (-> arg0 fog-color) f0-15) ) ) - (let ((v0-6 0)) - ) + 0 (none) ) ;; definition for symbol *default-interp-table*, type sky-color-day (define *default-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.99) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.99 - :morph-end 0.66 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.66 - :morph-end 0.33 - ) - (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.33) - (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 3 :morph-end 0.33) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 3 - :morph-start 0.33 - :morph-end 0.66 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 3 - :morph-start 0.66 - :morph-end 0.99 - ) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 3 - :morph-start 0.99 - :morph-end 0.75 - ) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 3 - :morph-start 0.75 - :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) - ) - ) + (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.99) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.99 + :morph-end 0.66 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.66 + :morph-end 0.33 + ) + (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.33) + (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 3 :morph-end 0.33) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 3 + :morph-start 0.33 + :morph-end 0.66 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 3 + :morph-start 0.66 + :morph-end 0.99 + ) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 3 + :morph-start 0.99 + :morph-end 0.75 + ) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 3 + :morph-start 0.75 + :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) + ) + ) ) ;; definition for symbol *village1-palette-interp-table*, type sky-color-day -(define *village1-palette-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.99) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.99 - :morph-end 0.66 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.66 - :morph-end 0.33 - ) - (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.33) - (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 3 :morph-end 0.33) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 3 - :morph-start 0.33 - :morph-end 0.66 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 3 - :morph-start 0.66 - :morph-end 0.99 - ) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 3 - :morph-start 0.99 - :morph-end 0.75 - ) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 3 - :morph-start 0.75 - :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 6 :morph-end 0.75) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 6 - :morph-start 0.75 - :morph-end 0.82 - ) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 6 - :morph-start 0.82 - :morph-end 0.88 - ) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 6 - :morph-start 0.88 - :morph-end 0.94 - ) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 6 - :morph-start 0.94 - :morph-end 0.99 - ) - (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 7 :morph-end 0.2) - ) - ) +(define + *village1-palette-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.99) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.99 + :morph-end 0.66 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.66 + :morph-end 0.33 + ) + (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.33) + (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 3 :morph-end 0.33) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 3 + :morph-start 0.33 + :morph-end 0.66 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 3 + :morph-start 0.66 + :morph-end 0.99 + ) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 3 + :morph-start 0.99 + :morph-end 0.75 + ) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 3 + :morph-start 0.75 + :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 6 :morph-end 0.75) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 6 + :morph-start 0.75 + :morph-end 0.82 + ) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 6 + :morph-start 0.82 + :morph-end 0.88 + ) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 6 + :morph-start 0.88 + :morph-end 0.94 + ) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 6 + :morph-start 0.94 + :morph-end 0.99 + ) + (new 'static 'sky-color-hour :snapshot1 6 :snapshot2 7 :morph-end 0.2) + ) + ) ) ;; definition for symbol *misty-palette-interp-table*, type sky-color-day -(define *misty-palette-interp-table* - (new 'static 'sky-color-day - :hour - (new 'static 'inline-array sky-color-hour 24 - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.04 :morph-end 0.08) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.08 :morph-end 0.12) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.12 :morph-end 0.16) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.16 :morph-end 0.2) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.2 :morph-end 0.23) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.23 :morph-end 0.25) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.25 :morph-end 0.75) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.75 :morph-end 0.8) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.8 :morph-end 0.85) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.85 :morph-end 0.9) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.9 :morph-end 0.95) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.95 :morph-end 0.99) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.99 :morph-end 0.96) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.96 :morph-end 0.92) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.92 :morph-end 0.88) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.88 :morph-end 0.84) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.84 :morph-end 0.8) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.8 :morph-end 0.75) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.75 :morph-end 0.25) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.25 :morph-end 0.18) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.18 :morph-end 0.12) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.12 :morph-end 0.06) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.06) - (new 'static 'sky-color-hour :snapshot1 1 :morph-end 0.04) - ) - ) +(define + *misty-palette-interp-table* + (new 'static 'sky-color-day + :hour + (new 'static 'inline-array sky-color-hour 24 + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.04 :morph-end 0.08) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.08 :morph-end 0.12) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.12 :morph-end 0.16) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.16 :morph-end 0.2) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.2 :morph-end 0.23) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.23 :morph-end 0.25) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.25 :morph-end 0.75) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.75 :morph-end 0.8) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.8 :morph-end 0.85) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.85 :morph-end 0.9) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.9 :morph-end 0.95) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.95 :morph-end 0.99) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.99 :morph-end 0.96) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.96 :morph-end 0.92) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.92 :morph-end 0.88) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.88 :morph-end 0.84) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.84 :morph-end 0.8) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.8 :morph-end 0.75) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.75 :morph-end 0.25) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.25 :morph-end 0.18) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.18 :morph-end 0.12) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.12 :morph-end 0.06) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.06) + (new 'static 'sky-color-hour :snapshot1 1 :morph-end 0.04) + ) + ) ) ;; definition for symbol *firecanyon-palette-interp-table*, type sky-color-day -(define *firecanyon-palette-interp-table* - (new 'static 'sky-color-day - :hour - (new 'static 'inline-array sky-color-hour 24 - (new 'static 'sky-color-hour :snapshot1 3 :morph-end 0.08) - (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.08 :morph-end 0.12) - (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.12 :morph-end 0.16) - (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.16 :morph-end 0.2) - (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.2 :morph-end 0.23) - (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.23 :morph-end 0.25) - (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.25 :morph-end 0.99) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.99 :morph-end 0.5) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.5 :morph-end 0.38) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.38 :morph-end 0.26) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.26 :morph-end 0.22) - (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.22) - (new 'static 'sky-color-hour :snapshot1 1 :snapshot2 2 :morph-end 0.1) - (new 'static 'sky-color-hour - :snapshot1 1 - :snapshot2 2 - :morph-start 0.1 - :morph-end 0.2 - ) - (new 'static 'sky-color-hour - :snapshot1 1 - :snapshot2 2 - :morph-start 0.2 - :morph-end 0.3 - ) - (new 'static 'sky-color-hour - :snapshot1 1 - :snapshot2 2 - :morph-start 0.3 - :morph-end 0.4 - ) - (new 'static 'sky-color-hour - :snapshot1 1 - :snapshot2 2 - :morph-start 0.4 - :morph-end 0.5 - ) - (new 'static 'sky-color-hour - :snapshot1 1 - :snapshot2 2 - :morph-start 0.5 - :morph-end 0.99 - ) - (new 'static 'sky-color-hour - :snapshot1 3 - :snapshot2 2 - :morph-start 0.99 - :morph-end 0.25 - ) - (new 'static 'sky-color-hour - :snapshot1 3 - :snapshot2 2 - :morph-start 0.25 - :morph-end 0.18 - ) - (new 'static 'sky-color-hour - :snapshot1 3 - :snapshot2 2 - :morph-start 0.18 - :morph-end 0.12 - ) - (new 'static 'sky-color-hour - :snapshot1 3 - :snapshot2 2 - :morph-start 0.12 - :morph-end 0.06 - ) - (new 'static 'sky-color-hour :snapshot1 3 :snapshot2 2 :morph-start 0.06) - (new 'static 'sky-color-hour :snapshot1 3 :morph-end 0.04) - ) - ) +(define + *firecanyon-palette-interp-table* + (new 'static 'sky-color-day + :hour + (new 'static 'inline-array sky-color-hour 24 + (new 'static 'sky-color-hour :snapshot1 3 :morph-end 0.08) + (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.08 :morph-end 0.12) + (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.12 :morph-end 0.16) + (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.16 :morph-end 0.2) + (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.2 :morph-end 0.23) + (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.23 :morph-end 0.25) + (new 'static 'sky-color-hour :snapshot1 3 :morph-start 0.25 :morph-end 0.99) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.99 :morph-end 0.5) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.5 :morph-end 0.38) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.38 :morph-end 0.26) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.26 :morph-end 0.22) + (new 'static 'sky-color-hour :snapshot1 1 :morph-start 0.22) + (new 'static 'sky-color-hour :snapshot1 1 :snapshot2 2 :morph-end 0.1) + (new 'static 'sky-color-hour + :snapshot1 1 + :snapshot2 2 + :morph-start 0.1 + :morph-end 0.2 + ) + (new 'static 'sky-color-hour + :snapshot1 1 + :snapshot2 2 + :morph-start 0.2 + :morph-end 0.3 + ) + (new 'static 'sky-color-hour + :snapshot1 1 + :snapshot2 2 + :morph-start 0.3 + :morph-end 0.4 + ) + (new 'static 'sky-color-hour + :snapshot1 1 + :snapshot2 2 + :morph-start 0.4 + :morph-end 0.5 + ) + (new 'static 'sky-color-hour + :snapshot1 1 + :snapshot2 2 + :morph-start 0.5 + :morph-end 0.99 + ) + (new 'static 'sky-color-hour + :snapshot1 3 + :snapshot2 2 + :morph-start 0.99 + :morph-end 0.25 + ) + (new 'static 'sky-color-hour + :snapshot1 3 + :snapshot2 2 + :morph-start 0.25 + :morph-end 0.18 + ) + (new 'static 'sky-color-hour + :snapshot1 3 + :snapshot2 2 + :morph-start 0.18 + :morph-end 0.12 + ) + (new 'static 'sky-color-hour + :snapshot1 3 + :snapshot2 2 + :morph-start 0.12 + :morph-end 0.06 + ) + (new 'static 'sky-color-hour :snapshot1 3 :snapshot2 2 :morph-start 0.06) + (new 'static 'sky-color-hour :snapshot1 3 :morph-end 0.04) + ) + ) ) ;; definition for symbol *rolling-palette-interp-table*, type sky-color-day -(define *rolling-palette-interp-table* - (new 'static 'sky-color-day - :hour - (new 'static 'inline-array sky-color-hour 24 - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 3 - :morph-start 0.2 - :morph-end 0.4 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 3 - :morph-start 0.4 - :morph-end 0.6 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 3 - :morph-start 0.6 - :morph-end 0.8 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 3 - :morph-start 0.8 - :morph-end 0.99 - ) - (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.99 :morph-end 0.88) - (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.88 :morph-end 0.75) - (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.75 :morph-end 0.25) - (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.25 :morph-end 0.12) - (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.12) - (new 'static 'sky-color-hour :snapshot2 1 :morph-end 0.16) - (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.16 :morph-end 0.34) - (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.34 :morph-end 0.5) - (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.5 :morph-end 0.66) - (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.66 :morph-end 0.84) - (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.84 :morph-end 0.99) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.99 - :morph-end 0.84 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.84 - :morph-end 0.8 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.8 - :morph-end 0.75 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.75 - :morph-end 0.25 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.25 - :morph-end 0.17 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.17 - :morph-end 0.12 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.12 - :morph-end 0.06 - ) - (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.06) - (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 3 :morph-end 0.2) - ) - ) +(define + *rolling-palette-interp-table* + (new 'static 'sky-color-day + :hour + (new 'static 'inline-array sky-color-hour 24 + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 3 + :morph-start 0.2 + :morph-end 0.4 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 3 + :morph-start 0.4 + :morph-end 0.6 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 3 + :morph-start 0.6 + :morph-end 0.8 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 3 + :morph-start 0.8 + :morph-end 0.99 + ) + (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.99 :morph-end 0.88) + (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.88 :morph-end 0.75) + (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.75 :morph-end 0.25) + (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.25 :morph-end 0.12) + (new 'static 'sky-color-hour :snapshot2 3 :morph-start 0.12) + (new 'static 'sky-color-hour :snapshot2 1 :morph-end 0.16) + (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.16 :morph-end 0.34) + (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.34 :morph-end 0.5) + (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.5 :morph-end 0.66) + (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.66 :morph-end 0.84) + (new 'static 'sky-color-hour :snapshot2 1 :morph-start 0.84 :morph-end 0.99) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.99 + :morph-end 0.84 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.84 + :morph-end 0.8 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.8 + :morph-end 0.75 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.75 + :morph-end 0.25 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.25 + :morph-end 0.17 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.17 + :morph-end 0.12 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.12 + :morph-end 0.06 + ) + (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.06) + (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 3 :morph-end 0.2) + ) + ) ) ;; definition for symbol *village2-sky-texture-table*, type sky-color-day -(define *village2-sky-texture-table* - (new 'static 'sky-color-day - :hour - (new 'static 'inline-array sky-color-hour 24 - (new 'static 'sky-color-hour - :snapshot1 1 - :snapshot2 4 - :morph-start 0.2 - :morph-end 0.4 - ) - (new 'static 'sky-color-hour - :snapshot1 1 - :snapshot2 4 - :morph-start 0.4 - :morph-end 0.6 - ) - (new 'static 'sky-color-hour - :snapshot1 1 - :snapshot2 4 - :morph-start 0.6 - :morph-end 0.8 - ) - (new 'static 'sky-color-hour - :snapshot1 1 - :snapshot2 4 - :morph-start 0.8 - :morph-end 0.99 - ) - (new 'static 'sky-color-hour - :snapshot1 5 - :snapshot2 4 - :morph-start 0.99 - :morph-end 0.8 - ) - (new 'static 'sky-color-hour - :snapshot1 5 - :snapshot2 4 - :morph-start 0.8 - :morph-end 0.6 - ) - (new 'static 'sky-color-hour :snapshot1 5 :snapshot2 4 :morph-start 0.6) - (new 'static 'sky-color-hour :snapshot1 5 :snapshot2 6 :morph-end 0.5) - (new 'static 'sky-color-hour - :snapshot1 5 - :snapshot2 6 - :morph-start 0.5 - :morph-end 0.99 - ) - (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.99 :morph-end 0.66) - (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.66 :morph-end 0.33) - (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.33) - (new 'static 'sky-color-hour :snapshot2 6 :morph-end 0.33) - (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.33 :morph-end 0.66) - (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.66 :morph-end 0.99) - (new 'static 'sky-color-hour - :snapshot1 7 - :snapshot2 6 - :morph-start 0.99 - :morph-end 0.75 - ) - (new 'static 'sky-color-hour - :snapshot1 7 - :snapshot2 6 - :morph-start 0.75 - :morph-end 0.5 - ) - (new 'static 'sky-color-hour :snapshot1 7 :snapshot2 6 :morph-start 0.5) - (new 'static 'sky-color-hour :snapshot1 7 :snapshot2 1 :morph-end 0.75) - (new 'static 'sky-color-hour - :snapshot1 7 - :snapshot2 1 - :morph-start 0.75 - :morph-end 0.82 - ) - (new 'static 'sky-color-hour - :snapshot1 7 - :snapshot2 1 - :morph-start 0.82 - :morph-end 0.88 - ) - (new 'static 'sky-color-hour - :snapshot1 7 - :snapshot2 1 - :morph-start 0.88 - :morph-end 0.94 - ) - (new 'static 'sky-color-hour - :snapshot1 7 - :snapshot2 1 - :morph-start 0.94 - :morph-end 0.99 - ) - (new 'static 'sky-color-hour :snapshot1 1 :snapshot2 4 :morph-end 0.2) - ) - ) +(define + *village2-sky-texture-table* + (new 'static 'sky-color-day + :hour + (new 'static 'inline-array sky-color-hour 24 + (new 'static 'sky-color-hour + :snapshot1 1 + :snapshot2 4 + :morph-start 0.2 + :morph-end 0.4 + ) + (new 'static 'sky-color-hour + :snapshot1 1 + :snapshot2 4 + :morph-start 0.4 + :morph-end 0.6 + ) + (new 'static 'sky-color-hour + :snapshot1 1 + :snapshot2 4 + :morph-start 0.6 + :morph-end 0.8 + ) + (new 'static 'sky-color-hour + :snapshot1 1 + :snapshot2 4 + :morph-start 0.8 + :morph-end 0.99 + ) + (new 'static 'sky-color-hour + :snapshot1 5 + :snapshot2 4 + :morph-start 0.99 + :morph-end 0.8 + ) + (new 'static 'sky-color-hour + :snapshot1 5 + :snapshot2 4 + :morph-start 0.8 + :morph-end 0.6 + ) + (new 'static 'sky-color-hour :snapshot1 5 :snapshot2 4 :morph-start 0.6) + (new 'static 'sky-color-hour :snapshot1 5 :snapshot2 6 :morph-end 0.5) + (new 'static 'sky-color-hour + :snapshot1 5 + :snapshot2 6 + :morph-start 0.5 + :morph-end 0.99 + ) + (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.99 :morph-end 0.66) + (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.66 :morph-end 0.33) + (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.33) + (new 'static 'sky-color-hour :snapshot2 6 :morph-end 0.33) + (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.33 :morph-end 0.66) + (new 'static 'sky-color-hour :snapshot2 6 :morph-start 0.66 :morph-end 0.99) + (new 'static 'sky-color-hour + :snapshot1 7 + :snapshot2 6 + :morph-start 0.99 + :morph-end 0.75 + ) + (new 'static 'sky-color-hour + :snapshot1 7 + :snapshot2 6 + :morph-start 0.75 + :morph-end 0.5 + ) + (new 'static 'sky-color-hour :snapshot1 7 :snapshot2 6 :morph-start 0.5) + (new 'static 'sky-color-hour :snapshot1 7 :snapshot2 1 :morph-end 0.75) + (new 'static 'sky-color-hour + :snapshot1 7 + :snapshot2 1 + :morph-start 0.75 + :morph-end 0.82 + ) + (new 'static 'sky-color-hour + :snapshot1 7 + :snapshot2 1 + :morph-start 0.82 + :morph-end 0.88 + ) + (new 'static 'sky-color-hour + :snapshot1 7 + :snapshot2 1 + :morph-start 0.88 + :morph-end 0.94 + ) + (new 'static 'sky-color-hour + :snapshot1 7 + :snapshot2 1 + :morph-start 0.94 + :morph-end 0.99 + ) + (new 'static 'sky-color-hour :snapshot1 1 :snapshot2 4 :morph-end 0.2) + ) + ) ) ;; definition for symbol *finalboss-interp-table*, type sky-color-day -(define *finalboss-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.99) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.99 - :morph-end 0.66 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.66 - :morph-end 0.33 - ) - (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.33) - (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-end 0.33) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.33 - :morph-end 0.66 - ) - (new 'static 'sky-color-hour - :snapshot1 2 - :snapshot2 1 - :morph-start 0.66 - :morph-end 0.99 - ) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 1 - :morph-start 0.99 - :morph-end 0.75 - ) - (new 'static 'sky-color-hour - :snapshot1 4 - :snapshot2 1 - :morph-start 0.75 - :morph-end 0.5 - ) - (new 'static 'sky-color-hour :snapshot1 4 :snapshot2 1 :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) - ) - ) +(define + *finalboss-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.99) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.99 + :morph-end 0.66 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.66 + :morph-end 0.33 + ) + (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-start 0.33) + (new 'static 'sky-color-hour :snapshot1 2 :snapshot2 1 :morph-end 0.33) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.33 + :morph-end 0.66 + ) + (new 'static 'sky-color-hour + :snapshot1 2 + :snapshot2 1 + :morph-start 0.66 + :morph-end 0.99 + ) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 1 + :morph-start 0.99 + :morph-end 0.75 + ) + (new 'static 'sky-color-hour + :snapshot1 4 + :snapshot2 1 + :morph-start 0.75 + :morph-end 0.5 + ) + (new 'static 'sky-color-hour :snapshot1 4 :snapshot2 1 :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) + ) + ) ) ;; definition for symbol *village1-mood-fog-table*, type mood-fog-table -(define *village1-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 262144.0 :y 6717440.0 :z 255.0 :w 25.5) - :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 6717440.0 :z 255.0 :w 25.5) - :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 262144.0 :y 6717440.0 :z 255.0 :w 25.5) - :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 6717440.0 :z 255.0 :w 25.5) - :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 262144.0 :y 6717440.0 :z 255.0 :w 25.5) - :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 262144.0 :y 6717440.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color (new 'static 'vector :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 4984832.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 80.0 :z 64.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *village1-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 262144.0 :y 6717440.0 :z 255.0 :w 25.5) + :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 6717440.0 :z 255.0 :w 25.5) + :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 262144.0 :y 6717440.0 :z 255.0 :w 25.5) + :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 6717440.0 :z 255.0 :w 25.5) + :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 262144.0 :y 6717440.0 :z 255.0 :w 25.5) + :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 262144.0 :y 6717440.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color (new 'static 'vector :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 4984832.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 80.0 :z 64.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 3690496.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *village1-mood-lights-table*, type mood-lights-table -(define *village1-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.066987306 :y 0.25000003 :z 0.9659258) - :lgt-color - (new 'static 'vector :x 1.558 :y 1.454 :z 0.228 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.4 :y 0.266 :z 0.6 :w 1.0) - :shadow - (new 'static 'vector :x -0.066987306 :y 0.25000003 :z 0.9659258) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) - :lgt-color - (new 'static 'vector :x 1.632 :y 1.586 :z 1.428 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.387 :y 0.387 :z 0.475 :w 1.0) - :shadow - (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.25881904 :y 0.9659258) - :lgt-color - (new 'static 'vector :x 1.644 :y 1.598 :z 1.438 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.362 :y 0.362 :z 0.425 :w 1.0) - :shadow - (new 'static 'vector :x -0.25881904 :y 0.9659258) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.1830127 :y 0.6830127 :z -0.70710677) - :lgt-color - (new 'static 'vector :x 1.632 :y 1.586 :z 1.428 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.387 :y 0.387 :z 0.475 :w 1.0) - :shadow - (new 'static 'vector :x -0.1830127 :y 0.6830127 :z -0.70710677) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.066987306 :y 0.25000003 :z -0.9659258) - :lgt-color - (new 'static 'vector :x 1.646 :y 1.118 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.32 :y 0.35 :z 0.6 :w 1.0) - :shadow - (new 'static 'vector :x -0.066987306 :y 0.25000003 :z -0.9659258) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y 1.0) - :lgt-color - (new 'static 'vector :x 0.25 :y 0.5 :z 1.0 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.31 :y 0.29 :z 0.35 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881907) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881907) - :lgt-color - (new 'static 'vector :x 0.192 :y 0.256 :z 0.961 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.383 :y 0.439 :z 0.7 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881907) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.354 :y 0.866 :z 0.354) - :lgt-color - (new 'static 'vector :x 0.0495 :y 0.62075 :z 0.326 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.25 :y 0.439 :z 0.7 :w 1.0) - :shadow - (new 'static 'vector :x 0.5393 :y 0.7652 :z -0.3514) - ) - ) - ) +(define + *village1-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.066987306 :y 0.25000003 :z 0.9659258) + :lgt-color + (new 'static 'vector :x 1.558 :y 1.454 :z 0.228 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.4 :y 0.266 :z 0.6 :w 1.0) + :shadow + (new 'static 'vector :x -0.066987306 :y 0.25000003 :z 0.9659258) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) + :lgt-color + (new 'static 'vector :x 1.632 :y 1.586 :z 1.428 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.387 :y 0.387 :z 0.475 :w 1.0) + :shadow + (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.25881904 :y 0.9659258) + :lgt-color + (new 'static 'vector :x 1.644 :y 1.598 :z 1.438 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.362 :y 0.362 :z 0.425 :w 1.0) + :shadow + (new 'static 'vector :x -0.25881904 :y 0.9659258) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.1830127 :y 0.6830127 :z -0.70710677) + :lgt-color + (new 'static 'vector :x 1.632 :y 1.586 :z 1.428 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.387 :y 0.387 :z 0.475 :w 1.0) + :shadow + (new 'static 'vector :x -0.1830127 :y 0.6830127 :z -0.70710677) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.066987306 :y 0.25000003 :z -0.9659258) + :lgt-color + (new 'static 'vector :x 1.646 :y 1.118 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.32 :y 0.35 :z 0.6 :w 1.0) + :shadow + (new 'static 'vector :x -0.066987306 :y 0.25000003 :z -0.9659258) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y 1.0) + :lgt-color + (new 'static 'vector :x 0.25 :y 0.5 :z 1.0 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.31 :y 0.29 :z 0.35 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881907) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881907) + :lgt-color + (new 'static 'vector :x 0.192 :y 0.256 :z 0.961 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.383 :y 0.439 :z 0.7 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881907) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.354 :y 0.866 :z 0.354) + :lgt-color + (new 'static 'vector :x 0.0495 :y 0.62075 :z 0.326 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.25 :y 0.439 :z 0.7 :w 1.0) + :shadow + (new 'static 'vector :x 0.5393 :y 0.7652 :z -0.3514) + ) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *village1-mood-lights-table* data)) - ) + (the-as mood-lights (-> *village1-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *village1-mood-lights-table* data 1)) (update-mood-shadow-direction (-> *village1-mood-lights-table* data 2)) (update-mood-shadow-direction (-> *village1-mood-lights-table* data 3)) @@ -1121,1759 +1125,1783 @@ (update-mood-shadow-direction (-> *village1-mood-lights-table* data 7)) ;; definition for symbol *village1-mood-sun-table*, type mood-sun-table -(define *village1-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 196.0 :z 64.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 96.0 :y 96.0 :z 196.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 64.0 :y 64.0 :z 150.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 64.0 :y 150.0 :z 196.0 :w 255.0) - ) - ) - ) +(define + *village1-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 196.0 :z 64.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 96.0 :y 96.0 :z 196.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 64.0 :y 64.0 :z 150.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 64.0 :y 150.0 :z 196.0 :w 255.0) + ) + ) + ) ) ;; definition for symbol *training-mood-fog-table*, type mood-fog-table -(define *training-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 262144.0 :y 10240000.0 :z 255.0 :w 25.5) - :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 10240000.0 :z 255.0 :w 25.5) - :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 262144.0 :y 10240000.0 :z 255.0 :w 25.5) - :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 10240000.0 :z 255.0 :w 25.5) - :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 262144.0 :y 10240000.0 :z 255.0 :w 25.5) - :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 262144.0 :y 10240000.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color (new 'static 'vector :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 10240000.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 80.0 :z 64.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 10240000.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *training-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 262144.0 :y 10240000.0 :z 255.0 :w 25.5) + :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 10240000.0 :z 255.0 :w 25.5) + :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 262144.0 :y 10240000.0 :z 255.0 :w 25.5) + :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 10240000.0 :z 255.0 :w 25.5) + :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 262144.0 :y 10240000.0 :z 255.0 :w 25.5) + :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 262144.0 :y 10240000.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color (new 'static 'vector :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 10240000.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 80.0 :z 64.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 10240000.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *snow-mood-fog-table*, type mood-fog-table -(define *snow-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 210.0 :y 183.0 :z 160.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 190.25 :y 198.0 :z 195.25 :w 128.0) - :fog-dists - (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 180.5 :y 203.0 :z 220.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 192.75 :y 190.5 :z 197.75 :w 128.0) - :fog-dists - (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 205.0 :y 178.0 :z 175.5 :w 128.0) - :fog-dists - (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 48.0 :y 44.0 :z 64.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 8.0 :y 16.0 :z 32.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 16.0 :y 64.0 :z 60.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *snow-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 210.0 :y 183.0 :z 160.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 190.25 :y 198.0 :z 195.25 :w 128.0) + :fog-dists + (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 180.5 :y 203.0 :z 220.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 192.75 :y 190.5 :z 197.75 :w 128.0) + :fog-dists + (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 205.0 :y 178.0 :z 175.5 :w 128.0) + :fog-dists + (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 48.0 :y 44.0 :z 64.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 8.0 :y 16.0 :z 32.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 16.0 :y 64.0 :z 60.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 819200.0 :y 2662400.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *snow-mood-lights-table*, type mood-lights-table -(define *snow-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.067 :y 0.25 :z 0.966) - :lgt-color - (new 'static 'vector :x 0.943 :y 0.88 :z 0.137 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.449 :y 0.35 :z 0.599 :w 1.0) - :shadow - (new 'static 'vector :x -0.066987306 :y 0.25000003 :z 0.9659258) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.259 :y 0.966) - :lgt-color - (new 'static 'vector :x 0.66 :y 0.436 :z 0.291 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.358 :y 0.575 :z 0.716 :w 1.0) - :shadow - (new 'static 'vector :x -0.25881904 :y 0.9659258) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.067 :y 0.25 :z -0.966) - :lgt-color - (new 'static 'vector :x 1.056 :y 0.747 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.383 :y 0.366 :z 0.599 :w 1.0) - :shadow - (new 'static 'vector :x -0.066987306 :y 0.25000003 :z -0.9659258) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :x 0.866 :y 0.5) - :lgt-color - (new 'static 'vector :x 0.067 :y 0.089 :z 0.333 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.304 :y 0.409 :z 0.76 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881907) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *snow-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.067 :y 0.25 :z 0.966) + :lgt-color + (new 'static 'vector :x 0.943 :y 0.88 :z 0.137 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.449 :y 0.35 :z 0.599 :w 1.0) + :shadow + (new 'static 'vector :x -0.066987306 :y 0.25000003 :z 0.9659258) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.259 :y 0.966) + :lgt-color + (new 'static 'vector :x 0.66 :y 0.436 :z 0.291 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.358 :y 0.575 :z 0.716 :w 1.0) + :shadow + (new 'static 'vector :x -0.25881904 :y 0.9659258) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.067 :y 0.25 :z -0.966) + :lgt-color + (new 'static 'vector :x 1.056 :y 0.747 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.383 :y 0.366 :z 0.599 :w 1.0) + :shadow + (new 'static 'vector :x -0.066987306 :y 0.25000003 :z -0.9659258) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :x 0.866 :y 0.5) + :lgt-color + (new 'static 'vector :x 0.067 :y 0.089 :z 0.333 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.304 :y 0.409 :z 0.76 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881907) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *snow-mood-lights-table* data)) - ) + (the-as mood-lights (-> *snow-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *snow-mood-lights-table* data 1)) (update-mood-shadow-direction (-> *snow-mood-lights-table* data 2)) (update-mood-shadow-direction (-> *snow-mood-lights-table* data 3)) (update-mood-erase-color - (the-as mood-fog (-> *snow-mood-fog-table* data)) - (the-as mood-lights (-> *snow-mood-lights-table* data)) - ) + (the-as mood-fog (-> *snow-mood-fog-table* data)) + (the-as mood-lights (-> *snow-mood-lights-table* data)) + ) (update-mood-erase-color - (-> *snow-mood-fog-table* data 2) - (-> *snow-mood-lights-table* data 1) - ) + (-> *snow-mood-fog-table* data 2) + (-> *snow-mood-lights-table* data 1) + ) (update-mood-erase-color - (-> *snow-mood-fog-table* data 4) - (-> *snow-mood-lights-table* data 2) - ) + (-> *snow-mood-fog-table* data 4) + (-> *snow-mood-lights-table* data 2) + ) (update-mood-erase-color - (-> *snow-mood-fog-table* data 6) - (-> *snow-mood-lights-table* data 3) - ) + (-> *snow-mood-fog-table* data 6) + (-> *snow-mood-lights-table* data 3) + ) (update-mood-erase-color2 - (-> *snow-mood-fog-table* data 1) - (the-as mood-lights (-> *snow-mood-lights-table* data)) - (-> *snow-mood-lights-table* data 1) - ) + (-> *snow-mood-fog-table* data 1) + (the-as mood-lights (-> *snow-mood-lights-table* data)) + (-> *snow-mood-lights-table* data 1) + ) (update-mood-erase-color2 - (-> *snow-mood-fog-table* data 3) - (-> *snow-mood-lights-table* data 1) - (-> *snow-mood-lights-table* data 2) - ) + (-> *snow-mood-fog-table* data 3) + (-> *snow-mood-lights-table* data 1) + (-> *snow-mood-lights-table* data 2) + ) (update-mood-erase-color2 - (-> *snow-mood-fog-table* data 5) - (-> *snow-mood-lights-table* data 2) - (-> *snow-mood-lights-table* data 3) - ) + (-> *snow-mood-fog-table* data 5) + (-> *snow-mood-lights-table* data 2) + (-> *snow-mood-lights-table* data 3) + ) (update-mood-erase-color2 - (-> *snow-mood-fog-table* data 7) - (-> *snow-mood-lights-table* data 3) - (the-as mood-lights (-> *snow-mood-lights-table* data)) - ) - + (-> *snow-mood-fog-table* data 7) + (-> *snow-mood-lights-table* data 3) + (the-as mood-lights (-> *snow-mood-lights-table* data)) + ) (vector4-lerp! - (-> *snow-mood-fog-table* data 0 erase-color) - (-> *snow-mood-fog-table* data 0 erase-color) - (the-as vector (-> *snow-mood-fog-table* data)) - 0.41 - ) + (-> *snow-mood-fog-table* data 0 erase-color) + (-> *snow-mood-fog-table* data 0 erase-color) + (the-as vector (-> *snow-mood-fog-table* data)) + 0.41 + ) (vector4-lerp! - (-> *snow-mood-fog-table* data 1 erase-color) - (-> *snow-mood-fog-table* data 1 erase-color) - (the-as vector (-> *snow-mood-fog-table* data 1)) - 0.41 - ) + (-> *snow-mood-fog-table* data 1 erase-color) + (-> *snow-mood-fog-table* data 1 erase-color) + (the-as vector (-> *snow-mood-fog-table* data 1)) + 0.41 + ) (vector4-lerp! - (-> *snow-mood-fog-table* data 2 erase-color) - (-> *snow-mood-fog-table* data 2 erase-color) - (the-as vector (-> *snow-mood-fog-table* data 2)) - 0.41 - ) + (-> *snow-mood-fog-table* data 2 erase-color) + (-> *snow-mood-fog-table* data 2 erase-color) + (the-as vector (-> *snow-mood-fog-table* data 2)) + 0.41 + ) (vector4-lerp! - (-> *snow-mood-fog-table* data 3 erase-color) - (-> *snow-mood-fog-table* data 3 erase-color) - (the-as vector (-> *snow-mood-fog-table* data 3)) - 0.41 - ) + (-> *snow-mood-fog-table* data 3 erase-color) + (-> *snow-mood-fog-table* data 3 erase-color) + (the-as vector (-> *snow-mood-fog-table* data 3)) + 0.41 + ) (vector4-lerp! - (-> *snow-mood-fog-table* data 4 erase-color) - (-> *snow-mood-fog-table* data 4 erase-color) - (the-as vector (-> *snow-mood-fog-table* data 4)) - 0.41 - ) + (-> *snow-mood-fog-table* data 4 erase-color) + (-> *snow-mood-fog-table* data 4 erase-color) + (the-as vector (-> *snow-mood-fog-table* data 4)) + 0.41 + ) (vector4-lerp! - (-> *snow-mood-fog-table* data 5 erase-color) - (-> *snow-mood-fog-table* data 5 erase-color) - (the-as vector (-> *snow-mood-fog-table* data 5)) - 0.41 - ) + (-> *snow-mood-fog-table* data 5 erase-color) + (-> *snow-mood-fog-table* data 5 erase-color) + (the-as vector (-> *snow-mood-fog-table* data 5)) + 0.41 + ) (vector4-lerp! - (-> *snow-mood-fog-table* data 6 erase-color) - (-> *snow-mood-fog-table* data 6 erase-color) - (the-as vector (-> *snow-mood-fog-table* data 6)) - 0.41 - ) + (-> *snow-mood-fog-table* data 6 erase-color) + (-> *snow-mood-fog-table* data 6 erase-color) + (the-as vector (-> *snow-mood-fog-table* data 6)) + 0.41 + ) (vector4-lerp! - (-> *snow-mood-fog-table* data 7 erase-color) - (-> *snow-mood-fog-table* data 7 erase-color) - (the-as vector (-> *snow-mood-fog-table* data 7)) - 0.41 - ) + (-> *snow-mood-fog-table* data 7 erase-color) + (-> *snow-mood-fog-table* data 7 erase-color) + (the-as vector (-> *snow-mood-fog-table* data 7)) + 0.41 + ) ;; definition for symbol *snow-mood-sun-table*, type mood-sun-table -(define *snow-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) - :env-color - (new 'static 'vector :x 192.0 :y 176.5 :z 96.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color (new 'static 'vector :w 128.0) - :env-color - (new 'static 'vector :x 128.0 :y 176.0 :z 192.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color (new 'static 'vector :w 128.0) - :env-color - (new 'static 'vector :x 128.0 :y 180.0 :z 194.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color (new 'static 'vector :w 128.0) - :env-color - (new 'static 'vector :x 128.0 :y 176.0 :z 192.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) - :env-color - (new 'static 'vector :x 192.0 :y 176.5 :z 96.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color (new 'static 'vector :w 128.0) - :env-color - (new 'static 'vector :x 80.0 :y 80.0 :z 173.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color (new 'static 'vector :w 128.0) - :env-color - (new 'static 'vector :x 64.0 :y 64.0 :z 150.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color (new 'static 'vector :w 128.0) - :env-color - (new 'static 'vector :x 64.0 :y 107.0 :z 173.0 :w 255.0) - ) - ) - ) +(define + *snow-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) + :env-color + (new 'static 'vector :x 192.0 :y 176.5 :z 96.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color (new 'static 'vector :w 128.0) + :env-color + (new 'static 'vector :x 128.0 :y 176.0 :z 192.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color (new 'static 'vector :w 128.0) + :env-color + (new 'static 'vector :x 128.0 :y 180.0 :z 194.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color (new 'static 'vector :w 128.0) + :env-color + (new 'static 'vector :x 128.0 :y 176.0 :z 192.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) + :env-color + (new 'static 'vector :x 192.0 :y 176.5 :z 96.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color (new 'static 'vector :w 128.0) + :env-color + (new 'static 'vector :x 80.0 :y 80.0 :z 173.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color (new 'static 'vector :w 128.0) + :env-color + (new 'static 'vector :x 64.0 :y 64.0 :z 150.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color (new 'static 'vector :w 128.0) + :env-color + (new 'static 'vector :x 64.0 :y 107.0 :z 173.0 :w 255.0) + ) + ) + ) ) ;; definition for symbol *jungleb-mood-fog-table*, type mood-fog-table -(define *jungleb-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 :w 128.0) - :fog-dists - (new 'static 'vector :x 98304.0 :y 3072000.0 :z 255.0 :w 150.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - ) - ) +(define + *jungleb-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 :w 128.0) + :fog-dists + (new 'static 'vector :x 98304.0 :y 3072000.0 :z 255.0 :w 150.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + ) + ) ) ;; definition for symbol *jungleb-mood-lights-table*, type mood-lights-table -(define *jungleb-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction (new 'static 'vector :y 1.0) - :lgt-color - (new 'static 'vector :x 0.287 :y 0.283 :z 0.4 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.14125 :y 0.1875 :z 0.375 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *jungleb-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction (new 'static 'vector :y 1.0) + :lgt-color + (new 'static 'vector :x 0.287 :y 0.283 :z 0.4 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.14125 :y 0.1875 :z 0.375 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) ;; definition for symbol *jungleb-mood-sun-table*, type mood-sun-table -(define *jungleb-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 48.0 :y 60.0 :z 96.0 :w 255.0) - ) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - ) - ) +(define + *jungleb-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 48.0 :y 60.0 :z 96.0 :w 255.0) + ) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + ) + ) ) ;; definition for symbol *maincave-mood-fog-table*, type mood-fog-table -(define *maincave-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 :y 96.0 :z 96.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 434176.0 :y 1048576.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - ) - ) +(define + *maincave-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 :y 96.0 :z 96.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 434176.0 :y 1048576.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + ) + ) ) ;; definition for symbol *maincave-mood-lights-table*, type mood-lights-table -(define *maincave-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction (new 'static 'vector :y 1.0) - :lgt-color - (new 'static 'vector :x 0.25 :y 0.6 :z 0.75 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.15 :y 0.2 :z 0.25 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *maincave-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction (new 'static 'vector :y 1.0) + :lgt-color + (new 'static 'vector :x 0.25 :y 0.6 :z 0.75 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.15 :y 0.2 :z 0.25 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) ;; definition for symbol *maincave-mood-sun-table*, type mood-sun-table -(define *maincave-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 128.0 :y 255.0 :z 255.0 :w 255.0) - ) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - ) - ) +(define + *maincave-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 128.0 :y 255.0 :z 255.0 :w 255.0) + ) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + ) + ) ) ;; definition for symbol *robocave-mood-fog-table*, type mood-fog-table -(define *robocave-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 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2048000.0 :z 255.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - ) - ) +(define + *robocave-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 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2048000.0 :z 255.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + ) + ) ) ;; definition for symbol *darkcave-mood-fog-table*, type mood-fog-table -(define *darkcave-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 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1024000.0 :z 255.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - ) - ) +(define + *darkcave-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 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1024000.0 :z 255.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + ) + ) ) ;; definition for symbol *darkcave-mood-lights-table*, type mood-lights-table -(define *darkcave-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction (new 'static 'vector :y -1.0) - :lgt-color - (new 'static 'vector :x 0.3 :y 0.4 :z 0.5 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.3 :y 0.4 :z 0.5 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *darkcave-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction (new 'static 'vector :y -1.0) + :lgt-color + (new 'static 'vector :x 0.3 :y 0.4 :z 0.5 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.3 :y 0.4 :z 0.5 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) ;; definition for symbol *darkcave-mood-sun-table*, type mood-sun-table -(define *darkcave-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 127.5 :y 255.0 :z 127.5 :w 255.0) - ) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - ) - ) +(define + *darkcave-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 127.5 :y 255.0 :z 127.5 :w 255.0) + ) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + ) + ) ) ;; definition for symbol *misty-mood-fog-table*, type mood-fog-table -(define *misty-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 186.0 :y 148.0 :z 164.0 :w 128.0) - :fog-dists - (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 132.0 :y 140.0 :z 227.0 :w 128.0) - :fog-dists - (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 132.0 :y 140.0 :z 243.0 :w 128.0) - :fog-dists - (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 132.0 :y 140.0 :z 241.0 :w 128.0) - :fog-dists - (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 186.0 :y 148.0 :z 164.0 :w 128.0) - :fog-dists - (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 64.0 :z 152.0 :w 128.0) - :fog-dists - (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 32.0 :z 96.0 :w 128.0) - :fog-dists - (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 17.0 :y 119.0 :z 143.0 :w 128.0) - :fog-dists - (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *misty-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 186.0 :y 148.0 :z 164.0 :w 128.0) + :fog-dists + (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 132.0 :y 140.0 :z 227.0 :w 128.0) + :fog-dists + (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 132.0 :y 140.0 :z 243.0 :w 128.0) + :fog-dists + (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 132.0 :y 140.0 :z 241.0 :w 128.0) + :fog-dists + (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 186.0 :y 148.0 :z 164.0 :w 128.0) + :fog-dists + (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 64.0 :z 152.0 :w 128.0) + :fog-dists + (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 32.0 :z 96.0 :w 128.0) + :fog-dists + (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 17.0 :y 119.0 :z 143.0 :w 128.0) + :fog-dists + (new 'static 'vector :y 737280.0 :z 255.0 :w 50.0) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *misty-mood-lights-table*, type mood-lights-table (define - *misty-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.877 :y 0.877 :z 0.877 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.374 :y 0.374 :z 0.375 :w 1.0) - :shadow - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.334 :y 0.348 :z 0.64 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.428 :y 0.44 :z 0.55 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) + *misty-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.877 :y 0.877 :z 0.877 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.374 :y 0.374 :z 0.375 :w 1.0) + :shadow + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.334 :y 0.348 :z 0.64 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.428 :y 0.44 :z 0.55 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *misty-mood-lights-table* data)) - ) + (the-as mood-lights (-> *misty-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *misty-mood-lights-table* data 1)) ;; definition for symbol *misty-mood-sun-table*, type mood-sun-table -(define *misty-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) - :env-color - (new 'static 'vector :x 186.0 :y 148.0 :z 164.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 132.0 :y 140.0 :z 227.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 132.0 :y 140.0 :z 243.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 132.0 :y 140.0 :z 241.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) - :env-color - (new 'static 'vector :x 186.0 :y 148.0 :z 164.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 32.0 :y 48.0 :z 160.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 32.0 :y 48.0 :z 150.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 32.0 :y 100.0 :z 160.0 :w 255.0) - ) - ) - ) +(define + *misty-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) + :env-color + (new 'static 'vector :x 186.0 :y 148.0 :z 164.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 132.0 :y 140.0 :z 227.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 132.0 :y 140.0 :z 243.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 132.0 :y 140.0 :z 241.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) + :env-color + (new 'static 'vector :x 186.0 :y 148.0 :z 164.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 32.0 :y 48.0 :z 160.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 32.0 :y 48.0 :z 150.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 32.0 :y 100.0 :z 160.0 :w 255.0) + ) + ) + ) ) ;; definition for symbol *village2-mood-fog-table*, type mood-fog-table -(define *village2-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 75.0 :y 82.0 :z 96.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 100.0 :y 102.0 :z 116.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 102.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 112.0 :y 114.0 :z 132.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 100.0 :y 102.0 :z 116.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 75.0 :y 82.0 :z 96.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 27.5 :y 40.0 :z 52.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 10.0 :y 23.0 :z 28.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 5.0 :y 35.0 :z 35.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *village2-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 75.0 :y 82.0 :z 96.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 100.0 :y 102.0 :z 116.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 102.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 112.0 :y 114.0 :z 132.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 100.0 :y 102.0 :z 116.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 75.0 :y 82.0 :z 96.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 27.5 :y 40.0 :z 52.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 10.0 :y 23.0 :z 28.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 5.0 :y 35.0 :z 35.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1843200.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *village2-mood-lights-table*, type mood-lights-table (define - *village2-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.793 :y 0.793 :z 0.793 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) - :shadow - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.173 :y 0.259 :z 0.432 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.463 :y 0.412 :z 0.55 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) - :lgt-color - (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color (new 'static 'vector :w 1.0) - :shadow - (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) - :lgt-color - (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color (new 'static 'vector :w 1.0) - :shadow - (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) + *village2-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.793 :y 0.793 :z 0.793 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) + :shadow + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.173 :y 0.259 :z 0.432 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.463 :y 0.412 :z 0.55 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) + :lgt-color + (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color (new 'static 'vector :w 1.0) + :shadow + (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) + :lgt-color + (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color (new 'static 'vector :w 1.0) + :shadow + (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *village2-mood-lights-table* data)) - ) + (the-as mood-lights (-> *village2-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *village2-mood-lights-table* data 1)) (update-mood-shadow-direction (-> *village2-mood-lights-table* data 2)) (update-mood-shadow-direction (-> *village2-mood-lights-table* data 3)) ;; definition for symbol *village2-mood-sun-table*, type mood-sun-table -(define *village2-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 128.0 :y 133.0 :z 194.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :y 32.0 :z 76.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 17.0 :y 76.0 :z 96.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 132.0 :y 131.0 :z 160.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 128.0 :y 126.0 :z 192.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 153.0 :y 141.0 :z 192.0 :w 255.0) - ) - ) - ) +(define + *village2-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 128.0 :y 133.0 :z 194.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :y 32.0 :z 76.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 17.0 :y 76.0 :z 96.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 132.0 :y 131.0 :z 160.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 128.0 :y 126.0 :z 192.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 153.0 :y 141.0 :z 192.0 :w 255.0) + ) + ) + ) ) ;; definition for symbol *swamp-mood-fog-table*, type mood-fog-table -(define *swamp-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 22.0 :y 89.0 :z 101.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 32.0 :y 105.0 :z 116.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 36.0 :y 118.0 :z 130.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 32.0 :y 105.0 :z 116.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 22.0 :y 89.0 :z 101.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 20.0 :y 60.0 :z 70.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 12.0 :y 42.0 :z 60.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 17.0 :y 76.0 :z 86.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *swamp-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 22.0 :y 89.0 :z 101.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 32.0 :y 105.0 :z 116.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 36.0 :y 118.0 :z 130.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 32.0 :y 105.0 :z 116.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 22.0 :y 89.0 :z 101.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 20.0 :y 60.0 :z 70.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 12.0 :y 42.0 :z 60.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 17.0 :y 76.0 :z 86.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 20480.0 :y 783360.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *swamp-mood-lights-table*, type mood-lights-table -(define *swamp-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.825 :y 0.825 :z 0.825 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) - :shadow - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.173 :y 0.259 :z 0.519 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.412 :y 0.463 :z 0.55 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.7094065 :y 0.57357645 :z -0.40957603) - :lgt-color - (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color (new 'static 'vector :w 1.0) - :shadow - (new 'static 'vector :x 0.7094065 :y 0.57357645 :z -0.40957603) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.7094065 :y 0.57357645 :z 0.40957603) - :lgt-color - (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color (new 'static 'vector :w 1.0) - :shadow - (new 'static 'vector :x -0.7094065 :y 0.57357645 :z 0.40957603) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *swamp-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.825 :y 0.825 :z 0.825 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) + :shadow + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.173 :y 0.259 :z 0.519 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.412 :y 0.463 :z 0.55 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.7094065 :y 0.57357645 :z -0.40957603) + :lgt-color + (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color (new 'static 'vector :w 1.0) + :shadow + (new 'static 'vector :x 0.7094065 :y 0.57357645 :z -0.40957603) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.7094065 :y 0.57357645 :z 0.40957603) + :lgt-color + (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color (new 'static 'vector :w 1.0) + :shadow + (new 'static 'vector :x -0.7094065 :y 0.57357645 :z 0.40957603) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *swamp-mood-lights-table* data)) - ) + (the-as mood-lights (-> *swamp-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *swamp-mood-lights-table* data 1)) (update-mood-shadow-direction (-> *swamp-mood-lights-table* data 2)) (update-mood-shadow-direction (-> *swamp-mood-lights-table* data 3)) ;; definition for symbol *swamp-mood-sun-table*, type mood-sun-table -(define *swamp-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 24.0 :y 133.0 :z 243.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :y 32.0 :z 96.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 17.0 :y 119.0 :z 143.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 132.0 :y 131.0 :z 200.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 87.0 :y 126.0 :z 227.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 153.0 :y 141.0 :z 240.0 :w 255.0) - ) - ) - ) +(define + *swamp-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 24.0 :y 133.0 :z 243.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :y 32.0 :z 96.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 17.0 :y 119.0 :z 143.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 132.0 :y 131.0 :z 200.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 87.0 :y 126.0 :z 227.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 153.0 :y 141.0 :z 240.0 :w 255.0) + ) + ) + ) ) ;; definition for symbol *sunken-mood-fog-table*, type mood-fog-table -(define *sunken-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 16.512 :y 26.112 :z 54.912 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1351680.0 :z 255.0) - :erase-color - (new 'static 'vector :x 16.512 :y 26.112 :z 54.912 :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 4.096 :y 15.744 :z 54.912 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1351680.0 :z 255.0) - :erase-color - (new 'static 'vector :x 4.096 :y 15.744 :z 54.912 :w 128.0) - ) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - ) - ) +(define + *sunken-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 16.512 :y 26.112 :z 54.912 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1351680.0 :z 255.0) + :erase-color + (new 'static 'vector :x 16.512 :y 26.112 :z 54.912 :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 4.096 :y 15.744 :z 54.912 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1351680.0 :z 255.0) + :erase-color + (new 'static 'vector :x 4.096 :y 15.744 :z 54.912 :w 128.0) + ) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + ) + ) ) ;; definition for symbol *sunken-mood-lights-table*, type mood-lights-table -(define *sunken-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction (new 'static 'vector :y 1.0) - :lgt-color - (new 'static 'vector :x 0.265 :y 0.387 :z 0.509 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y 1.0) - :lgt-color - (new 'static 'vector :x 0.172 :y 0.185 :z 0.298 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.463 :y 0.412 :z 0.55 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *sunken-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction (new 'static 'vector :y 1.0) + :lgt-color + (new 'static 'vector :x 0.265 :y 0.387 :z 0.509 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y 1.0) + :lgt-color + (new 'static 'vector :x 0.172 :y 0.185 :z 0.298 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.463 :y 0.412 :z 0.55 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *sunken-mood-lights-table* data)) - ) + (the-as mood-lights (-> *sunken-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *sunken-mood-lights-table* data 1)) ;; definition for symbol *sunken-mood-sun-table*, type mood-sun-table -(define *sunken-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 127.5 :y 191.25 :z 255.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 76.5 :y 102.0 :z 255.0 :w 255.0) - ) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - ) - ) +(define + *sunken-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 127.5 :y 191.25 :z 255.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 76.5 :y 102.0 :z 255.0 :w 255.0) + ) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + ) + ) ) ;; definition for symbol *rolling-mood-fog-table*, type mood-fog-table -(define *rolling-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 42.0 :y 50.0 :z 68.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 94.0 :y 106.0 :z 126.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 104.0 :y 116.0 :z 136.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 94.0 :y 106.0 :z 126.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 42.0 :y 50.0 :z 68.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 17.0 :y 26.0 :z 43.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *rolling-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 42.0 :y 50.0 :z 68.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 94.0 :y 106.0 :z 126.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 104.0 :y 116.0 :z 136.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 94.0 :y 106.0 :z 126.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 42.0 :y 50.0 :z 68.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 17.0 :y 26.0 :z 43.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *rolling-mood-lights-table*, type mood-lights-table -(define *rolling-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) - :lgt-color - (new 'static 'vector :x 0.922 :y 0.905 :z 0.873 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.346 :y 0.359 :z 0.384 :w 1.0) - :shadow - (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.24321035 :y 0.90767336 :z -0.34202015) - :lgt-color - (new 'static 'vector :x 0.914 :y 0.898 :z 0.866 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.346 :y 0.359 :z 0.384 :w 1.0) - :shadow - (new 'static 'vector :x -0.24321035 :y 0.90767336 :z -0.34202015) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.09 :y 0.135 :z 0.225 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.398 :y 0.398 :z 0.574 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.6262 :y 0.7098 :z 0.3222) - :lgt-color - (new 'static 'vector :x 0.0464 :y 0.1344 :z 0.1254 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.398 :y 0.398 :z 0.574 :w 1.0) - :shadow - (new 'static 'vector :x 0.6262 :y 0.7098 :z 0.3222) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *rolling-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) + :lgt-color + (new 'static 'vector :x 0.922 :y 0.905 :z 0.873 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.346 :y 0.359 :z 0.384 :w 1.0) + :shadow + (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.24321035 :y 0.90767336 :z -0.34202015) + :lgt-color + (new 'static 'vector :x 0.914 :y 0.898 :z 0.866 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.346 :y 0.359 :z 0.384 :w 1.0) + :shadow + (new 'static 'vector :x -0.24321035 :y 0.90767336 :z -0.34202015) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.09 :y 0.135 :z 0.225 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.398 :y 0.398 :z 0.574 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.6262 :y 0.7098 :z 0.3222) + :lgt-color + (new 'static 'vector :x 0.0464 :y 0.1344 :z 0.1254 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.398 :y 0.398 :z 0.574 :w 1.0) + :shadow + (new 'static 'vector :x 0.6262 :y 0.7098 :z 0.3222) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *rolling-mood-lights-table* data)) - ) + (the-as mood-lights (-> *rolling-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *rolling-mood-lights-table* data 1)) (update-mood-shadow-direction (-> *rolling-mood-lights-table* data 2)) (update-mood-shadow-direction (-> *rolling-mood-lights-table* data 3)) ;; definition for symbol *rolling-mood-sun-table*, type mood-sun-table -(define *rolling-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 128.0 :y 133.0 :z 194.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :y 32.0 :z 76.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 17.0 :y 76.0 :z 96.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 132.0 :y 131.0 :z 160.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 128.0 :y 126.0 :z 192.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 153.0 :y 141.0 :z 192.0 :w 255.0) - ) - ) - ) +(define + *rolling-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 128.0 :y 133.0 :z 194.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :y 32.0 :z 76.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 17.0 :y 76.0 :z 96.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 132.0 :y 131.0 :z 160.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 128.0 :y 126.0 :z 192.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 153.0 :y 141.0 :z 192.0 :w 255.0) + ) + ) + ) ) ;; definition for symbol *firecanyon-mood-fog-table*, type mood-fog-table -(define *firecanyon-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 180.0 :y 113.0 :z 80.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 180.0 :y 113.0 :z 80.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 180.0 :y 113.0 :z 80.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 180.0 :y 113.0 :z 80.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 180.0 :y 113.0 :z 80.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 140.0 :y 64.5 :z 60.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 128.0 :y 44.0 :z 40.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 140.0 :y 50.0 :z 60.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *firecanyon-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 180.0 :y 113.0 :z 80.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 180.0 :y 113.0 :z 80.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 180.0 :y 113.0 :z 80.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 180.0 :y 113.0 :z 80.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 180.0 :y 113.0 :z 80.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 140.0 :y 64.5 :z 60.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 128.0 :y 44.0 :z 40.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 140.0 :y 50.0 :z 60.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 131072.0 :y 2048000.0 :z 255.0 :w 119.0) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *firecanyon-mood-lights-table*, type mood-lights-table -(define *firecanyon-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.0278 :y 0.6578 :z 0.7526) - :lgt-color - (new 'static 'vector :x 1.0979 :y 1.0567 :z 0.4653 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.574 :y 0.32 :z 0.487 :w 1.0) - :shadow - (new 'static 'vector :x -0.0278 :y 0.6578 :z 0.7526) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.25881904 :y 0.9659258) - :lgt-color - (new 'static 'vector :x 1.644 :y 1.598 :z 1.438 :w 128.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.368 :y 0.368 :z 0.4 :w 1.0) - :shadow - (new 'static 'vector :x -0.25881904 :y 0.9659258) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.0353 :y 0.8338 :z -0.5508 :w 1.0) - :lgt-color - (new 'static 'vector :x 1.1419 :y 0.8887 :z 0.3513 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.347 :y 0.362 :z 0.487 :w 1.0) - :shadow - (new 'static 'vector :x -0.0353 :y 0.8338 :z -0.5508 :w 1.0) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.8365 :y 0.4829 :z 0.2588) - :lgt-color - (new 'static 'vector :x 0.1824 :y 0.2574 :z 0.6964 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.434 :y 0.423 :z 0.625 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365 :y 0.4829 :z 0.2588) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y -1.0) - :lgt-color - (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *firecanyon-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.0278 :y 0.6578 :z 0.7526) + :lgt-color + (new 'static 'vector :x 1.0979 :y 1.0567 :z 0.4653 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.574 :y 0.32 :z 0.487 :w 1.0) + :shadow + (new 'static 'vector :x -0.0278 :y 0.6578 :z 0.7526) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.25881904 :y 0.9659258) + :lgt-color + (new 'static 'vector :x 1.644 :y 1.598 :z 1.438 :w 128.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.368 :y 0.368 :z 0.4 :w 1.0) + :shadow + (new 'static 'vector :x -0.25881904 :y 0.9659258) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.0353 :y 0.8338 :z -0.5508 :w 1.0) + :lgt-color + (new 'static 'vector :x 1.1419 :y 0.8887 :z 0.3513 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.347 :y 0.362 :z 0.487 :w 1.0) + :shadow + (new 'static 'vector :x -0.0353 :y 0.8338 :z -0.5508 :w 1.0) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.8365 :y 0.4829 :z 0.2588) + :lgt-color + (new 'static 'vector :x 0.1824 :y 0.2574 :z 0.6964 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.434 :y 0.423 :z 0.625 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365 :y 0.4829 :z 0.2588) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y -1.0) + :lgt-color + (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *firecanyon-mood-lights-table* data)) - ) + (the-as mood-lights (-> *firecanyon-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *firecanyon-mood-lights-table* data 1)) (update-mood-shadow-direction (-> *firecanyon-mood-lights-table* data 2)) (update-mood-shadow-direction (-> *firecanyon-mood-lights-table* data 3)) ;; definition for symbol *firecanyon-mood-sun-table*, type mood-sun-table -(define *firecanyon-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 200.0 :y 200.0 :z 128.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 200.0 :y 200.0 :z 200.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 200.0 :y 200.0 :z 200.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 196.0 :z 64.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 96.0 :y 96.0 :z 150.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 64.0 :y 64.0 :z 150.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 96.0 :y 200.0 :z 150.0 :w 255.0) - ) - ) - ) +(define + *firecanyon-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 200.0 :y 200.0 :z 128.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 200.0 :y 200.0 :z 200.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 200.0 :y 200.0 :z 200.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 196.0 :z 64.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 96.0 :y 96.0 :z 150.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 64.0 :y 64.0 :z 150.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 96.0 :y 200.0 :z 150.0 :w 255.0) + ) + ) + ) ) ;; definition for symbol *ogre-mood-fog-table*, type mood-fog-table -(define *ogre-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 64.0 :y 68.0 :z 68.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 64.0 :y 68.0 :z 68.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 18.0 :z 18.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *ogre-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 64.0 :y 68.0 :z 68.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 64.0 :y 68.0 :z 68.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 18.0 :z 18.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *ogre-mood-lights-table*, type mood-lights-table -(define *ogre-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) - :lgt-color - (new 'static 'vector :x 1.154 :y 1.132 :z 1.093 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.346 :y 0.359 :z 0.384 :w 1.0) - :shadow - (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.24321035 :y 0.90767336 :z -0.34202015) - :lgt-color - (new 'static 'vector :x 1.144 :y 1.124 :z 0.939 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.346 :y 0.359 :z 0.384 :w 1.0) - :shadow - (new 'static 'vector :x -0.24321035 :y 0.90767336 :z -0.34202015) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.113 :y 0.169 :z 0.282 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.398 :y 0.398 :z 0.574 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.6262 :y 0.7098 :z 0.3222) - :lgt-color - (new 'static 'vector :x 0.058 :y 0.168 :z 0.157 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.398 :y 0.398 :z 0.574 :w 1.0) - :shadow - (new 'static 'vector :x 0.6262 :y 0.7098 :z 0.3222) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) - :lgt-color - (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color (new 'static 'vector :w 1.0) - :shadow - (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) - :lgt-color - (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color (new 'static 'vector :w 1.0) - :shadow - (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *ogre-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) + :lgt-color + (new 'static 'vector :x 1.154 :y 1.132 :z 1.093 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.346 :y 0.359 :z 0.384 :w 1.0) + :shadow + (new 'static 'vector :x -0.1830127 :y 0.6830127 :z 0.70710677) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.24321035 :y 0.90767336 :z -0.34202015) + :lgt-color + (new 'static 'vector :x 1.144 :y 1.124 :z 0.939 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.346 :y 0.359 :z 0.384 :w 1.0) + :shadow + (new 'static 'vector :x -0.24321035 :y 0.90767336 :z -0.34202015) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.113 :y 0.169 :z 0.282 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.398 :y 0.398 :z 0.574 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.6262 :y 0.7098 :z 0.3222) + :lgt-color + (new 'static 'vector :x 0.058 :y 0.168 :z 0.157 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.398 :y 0.398 :z 0.574 :w 1.0) + :shadow + (new 'static 'vector :x 0.6262 :y 0.7098 :z 0.3222) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) + :lgt-color + (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color (new 'static 'vector :w 1.0) + :shadow + (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) + :lgt-color + (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color (new 'static 'vector :w 1.0) + :shadow + (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *ogre-mood-lights-table* data)) - ) + (the-as mood-lights (-> *ogre-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *ogre-mood-lights-table* data 1)) (update-mood-shadow-direction (-> *ogre-mood-lights-table* data 2)) (update-mood-shadow-direction (-> *ogre-mood-lights-table* data 3)) @@ -2881,83 +2909,83 @@ (update-mood-shadow-direction (-> *ogre-mood-lights-table* data 5)) ;; definition for symbol *ogre2-mood-lights-table*, type mood-lights-table -(define *ogre2-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.793 :y 0.793 :z 0.793 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) - :shadow - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.793 :y 0.793 :z 0.793 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) - :shadow - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.173 :y 0.259 :z 0.432 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.463 :y 0.412 :z 0.55 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - :lgt-color - (new 'static 'vector :x 0.173 :y 0.259 :z 0.432 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.463 :y 0.412 :z 0.55 :w 1.0) - :shadow - (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) - :lgt-color - (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color (new 'static 'vector :w 1.0) - :shadow - (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) - :lgt-color - (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color (new 'static 'vector :w 1.0) - :shadow - (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *ogre2-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.793 :y 0.793 :z 0.793 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) + :shadow + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.793 :y 0.793 :z 0.793 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.374 :y 0.374 :z 0.374 :w 1.0) + :shadow + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.173 :y 0.259 :z 0.432 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.463 :y 0.412 :z 0.55 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + :lgt-color + (new 'static 'vector :x 0.173 :y 0.259 :z 0.432 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.463 :y 0.412 :z 0.55 :w 1.0) + :shadow + (new 'static 'vector :x 0.8365163 :y 0.4829629 :z 0.25881904) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) + :lgt-color + (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color (new 'static 'vector :w 1.0) + :shadow + (new 'static 'vector :x 0.40957603 :y 0.57357645 :z 0.7094065) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) + :lgt-color + (new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color (new 'static 'vector :w 1.0) + :shadow + (new 'static 'vector :x -0.40957603 :y 0.57357645 :z -0.7094065) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) - (update-mood-shadow-direction - (the-as mood-lights (-> *ogre2-mood-lights-table* data)) - ) + (the-as mood-lights (-> *ogre2-mood-lights-table* data)) + ) (update-mood-shadow-direction (-> *ogre2-mood-lights-table* data 1)) (update-mood-shadow-direction (-> *ogre2-mood-lights-table* data 2)) (update-mood-shadow-direction (-> *ogre2-mood-lights-table* data 3)) @@ -2965,561 +2993,569 @@ (update-mood-shadow-direction (-> *ogre2-mood-lights-table* data 5)) ;; definition for symbol *ogre3-mood-fog-table*, type mood-fog-table -(define *ogre3-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 255.0 :y 96.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 393216.0 :y 7458816.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - ) - ) +(define + *ogre3-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 255.0 :y 96.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 393216.0 :y 7458816.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + ) + ) ) ;; definition for symbol *ogre3-mood-lights-table*, type mood-lights-table -(define *ogre3-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction (new 'static 'vector :y 0.666 :z 0.745) - :lgt-color - (new 'static 'vector :x 0.6 :y 0.51 :z 0.51 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.313 :y 0.375 :z 0.375 :w 1.0) - :shadow - (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *ogre3-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction (new 'static 'vector :y 0.666 :z 0.745) + :lgt-color + (new 'static 'vector :x 0.6 :y 0.51 :z 0.51 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.313 :y 0.375 :z 0.375 :w 1.0) + :shadow + (new 'static 'vector :x -0.25 :y 0.9330127 :z 0.25881904) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) + ) +(update-mood-shadow-direction + (the-as mood-lights (-> *ogre3-mood-lights-table* data)) ) -(update-mood-shadow-direction - (the-as mood-lights (-> *ogre3-mood-lights-table* data)) - ) - ;; definition for symbol *village3-mood-fog-table*, type mood-fog-table -(define *village3-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 64.0 :y 68.0 :z 68.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 64.0 :y 68.0 :z 68.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 18.0 :z 18.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *village3-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 64.0 :y 68.0 :z 68.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 74.0 :y 86.0 :z 106.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 64.0 :y 68.0 :z 68.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 12.0 :z 18.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 18.0 :z 18.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2236416.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) ) ;; definition for symbol *village3-mood-lights-table*, type mood-lights-table -(define *village3-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.067 :y 0.25 :z 0.966) - :lgt-color (new 'static 'vector :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.449 :y 0.35 :z 0.599 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.259 :y 0.966) - :lgt-color - (new 'static 'vector :x 0.66 :y 0.436 :z 0.291 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.358 :y 0.575 :z 0.716 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction - (new 'static 'vector :x -0.067 :y 0.25 :z -0.966) - :lgt-color - (new 'static 'vector :x 1.056 :y 0.747 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.383 :y 0.366 :z 0.599 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :x 0.866 :y 0.5) - :lgt-color - (new 'static 'vector :x 0.067 :y 0.089 :z 0.333 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.304 :y 0.409 :z 0.76 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *village3-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.067 :y 0.25 :z 0.966) + :lgt-color (new 'static 'vector :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.449 :y 0.35 :z 0.599 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.259 :y 0.966) + :lgt-color + (new 'static 'vector :x 0.66 :y 0.436 :z 0.291 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.358 :y 0.575 :z 0.716 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction + (new 'static 'vector :x -0.067 :y 0.25 :z -0.966) + :lgt-color + (new 'static 'vector :x 1.056 :y 0.747 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.383 :y 0.366 :z 0.599 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :x 0.866 :y 0.5) + :lgt-color + (new 'static 'vector :x 0.067 :y 0.089 :z 0.333 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.304 :y 0.409 :z 0.76 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) ;; definition for symbol *lavatube-mood-fog-table*, type mood-fog-table -(define *lavatube-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 255.0 :y 96.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 1851392.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - ) - ) +(define + *lavatube-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 255.0 :y 96.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 1851392.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + ) + ) ) ;; definition for symbol *lavatube-mood-lights-table*, type mood-lights-table -(define *lavatube-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction (new 'static 'vector :y 1.0) - :lgt-color - (new 'static 'vector :x 0.19 :y 0.128 :z 0.128 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.31 :y 0.372 :z 0.372 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y -1.0) - :lgt-color - (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y -1.0) - :lgt-color - (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y -1.0) - :lgt-color - (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y -1.0) - :lgt-color - (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y -1.0) - :lgt-color - (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y -1.0) - :lgt-color - (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights - :direction (new 'static 'vector :y -1.0) - :lgt-color - (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - ) - ) +(define + *lavatube-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction (new 'static 'vector :y 1.0) + :lgt-color + (new 'static 'vector :x 0.19 :y 0.128 :z 0.128 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.31 :y 0.372 :z 0.372 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y -1.0) + :lgt-color + (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y -1.0) + :lgt-color + (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y -1.0) + :lgt-color + (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y -1.0) + :lgt-color + (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y -1.0) + :lgt-color + (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y -1.0) + :lgt-color + (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights + :direction (new 'static 'vector :y -1.0) + :lgt-color + (new 'static 'vector :x 1.0 :y 0.364 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + ) + ) + ) +(update-mood-shadow-direction + (the-as mood-lights (-> *lavatube-mood-lights-table* data)) ) -(update-mood-shadow-direction - (the-as mood-lights (-> *lavatube-mood-lights-table* data)) - ) - ;; definition for symbol *lavatube-mood-sun-table*, type mood-sun-table -(define *lavatube-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 175.0 :z 128.0 :w 255.0) - ) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - ) - ) +(define + *lavatube-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 175.0 :z 128.0 :w 255.0) + ) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + ) + ) ) ;; definition for symbol *finalboss-mood-sun-table*, type mood-sun-table -(define *finalboss-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 109.0 :y 64.0 :z 160.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) - :env-color - (new 'static 'vector :x 255.0 :y 196.0 :z 64.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 96.0 :y 96.0 :z 196.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 64.0 :y 64.0 :z 150.0 :w 255.0) - ) - (new 'static 'mood-sun - :sun-color - (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) - :env-color - (new 'static 'vector :x 64.0 :y 150.0 :z 196.0 :w 255.0) - ) - ) - ) +(define + *finalboss-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 109.0 :y 64.0 :z 160.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 128.0 :w 128.0) + :env-color + (new 'static 'vector :x 255.0 :y 196.0 :z 64.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 96.0 :y 96.0 :z 196.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 64.0 :y 64.0 :z 150.0 :w 255.0) + ) + (new 'static 'mood-sun + :sun-color + (new 'static 'vector :x 255.0 :y 225.0 :z 96.0 :w 128.0) + :env-color + (new 'static 'vector :x 64.0 :y 150.0 :z 196.0 :w 255.0) + ) + ) + ) ) ;; definition for symbol *finalboss-mood-fog-table*, type mood-fog-table -(define *finalboss-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 262144.0 :y 22528000.0 :z 255.0 :w 25.5) - :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 22528000.0 :z 255.0 :w 25.5) - :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 262144.0 :y 22528000.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :x 45.0 :z 96.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 909312.0 :y 1912832.0 :z 255.0 :w 25.5) - :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 262144.0 :y 22528000.0 :z 255.0 :w 25.5) - :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 262144.0 :y 22528000.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color (new 'static 'vector :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 22528000.0 :z 255.0 :w 51.0) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog - :fog-color - (new 'static 'vector :y 80.0 :z 64.0 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 22528000.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - ) - ) +(define + *finalboss-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 262144.0 :y 22528000.0 :z 255.0 :w 25.5) + :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 22528000.0 :z 255.0 :w 25.5) + :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 262144.0 :y 22528000.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :x 45.0 :z 96.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 909312.0 :y 1912832.0 :z 255.0 :w 25.5) + :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 262144.0 :y 22528000.0 :z 255.0 :w 25.5) + :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 262144.0 :y 22528000.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color (new 'static 'vector :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 22528000.0 :z 255.0 :w 51.0) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog + :fog-color + (new 'static 'vector :y 80.0 :z 64.0 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 22528000.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + ) + ) + ) +(update-mood-erase-color + (the-as mood-fog (-> *finalboss-mood-fog-table* data)) + (the-as mood-lights (-> *village1-mood-lights-table* data)) + ) +(update-mood-erase-color + (-> *finalboss-mood-fog-table* data 1) + (-> *village1-mood-lights-table* data 1) + ) +(update-mood-erase-color + (-> *finalboss-mood-fog-table* data 2) + (-> *village1-mood-lights-table* data 2) + ) +(update-mood-erase-color + (-> *finalboss-mood-fog-table* data 3) + (-> *village1-mood-lights-table* data 3) + ) +(update-mood-erase-color + (-> *finalboss-mood-fog-table* data 4) + (-> *village1-mood-lights-table* data 4) + ) +(update-mood-erase-color + (-> *finalboss-mood-fog-table* data 6) + (-> *village1-mood-lights-table* data 6) + ) +(update-mood-erase-color + (-> *finalboss-mood-fog-table* data 7) + (-> *village1-mood-lights-table* data 7) + ) +(vector4-lerp! + (-> *finalboss-mood-fog-table* data 5 erase-color) + (-> *finalboss-mood-fog-table* data 4 erase-color) + (-> *finalboss-mood-fog-table* data 6 erase-color) + 0.5 + ) +(vector4-lerp! + (-> *finalboss-mood-fog-table* data 0 erase-color) + (-> *finalboss-mood-fog-table* data 0 erase-color) + (the-as vector (-> *finalboss-mood-fog-table* data)) + 0.41 + ) +(vector4-lerp! + (-> *finalboss-mood-fog-table* data 1 erase-color) + (-> *finalboss-mood-fog-table* data 1 erase-color) + (the-as vector (-> *finalboss-mood-fog-table* data 1)) + 0.41 + ) +(vector4-lerp! + (-> *finalboss-mood-fog-table* data 2 erase-color) + (-> *finalboss-mood-fog-table* data 2 erase-color) + (the-as vector (-> *finalboss-mood-fog-table* data 2)) + 0.41 + ) +(vector4-lerp! + (-> *finalboss-mood-fog-table* data 3 erase-color) + (-> *finalboss-mood-fog-table* data 3 erase-color) + (the-as vector (-> *finalboss-mood-fog-table* data 3)) + 1.0 + ) +(vector4-lerp! + (-> *finalboss-mood-fog-table* data 4 erase-color) + (-> *finalboss-mood-fog-table* data 4 erase-color) + (the-as vector (-> *finalboss-mood-fog-table* data 4)) + 0.41 + ) +(vector4-lerp! + (-> *finalboss-mood-fog-table* data 5 erase-color) + (-> *finalboss-mood-fog-table* data 5 erase-color) + (the-as vector (-> *finalboss-mood-fog-table* data 5)) + 0.41 + ) +(vector4-lerp! + (-> *finalboss-mood-fog-table* data 6 erase-color) + (-> *finalboss-mood-fog-table* data 6 erase-color) + (the-as vector (-> *finalboss-mood-fog-table* data 6)) + 0.41 + ) +(vector4-lerp! + (-> *finalboss-mood-fog-table* data 7 erase-color) + (-> *finalboss-mood-fog-table* data 7 erase-color) + (the-as vector (-> *finalboss-mood-fog-table* data 7)) + 0.41 ) -(update-mood-erase-color - (the-as mood-fog (-> *finalboss-mood-fog-table* data)) - (the-as mood-lights (-> *village1-mood-lights-table* data)) - ) -(update-mood-erase-color - (-> *finalboss-mood-fog-table* data 1) - (-> *village1-mood-lights-table* data 1) - ) -(update-mood-erase-color - (-> *finalboss-mood-fog-table* data 2) - (-> *village1-mood-lights-table* data 2) - ) -(update-mood-erase-color - (-> *finalboss-mood-fog-table* data 3) - (-> *village1-mood-lights-table* data 3) - ) -(update-mood-erase-color - (-> *finalboss-mood-fog-table* data 4) - (-> *village1-mood-lights-table* data 4) - ) -(update-mood-erase-color - (-> *finalboss-mood-fog-table* data 6) - (-> *village1-mood-lights-table* data 6) - ) -(update-mood-erase-color - (-> *finalboss-mood-fog-table* data 7) - (-> *village1-mood-lights-table* data 7) - ) - -(vector4-lerp! - (-> *finalboss-mood-fog-table* data 5 erase-color) - (-> *finalboss-mood-fog-table* data 4 erase-color) - (-> *finalboss-mood-fog-table* data 6 erase-color) - 0.5 - ) -(vector4-lerp! - (-> *finalboss-mood-fog-table* data 0 erase-color) - (-> *finalboss-mood-fog-table* data 0 erase-color) - (the-as vector (-> *finalboss-mood-fog-table* data)) - 0.41 - ) -(vector4-lerp! - (-> *finalboss-mood-fog-table* data 1 erase-color) - (-> *finalboss-mood-fog-table* data 1 erase-color) - (the-as vector (-> *finalboss-mood-fog-table* data 1)) - 0.41 - ) -(vector4-lerp! - (-> *finalboss-mood-fog-table* data 2 erase-color) - (-> *finalboss-mood-fog-table* data 2 erase-color) - (the-as vector (-> *finalboss-mood-fog-table* data 2)) - 0.41 - ) -(vector4-lerp! - (-> *finalboss-mood-fog-table* data 3 erase-color) - (-> *finalboss-mood-fog-table* data 3 erase-color) - (the-as vector (-> *finalboss-mood-fog-table* data 3)) - 1.0 - ) -(vector4-lerp! - (-> *finalboss-mood-fog-table* data 4 erase-color) - (-> *finalboss-mood-fog-table* data 4 erase-color) - (the-as vector (-> *finalboss-mood-fog-table* data 4)) - 0.41 - ) -(vector4-lerp! - (-> *finalboss-mood-fog-table* data 5 erase-color) - (-> *finalboss-mood-fog-table* data 5 erase-color) - (the-as vector (-> *finalboss-mood-fog-table* data 5)) - 0.41 - ) -(vector4-lerp! - (-> *finalboss-mood-fog-table* data 6 erase-color) - (-> *finalboss-mood-fog-table* data 6 erase-color) - (the-as vector (-> *finalboss-mood-fog-table* data 6)) - 0.41 - ) -(vector4-lerp! - (-> *finalboss-mood-fog-table* data 7 erase-color) - (-> *finalboss-mood-fog-table* data 7 erase-color) - (the-as vector (-> *finalboss-mood-fog-table* data 7)) - 0.41 - ) - ;; definition for symbol *citadel-mood-fog-table*, type mood-fog-table -(define *citadel-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 :w 128.0) - :fog-dists - (new 'static 'vector :x 262144.0 :y 2252800.0 :z 255.0 :w 25.5) - :erase-color (new 'static 'vector :w 128.0) - ) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - (new 'static 'mood-fog) - ) - ) +(define + *citadel-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 :w 128.0) + :fog-dists + (new 'static 'vector :x 262144.0 :y 2252800.0 :z 255.0 :w 25.5) + :erase-color (new 'static 'vector :w 128.0) + ) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + (new 'static 'mood-fog) + ) + ) ) ;; definition for symbol *citadel-mood-lights-table*, type mood-lights-table -(define *citadel-mood-lights-table* - (new 'static 'mood-lights-table - :data - (new 'static 'inline-array mood-lights 8 - (new 'static 'mood-lights - :direction (new 'static 'vector :y 1.0) - :lgt-color - (new 'static 'vector :x 0.75 :y 0.725 :z 0.5 :w 1.0) - :prt-color (new 'static 'vector :w 1.0) - :amb-color - (new 'static 'vector :x 0.3 :y 0.3 :z 0.3 :w 1.0) - :shadow (new 'static 'vector :y -1.0) - ) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - (new 'static 'mood-lights) - ) - ) +(define + *citadel-mood-lights-table* + (new 'static 'mood-lights-table + :data + (new 'static 'inline-array mood-lights 8 + (new 'static 'mood-lights + :direction (new 'static 'vector :y 1.0) + :lgt-color + (new 'static 'vector :x 0.75 :y 0.725 :z 0.5 :w 1.0) + :prt-color (new 'static 'vector :w 1.0) + :amb-color + (new 'static 'vector :x 0.3 :y 0.3 :z 0.3 :w 1.0) + :shadow (new 'static 'vector :y -1.0) + ) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + (new 'static 'mood-lights) + ) + ) ) ;; definition for symbol *citadel-mood-sun-table*, type mood-sun-table -(define *citadel-mood-sun-table* - (new 'static 'mood-sun-table - :data - (new 'static 'inline-array mood-sun 8 - (new 'static 'mood-sun - :sun-color (new 'static 'vector :w 128.0) - :env-color - (new 'static 'vector :x 96.0 :y 96.0 :z 96.0 :w 255.0) - ) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - (new 'static 'mood-sun) - ) - ) +(define + *citadel-mood-sun-table* + (new 'static 'mood-sun-table + :data + (new 'static 'inline-array mood-sun 8 + (new 'static 'mood-sun + :sun-color (new 'static 'vector :w 128.0) + :env-color + (new 'static 'vector :x 96.0 :y 96.0 :z 96.0 :w 255.0) + ) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + (new 'static 'mood-sun) + ) + ) ) ;; definition for symbol *default-mood*, type mood-context @@ -3778,3 +3814,6 @@ (set! (-> *citadel-mood* sky-texture-interp) *default-interp-table*) (set! (-> *citadel-mood* num-stars) 0.0) + + + diff --git a/goal_src/engine/ambient/mood.gc b/goal_src/engine/ambient/mood.gc index 132f4c878c..04bdd748f7 100644 --- a/goal_src/engine/ambient/mood.gc +++ b/goal_src/engine/ambient/mood.gc @@ -5,10 +5,6 @@ ;; name in dgo: mood ;; dgos: GAME, ENGINE -;; TODO -(define-extern update-mood-lightning (function mood-context int int int int float symbol none)) -(define-extern update-mood-lava (function mood-context float int symbol none)) - ;; definition for function clear-mood-times (defun clear-mood-times ((arg0 mood-context)) (dotimes (v1-0 8) @@ -138,13 +134,13 @@ (.ppach v1-2 a1-1 v1-1) (.mov r0-2 f31-0) (.ppach a1-2 a3-1 a2-1) - (set! (-> arg0 itimes 0 quad) (the-as uint128 v1-2)) + (set! (-> arg0 itimes 0 quad) v1-2) (.ppach v1-3 t1-1 t0-1) - (set! (-> arg0 itimes 1 quad) (the-as uint128 a1-2)) + (set! (-> arg0 itimes 1 quad) a1-2) (.ppach a1-3 t3-1 t2-1) - (set! (-> arg0 itimes 2 quad) (the-as uint128 v1-3)) + (set! (-> arg0 itimes 2 quad) v1-3) (nop!) - (set! (-> arg0 itimes 3 quad) (the-as uint128 a1-3)) + (set! (-> arg0 itimes 3 quad) a1-3) 0 (none) ) @@ -966,11 +962,11 @@ ;; definition for symbol *lightning-index*, type int (define *lightning-index* 0) -;; definition for symbol *lightning-time*, type float -(define *lightning-time* (the-as float 0)) +;; definition for symbol *lightning-time*, type int +(define *lightning-time* 0) -;; definition for symbol *lightning-time2*, type float -(define *lightning-time2* (the-as float 0)) +;; definition for symbol *lightning-time2*, type int +(define *lightning-time2* 0) ;; definition for symbol *lightning-frame-done*, type symbol (define *lightning-frame-done* #f) @@ -1011,7 +1007,219 @@ ) ;; definition for function update-mood-lightning -;; ERROR: function was not converted to expressions. Cannot decompile. +;; INFO: Return type mismatch symbol vs none. +;; Used lq/sq +(defun + update-mood-lightning + ((arg0 mood-context) + (arg1 int) + (arg2 int) + (arg3 int) + (arg4 int) + (arg5 float) + (arg6 symbol) + ) + (local-vars (a3-2 (array float))) + (with-pp + (set! (-> arg0 light-group 0 dir2 levels x) 0.0) + (let* ((s4-0 (&-> arg0 state arg3)) + (a1-1 (+ *lightning-index* arg1)) + (v1-3 (+ *lightning-index* arg4)) + (a3-1 (-> s4-0 0)) + (a2-2 (/ *lightning-time* 2)) + ) + (cond + ((zero? *lightning-time2*) + (cond + ((zero? a3-1) + (set! a3-2 *flash0*) + ) + ((= a3-1 1) + (set! a3-2 *flash1*) + ) + ((= a3-1 2) + (set! a3-2 *flash2*) + ) + ((= a3-1 3) + (set! a3-2 *flash3*) + ) + ((= a3-1 4) + (set! a3-2 *flash4*) + ) + ((= a3-1 5) + (set! a3-2 *flash5*) + ) + ((= a3-1 6) + (set! a3-2 *flash6*) + ) + (else + (set! a3-2 *flash7*) + ) + ) + (cond + ((< a2-2 (-> a3-2 length)) + (let ((f0-1 (-> a3-2 a2-2))) + (set! (-> arg0 sky-times a1-1) f0-1) + (when (not arg6) + (set! (-> arg0 times v1-3 w) f0-1) + (when (not *lightning-realtime-done*) + (let* ((a1-11 (-> arg0 mood-lights-table data v1-3)) + (v1-6 (-> arg0 light-group 0 dir2)) + (f1-4 + (* + (+ + (* 2.0 (-> a1-11 lgt-color x)) + (* 4.0 (-> a1-11 lgt-color y)) + (-> a1-11 lgt-color z) + ) + f0-1 + ) + ) + ) + (set! (-> v1-6 direction quad) (-> a1-11 direction quad)) + (set! (-> v1-6 color quad) (-> a1-11 lgt-color quad)) + (set! (-> v1-6 levels x) f0-1) + (set! (-> v1-6 levels y) f1-4) + ) + (set! *lightning-realtime-done* #t) + ) + ) + ) + (if (not (or (paused?) *lightning-frame-done*)) + (set! *lightning-time* (+ *lightning-time* 1)) + ) + ) + (arg6 + (set! *lightning-time2* (the int (rand-vu-float-range 360.0 960.0))) + ) + (else + (set! *lightning-time2* (the int (rand-vu-float-range 180.0 480.0))) + ) + ) + ) + (else + (when (not (or (paused?) *lightning-frame-done*)) + (set! *lightning-time2* (+ *lightning-time2* -1)) + (when (zero? *lightning-time2*) + (set! *lightning-index* (mod (+ *lightning-index* 1) arg2)) + (set! (-> s4-0 0) (logand (rand-uint31-gen *random-generator*) 7)) + (set! *lightning-time* 0) + (let ((v1-24 *thunder-count*)) + (cond + ((zero? v1-24) + (set! *thunder-id* *thunder-id0*) + (set! *thunder-count* 1) + ) + ((= v1-24 1) + (set! *thunder-id* *thunder-id1*) + (set! *thunder-count* 2) + ) + (else + (set! *thunder-id* *thunder-id2*) + (set! *thunder-count* 0) + 0 + ) + ) + ) + (when (>= (-> *math-camera* trans y) -81920.0) + (if arg6 + (sound-play-by-name + (static-sound-name "thunder") + *thunder-id* + (the int (* 10.24 (rand-vu-float-range 25.0 75.0))) + (the int (* 1524.0 (rand-vu-float-range -1.0 1.0))) + 0 + (the-as uint 1) + (the-as vector #t) + ) + (sound-play-by-name + (static-sound-name "thunder") + *thunder-id* + (the int (* 10.24 (rand-vu-float-range 200.0 400.0))) + (the int (* 1524.0 (rand-vu-float-range -1.0 1.0))) + 0 + (the-as uint 1) + (the-as vector #t) + ) + ) + ) + ) + ) + ) + ) + ) + (when (not *lightning-frame-done*) + (let ((gp-3 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) + (set! (-> gp-3 command) (sound-command set-param)) + (set! (-> gp-3 id) *thunder-id0*) + (let ((a1-23 (camera-pos))) + (let ((s5-3 pp)) + (when (= a1-23 #t) + (if + (and + s5-3 + (type-type? (-> s5-3 type) process-drawable) + (nonzero? (-> (the-as process-drawable s5-3) root)) + ) + (set! a1-23 (-> (the-as process-drawable s5-3) root trans)) + (set! a1-23 (the-as vector #f)) + ) + ) + ) + (sound-trans-convert (-> gp-3 parms trans) a1-23) + ) + (set! (-> gp-3 parms mask) (the-as uint 32)) + (-> gp-3 id) + ) + (let ((gp-4 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) + (set! (-> gp-4 command) (sound-command set-param)) + (set! (-> gp-4 id) *thunder-id1*) + (let ((a1-25 (camera-pos))) + (let ((s5-4 pp)) + (when (= a1-25 #t) + (if + (and + s5-4 + (type-type? (-> s5-4 type) process-drawable) + (nonzero? (-> (the-as process-drawable s5-4) root)) + ) + (set! a1-25 (-> (the-as process-drawable s5-4) root trans)) + (set! a1-25 (the-as vector #f)) + ) + ) + ) + (sound-trans-convert (-> gp-4 parms trans) a1-25) + ) + (set! (-> gp-4 parms mask) (the-as uint 32)) + (-> gp-4 id) + ) + (let ((gp-5 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) + (set! (-> gp-5 command) (sound-command set-param)) + (set! (-> gp-5 id) *thunder-id2*) + (let ((a1-27 (camera-pos))) + (let ((s5-5 pp)) + (when (= a1-27 #t) + (if + (and + s5-5 + (type-type? (-> s5-5 type) process-drawable) + (nonzero? (-> (the-as process-drawable s5-5) root)) + ) + (set! a1-27 (-> (the-as process-drawable s5-5) root trans)) + (set! a1-27 (the-as vector #f)) + ) + ) + ) + (sound-trans-convert (-> gp-5 parms trans) a1-27) + ) + (set! (-> gp-5 parms mask) (the-as uint 32)) + (-> gp-5 id) + ) + ) + (set! *lightning-frame-done* #t) + (none) + ) + ) ;; definition of type light-time-state (deftype light-time-state (structure) @@ -1127,11 +1335,60 @@ obj ) -;; definition for symbol *lava-time*, type int -(define *lava-time* 0) +;; definition for symbol *lava-time*, type float +(define *lava-time* (the-as float 0)) ;; definition for function update-mood-lava -;; ERROR: function was not converted to expressions. Cannot decompile. +;; INFO: Return type mismatch float vs none. +(defun update-mood-lava ((arg0 mood-context) (arg1 int) (arg2 int) (arg3 symbol)) + (let* ((s4-0 (&-> arg0 state arg2)) + (s1-0 (-> s4-0 16)) + (s2-0 (-> s4-0 17)) + ) + (when (not (paused?)) + (set! (-> s4-0 16) (+ s1-0 4)) + (set! *lava-time* (+ *lava-time* (rand-vu-float-range 64.0 2048.0))) + ) + (let ((s0-0 (-> arg0 light-group 0 dir2)) + (f0-4 (+ 0.875 (* 0.125 (sin *lava-time*)))) + ) + (set-vector! (-> s0-0 direction) 0.0 -1.0 0.0 0.0) + (set-vector! (-> s0-0 color) 1.0 0.364 0.0 1.0) + (set! (-> s0-0 levels x) f0-4) + ) + (let ((s0-1 (shr s1-0 6)) + (f30-2 (* 0.015625 (the float (logand s1-0 63)))) + ) + (when (!= s0-1 s2-0) + (set! + (-> (the-as (pointer float) (+ (* s0-1 4) (the-as uint s4-0)))) + (the float (the int (rand-vu-float-range 128.0 255.0))) + ) + (set! (-> s4-0 17) s0-1) + ) + (when arg3 + (let* ((v1-14 (logand (+ s0-1 -1) 3)) + (f1-11 + (* + 0.0078125 + (-> (the-as (pointer float) (+ (* s0-1 4) (the-as uint s4-0)))) + ) + ) + (f0-11 + (* + 0.0078125 + (-> (the-as (pointer float) (+ (* v1-14 4) (the-as uint s4-0)))) + ) + ) + ) + (set! (-> arg0 times (+ arg1 s0-1) w) (* f30-2 f1-11)) + (set! (-> arg0 times (+ arg1 v1-14) w) (* (- 1.0 f30-2) f0-11)) + ) + ) + ) + ) + (none) + ) ;; definition for function update-mood-caustics (defun update-mood-caustics ((arg0 mood-context) (arg1 int) (arg2 int)) @@ -2305,7 +2562,7 @@ (clear-mood-times arg0) (update-mood-palette arg0 arg1 arg2) (if *time-of-day-effects* - (update-mood-lava arg0 (the-as float 4) 0 #t) + (update-mood-lava arg0 4 0 #t) ) (update-mood-itimes arg0) 0 @@ -2909,7 +3166,7 @@ (if (not (paused?)) (+! (-> arg0 some-byte) 1) ) - (update-mood-lava arg0 (the-as float 4) 0 #t) + (update-mood-lava arg0 4 0 #t) ) (update-mood-quick arg0 0 0 0 arg2) (update-mood-itimes arg0) @@ -3760,4 +4017,8 @@ ) (update-mood-itimes arg0) (none) - ) \ No newline at end of file + ) + + + + diff --git a/test/decompiler/reference/engine/ambient/mood-tables_REF.gc b/test/decompiler/reference/engine/ambient/mood-tables_REF.gc index 5761ebe06c..72822eb5fb 100644 --- a/test/decompiler/reference/engine/ambient/mood-tables_REF.gc +++ b/test/decompiler/reference/engine/ambient/mood-tables_REF.gc @@ -4332,3 +4332,7 @@ ;; failed to figure out what this is: (set! (-> *citadel-mood* num-stars) 0.0) + + + + diff --git a/test/decompiler/reference/engine/ambient/mood_REF.gc b/test/decompiler/reference/engine/ambient/mood_REF.gc index d1be70de2a..936f6ce2e8 100644 --- a/test/decompiler/reference/engine/ambient/mood_REF.gc +++ b/test/decompiler/reference/engine/ambient/mood_REF.gc @@ -958,11 +958,11 @@ ;; definition for symbol *lightning-index*, type int (define *lightning-index* 0) -;; definition for symbol *lightning-time*, type float -(define *lightning-time* (the-as float 0)) +;; definition for symbol *lightning-time*, type int +(define *lightning-time* 0) -;; definition for symbol *lightning-time2*, type float -(define *lightning-time2* (the-as float 0)) +;; definition for symbol *lightning-time2*, type int +(define *lightning-time2* 0) ;; definition for symbol *lightning-frame-done*, type symbol (define *lightning-frame-done* #f) @@ -1003,7 +1003,219 @@ ) ;; definition for function update-mood-lightning -;; ERROR: function was not converted to expressions. Cannot decompile. +;; INFO: Return type mismatch symbol vs none. +;; Used lq/sq +(defun + update-mood-lightning + ((arg0 mood-context) + (arg1 int) + (arg2 int) + (arg3 int) + (arg4 int) + (arg5 float) + (arg6 symbol) + ) + (local-vars (a3-2 (array float))) + (with-pp + (set! (-> arg0 light-group 0 dir2 levels x) 0.0) + (let* ((s4-0 (&-> arg0 state arg3)) + (a1-1 (+ *lightning-index* arg1)) + (v1-3 (+ *lightning-index* arg4)) + (a3-1 (-> s4-0 0)) + (a2-2 (/ *lightning-time* 2)) + ) + (cond + ((zero? *lightning-time2*) + (cond + ((zero? a3-1) + (set! a3-2 *flash0*) + ) + ((= a3-1 1) + (set! a3-2 *flash1*) + ) + ((= a3-1 2) + (set! a3-2 *flash2*) + ) + ((= a3-1 3) + (set! a3-2 *flash3*) + ) + ((= a3-1 4) + (set! a3-2 *flash4*) + ) + ((= a3-1 5) + (set! a3-2 *flash5*) + ) + ((= a3-1 6) + (set! a3-2 *flash6*) + ) + (else + (set! a3-2 *flash7*) + ) + ) + (cond + ((< a2-2 (-> a3-2 length)) + (let ((f0-1 (-> a3-2 a2-2))) + (set! (-> arg0 sky-times a1-1) f0-1) + (when (not arg6) + (set! (-> arg0 times v1-3 w) f0-1) + (when (not *lightning-realtime-done*) + (let* ((a1-11 (-> arg0 mood-lights-table data v1-3)) + (v1-6 (-> arg0 light-group 0 dir2)) + (f1-4 + (* + (+ + (* 2.0 (-> a1-11 lgt-color x)) + (* 4.0 (-> a1-11 lgt-color y)) + (-> a1-11 lgt-color z) + ) + f0-1 + ) + ) + ) + (set! (-> v1-6 direction quad) (-> a1-11 direction quad)) + (set! (-> v1-6 color quad) (-> a1-11 lgt-color quad)) + (set! (-> v1-6 levels x) f0-1) + (set! (-> v1-6 levels y) f1-4) + ) + (set! *lightning-realtime-done* #t) + ) + ) + ) + (if (not (or (paused?) *lightning-frame-done*)) + (set! *lightning-time* (+ *lightning-time* 1)) + ) + ) + (arg6 + (set! *lightning-time2* (the int (rand-vu-float-range 360.0 960.0))) + ) + (else + (set! *lightning-time2* (the int (rand-vu-float-range 180.0 480.0))) + ) + ) + ) + (else + (when (not (or (paused?) *lightning-frame-done*)) + (set! *lightning-time2* (+ *lightning-time2* -1)) + (when (zero? *lightning-time2*) + (set! *lightning-index* (mod (+ *lightning-index* 1) arg2)) + (set! (-> s4-0 0) (logand (rand-uint31-gen *random-generator*) 7)) + (set! *lightning-time* 0) + (let ((v1-24 *thunder-count*)) + (cond + ((zero? v1-24) + (set! *thunder-id* *thunder-id0*) + (set! *thunder-count* 1) + ) + ((= v1-24 1) + (set! *thunder-id* *thunder-id1*) + (set! *thunder-count* 2) + ) + (else + (set! *thunder-id* *thunder-id2*) + (set! *thunder-count* 0) + 0 + ) + ) + ) + (when (>= (-> *math-camera* trans y) -81920.0) + (if arg6 + (sound-play-by-name + (static-sound-name "thunder") + *thunder-id* + (the int (* 10.24 (rand-vu-float-range 25.0 75.0))) + (the int (* 1524.0 (rand-vu-float-range -1.0 1.0))) + 0 + (the-as uint 1) + (the-as vector #t) + ) + (sound-play-by-name + (static-sound-name "thunder") + *thunder-id* + (the int (* 10.24 (rand-vu-float-range 200.0 400.0))) + (the int (* 1524.0 (rand-vu-float-range -1.0 1.0))) + 0 + (the-as uint 1) + (the-as vector #t) + ) + ) + ) + ) + ) + ) + ) + ) + (when (not *lightning-frame-done*) + (let ((gp-3 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) + (set! (-> gp-3 command) (sound-command set-param)) + (set! (-> gp-3 id) *thunder-id0*) + (let ((a1-23 (camera-pos))) + (let ((s5-3 pp)) + (when (= a1-23 #t) + (if + (and + s5-3 + (type-type? (-> s5-3 type) process-drawable) + (nonzero? (-> (the-as process-drawable s5-3) root)) + ) + (set! a1-23 (-> (the-as process-drawable s5-3) root trans)) + (set! a1-23 (the-as vector #f)) + ) + ) + ) + (sound-trans-convert (-> gp-3 parms trans) a1-23) + ) + (set! (-> gp-3 parms mask) (the-as uint 32)) + (-> gp-3 id) + ) + (let ((gp-4 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) + (set! (-> gp-4 command) (sound-command set-param)) + (set! (-> gp-4 id) *thunder-id1*) + (let ((a1-25 (camera-pos))) + (let ((s5-4 pp)) + (when (= a1-25 #t) + (if + (and + s5-4 + (type-type? (-> s5-4 type) process-drawable) + (nonzero? (-> (the-as process-drawable s5-4) root)) + ) + (set! a1-25 (-> (the-as process-drawable s5-4) root trans)) + (set! a1-25 (the-as vector #f)) + ) + ) + ) + (sound-trans-convert (-> gp-4 parms trans) a1-25) + ) + (set! (-> gp-4 parms mask) (the-as uint 32)) + (-> gp-4 id) + ) + (let ((gp-5 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) + (set! (-> gp-5 command) (sound-command set-param)) + (set! (-> gp-5 id) *thunder-id2*) + (let ((a1-27 (camera-pos))) + (let ((s5-5 pp)) + (when (= a1-27 #t) + (if + (and + s5-5 + (type-type? (-> s5-5 type) process-drawable) + (nonzero? (-> (the-as process-drawable s5-5) root)) + ) + (set! a1-27 (-> (the-as process-drawable s5-5) root trans)) + (set! a1-27 (the-as vector #f)) + ) + ) + ) + (sound-trans-convert (-> gp-5 parms trans) a1-27) + ) + (set! (-> gp-5 parms mask) (the-as uint 32)) + (-> gp-5 id) + ) + ) + (set! *lightning-frame-done* #t) + (none) + ) + ) ;; definition of type light-time-state (deftype light-time-state (structure) @@ -1119,11 +1331,60 @@ obj ) -;; definition for symbol *lava-time*, type int -(define *lava-time* 0) +;; definition for symbol *lava-time*, type float +(define *lava-time* (the-as float 0)) ;; definition for function update-mood-lava -;; ERROR: function was not converted to expressions. Cannot decompile. +;; INFO: Return type mismatch float vs none. +(defun update-mood-lava ((arg0 mood-context) (arg1 int) (arg2 int) (arg3 symbol)) + (let* ((s4-0 (&-> arg0 state arg2)) + (s1-0 (-> s4-0 16)) + (s2-0 (-> s4-0 17)) + ) + (when (not (paused?)) + (set! (-> s4-0 16) (+ s1-0 4)) + (set! *lava-time* (+ *lava-time* (rand-vu-float-range 64.0 2048.0))) + ) + (let ((s0-0 (-> arg0 light-group 0 dir2)) + (f0-4 (+ 0.875 (* 0.125 (sin *lava-time*)))) + ) + (set-vector! (-> s0-0 direction) 0.0 -1.0 0.0 0.0) + (set-vector! (-> s0-0 color) 1.0 0.364 0.0 1.0) + (set! (-> s0-0 levels x) f0-4) + ) + (let ((s0-1 (shr s1-0 6)) + (f30-2 (* 0.015625 (the float (logand s1-0 63)))) + ) + (when (!= s0-1 s2-0) + (set! + (-> (the-as (pointer float) (+ (* s0-1 4) (the-as uint s4-0)))) + (the float (the int (rand-vu-float-range 128.0 255.0))) + ) + (set! (-> s4-0 17) s0-1) + ) + (when arg3 + (let* ((v1-14 (logand (+ s0-1 -1) 3)) + (f1-11 + (* + 0.0078125 + (-> (the-as (pointer float) (+ (* s0-1 4) (the-as uint s4-0)))) + ) + ) + (f0-11 + (* + 0.0078125 + (-> (the-as (pointer float) (+ (* v1-14 4) (the-as uint s4-0)))) + ) + ) + ) + (set! (-> arg0 times (+ arg1 s0-1) w) (* f30-2 f1-11)) + (set! (-> arg0 times (+ arg1 v1-14) w) (* (- 1.0 f30-2) f0-11)) + ) + ) + ) + ) + (none) + ) ;; definition for function update-mood-caustics (defun update-mood-caustics ((arg0 mood-context) (arg1 int) (arg2 int)) @@ -2297,7 +2558,7 @@ (clear-mood-times arg0) (update-mood-palette arg0 arg1 arg2) (if *time-of-day-effects* - (update-mood-lava arg0 (the-as float 4) 0 #t) + (update-mood-lava arg0 4 0 #t) ) (update-mood-itimes arg0) 0 @@ -2901,7 +3162,7 @@ (if (not (paused?)) (+! (-> arg0 some-byte) 1) ) - (update-mood-lava arg0 (the-as float 4) 0 #t) + (update-mood-lava arg0 4 0 #t) ) (update-mood-quick arg0 0 0 0 arg2) (update-mood-itimes arg0) @@ -3753,3 +4014,7 @@ (update-mood-itimes arg0) (none) ) + + + +