From 42806d504f43fd4699a1d0fabf1c34390da75862 Mon Sep 17 00:00:00 2001 From: ManDude <7569514+ManDude@users.noreply.github.com> Date: Sun, 27 Feb 2022 21:44:43 +0000 Subject: [PATCH] [game] HUD/sprite fixes for widescreen + a few other things (#1203) * mood palette debugging * fix HUD sprites (most of them) * racer hud fixes * automtic widescreen adjust for racer and power hud (crappy) * add money starburst toggle! * cheat codes (SECRET!!!) * fix tests * fix error * fix tests * always for 16x9 for cutscenes * better lod hacks * full alphabet * fog hack for less ugliness + particle density hack --- decompiler/config/all-types.gc | 22 +- .../opengl_renderer/shaders/sprite_3d.vert | 202 +- .../opengl_renderer/shaders/tfrag3.vert | 6 + goal_src/build/all_files.gc | 2 +- goal_src/build/game_dgos.gc | 4 +- goal_src/dgos/engine.gd | 5 +- goal_src/dgos/game.gd | 2 +- goal_src/engine/ambient/mood-tables.gc | 5361 ++++++++--------- goal_src/engine/ambient/mood.gc | 17 +- goal_src/engine/camera/math-camera.gc | 12 +- goal_src/engine/debug/default-menu.gc | 58 +- goal_src/engine/debug/menu.gc | 2 +- goal_src/engine/draw/drawable.gc | 15 +- goal_src/engine/draw/process-drawable.gc | 5 - goal_src/engine/entity/entity-table.gc | 2 +- goal_src/engine/game/collectables-part.gc | 18 + goal_src/engine/game/collectables.gc | 33 +- goal_src/engine/game/game-info.gc | 2 +- goal_src/engine/game/generic-obs-h.gc | 2 +- goal_src/engine/game/main.gc | 48 +- goal_src/engine/game/powerups.gc | 2 + goal_src/engine/game/projectiles.gc | 28 +- goal_src/engine/gfx/sprite/sprite.gc | 9 +- goal_src/engine/gfx/time-of-day.gc | 11 +- goal_src/engine/level/level.gc | 2 +- goal_src/engine/pc/pckernel-h.gc | 116 +- goal_src/engine/pc/pckernel.gc | 119 +- goal_src/engine/ps2/pad.gc | 9 + .../engine/sparticle/sparticle-launcher.gc | 4 + goal_src/engine/target/sidekick.gc | 4 + goal_src/engine/ui/hud-classes.gc | 24 + goal_src/engine/ui/hud.gc | 12 +- goal_src/game.gp | 2 +- goal_src/goal-lib.gc | 10 + goal_src/levels/racer_common/racer-part.gc | 95 +- goal_src/levels/racer_common/target-racer.gc | 2 + .../engine/ambient/mood-tables_REF.gc | 8 +- .../reference/engine/ambient/mood_REF.gc | 7 +- .../reference/engine/game/collectables_REF.gc | 21 +- .../reference/engine/gfx/time-of-day_REF.gc | 7 +- .../reference/levels/beach/pelican_REF.gc | 2 +- .../reference/levels/ogre/ogreboss_REF.gc | 2 +- .../levels/racer_common/racer-part_REF.gc | 56 +- 43 files changed, 3177 insertions(+), 3193 deletions(-) diff --git a/decompiler/config/all-types.gc b/decompiler/config/all-types.gc index aa2703310..9e51015bf 100644 --- a/decompiler/config/all-types.gc +++ b/decompiler/config/all-types.gc @@ -17818,7 +17818,7 @@ ;; - Functions -(define-extern make-light-kit (function light-group float float float float float)) +(define-extern make-light-kit (function light-group float float float float none)) (define-extern make-village1-light-kit (function mood-context none)) (define-extern make-misty-light-kit (function mood-context none)) (define-extern make-village2-light-kit (function mood-context none)) @@ -18146,7 +18146,7 @@ (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 int int symbol none)) -(define-extern update-light-kit (function light-group light float float)) +(define-extern update-light-kit (function light-group light float none)) (define-extern set-target-light-index (function int int)) (define-extern update-mood-caustics (function mood-context int int none)) (define-extern update-mood-jungleb-blue (function mood-context float int none)) @@ -18237,7 +18237,7 @@ (define-extern start-time-of-day (function none)) (define-extern time-of-day-setup (function symbol symbol)) (define-extern set-time-of-day (function float none)) -(define-extern init-time-of-day-context (function time-of-day-context float)) +(define-extern init-time-of-day-context (function time-of-day-context none)) (define-extern update-time-of-day (function time-of-day-context none)) ;; - Symbols @@ -21028,7 +21028,7 @@ (die () _type_ :state 24) ;; state (jump () _type_ :state 25) (notice-blue (handle) _type_ :state 26) ;; state - (get-pickup-sound (_type_ pickup-type) ambient-sound 27) + (initialize-effect (_type_ pickup-type) none 27) (initialize-eco (_type_ entity-actor pickup-type float) object 28) (animate (_type_) none 29) (blocked () _type_ :state 30) @@ -21188,7 +21188,7 @@ (define-extern vent-standard-event-handler (function process int symbol event-message-block object :behavior vent)) (define-extern ecovalve-init-by-other (function (function vent symbol) none :behavior ecovalve)) -(define-extern birth-pickup-at-point (function vector pickup-type float symbol process-drawable fact-info (pointer process) :behavior process)) +(define-extern birth-pickup-at-point (function vector pickup-type float symbol process-tree fact-info (pointer process) :behavior process)) (define-extern fuel-cell-pick-anim (function process-drawable spool-anim)) (define-extern othercam-init-by-other (function process-taskable symbol symbol symbol none :behavior othercam)) (define-extern fuel-cell-animate (function none :behavior fuel-cell)) @@ -27051,12 +27051,12 @@ ;; - Functions -(define-extern zoomer-heat-slice-color (function matrix float float)) -(define-extern part-hud-racer-speed-func (function sparticle-system sparticle-cpuinfo matrix float)) -(define-extern part-hud-racer-heat-func (function sparticle-system sparticle-cpuinfo matrix float)) -(define-extern part-hud-zoomer-heat-slice-01-func (function sparticle-system sparticle-cpuinfo matrix float)) -(define-extern part-hud-zoomer-heat-slice-02-func (function sparticle-system sparticle-cpuinfo matrix float)) -(define-extern part-hud-zoomer-heat-slice-03-func (function sparticle-system sparticle-cpuinfo matrix float)) +(define-extern zoomer-heat-slice-color (function matrix float none)) +(define-extern part-hud-racer-speed-func (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern part-hud-racer-heat-func (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern part-hud-zoomer-heat-slice-01-func (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern part-hud-zoomer-heat-slice-02-func (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern part-hud-zoomer-heat-slice-03-func (function sparticle-system sparticle-cpuinfo matrix none)) ;; ---------------------- diff --git a/game/graphics/opengl_renderer/shaders/sprite_3d.vert b/game/graphics/opengl_renderer/shaders/sprite_3d.vert index 737bf8e21..8d9956cd2 100644 --- a/game/graphics/opengl_renderer/shaders/sprite_3d.vert +++ b/game/graphics/opengl_renderer/shaders/sprite_3d.vert @@ -29,150 +29,150 @@ out vec3 tex_coord; out flat uvec2 tex_info; vec4 matrix_transform(mat4 mtx, vec3 pt) { - return mtx[3] - + mtx[0] * pt.x - + mtx[1] * pt.y - + mtx[2] * pt.z; + return mtx[3] + + mtx[0] * pt.x + + mtx[1] * pt.y + + mtx[2] * pt.z; } mat3 sprite_quat_to_rot(vec3 quat) { - mat3 result; - float qr = sqrt(abs(1.0 - (quat.x * quat.x + quat.y * quat.y + quat.z * quat.z))); - result[0][0] = 1.0 - 2.0 * (quat.y * quat.y + quat.z * quat.z); - result[1][0] = 2.0 * (quat.x * quat.y - quat.z * qr); - result[2][0] = 2.0 * (quat.x * quat.z + quat.y * qr); - result[0][1] = 2.0 * (quat.x * quat.y + quat.z * qr); - result[1][1] = 1.0 - 2.0 * (quat.x * quat.x + quat.z * quat.z); - result[2][1] = 2.0 * (quat.y * quat.z - quat.x * qr); - result[0][2] = 2.0 * (quat.x * quat.z - quat.y * qr); - result[1][2] = 2.0 * (quat.y * quat.z + quat.x * qr); - result[2][2] = 1.0 - 2.0 * (quat.x * quat.x + quat.y * quat.y); - return result; + mat3 result; + float qr = sqrt(abs(1.0 - (quat.x * quat.x + quat.y * quat.y + quat.z * quat.z))); + result[0][0] = 1.0 - 2.0 * (quat.y * quat.y + quat.z * quat.z); + result[1][0] = 2.0 * (quat.x * quat.y - quat.z * qr); + result[2][0] = 2.0 * (quat.x * quat.z + quat.y * qr); + result[0][1] = 2.0 * (quat.x * quat.y + quat.z * qr); + result[1][1] = 1.0 - 2.0 * (quat.x * quat.x + quat.z * quat.z); + result[2][1] = 2.0 * (quat.y * quat.z - quat.x * qr); + result[0][2] = 2.0 * (quat.x * quat.z - quat.y * qr); + result[1][2] = 2.0 * (quat.y * quat.z + quat.x * qr); + result[2][2] = 1.0 - 2.0 * (quat.x * quat.x + quat.y * quat.y); + return result; } vec4 sprite_transform2(vec3 root, vec4 off, mat3 sprite_rot, float sx, float sy) { - vec3 pos = root; + vec3 pos = root; - vec3 offset = sprite_rot[0] * off.x * sx + sprite_rot[1] * off.y + sprite_rot[2] * off.z * sy; + vec3 offset = sprite_rot[0] * off.x * sx + sprite_rot[1] * off.y + sprite_rot[2] * off.z * sy; - pos += offset; - vec4 transformed_pos = -matrix_transform(camera, pos); - float Q = pfog0 / transformed_pos.w; - transformed_pos.xyz *= Q; - transformed_pos.xyz += hvdf_offset.xyz; + pos += offset; + vec4 transformed_pos = -matrix_transform(camera, pos); + float Q = pfog0 / transformed_pos.w; + transformed_pos.xyz *= Q; + transformed_pos.xyz += hvdf_offset.xyz; - return transformed_pos; + return transformed_pos; } void main() { -// STEP 1: UNPACK DATA AND CREATE READABLE VARIABLES + // STEP 1: UNPACK DATA AND CREATE READABLE VARIABLES - vec3 position = xyz_sx.xyz; - float sx = xyz_sx.w; - float sy = quat_sy.w; - fragment_color = rgba; - uint vert_id = tex_info_in.z; - uint rendermode = tex_info_in.w; // 2D, HUD, 3D - vec3 quat = quat_sy.xyz; - uint matrix = flags_matrix.y; + vec3 position = xyz_sx.xyz; + float sx = xyz_sx.w; + float sy = quat_sy.w; + fragment_color = rgba; + uint vert_id = tex_info_in.z; + uint rendermode = tex_info_in.w; // 2D, HUD, 3D + vec3 quat = quat_sy.xyz; + uint matrix = flags_matrix.y; - vec4 transformed; + vec4 transformed; -// STEP 2: perspective transform for distance - vec4 transformed_pos_vf02 = matrix_transform(rendermode == 2 ? hud_matrix : camera, position); - float Q = pfog0 / transformed_pos_vf02.w; + // STEP 2: perspective transform for distance + vec4 transformed_pos_vf02 = matrix_transform(rendermode == 2 ? hud_matrix : camera, position); + float Q = pfog0 / transformed_pos_vf02.w; -// STEP 3: fade out sprite! - vec4 scales_vf01 = xyz_sx; // now used for something else. - scales_vf01.z = sy; // start building the scale vector - scales_vf01.zw *= Q; // sy sx - scales_vf01.x = scales_vf01.z; // = sy - scales_vf01.x *= scales_vf01.w; // x = sx * sy - scales_vf01.x *= inv_area; // x = sx * sy * inv_area (area ratio) - fragment_color.w *= min(scales_vf01.x, 1.0); // is this right? doesn't this stall?? + // STEP 3: fade out sprite! + vec4 scales_vf01 = xyz_sx; // now used for something else. + scales_vf01.z = sy; // start building the scale vector + scales_vf01.zw *= Q; // sy sx + scales_vf01.x = scales_vf01.z; // = sy + scales_vf01.x *= scales_vf01.w; // x = sx * sy + scales_vf01.x *= inv_area; // x = sx * sy * inv_area (area ratio) + fragment_color.w *= min(scales_vf01.x, 1.0); // is this right? doesn't this stall?? - // STEP 4: actual vertex transformation - if (rendermode == 3) { // 3D sprites + // STEP 4: actual vertex transformation + if (rendermode == 3) { // 3D sprites - mat3 rot = sprite_quat_to_rot(quat); - transformed = sprite_transform2(position, xyz_array[vert_id], rot, sx, sy); + mat3 rot = sprite_quat_to_rot(quat); + transformed = sprite_transform2(position, xyz_array[vert_id], rot, sx, sy); - } else if (rendermode == 1) { // 2D sprites + } else if (rendermode == 1) { // 2D sprites - transformed_pos_vf02.xyz *= Q; - vec4 offset_pos_vf10 = transformed_pos_vf02 + hvdf_offset; + transformed_pos_vf02.xyz *= Q; + vec4 offset_pos_vf10 = transformed_pos_vf02 + hvdf_offset; - /* transformed_pos_vf02.w = offset_pos_vf10.w - fog_max; - int fge = matrix == 0; - if (transformed_pos_vf02.w != 0) { - fge = false; - } */ + /* transformed_pos_vf02.w = offset_pos_vf10.w - fog_max; + int fge = matrix == 0; + if (transformed_pos_vf02.w != 0) { + fge = false; + } */ - scales_vf01.z = min(max(scales_vf01.z, min_scale), max_scale); - scales_vf01.w = min(max(scales_vf01.w, min_scale), max_scale); + scales_vf01.z = min(max(scales_vf01.z, min_scale), max_scale); + scales_vf01.w = min(max(scales_vf01.z, min_scale), max_scale); - quat.z *= deg_to_rad; - float sp_sin = sin(quat.z); - float sp_cos = cos(quat.z); + quat.z *= deg_to_rad; + float sp_sin = sin(quat.z); + float sp_cos = cos(quat.z); - vec4 xy0_vf19 = xy_array[vert_id + flags_matrix.x]; - vec4 vf12_rotated = (basis_x * sp_cos) - (basis_y * sp_sin); - vec4 vf13_rotated_trans = (basis_x * sp_sin) + (basis_y * sp_cos); + vec4 xy0_vf19 = xy_array[vert_id + flags_matrix.x]; + vec4 vf12_rotated = (basis_x * sp_cos) - (basis_y * sp_sin); + vec4 vf13_rotated_trans = (basis_x * sp_sin) + (basis_y * sp_cos); - vf12_rotated *= scales_vf01.w; - vf13_rotated_trans *= scales_vf01.z; + vf12_rotated *= scales_vf01.w; + vf13_rotated_trans *= scales_vf01.z; - transformed = offset_pos_vf10 + vf12_rotated * xy0_vf19.x + vf13_rotated_trans * xy0_vf19.y; + transformed = offset_pos_vf10 + vf12_rotated * xy0_vf19.x + vf13_rotated_trans * xy0_vf19.y; - } else if (rendermode == 2) { // hud sprites + } else if (rendermode == 2) { // hud sprites + transformed_pos_vf02.xyz *= Q; + vec4 offset_pos_vf10 = transformed_pos_vf02 + (matrix == 0 ? hud_hvdf_offset : hud_hvdf_user[matrix - 1]); - transformed_pos_vf02.xyz *= Q; - vec4 offset_pos_vf10 = transformed_pos_vf02 + (matrix == 0 ? hud_hvdf_offset : hud_hvdf_user[matrix - 1]); + // NOTE: no max scale for hud + scales_vf01.z = max(scales_vf01.z, min_scale); + scales_vf01.w = max(scales_vf01.z, min_scale); - scales_vf01.z = min(max(scales_vf01.z, min_scale), max_scale); - scales_vf01.w = min(max(scales_vf01.w, min_scale), max_scale); + quat.z *= deg_to_rad; + float sp_sin = sin(quat.z); + float sp_cos = cos(quat.z); - quat.z *= deg_to_rad; - float sp_sin = sin(quat.z); - float sp_cos = cos(quat.z); + vec4 xy0_vf19 = xy_array[vert_id + flags_matrix.x]; + vec4 vf12_rotated = (basis_x * sp_cos) - (basis_y * sp_sin); + vec4 vf13_rotated_trans = (basis_x * sp_sin) + (basis_y * sp_cos); - vec4 xy0_vf19 = xy_array[vert_id + flags_matrix.x]; - vec4 vf12_rotated = (basis_x * sp_cos) - (basis_y * sp_sin); - vec4 vf13_rotated_trans = (basis_x * sp_sin) + (basis_y * sp_cos); + vf12_rotated *= scales_vf01.w; + vf13_rotated_trans *= scales_vf01.z; - vf12_rotated *= scales_vf01.w; - vf13_rotated_trans *= scales_vf01.z; + transformed = offset_pos_vf10 + vf12_rotated * xy0_vf19.x + vf13_rotated_trans * xy0_vf19.y; - transformed = offset_pos_vf10 + vf12_rotated * xy0_vf19.x + vf13_rotated_trans * xy0_vf19.y; + } - } - - tex_coord = st_array[vert_id].xyz; + tex_coord = st_array[vert_id].xyz; -// STEP 5: final adjustments - // correct xy offset - transformed.xy -= (2048.); + // STEP 5: final adjustments + // correct xy offset + transformed.xy -= (2048.); - // correct z scale - transformed.z /= (8388608); - transformed.z -= 1; + // correct z scale + transformed.z /= (8388608); + transformed.z -= 1; - // correct xy scale - transformed.x /= (256); - transformed.y /= -(128); + // correct xy scale + transformed.x /= (256); + transformed.y /= -(128); - // hack - transformed.xyz *= transformed.w; + // hack + transformed.xyz *= transformed.w; - gl_Position = transformed; - // scissoring area adjust - gl_Position.y *= 512.0/448.0; + gl_Position = transformed; + // scissoring area adjust + gl_Position.y *= 512.0/448.0; - fragment_color.w *= 2; + fragment_color.w *= 2; - tex_info = tex_info_in.xy; + tex_info = tex_info_in.xy; } diff --git a/game/graphics/opengl_renderer/shaders/tfrag3.vert b/game/graphics/opengl_renderer/shaders/tfrag3.vert index c01989c81..20346b4cd 100644 --- a/game/graphics/opengl_renderer/shaders/tfrag3.vert +++ b/game/graphics/opengl_renderer/shaders/tfrag3.vert @@ -76,5 +76,11 @@ void main() { // time of day lookup fragment_color = texelFetch(tex_T1, time_of_day_index, 0); fragment_color.w *= 2; + + // fog hack + if (fragment_color.r < 0.01 && fragment_color.g < 0.01 && fragment_color.b < 0.01) { + fogginess = 0; + } + tex_coord = tex_coord_in; } diff --git a/goal_src/build/all_files.gc b/goal_src/build/all_files.gc index 233524c84..41768da95 100644 --- a/goal_src/build/all_files.gc +++ b/goal_src/build/all_files.gc @@ -153,8 +153,8 @@ "goal_src/engine/nav/navigate-h.gc" "goal_src/engine/load/load-dgo.gc" "goal_src/engine/load/ramdisk.gc" - "goal_src/engine/pc/pckernel.gc" ;; added "goal_src/engine/sound/gsound.gc" + "goal_src/engine/pc/pckernel.gc" ;; added "goal_src/engine/math/transformq.gc" "goal_src/engine/collide/collide-func.gc" "goal_src/engine/anim/joint.gc" diff --git a/goal_src/build/game_dgos.gc b/goal_src/build/game_dgos.gc index 3e4764347..2d04ef707 100644 --- a/goal_src/build/game_dgos.gc +++ b/goal_src/build/game_dgos.gc @@ -354,8 +354,8 @@ ("navigate-h.o" "navigate-h") ("load-dgo.o" "load-dgo") ("ramdisk.o" "ramdisk") - ("pckernel.o" "pckernel") ;; added ("gsound.o" "gsound") + ("pckernel.o" "pckernel") ;; added ("transformq.o" "transformq") ("collide-func.o" "collide-func") ("joint.o" "joint") @@ -718,6 +718,7 @@ ("load-dgo.o" "load-dgo") ("ramdisk.o" "ramdisk") ("gsound.o" "gsound") + ("pckernel.o" "pckernel") ;; added ("transformq.o" "transformq") ("collide-func.o" "collide-func") ("joint.o" "joint") @@ -825,7 +826,6 @@ ("prototype.o" "prototype") ("main-collide.o" "main-collide") ("video.o" "video") - ("pckernel.o" "pckernel") ;; added ("main.o" "main") ("collide-cache.o" "collide-cache") ("relocate.o" "relocate") diff --git a/goal_src/dgos/engine.gd b/goal_src/dgos/engine.gd index 9b88c637a..a7bafb52f 100644 --- a/goal_src/dgos/engine.gd +++ b/goal_src/dgos/engine.gd @@ -145,8 +145,8 @@ ("navigate-h.o" "navigate-h") ("load-dgo.o" "load-dgo") ("ramdisk.o" "ramdisk") - ("pckernel.o" "pckernel") ;; added ("gsound.o" "gsound") + ("pckernel.o" "pckernel") ;; added ("transformq.o" "transformq") ("collide-func.o" "collide-func") ("joint.o" "joint") @@ -295,4 +295,5 @@ ("viewer.o" "viewer") ("part-tester.o" "part-tester") ("default-menu.o" "default-menu") - ) \ No newline at end of file + ) + diff --git a/goal_src/dgos/game.gd b/goal_src/dgos/game.gd index 00cf4e009..85c62b276 100644 --- a/goal_src/dgos/game.gd +++ b/goal_src/dgos/game.gd @@ -141,8 +141,8 @@ ("navigate-h.o" "navigate-h") ("load-dgo.o" "load-dgo") ("ramdisk.o" "ramdisk") - ("pckernel.o" "pckernel") ;; added ("gsound.o" "gsound") + ("pckernel.o" "pckernel") ;; added ("transformq.o" "transformq") ("collide-func.o" "collide-func") ("joint.o" "joint") diff --git a/goal_src/engine/ambient/mood-tables.gc b/goal_src/engine/ambient/mood-tables.gc index 62e4a9cfa..8405405aa 100644 --- a/goal_src/engine/ambient/mood-tables.gc +++ b/goal_src/engine/ambient/mood-tables.gc @@ -5,7 +5,8 @@ ;; name in dgo: mood-tables ;; dgos: GAME, ENGINE -;; definition for function make-light-kit +;; DECOMP BEGINS + (defun make-light-kit ((arg0 light-group) (arg1 float) (arg2 float) (arg3 float) (arg4 float)) (let ((s4-0 (new 'stack-no-clear 'matrix))) (matrix-rotate-y! s4-0 arg1) @@ -25,16 +26,8 @@ ) (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 - ) - (vector-matrix*! - (the-as vector (-> arg0 dir1)) - (the-as vector (-> arg0 dir1)) - s4-0 - ) + (vector-matrix*! (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) ) (let ((v1-4 (-> arg0 dir2))) (set! (-> v1-4 direction x) 0.0) @@ -43,14 +36,10 @@ (set! (-> v1-4 direction w) 0.0) ) (set-vector! (-> arg0 dir2 color) 0.8 0.775 0.7 1.0) - (let ((f0-26 arg4)) - (set! (-> arg0 dir2 levels x) f0-26) - f0-26 - ) + (set! (-> arg0 dir2 levels x) arg4) + (none) ) -;; definition for function make-village1-light-kit -;; INFO: Return type mismatch float vs none. (defun make-village1-light-kit ((arg0 mood-context)) (make-light-kit (-> arg0 light-group 1) 38229.332 0.9 0.9 0.4) (let ((s5-0 (-> arg0 light-group 2))) @@ -71,8 +60,6 @@ (none) ) -;; definition for function make-misty-light-kit -;; INFO: Return type mismatch rgbaf vs none. (defun make-misty-light-kit ((arg0 mood-context)) (let ((gp-0 (-> arg0 light-group 1))) (make-light-kit gp-0 24576.0 1.0 0.4 1.0) @@ -82,8 +69,6 @@ (none) ) -;; definition for function make-village2-light-kit -;; INFO: Return type mismatch float vs none. (defun make-village2-light-kit ((arg0 mood-context)) (let ((v1-0 (-> arg0 light-group 1))) (let ((a0-1 (-> v1-0 dir0))) @@ -157,8 +142,6 @@ (none) ) -;; definition for function make-rolling-light-kit -;; INFO: Return type mismatch rgbaf vs none. (defun make-rolling-light-kit ((arg0 mood-context)) (let ((s5-0 (-> arg0 light-group 1))) (make-light-kit s5-0 0.0 1.0 0.0 0.0) @@ -223,8 +206,6 @@ (none) ) -;; definition for function make-village3-light-kit -;; INFO: Return type mismatch rgbaf vs none. (defun make-village3-light-kit ((arg0 mood-context)) (let ((v1-0 (-> arg0 light-group 1))) (let ((a1-0 (-> v1-0 dir0))) @@ -263,8 +244,6 @@ (none) ) -;; definition for function update-mood-shadow-direction -;; INFO: Return type mismatch int vs none. (defun update-mood-shadow-direction ((arg0 mood-lights)) (let ((v1-0 (-> arg0 shadow))) (set! (-> v1-0 x) (- (-> arg0 direction x))) @@ -287,16 +266,9 @@ (none) ) -;; definition for function update-mood-erase-color -;; INFO: Return type mismatch int vs none. (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) - ) + (vector+float*! 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))) @@ -309,34 +281,17 @@ (none) ) -;; definition for function update-mood-erase-color2 -;; INFO: Return type mismatch int vs none. -;; Used lq/sq (defun update-mood-erase-color2 ((arg0 mood-fog) (arg1 mood-lights) (arg2 mood-lights)) (let ((s5-0 (-> arg0 erase-color))) (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) - ) + (vector+float*! 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) - ) - (vector*! - (the-as vector s4-0) - (the-as vector s4-0) - (-> *ocean-map-village2* far-color) - ) + (vector+float*! (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)) (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))) @@ -350,1109 +305,735 @@ (none) ) -;; definition for symbol *default-interp-table*, type sky-color-day -(define *default-interp-table* +(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) + :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) + :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) + :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) + :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) + :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) + :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) + :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) - ) - ) - ) + (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) - ) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *village1-mood-lights-table* data)) + (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))) + (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)) + (update-mood-shadow-direction (-> *village1-mood-lights-table* data 4)) + (update-mood-shadow-direction (-> *village1-mood-lights-table* data 5)) + (update-mood-shadow-direction (-> *village1-mood-lights-table* data 6)) + (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) - ) - ) - ) + (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) - ) - ) - ) + (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) - ) - ) - ) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *snow-mood-lights-table* data)) + (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))) + (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)) ) -(update-mood-erase-color - (-> *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) - ) -(update-mood-erase-color - (-> *snow-mood-fog-table* data 6) - (-> *snow-mood-lights-table* data 3) - ) + +(update-mood-erase-color (-> *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)) + +(update-mood-erase-color (-> *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) ) + (update-mood-erase-color2 (-> *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) ) + (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)) ) + (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 ) + (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 ) + (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 ) + (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 ) + (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 ) + (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 ) + (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 ) + (vector4-lerp! (-> *snow-mood-fog-table* data 7 erase-color) (-> *snow-mood-fog-table* data 7 erase-color) @@ -1460,2026 +1041,1903 @@ 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) - ) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) - ) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *misty-mood-lights-table* data)) + (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))) + (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) - ) - ) - ) + (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) - ) - ) - ) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *village2-mood-lights-table* data)) + (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))) + (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) - ) + :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) - ) - ) - ) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *swamp-mood-lights-table* data)) + (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))) + (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) - ) + :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) - ) - ) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *sunken-mood-lights-table* data)) + (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))) + (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) - ) - ) + (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) - ) - ) - ) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *rolling-mood-lights-table* data)) + (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))) + (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) - ) + :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) - ) - ) - ) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *firecanyon-mood-lights-table* data)) + (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))) + (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) - ) - ) - ) + (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) - ) - ) - ) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *ogre-mood-lights-table* data)) + (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))) + (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)) + (update-mood-shadow-direction (-> *ogre-mood-lights-table* data 4)) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *ogre2-mood-lights-table* data)) + (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))) + (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)) + (update-mood-shadow-direction (-> *ogre2-mood-lights-table* data 4)) + (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) - ) - ) + (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) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *ogre3-mood-lights-table* data)) + (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) + ) + ) ) -;; definition for symbol *village3-mood-fog-table*, type mood-fog-table +(update-mood-shadow-direction (the-as mood-lights (-> *ogre3-mood-lights-table* data))) + (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) - ) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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) - ) - ) - ) - ) -(update-mood-shadow-direction - (the-as mood-lights (-> *lavatube-mood-lights-table* data)) + (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) + ) + ) + ) ) -;; definition for symbol *lavatube-mood-sun-table*, type mood-sun-table +(update-mood-shadow-direction (the-as mood-lights (-> *lavatube-mood-lights-table* data))) + (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) - ) - ) + (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) - ) - ) - ) + (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) - ) - ) - ) + (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) - ) + +(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) @@ -3487,331 +2945,478 @@ 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) - ) - ) + (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) - ) - ) + (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) - ) - ) + (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 (define *default-mood* (new 'global 'mood-context)) + (set! (-> *default-mood* mood-fog-table) *village1-mood-fog-table*) + (set! (-> *default-mood* mood-lights-table) *village1-mood-lights-table*) + (set! (-> *default-mood* mood-sun-table) *village1-mood-sun-table*) + (set! (-> *default-mood* fog-interp) *default-interp-table*) + (set! (-> *default-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *default-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *default-mood* num-stars) 85.0) -;; definition for symbol *village1-mood*, type mood-context (define *village1-mood* (new 'global 'mood-context)) + (set! (-> *village1-mood* mood-fog-table) *village1-mood-fog-table*) + (set! (-> *village1-mood* mood-lights-table) *village1-mood-lights-table*) + (set! (-> *village1-mood* mood-sun-table) *village1-mood-sun-table*) + (set! (-> *village1-mood* fog-interp) *default-interp-table*) + (set! (-> *village1-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *village1-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *village1-mood* num-stars) 85.0) + (make-village1-light-kit *village1-mood*) -;; definition for symbol *beach-mood*, type mood-context (define *beach-mood* (new 'global 'mood-context)) + (set! (-> *beach-mood* mood-fog-table) *village1-mood-fog-table*) + (set! (-> *beach-mood* mood-lights-table) *village1-mood-lights-table*) + (set! (-> *beach-mood* mood-sun-table) *village1-mood-sun-table*) + (set! (-> *beach-mood* fog-interp) *default-interp-table*) + (set! (-> *beach-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *beach-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *beach-mood* num-stars) 85.0) + (make-village1-light-kit *beach-mood*) -;; definition for symbol *jungle-mood*, type mood-context (define *jungle-mood* (new 'global 'mood-context)) + (set! (-> *jungle-mood* mood-fog-table) *village1-mood-fog-table*) + (set! (-> *jungle-mood* mood-lights-table) *village1-mood-lights-table*) + (set! (-> *jungle-mood* mood-sun-table) *village1-mood-sun-table*) + (set! (-> *jungle-mood* fog-interp) *default-interp-table*) + (set! (-> *jungle-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *jungle-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *jungle-mood* num-stars) 85.0) -;; definition for symbol *jungleb-mood*, type mood-context (define *jungleb-mood* (new 'global 'mood-context)) + (set! (-> *jungleb-mood* mood-fog-table) *jungleb-mood-fog-table*) + (set! (-> *jungleb-mood* mood-lights-table) *jungleb-mood-lights-table*) + (set! (-> *jungleb-mood* mood-sun-table) *jungleb-mood-sun-table*) + (set! (-> *jungleb-mood* fog-interp) *default-interp-table*) + (set! (-> *jungleb-mood* palette-interp) *default-interp-table*) + (set! (-> *jungleb-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *jungleb-mood* num-stars) 0.0) -;; definition for symbol *misty-mood*, type mood-context (define *misty-mood* (new 'global 'mood-context)) + (set! (-> *misty-mood* mood-fog-table) *misty-mood-fog-table*) + (set! (-> *misty-mood* mood-lights-table) *misty-mood-lights-table*) + (set! (-> *misty-mood* mood-sun-table) *misty-mood-sun-table*) + (set! (-> *misty-mood* fog-interp) *default-interp-table*) + (set! (-> *misty-mood* palette-interp) *misty-palette-interp-table*) + (set! (-> *misty-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *misty-mood* num-stars) 85.0) + (make-misty-light-kit *misty-mood*) -;; definition for symbol *firecanyon-mood*, type mood-context (define *firecanyon-mood* (new 'global 'mood-context)) + (set! (-> *firecanyon-mood* mood-fog-table) *firecanyon-mood-fog-table*) + (set! (-> *firecanyon-mood* mood-lights-table) *firecanyon-mood-lights-table*) + (set! (-> *firecanyon-mood* mood-sun-table) *firecanyon-mood-sun-table*) + (set! (-> *firecanyon-mood* fog-interp) *default-interp-table*) + (set! (-> *firecanyon-mood* palette-interp) *firecanyon-palette-interp-table*) + (set! (-> *firecanyon-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *firecanyon-mood* num-stars) 85.0) -;; definition for symbol *village2-mood*, type mood-context (define *village2-mood* (new 'global 'mood-context)) + (set! (-> *village2-mood* mood-fog-table) *village2-mood-fog-table*) + (set! (-> *village2-mood* mood-lights-table) *village2-mood-lights-table*) + (set! (-> *village2-mood* mood-sun-table) *village2-mood-sun-table*) + (set! (-> *village2-mood* fog-interp) *default-interp-table*) + (set! (-> *village2-mood* palette-interp) *misty-palette-interp-table*) + (set! (-> *village2-mood* sky-texture-interp) *village2-sky-texture-table*) + (set! (-> *village2-mood* num-stars) 0.0) + (make-village2-light-kit *village2-mood*) -;; definition for symbol *swamp-mood*, type mood-context (define *swamp-mood* (new 'global 'mood-context)) + (set! (-> *swamp-mood* mood-fog-table) *swamp-mood-fog-table*) + (set! (-> *swamp-mood* mood-lights-table) *swamp-mood-lights-table*) + (set! (-> *swamp-mood* mood-sun-table) *swamp-mood-sun-table*) + (set! (-> *swamp-mood* fog-interp) *default-interp-table*) + (set! (-> *swamp-mood* palette-interp) *misty-palette-interp-table*) + (set! (-> *swamp-mood* sky-texture-interp) *village2-sky-texture-table*) + (set! (-> *swamp-mood* num-stars) 0.0) -;; definition for symbol *sunken-mood*, type mood-context (define *sunken-mood* (new 'global 'mood-context)) + (set! (-> *sunken-mood* mood-fog-table) *sunken-mood-fog-table*) + (set! (-> *sunken-mood* mood-lights-table) *sunken-mood-lights-table*) + (set! (-> *sunken-mood* mood-sun-table) *sunken-mood-sun-table*) + (set! (-> *sunken-mood* fog-interp) *misty-palette-interp-table*) + (set! (-> *sunken-mood* palette-interp) *misty-palette-interp-table*) + (set! (-> *sunken-mood* sky-texture-interp) *misty-palette-interp-table*) + (set! (-> *sunken-mood* num-stars) 0.0) -;; definition for symbol *sunkenb-mood*, type mood-context (define *sunkenb-mood* (new 'global 'mood-context)) + (set! (-> *sunkenb-mood* mood-fog-table) *sunken-mood-fog-table*) + (set! (-> *sunkenb-mood* mood-lights-table) *sunken-mood-lights-table*) + (set! (-> *sunkenb-mood* mood-sun-table) *sunken-mood-sun-table*) + (set! (-> *sunkenb-mood* fog-interp) *misty-palette-interp-table*) + (set! (-> *sunkenb-mood* palette-interp) *misty-palette-interp-table*) + (set! (-> *sunkenb-mood* sky-texture-interp) *misty-palette-interp-table*) + (set! (-> *sunkenb-mood* num-stars) 0.0) -;; definition for symbol *rolling-mood*, type mood-context (define *rolling-mood* (new 'global 'mood-context)) + (set! (-> *rolling-mood* mood-fog-table) *rolling-mood-fog-table*) + (set! (-> *rolling-mood* mood-lights-table) *rolling-mood-lights-table*) + (set! (-> *rolling-mood* mood-sun-table) *rolling-mood-sun-table*) + (set! (-> *rolling-mood* fog-interp) *default-interp-table*) + (set! (-> *rolling-mood* palette-interp) *rolling-palette-interp-table*) + (set! (-> *rolling-mood* sky-texture-interp) *village2-sky-texture-table*) + (set! (-> *rolling-mood* num-stars) 0.0) + (make-rolling-light-kit *rolling-mood*) -;; definition for symbol *training-mood*, type mood-context (define *training-mood* (new 'global 'mood-context)) + (set! (-> *training-mood* mood-fog-table) *training-mood-fog-table*) + (set! (-> *training-mood* mood-lights-table) *village1-mood-lights-table*) + (set! (-> *training-mood* mood-sun-table) *village1-mood-sun-table*) + (set! (-> *training-mood* fog-interp) *default-interp-table*) + (set! (-> *training-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *training-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *training-mood* num-stars) 85.0) -;; definition for symbol *maincave-mood*, type mood-context (define *maincave-mood* (new 'global 'mood-context)) + (set! (-> *maincave-mood* mood-fog-table) *maincave-mood-fog-table*) + (set! (-> *maincave-mood* mood-lights-table) *maincave-mood-lights-table*) + (set! (-> *maincave-mood* mood-sun-table) *maincave-mood-sun-table*) + (set! (-> *maincave-mood* fog-interp) *default-interp-table*) + (set! (-> *maincave-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *maincave-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *maincave-mood* num-stars) 0.0) -;; definition for symbol *darkcave-mood*, type mood-context (define *darkcave-mood* (new 'global 'mood-context)) + (set! (-> *darkcave-mood* mood-fog-table) *darkcave-mood-fog-table*) + (set! (-> *darkcave-mood* mood-lights-table) *darkcave-mood-lights-table*) + (set! (-> *darkcave-mood* mood-sun-table) *darkcave-mood-sun-table*) + (set! (-> *darkcave-mood* fog-interp) *default-interp-table*) + (set! (-> *darkcave-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *darkcave-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *darkcave-mood* num-stars) 0.0) -;; definition for symbol *robocave-mood*, type mood-context (define *robocave-mood* (new 'global 'mood-context)) + (set! (-> *robocave-mood* mood-fog-table) *robocave-mood-fog-table*) + (set! (-> *robocave-mood* mood-lights-table) *maincave-mood-lights-table*) + (set! (-> *robocave-mood* mood-sun-table) *maincave-mood-sun-table*) + (set! (-> *robocave-mood* fog-interp) *default-interp-table*) + (set! (-> *robocave-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *robocave-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *robocave-mood* num-stars) 0.0) -;; definition for symbol *snow-mood*, type mood-context (define *snow-mood* (new 'global 'mood-context)) + (set! (-> *snow-mood* mood-fog-table) *snow-mood-fog-table*) + (set! (-> *snow-mood* mood-lights-table) *snow-mood-lights-table*) + (set! (-> *snow-mood* mood-sun-table) *snow-mood-sun-table*) + (set! (-> *snow-mood* fog-interp) *default-interp-table*) + (set! (-> *snow-mood* palette-interp) *firecanyon-palette-interp-table*) + (set! (-> *snow-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *snow-mood* num-stars) 0.0) -;; definition for symbol *ogre-mood*, type mood-context (define *ogre-mood* (new 'global 'mood-context)) + (set! (-> *ogre-mood* mood-fog-table) *ogre-mood-fog-table*) + (set! (-> *ogre-mood* mood-lights-table) *ogre-mood-lights-table*) + (set! (-> *ogre-mood* mood-sun-table) *rolling-mood-sun-table*) + (set! (-> *ogre-mood* fog-interp) *default-interp-table*) + (set! (-> *ogre-mood* palette-interp) *rolling-palette-interp-table*) + (set! (-> *ogre-mood* sky-texture-interp) *village2-sky-texture-table*) + (set! (-> *ogre-mood* num-stars) 0.0) -;; definition for symbol *ogre2-mood*, type mood-context (define *ogre2-mood* (new 'global 'mood-context)) + (set! (-> *ogre2-mood* mood-fog-table) *ogre-mood-fog-table*) + (set! (-> *ogre2-mood* mood-lights-table) *ogre2-mood-lights-table*) + (set! (-> *ogre2-mood* mood-sun-table) *rolling-mood-sun-table*) + (set! (-> *ogre2-mood* fog-interp) *default-interp-table*) + (set! (-> *ogre2-mood* palette-interp) *rolling-palette-interp-table*) + (set! (-> *ogre2-mood* sky-texture-interp) *village2-sky-texture-table*) + (set! (-> *ogre2-mood* num-stars) 0.0) -;; definition for symbol *ogre3-mood*, type mood-context (define *ogre3-mood* (new 'global 'mood-context)) + (set! (-> *ogre3-mood* mood-fog-table) *ogre3-mood-fog-table*) + (set! (-> *ogre3-mood* mood-lights-table) *ogre3-mood-lights-table*) + (set! (-> *ogre3-mood* mood-sun-table) *rolling-mood-sun-table*) + (set! (-> *ogre3-mood* fog-interp) *default-interp-table*) + (set! (-> *ogre3-mood* palette-interp) *rolling-palette-interp-table*) + (set! (-> *ogre3-mood* sky-texture-interp) *village2-sky-texture-table*) + (set! (-> *ogre3-mood* num-stars) 0.0) -;; definition for symbol *village3-mood*, type mood-context (define *village3-mood* (new 'global 'mood-context)) + (set! (-> *village3-mood* mood-fog-table) *village3-mood-fog-table*) + (set! (-> *village3-mood* mood-lights-table) *village3-mood-lights-table*) + (set! (-> *village3-mood* mood-sun-table) *village1-mood-sun-table*) + (set! (-> *village3-mood* fog-interp) *default-interp-table*) + (set! (-> *village3-mood* palette-interp) *firecanyon-palette-interp-table*) + (set! (-> *village3-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *village3-mood* num-stars) 0.0) + (make-village3-light-kit *village3-mood*) -;; definition for symbol *finalboss-mood*, type mood-context (define *finalboss-mood* (new 'global 'mood-context)) + (set! (-> *finalboss-mood* mood-fog-table) *finalboss-mood-fog-table*) + (set! (-> *finalboss-mood* mood-lights-table) *village1-mood-lights-table*) + (set! (-> *finalboss-mood* mood-sun-table) *finalboss-mood-sun-table*) + (set! (-> *finalboss-mood* fog-interp) *finalboss-interp-table*) + (set! (-> *finalboss-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *finalboss-mood* sky-texture-interp) *finalboss-interp-table*) + (set! (-> *finalboss-mood* num-stars) 85.0) -;; definition for symbol *finalboss2-mood*, type mood-context (define *finalboss2-mood* (new 'global 'mood-context)) + (set! (-> *finalboss2-mood* mood-fog-table) *finalboss-mood-fog-table*) + (set! (-> *finalboss2-mood* mood-lights-table) *village1-mood-lights-table*) + (set! (-> *finalboss2-mood* mood-sun-table) *finalboss-mood-sun-table*) + (set! (-> *finalboss2-mood* fog-interp) *finalboss-interp-table*) + (set! (-> *finalboss2-mood* palette-interp) *village1-palette-interp-table*) + (set! (-> *finalboss2-mood* sky-texture-interp) *finalboss-interp-table*) + (set! (-> *finalboss2-mood* num-stars) 0.0) -;; definition for symbol *lavatube-mood*, type mood-context (define *lavatube-mood* (new 'global 'mood-context)) + (set! (-> *lavatube-mood* mood-fog-table) *lavatube-mood-fog-table*) + (set! (-> *lavatube-mood* mood-lights-table) *lavatube-mood-lights-table*) + (set! (-> *lavatube-mood* mood-sun-table) *lavatube-mood-sun-table*) + (set! (-> *lavatube-mood* fog-interp) *default-interp-table*) + (set! (-> *lavatube-mood* palette-interp) *default-interp-table*) + (set! (-> *lavatube-mood* sky-texture-interp) *default-interp-table*) + (set! (-> *lavatube-mood* num-stars) 0.0) -;; definition for symbol *citadel-mood*, type mood-context (define *citadel-mood* (new 'global 'mood-context)) + (set! (-> *citadel-mood* mood-fog-table) *citadel-mood-fog-table*) + (set! (-> *citadel-mood* mood-lights-table) *citadel-mood-lights-table*) + (set! (-> *citadel-mood* mood-sun-table) *citadel-mood-sun-table*) + (set! (-> *citadel-mood* fog-interp) *default-interp-table*) + (set! (-> *citadel-mood* palette-interp) *default-interp-table*) + (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 5752fa9fc..252883d49 100644 --- a/goal_src/engine/ambient/mood.gc +++ b/goal_src/engine/ambient/mood.gc @@ -16,10 +16,8 @@ (defun update-light-kit ((arg0 light-group) (arg1 light) (arg2 float)) (set! (-> arg0 ambi color quad) (-> arg1 color quad)) - (let ((f0-1 (* (-> arg1 levels x) arg2))) - (set! (-> arg0 ambi levels x) f0-1) - f0-1 - ) + (set! (-> arg0 ambi levels x) (* (-> arg1 levels x) arg2)) + (none) ) (defun set-target-light-index ((arg0 int)) @@ -60,6 +58,17 @@ (t3-1 uint128) (f31-0 none) ) + ;; pc mood debug + (with-pc + (case (-> *pc-settings* mood-override?) + (('copy #t) + (dotimes (mti 8) + (set! (-> arg0 times mti w) (-> *pc-settings* mood-overrides mti))) + ) + (('mult) + (dotimes (mti 8) + (*! (-> arg0 times mti w) (-> *pc-settings* mood-overrides mti))) + ))) (rlet ((vf1 :class vf) (vf2 :class vf) (vf3 :class vf) diff --git a/goal_src/engine/camera/math-camera.gc b/goal_src/engine/camera/math-camera.gc index 6a210bf6c..19226ad01 100644 --- a/goal_src/engine/camera/math-camera.gc +++ b/goal_src/engine/camera/math-camera.gc @@ -45,7 +45,17 @@ ((-> *pc-settings* use-vis?) ;; using game vis, cannot allow seeing more of the view ;; crops excess aspect ratio at the top and bottom - (set! (-> math-cam y-ratio) (* (1/ (-> *pc-settings* aspect-ratio)) (-> math-cam x-ratio))) + ;(set! (-> math-cam y-ratio) (* (1/ (-> *pc-settings* aspect-ratio)) (-> math-cam x-ratio))) + ) + ((-> *pc-settings* movie?) + ;; this mess is just so that we can force the original 16x9 cropping during cutscenes. + (if (<= (-> *pc-settings* aspect-ratio) ASPECT_16X9) + (set! (-> math-cam y-ratio) (* (1/ (-> *pc-settings* aspect-ratio)) (-> math-cam x-ratio))) + (begin + (set! (-> math-cam y-ratio) (* (1/ ASPECT_16X9) (-> math-cam x-ratio))) + (*! (-> math-cam x-ratio) (/ (-> *pc-settings* aspect-ratio) ASPECT_16X9)) + ) + ) ) (else ;; not using game vis, allow *extended* aspect ratios diff --git a/goal_src/engine/debug/default-menu.gc b/goal_src/engine/debug/default-menu.gc index 503a07ed5..fd32fae33 100644 --- a/goal_src/engine/debug/default-menu.gc +++ b/goal_src/engine/debug/default-menu.gc @@ -4285,6 +4285,38 @@ (= (-> *pc-settings* subtitle-speaker?) setting) ) +(defun dm-mood-override-palette-pick-func ((bpal int) (msg debug-menu-msg)) + (let* ((pal (/ bpal 8)) + (cur-val (-> *pc-settings* mood-overrides pal))) + + (when (= msg (debug-menu-msg press)) + (set! (-> *pc-settings* mood-overrides pal) (if (= cur-val 0.0) 1.0 0.0)) + + (when (not (= 'mult (-> *pc-settings* mood-override?))) + (set! (-> *pc-settings* mood-override?) #f) + (dotimes (i 8) + (if (!= (-> *pc-settings* mood-overrides i) 0.0) + (set! (-> *pc-settings* mood-override?) 'copy))) + )) + + (= (-> *pc-settings* mood-overrides pal) 1.0) + ) + ) + +(defun dm-mood-override-pick-func ((kind symbol) (msg debug-menu-msg)) + (when (= msg (debug-menu-msg press)) + (if (= kind (-> *pc-settings* mood-override?)) + (set! (-> *pc-settings* mood-override?) #f) + (set! (-> *pc-settings* mood-override?) kind))) + (= kind (-> *pc-settings* mood-override?)) + ) + +(defun dm-mood-palette-float ((pal int) (arg1 debug-menu-msg) (newval float) (val float)) + (when (= arg1 (debug-menu-msg press)) + (set! (-> *pc-settings* mood-overrides (/ pal 8)) newval)) + (-> *pc-settings* mood-overrides (/ pal 8)) + ) + (when (-> *debug-menu-context* root-menu) (debug-menu-append-item (-> *debug-menu-context* root-menu) (debug-menu-make-load-menu *debug-menu-context*)) (debug-menu-append-item (-> *debug-menu-context* root-menu) (debug-menu-make-part-menu *debug-menu-context*)) @@ -4350,6 +4382,7 @@ ) (flag "Letterbox" #f ,(dm-lambda-boolean-flag (-> *pc-settings* letterbox?))) ;(flag "Skip movies" #f ,(dm-lambda-boolean-flag (-> *pc-settings* skip-movies?))) + (flag "Money starburst" #f ,(dm-lambda-boolean-flag (-> *pc-settings* money-starburst?))) (flag "Subtitles" #f ,(dm-lambda-boolean-flag (-> *pc-settings* subtitles?))) ;(flag "Hinttitles" #f ,(dm-lambda-boolean-flag (-> *pc-settings* hinttitles?))) (menu "Subtitle speaker" @@ -4412,7 +4445,7 @@ (debug-menu-make-from-template *debug-menu-context* '(menu "Other" (flag "DECI Count" *display-deci-count* dm-boolean-toggle-pick-func) - (flag "Actor graph" *display-actor-graph* dm-boolean-toggle-pick-func) + ;(flag "Actor graph" *display-actor-graph* dm-boolean-toggle-pick-func) (flag "Update vis outside bsp" *update-leaf-when-outside-bsp* dm-boolean-toggle-pick-func) (flag "Pad display" #f ,(dm-lambda-boolean-flag (-> *pc-settings* debug-pad-display))) (flag "Display actor bank" #f ,(dm-lambda-boolean-flag (-> *pc-settings* display-actor-bank))) @@ -4421,6 +4454,29 @@ (flag "Heap status" #f ,(dm-lambda-boolean-flag (-> *pc-settings* display-heap-status))) (flag "Bug report" #f ,(dm-lambda-boolean-flag (-> *pc-settings* display-bug-report))) (flag "Force progress" #f ,(dm-lambda-boolean-flag (-> *pc-settings* progress-force?))) + (menu "Mood override" + (function "-- SIMPLE OVERRIDE" #f nothing) + (flag "Palette 0" 0 dm-mood-override-palette-pick-func) + (flag "Palette 1" 1 dm-mood-override-palette-pick-func) + (flag "Palette 2" 2 dm-mood-override-palette-pick-func) + (flag "Palette 3" 3 dm-mood-override-palette-pick-func) + (flag "Palette 4" 4 dm-mood-override-palette-pick-func) + (flag "Palette 5" 5 dm-mood-override-palette-pick-func) + (flag "Palette 6" 6 dm-mood-override-palette-pick-func) + (flag "Palette 7" 7 dm-mood-override-palette-pick-func) + (menu "Advanced" + (flag "Overwrite" copy dm-mood-override-pick-func) + (flag "Multiply" mult dm-mood-override-pick-func) + (float-fixed-var "Palette 0 Amt" 0 dm-mood-palette-float 0 10 #t 0 1000 3) + (float-fixed-var "Palette 1 Amt" 1 dm-mood-palette-float 0 10 #t 0 1000 3) + (float-fixed-var "Palette 2 Amt" 2 dm-mood-palette-float 0 10 #t 0 1000 3) + (float-fixed-var "Palette 3 Amt" 3 dm-mood-palette-float 0 10 #t 0 1000 3) + (float-fixed-var "Palette 4 Amt" 4 dm-mood-palette-float 0 10 #t 0 1000 3) + (float-fixed-var "Palette 5 Amt" 5 dm-mood-palette-float 0 10 #t 0 1000 3) + (float-fixed-var "Palette 6 Amt" 6 dm-mood-palette-float 0 10 #t 0 1000 3) + (float-fixed-var "Palette 7 Amt" 7 dm-mood-palette-float 0 10 #t 0 1000 3) + ) + ) ) )) (other-menu (-> (the-as debug-menu-item-submenu other-menu-node) submenu)) diff --git a/goal_src/engine/debug/menu.gc b/goal_src/engine/debug/menu.gc index d85051243..15b66ef2e 100644 --- a/goal_src/engine/debug/menu.gc +++ b/goal_src/engine/debug/menu.gc @@ -668,7 +668,7 @@ (/ (the-as int (ref arg1 8)) 8) (= s4-0 'hex-var) ) - ;; changed... i have no idea what they were doing here + ;; changed... i have no idea what they were trying to do here (set! (-> (the-as debug-menu-item-var s5-0) ifloat-p) (= s4-0 'int-var-gat1));;#t) s5-0 ) diff --git a/goal_src/engine/draw/drawable.gc b/goal_src/engine/draw/drawable.gc index f856107e2..4fb41b2e2 100644 --- a/goal_src/engine/draw/drawable.gc +++ b/goal_src/engine/draw/drawable.gc @@ -711,13 +711,24 @@ ) ) ) - (if (and (< (-> arg1 lod-set lod lod-to-use dist) cam-dist) (< (-> arg1 force-lod) 0)) + ;; lod hacks! + (with-pc + (if (not (-> *pc-settings* ps2-lod-dist?)) + (set! lod-to-use (minmax (-> *pc-settings* lod-force-actor) 0 (-> arg1 lod-set max-lod)))) + ) + (if (#if (not PC_PORT) + (and (< (-> arg1 lod-set lod lod-to-use dist) cam-dist) (< (-> arg1 force-lod) 0)) + (and (-> *pc-settings* ps2-lod-dist?) (< (-> arg1 lod-set lod lod-to-use dist) cam-dist) (< (-> arg1 force-lod) 0)) + ) (return #f) ) (let ((v1-64 (-> arg1 sink-group level)) (a0-26 (+ (-> arg1 sink-group merc-sink foreground-texture-page) 6)) ) - (when (zero? (logand (-> arg1 status) (draw-status do-not-check-distance))) + (when (#if (not PC_PORT) + (not (logtest? (-> arg1 status) (draw-status do-not-check-distance))) + (and (-> *pc-settings* ps2-lod-dist?) (not (logtest? (-> arg1 status) (draw-status do-not-check-distance)))) + ) (if (< cam-dist (-> v1-64 closest-object a0-26)) (set! (-> v1-64 closest-object a0-26) cam-dist) ) diff --git a/goal_src/engine/draw/process-drawable.gc b/goal_src/engine/draw/process-drawable.gc index f6bd342fc..b28bf6a30 100644 --- a/goal_src/engine/draw/process-drawable.gc +++ b/goal_src/engine/draw/process-drawable.gc @@ -85,11 +85,6 @@ ) (defmethod lod-set! draw-control ((obj draw-control) (arg0 int)) - ;; note: good spot to mess with lods here. - (with-pc - (if (not (-> *pc-settings* ps2-lod-dist?)) - (set! arg0 (-> *pc-settings* lod-force-actor))) - ) (let ((v1-1 (max 0 (min arg0 (-> obj lod-set max-lod))))) (set! (-> obj desired-lod) v1-1) (when (!= (-> obj cur-lod) v1-1) diff --git a/goal_src/engine/entity/entity-table.gc b/goal_src/engine/entity/entity-table.gc index e599c28a7..9bd5a0a6e 100644 --- a/goal_src/engine/entity/entity-table.gc +++ b/goal_src/engine/entity/entity-table.gc @@ -140,7 +140,7 @@ :package "game" :art-group '() :pool '*16k-dead-pool* - :heap-size #x800 + :heap-size #xc00 ;; CHANGED from 2k!! ) (new 'static 'entity-info :ptype (type-ref water-vol :method-count 30) diff --git a/goal_src/engine/game/collectables-part.gc b/goal_src/engine/game/collectables-part.gc index b4d7a9abd..9c4d91e93 100644 --- a/goal_src/engine/game/collectables-part.gc +++ b/goal_src/engine/game/collectables-part.gc @@ -2174,6 +2174,24 @@ ) ) +;; customized +(defpart 238 + :init-specs + ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2)) + (sp-flt spt-num 1.0) + (sp-flt spt-scale-x (meters 1.2)) + (sp-copy-from-other spt-scale-y -4) + (sp-flt spt-r 128.0) + (sp-flt spt-g 128.0) + (sp-flt spt-b 128.0) + (sp-flt spt-a 128.0) + (sp-int spt-timer 1) + (sp-cpuinfo-flags bit2 bit3) + (sp-func spt-func 'sparticle-track-root-money) + ) + ) + +;; customized (defpartgroup group-money-starburst :id 64 :bounds (static-bspherem 0 0.5 0 1.5) :parts ((sp-item 238))) (defpartgroup group-buzzer-effect diff --git a/goal_src/engine/game/collectables.gc b/goal_src/engine/game/collectables.gc index 5bc8d2718..fde83563a 100644 --- a/goal_src/engine/game/collectables.gc +++ b/goal_src/engine/game/collectables.gc @@ -122,7 +122,7 @@ (die () _type_ :state 24) (jump () _type_ :state 25) (notice-blue (handle) _type_ :state 26) - (get-pickup-sound (_type_ pickup-type) ambient-sound 27) + (initialize-effect (_type_ pickup-type) none 27) (initialize-eco (_type_ entity-actor pickup-type float) object 28) (animate (_type_) none 29) (blocked () _type_ :state 30) @@ -158,7 +158,7 @@ obj ) -(defmethod get-pickup-sound eco-collectable ((obj eco-collectable) (arg0 pickup-type)) +(defmethod initialize-effect eco-collectable ((obj eco-collectable) (arg0 pickup-type)) (set! (-> obj fact pickup-type) arg0) (case (-> obj fact pickup-type) (((pickup-type eco-blue) (pickup-type eco-red) (pickup-type eco-green) (pickup-type eco-yellow)) @@ -235,11 +235,9 @@ ) (set! (-> obj part) (create-launch-control (-> obj eco-effect) obj)) (when (-> obj sound-name) - (let ((v0-1 (new 'process 'ambient-sound (-> obj sound-name) (-> obj root-override trans)))) - (set! (-> obj sound) v0-1) - v0-1 - ) + (set! (-> obj sound) (new 'process 'ambient-sound (-> obj sound-name) (-> obj root-override trans))) ) + (none) ) (defbehavior initialize-eco-by-other eco ((arg0 vector) (arg1 vector) (arg2 fact-info)) @@ -255,7 +253,7 @@ (set! (-> self fact options) (-> arg2 options)) (set! (-> self root-override trans quad) (-> arg0 quad)) (set! (-> self root-override transv quad) (-> arg1 quad)) - (get-pickup-sound self (-> self fact pickup-type)) + (initialize-effect self (-> self fact pickup-type)) (set! (-> self notify-parent) #f) (case (-> self fact pickup-type) (((pickup-type eco-blue) (pickup-type eco-yellow) (pickup-type eco-red)) @@ -287,7 +285,7 @@ (set! (-> obj pickup-type) arg1) (initialize obj) (set! (-> obj root-override trans quad) (-> arg0 extra trans quad)) - (get-pickup-sound obj (-> obj fact pickup-type)) + (initialize-effect obj (-> obj fact pickup-type)) (initialize-params obj 0 (the-as float 1024.0)) (update-transforms! (-> obj root-override)) (if (logtest? (fact-options eco-blocked) (-> obj fact options)) @@ -1213,7 +1211,7 @@ (* f30-0 (sin (* 109.22667 - (the float (mod (+ (- (-> *display* base-frame-counter) (-> self birth-time)) (-> self bob-offset)) 600)) + (the float (mod (+ (- (-> *display* base-frame-counter) (-> self birth-time)) (-> self bob-offset)) (seconds 2))) ) ) ) @@ -1223,6 +1221,10 @@ ) ) (ja-post) + ;; added! particle + (with-pc + (if (-> *pc-settings* money-starburst?) + (spawn (-> self part) (-> self root-override root-prim world-sphere)))) (suspend) ) (none) @@ -1249,7 +1251,7 @@ (* f30-0 (sin (* 109.22667 - (the float (mod (+ (- (-> *display* base-frame-counter) (-> self birth-time)) (-> self bob-offset)) 600)) + (the float (mod (+ (- (-> *display* base-frame-counter) (-> self birth-time)) (-> self bob-offset)) (seconds 2))) ) ) ) @@ -1258,6 +1260,10 @@ ) ) (transform-post) + ;; added! particle + (with-pc + (if (-> *pc-settings* money-starburst?) + (spawn (-> self part) (-> self root-override root-prim world-sphere)))) (suspend) ) (none) @@ -1268,6 +1274,9 @@ :virtual #t :code (behavior ((arg0 object) (arg1 handle)) + (if (nonzero? (-> self part)) + (kill-and-free-particles (-> self part)) + ) (logclear! (-> self mask) (process-mask actor-pause)) (clear-collide-with-as (-> self root-override)) (process-entity-status! self (entity-perm-status dead) #t) @@ -1315,6 +1324,8 @@ ) (set-vector! (-> obj draw color-mult) 0.8 0.8 0.8 1.0) (set-vector! (-> obj draw color-emissive) 0.2 0.2 0.2 1.0) + ;; added! money starburst + (set! (-> obj part) (create-launch-control (-> *part-group-id-table* 64) obj)) obj ) @@ -2559,7 +2570,7 @@ ;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 356] ;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 363] ;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 122] -(defbehavior birth-pickup-at-point process ((arg0 vector) (arg1 pickup-type) (arg2 float) (arg3 symbol) (arg4 process-drawable) (arg5 fact-info)) +(defbehavior birth-pickup-at-point process ((arg0 vector) (arg1 pickup-type) (arg2 float) (arg3 symbol) (arg4 process-tree) (arg5 fact-info)) (local-vars (v1-2 basic) (v1-28 symbol) diff --git a/goal_src/engine/game/game-info.gc b/goal_src/engine/game/game-info.gc index f826c8b33..8f59382ce 100644 --- a/goal_src/engine/game/game-info.gc +++ b/goal_src/engine/game/game-info.gc @@ -240,7 +240,7 @@ "demo-start" ) (*debug-segment* - (#if (user? dass) "citadel-launch-end" "village1-hut") + (#if (user? dass) "village1-warp" "village1-hut") ) (else "title-start" diff --git a/goal_src/engine/game/generic-obs-h.gc b/goal_src/engine/game/generic-obs-h.gc index 6bc962148..b3ae76c9a 100644 --- a/goal_src/engine/game/generic-obs-h.gc +++ b/goal_src/engine/game/generic-obs-h.gc @@ -14,7 +14,7 @@ (define-extern fuel-cell type) -(define-extern birth-pickup-at-point (function vector pickup-type float symbol process-drawable fact-info (pointer process) :behavior process)) +(define-extern birth-pickup-at-point (function vector pickup-type float symbol process-tree fact-info (pointer process) :behavior process)) (declare-type collide-shape-moving basic) (declare-type sparticle-launch-group basic) diff --git a/goal_src/engine/game/main.gc b/goal_src/engine/game/main.gc index df66ed5b3..80ddd3519 100644 --- a/goal_src/engine/game/main.gc +++ b/goal_src/engine/game/main.gc @@ -20,8 +20,39 @@ (with-dma-buffer-add-bucket ((dma-buf (-> (current-frame) global-buf)) (bucket-id debug-draw1)) ;; debug-draw1 is one of the last buckets ;; draw the two sprites - (draw-sprite2d-xy dma-buf 0 0 512 25 (new 'static 'rgba :a #x80)) - (draw-sprite2d-xy dma-buf 0 199 512 26 (new 'static 'rgba :a #x80)) + (#cond + ((not PC_PORT) + (draw-sprite2d-xy dma-buf 0 0 512 25 (new 'static 'rgba :a #x80)) + (draw-sprite2d-xy dma-buf 0 199 512 26 (new 'static 'rgba :a #x80)) + ) + (#t + (if (-> *pc-settings* use-vis?) + ;; original game mode. dont do anything. + (begin + (draw-sprite2d-xy dma-buf 0 0 512 25 (new 'static 'rgba :a #x80)) + (draw-sprite2d-xy dma-buf 0 199 512 26 (new 'static 'rgba :a #x80))) + ;; native mode. force 16x9 letterboxing always. + (begin + (cond + ((< (-> *pc-settings* aspect-ratio) ASPECT_16X9) + ;; too tall. needs vertical letterboxing. + (let ((lbx-h (the int (* 112.0 (- 1.0 (/ (-> *pc-settings* aspect-ratio) ASPECT_16X9)))))) + (draw-sprite2d-xy dma-buf 0 0 512 lbx-h (new 'static 'rgba :a #x80)) + (draw-sprite2d-xy dma-buf 0 (- 224 lbx-h) 512 lbx-h (new 'static 'rgba :a #x80)) + ) + ) + ((> (-> *pc-settings* aspect-ratio) ASPECT_16X9) + ;; too wide. needs horizontal letterboxing. + (let ((lbx-w (the int (* 256.0 (- 1.0 (/ ASPECT_16X9 (-> *pc-settings* aspect-ratio))))))) + (draw-sprite2d-xy dma-buf 0 0 lbx-w 224 (new 'static 'rgba :a #x80)) + (draw-sprite2d-xy dma-buf (- 512 lbx-w) 0 lbx-w 224 (new 'static 'rgba :a #x80)) + ) + ) + ) + ) + ) + ) + ) ) (none) ) @@ -314,15 +345,6 @@ (define *progress-cheat* #f) (define *first-boot* #t) ;; PAL -(defmacro cheats-sound-play (cheat?) - "play the appropriate sound for inputting a cheat code" - - `(if ,cheat? - (sound-play-by-name (static-sound-name "select-menu") (new-sound-id) 1024 0 0 1 #t) - (sound-play-by-name (static-sound-name "cursor-options") (new-sound-id) 1024 0 0 1 #t) - ) - ) - (defun main-cheats () "Handle cheat codes and timeout" @@ -672,7 +694,9 @@ (if (< (-> *game-info* letterbox-time) (-> *display* base-frame-counter)) (set! (-> *game-info* letterbox-time) (-> *display* base-frame-counter)) ) - (if (= (-> *setting-control* current aspect-ratio) 'aspect4x3) + (if (#if (not PC_PORT) + (= (-> *setting-control* current aspect-ratio) 'aspect4x3) + (or (not (-> *pc-settings* use-vis?)) (and (-> *pc-settings* use-vis?) (= (-> *setting-control* current aspect-ratio) 'aspect4x3)))) (letterbox) ) ) diff --git a/goal_src/engine/game/powerups.gc b/goal_src/engine/game/powerups.gc index 1a05e3a14..d6f5a3efe 100644 --- a/goal_src/engine/game/powerups.gc +++ b/goal_src/engine/game/powerups.gc @@ -642,6 +642,7 @@ ) ((< 0.0 (-> self control unknown-float141)) (set! (-> self control unknown-float141) 0.0) + (#when PC_DEBUG_SOUND_ENABLE (let ((v1-64 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) (set! (-> v1-64 command) (sound-command set-param)) (set! (-> v1-64 id) (-> self control unknown-soundid00)) @@ -651,6 +652,7 @@ (set! (-> v1-64 parms mask) (the-as uint 17)) (-> v1-64 id) ) + ) ) ) (let ((v1-67 (-> *time-of-day-context* current-shadow)) diff --git a/goal_src/engine/game/projectiles.gc b/goal_src/engine/game/projectiles.gc index ff4467f4f..58d4cd59e 100644 --- a/goal_src/engine/game/projectiles.gc +++ b/goal_src/engine/game/projectiles.gc @@ -1059,23 +1059,23 @@ ) ) (#when PC_DEBUG_SOUND_ENABLE - (let ((s5-0 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) - (set! (-> s5-0 command) (sound-command set-param)) - (set! (-> s5-0 id) (-> obj sound-id)) - (let ((a1-3 (-> obj root-override trans))) - (let ((gp-1 pp)) - (when (= a1-3 #t) - (if (and gp-1 (type-type? (-> gp-1 type) process-drawable) (nonzero? (-> (the-as process-drawable gp-1) root))) - (set! a1-3 (-> (the-as process-drawable gp-1) root trans)) - (set! a1-3 (the-as vector #f)) - ) - ) + (let ((s5-0 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) + (set! (-> s5-0 command) (sound-command set-param)) + (set! (-> s5-0 id) (-> obj sound-id)) + (let ((a1-3 (-> obj root-override trans))) + (let ((gp-1 pp)) + (when (= a1-3 #t) + (if (and gp-1 (type-type? (-> gp-1 type) process-drawable) (nonzero? (-> (the-as process-drawable gp-1) root))) + (set! a1-3 (-> (the-as process-drawable gp-1) root trans)) + (set! a1-3 (the-as vector #f)) + ) ) - (sound-trans-convert (-> s5-0 parms trans) a1-3) ) - (set! (-> s5-0 parms mask) (the-as uint 32)) - (-> s5-0 id) + (sound-trans-convert (-> s5-0 parms trans) a1-3) ) + (set! (-> s5-0 parms mask) (the-as uint 32)) + (-> s5-0 id) + ) ) 0 (none) diff --git a/goal_src/engine/gfx/sprite/sprite.gc b/goal_src/engine/gfx/sprite/sprite.gc index d564d95b3..11efc8947 100644 --- a/goal_src/engine/gfx/sprite/sprite.gc +++ b/goal_src/engine/gfx/sprite/sprite.gc @@ -555,11 +555,10 @@ ) (#when PC_PORT (when (and *pc-settings* (not (-> *pc-settings* use-vis?))) - ;; these are the values used when the game is in 4x3 - ;; when the game is in widescreen, HUD sprites are generally enlarged, which looks terrible - (set! f1-0 (the-as float #xbeccdcf4)) - (set! f2-0 (the-as float #xbe6f01c8)) - (set! f0-1 (the-as float #x3f4cd277)) + ;; when the game is in widescreen, HUD sprites are generally enlarged, which looks terrible. + ;; this reverts that. + (*! f1-0 (-> *pc-settings* aspect-ratio-scale)) + (*! f0-1 (-> *pc-settings* aspect-ratio-scale)) ) ) (set-vector! (-> mtx2 vector 0) f0-1 0.0 0.0 0.0) diff --git a/goal_src/engine/gfx/time-of-day.gc b/goal_src/engine/gfx/time-of-day.gc index 2e82caac4..5a663d622 100644 --- a/goal_src/engine/gfx/time-of-day.gc +++ b/goal_src/engine/gfx/time-of-day.gc @@ -274,25 +274,20 @@ (set-vector! (-> arg0 title-light-group ambi color) 0.5 0.5 0.5 1.0) (set! (-> arg0 title-light-group dir0 levels x) 1.0) (set! (-> arg0 title-light-group dir1 levels x) 1.0) - (let ((f0-14 1.0)) - (set! (-> arg0 title-light-group ambi levels x) f0-14) - f0-14 - ) - ) + (set! (-> arg0 title-light-group ambi levels x) 1.0) + (none)) (defun update-time-of-day ((arg0 time-of-day-context)) "Update the time of day context" ;; set defaults (set! (-> arg0 sky) #f) - (set! (-> arg0 target-interp) 0.0) - ;; TODO re-enable + (set! (-> arg0 target-interp) 0.0) (when *target* (set! (-> *target* draw light-index) (the-as uint 0)) (when (-> *target* sidekick) (set! (-> *target* sidekick 0 draw light-index) (the-as uint 0)) - 0 ) ) diff --git a/goal_src/engine/level/level.gc b/goal_src/engine/level/level.gc index 8bb1679c6..c87ed8959 100644 --- a/goal_src/engine/level/level.gc +++ b/goal_src/engine/level/level.gc @@ -1505,7 +1505,7 @@ (let ((startup-level (case *kernel-boot-message* (('play) (if *debug-segment* - (#if (user? dass) 'citadel 'village1) + 'village1 'title ) ) diff --git a/goal_src/engine/pc/pckernel-h.gc b/goal_src/engine/pc/pckernel-h.gc index 5bccaf42f..99480b063 100644 --- a/goal_src/engine/pc/pckernel-h.gc +++ b/goal_src/engine/pc/pckernel-h.gc @@ -32,7 +32,7 @@ (defglobalconstant PC_KERNEL_VERSION_BUILD #x0001) -(defglobalconstant PC_KERNEL_VERSION_REVISION #x0001) +(defglobalconstant PC_KERNEL_VERSION_REVISION #x0002) (defglobalconstant PC_KERNEL_VERSION_MINOR #x0000) (defglobalconstant PC_KERNEL_VERSION_MAJOR #x0001) @@ -109,6 +109,21 @@ (test) ) +;; cheats +(defenum pc-cheats + :bitfield #t + :type uint64 + (eco-green) + (eco-red) + (eco-blue) + (eco-yellow) + (invinc) + (sidekick-blue) + ) + +(defmacro pc-cheats? (obj &rest cheats) + `(logtest? (-> ,obj cheats) (pc-cheats ,@cheats))) + ;; secrets and goodies (deftype pc-game-secrets (structure) ((art pc-jak1-concept-art) ;; concept art unlocked @@ -120,7 +135,10 @@ (hero-mode? symbol) ;; unsure how this should work (hud-map? symbol) ;; enable map in HUD/progress? (hud-counters? symbol) ;; enable level orb counter/global buzzer counter? + (hud-watch? symbol) ;; a watch that tells the time of day! + (watch-12hr? symbol) ;; 12-hour clock toggle ) + :pack-me ) ;; general fixes @@ -135,11 +153,13 @@ (fix-movies symbol) ;; bad camera and single-frame crappiness (fix-credits symbol) ;; one of the credits lines has the wrong color!! ) + :pack-me ) ;; bingo integration. placeholder for now. (deftype pc-bingo-info (structure) () + :pack-me ) @@ -205,6 +225,9 @@ (display-bug-report symbol) (display-heap-status symbol) (display-actor-counts symbol) + (mood-override? symbol) + (mood-overrides float 8) + (movie? symbol) ;; device settings ;(device-audio pc-device-info :inline) ;; used audio device @@ -250,6 +273,9 @@ (hinttitles? symbol) ;; if on, non-cutscene subtitles will show up (subtitle-language pc-subtitle-lang) ;; language for subtitles (subtitle-speaker? symbol) ;; #f (force off), #t (force on), auto (on for offscreen) + (camera-hflip? symbol) ;; horizontal camera invert + (camera-vflip? symbol) ;; vertical camera invert + (money-starburst? symbol) ;; add a starburst to the money (fixes pc-fixes :inline) ;; extra game fixes @@ -260,6 +286,8 @@ (scenes-seen uint8 197) ;; cutscenes that have been seen, by spool-anim (maybe use 8-char name or bits instead?) (discord-rpc? symbol) ;; enable discord rich presence integration + + (cheats pc-cheats) ) (:methods @@ -283,6 +311,7 @@ (read-from-file (_type_ string) symbol) (write-to-file (_type_ string) symbol) (actor-force-visible? (_type_) symbol) + (update-cheats (_type_) int) ) ) @@ -333,6 +362,8 @@ (set! (-> obj display-bug-report) #f) (set! (-> obj display-heap-status) #f) (set! (-> obj display-actor-counts) #f) + (set! (-> obj mood-override?) #f) + (set! (-> obj movie?) #f) (set! (-> obj font-scale) 1.0) (set! (-> obj aspect-custom-x) 1) (set! (-> obj aspect-custom-y) 1) @@ -405,6 +436,9 @@ (set! (-> obj hinttitles?) #t) (set! (-> obj subtitle-speaker?) 'auto) (set! (-> obj subtitle-language) (pc-subtitle-lang english)) + (set! (-> obj camera-hflip?) #f) + (set! (-> obj camera-vflip?) #f) + (set! (-> obj money-starburst?) #f) (none)) (defmethod reset-fixes pc-settings ((obj pc-settings)) @@ -439,6 +473,8 @@ (set! (-> obj secrets hero-mode?) #f) (set! (-> obj secrets hud-map?) #t) (set! (-> obj secrets hud-counters?) #t) + (set! (-> obj secrets hud-watch?) #f) + (set! (-> obj secrets watch-12hr?) #f) (none)) (defmethod actor-force-visible? pc-settings ((obj pc-settings)) @@ -454,6 +490,84 @@ )) ) +(seval (define *pc-cheat-map* + '((a (triangle triangle)) + (b (square square)) + (c (circle circle)) + (d (x x)) + (e (right right)) + (f (right up)) + (g (right down)) + (h (left right)) + (i (up right)) + (j (down left)) + (k (square right)) + (l (left down)) + (m (up circle)) + (n (up up)) + (o (circle square)) + (p (down circle)) + (q (dowm square)) + (r (circle x)) + (s (down x)) + (t (triangle square)) + (u (square x)) + (v (x triangle)) + (w (left left)) + (x (up down)) + (y (up x)) + (z (up circle)) + )) + ) + +(desfun pc-cheat-encode (letters extra) + "turn a cheat word into input names." + (let ((out '())) + + (dolist (in letters) + + (let ((buttons (cadr (assoc (car in) *pc-cheat-map*)))) + (dolist (button buttons) + + (set! out (cons (car button) out)) + ) + ) + ) + + (dolist (ex extra) + + (set! out (cons (car ex) out)) + ) + (reverse out) + ) + ) + +(defmacro pc-check-cheat-code (cheat-var pad-idx input &key (extra ()) &rest body) + "execute body when a cheat code made up of sequential inputs has been inputted" + + (let ((buttons (pc-cheat-encode input extra))) + `(when (nonzero? (cpad-pressed ,pad-idx)) ;; only check when some button has been pressed + (case ,cheat-var + ,@(apply-i + (lambda (x i) + `((,i) + (if (cpad-pressed? ,pad-idx ,x) + ,(if (< i (- (length buttons) 1)) + `(1+! ,cheat-var) + + `(begin ,@body (set! ,cheat-var 0)) + ) + + (set! ,cheat-var 0) + ) + ) + ) + buttons) + ) + ) + )) + + ) diff --git a/goal_src/engine/pc/pckernel.gc b/goal_src/engine/pc/pckernel.gc index f097a73a3..87ff1dfe5 100644 --- a/goal_src/engine/pc/pckernel.gc +++ b/goal_src/engine/pc/pckernel.gc @@ -48,13 +48,14 @@ 0) (defmethod set-size! pc-settings ((obj pc-settings) (width int) (height int)) - "toggles fullscreen mode" + "sets window size" (pc-set-window-size width height) 0) (defmethod set-aspect! pc-settings ((obj pc-settings) (aw int) (ah int)) + "set the aspect ratio used for rendering. this forces native widescreen and takes width and height ratios." (let ((aspect (/ (the float aw) (the float ah)))) (set-aspect-ratio! obj aspect) (set! (-> obj aspect-ratio-auto?) #f) @@ -64,6 +65,7 @@ (defmethod set-aspect-ratio! pc-settings ((obj pc-settings) (aspect float)) + "set the aspect ratio used for rendering." (set! (-> obj aspect-ratio) aspect) (set! (-> obj aspect-ratio-scale) (/ aspect ASPECT_4X3)) (set! (-> obj aspect-ratio-reciprocal) (/ ASPECT_4X3 aspect)) @@ -95,7 +97,7 @@ ) ((> win-aspect (-> obj aspect-ratio)) ;; too wide - (set! (-> obj width) (the int (* (-> obj aspect-ratio) (the float (-> obj win-height))))) + (set! (-> obj width) (the int (* (the float (-> obj win-height)) (-> obj aspect-ratio)))) (set! (-> obj height) (-> obj win-height)) ) ((< win-aspect (-> obj aspect-ratio)) @@ -131,7 +133,7 @@ (pc-discord-rpc-set 1) ) (else - (pc-discord-rpc-set 0) + (pc-discord-rpc-set 0) ) ) @@ -142,12 +144,23 @@ (none)) +(define *pc-cheat-temp* (the-as (pointer int32) (malloc 'global 24))) +(defmacro pc-cheat-toggle-and-tune (obj cheat) + `(begin + (cpad-clear-buttons! 0 r1) + (logxor! (-> ,obj cheats) (pc-cheats ,cheat)) + (cheats-sound-play (logtest? (-> ,obj cheats) (pc-cheats ,cheat))) + ) + ) + (defmethod update pc-settings ((obj pc-settings)) "Update settings to/from PC kernel. Call this at the start of every frame. This will update things like the aspect-ratio, which will be used for graphics code later." (update-from-os obj) (update-to-os obj) + + (set! (-> obj movie?) (movie?)) (let ((info (new 'stack 'discord-info))) (set! (-> info fuel) (&-> *game-info* fuel)) @@ -169,6 +182,8 @@ (set! (-> *font-default-matrix* vector 0 x) (-> *video-parms* relative-x-scale)) ) (when (not (-> obj use-vis?)) + (set-hud-aspect-ratio 'aspect4x3 'ntsc) ;; set hud aspect ratios every frame because why not? + (when *progress-process* ;; adjust sizes for progress. ;; video.gc sets the sizes in the normal game. @@ -194,8 +209,73 @@ (set! (-> *ACTOR-bank* pause-dist) (meters 220)) )) + ;; cheats. + (update-cheats obj) + (none)) +(defmethod update-cheats pc-settings ((obj pc-settings)) + "run cheats." + + (when (and (cpad-hold? 0 l2) (cpad-hold? 0 l1) (cpad-hold? 0 r2) (cpad-hold? 0 r1)) + (pc-check-cheat-code (-> *pc-cheat-temp* 0) 0 (s p i r i t) :extra (x) + (logclear! (-> obj cheats) (pc-cheats eco-red eco-yellow eco-green)) + (pc-cheat-toggle-and-tune obj eco-blue)) + + (pc-check-cheat-code (-> *pc-cheat-temp* 1) 0 (s p i r i t) :extra (circle) + (logclear! (-> obj cheats) (pc-cheats eco-blue eco-yellow eco-green)) + (pc-cheat-toggle-and-tune obj eco-red)) + + (pc-check-cheat-code (-> *pc-cheat-temp* 2) 0 (s p i r i t) :extra (triangle) + (logclear! (-> obj cheats) (pc-cheats eco-red eco-yellow eco-blue)) + (pc-cheat-toggle-and-tune obj eco-green)) + + (pc-check-cheat-code (-> *pc-cheat-temp* 3) 0 (s p i r i t) :extra (square) + (logclear! (-> obj cheats) (pc-cheats eco-red eco-blue eco-green)) + (pc-cheat-toggle-and-tune obj eco-yellow)) + + (pc-check-cheat-code (-> *pc-cheat-temp* 4) 0 (s t e e l) + (logclear! (-> *target* state-flags) 16) + (pc-cheat-toggle-and-tune obj invinc)) + + (pc-check-cheat-code (-> *pc-cheat-temp* 5) 0 (l e a d s) + (pc-cheat-toggle-and-tune obj sidekick-blue)) + ) + + (when *target* + + (when (and (pc-cheats? obj eco-blue) + (or (= (-> *target* fact-info-target eco-type) (pickup-type eco-blue)) + (<= (-> *target* fact-info-target eco-level) 0.0))) + (send-event *target* 'get-pickup (pickup-type eco-blue) (-> *FACT-bank* eco-full-inc))) + + (when (and (pc-cheats? obj eco-yellow) + (or (= (-> *target* fact-info-target eco-type) (pickup-type eco-yellow)) + (<= (-> *target* fact-info-target eco-level) 0.0))) + (send-event *target* 'get-pickup (pickup-type eco-yellow) (-> *FACT-bank* eco-full-inc))) + + (when (and (pc-cheats? obj eco-red) + (or (= (-> *target* fact-info-target eco-type) (pickup-type eco-red)) + (<= (-> *target* fact-info-target eco-level) 0.0))) + (send-event *target* 'get-pickup (pickup-type eco-red) (-> *FACT-bank* eco-full-inc))) + + (when (and (pc-cheats? obj eco-green) + (or (= (-> *target* fact-info-target eco-type) (pickup-type eco-green)) + (<= (-> *target* fact-info-target eco-level) 0.0))) + (with-pp + (define-extern vent type) + (protect ((-> (the basic pp) type) (-> *target* control root-prim prim-core action)) + (set! (-> (the basic pp) type) vent) + (logior! (-> *target* control root-prim prim-core action) #x200) + (send-event *target* 'get-pickup (pickup-type eco-green) (-> *FACT-bank* eco-full-inc))) + )) + + (when (pc-cheats? obj invinc) + (logior! (-> *target* state-flags) 16) + ) + + ) + 0) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -311,15 +391,7 @@ (defun file-stream-read-symbol ((file file-stream)) (file-stream-seek-past-whitespace file) (file-stream-read-word file) - (case-str *pc-temp-string* - (("#f") #f) - (("#t") #t) - (("aspect4x3") 'aspect4x3) - (("aspect16x9") 'aspect16x9) - (("borderless") 'borderless) - (("auto") 'auto) - (else #t) - ) + (string->symbol *pc-temp-string*) ) (defmacro pc-settings-read-throw-error (fs msg) @@ -434,6 +506,9 @@ (("subtitles?") (set! (-> obj subtitles?) (file-stream-read-symbol file))) (("hinttitles?") (set! (-> obj hinttitles?) (file-stream-read-symbol file))) (("discord-rpc?") (set! (-> obj discord-rpc?) (file-stream-read-symbol file))) + (("camera-hflip?") (set! (-> obj camera-hflip?) (file-stream-read-symbol file))) + (("camera-vflip?") (set! (-> obj camera-vflip?) (file-stream-read-symbol file))) + (("money-starburst?") (set! (-> obj money-starburst?) (file-stream-read-symbol file))) (("scenes-seen") (dotimes (i 197) (set! (-> obj scenes-seen i) (file-stream-read-int file)) @@ -461,6 +536,8 @@ (("hero-mode?") (set! (-> obj secrets hero-mode?) (file-stream-read-symbol file))) (("hud-map?") (set! (-> obj secrets hud-map?) (file-stream-read-symbol file))) (("hud-counters?") (set! (-> obj secrets hud-counters?) (file-stream-read-symbol file))) + (("hud-watch?") (set! (-> obj secrets hud-watch?) (file-stream-read-symbol file))) + (("watch-12hr?") (set! (-> obj secrets watch-12hr?) (file-stream-read-symbol file))) (("art") (set! (-> obj secrets art) (the-as pc-jak1-concept-art (file-stream-read-int file)))) (("hard-fish-hiscore") (set! (-> obj secrets hard-fish-hiscore) (file-stream-read-int file))) (("hard-rats-hiscore") (set! (-> obj secrets hard-rats-hiscore) (file-stream-read-int file))) @@ -661,9 +738,9 @@ (defmethod new entity-debug-inspect ((allocation symbol) (type-to-make type)) "make a new entity-debug-inspect object" - + (let ((obj (object-new allocation type-to-make (the-as int (-> type-to-make size))))) - + (set! (-> obj scroll-y) 0) (set! (-> obj scroll-y-max) 0) (set! (-> obj entity) (the entity #f)) @@ -674,28 +751,30 @@ (defmethod set-entity! entity-debug-inspect ((obj entity-debug-inspect) (e entity)) "set the entity to inspect" - + (set! (-> obj entity) e) (unless e (set! *display-actor-anim* (the string #f))) (set! (-> obj scroll-y) 0) - + e ) (defmethod update-pad entity-debug-inspect ((obj entity-debug-inspect) (pad-idx int)) "respond to pad inputs" - + ;; scroll up (if (cpad-pressed? pad-idx l1) - (set! (-> obj scroll-y) (max 0 (1- (-> obj scroll-y))))) + (1-! (-> obj scroll-y))) ;; scroll down (if (cpad-pressed? pad-idx r1) - (set! (-> obj scroll-y) (min (-> obj scroll-y-max) (1+ (-> obj scroll-y))))) + (1+! (-> obj scroll-y))) ;; toggle actor info (if (cpad-pressed? pad-idx l3) (not! (-> obj show-actor-info))) - + + (minmax! (-> obj scroll-y) 0 (-> obj scroll-y-max)) + (none)) diff --git a/goal_src/engine/ps2/pad.gc b/goal_src/engine/ps2/pad.gc index 81a49c2cd..245c8294b 100644 --- a/goal_src/engine/ps2/pad.gc +++ b/goal_src/engine/ps2/pad.gc @@ -394,3 +394,12 @@ ) ) +(defmacro cheats-sound-play (cheat?) + "play the appropriate sound for inputting a cheat code" + + `(if ,cheat? + (sound-play-by-name (static-sound-name "select-menu") (new-sound-id) 1024 0 0 1 #t) + (sound-play-by-name (static-sound-name "cursor-options") (new-sound-id) 1024 0 0 1 #t) + ) + ) + diff --git a/goal_src/engine/sparticle/sparticle-launcher.gc b/goal_src/engine/sparticle/sparticle-launcher.gc index 4847ae6f0..953c292a8 100644 --- a/goal_src/engine/sparticle/sparticle-launcher.gc +++ b/goal_src/engine/sparticle/sparticle-launcher.gc @@ -982,6 +982,10 @@ (set! f30-0 0.0) ) + ;; pc hack for more particles. + (with-pc + (if (not (-> *pc-settings* ps2-parts?)) (/! f30-0 128.0))) + ;; loop over particles in the group. (let ((s2-1 (-> obj length))) (while (begin diff --git a/goal_src/engine/target/sidekick.gc b/goal_src/engine/target/sidekick.gc index 7b4ea744d..173056acd 100644 --- a/goal_src/engine/target/sidekick.gc +++ b/goal_src/engine/target/sidekick.gc @@ -151,6 +151,10 @@ (let ((v1-22 (-> self parent-override 0 draw color-mult quad))) (set! (-> self draw color-mult quad) v1-22) ) + (with-pc ;; duh! + (if (pc-cheats? *pc-settings* sidekick-blue) + (set! (-> self draw color-mult x) (set! (-> self draw color-mult y) 0.0))) + ) (let ((v1-26 (-> self parent-override 0 draw color-emissive quad))) (set! (-> self draw color-emissive quad) v1-26) ) diff --git a/goal_src/engine/ui/hud-classes.gc b/goal_src/engine/ui/hud-classes.gc index 3c0075788..66eb5ae1c 100644 --- a/goal_src/engine/ui/hud-classes.gc +++ b/goal_src/engine/ui/hud-classes.gc @@ -437,6 +437,14 @@ (set! (-> obj particles 2 init-pos x) 70.0) (set! (-> obj particles 2 init-pos y) 76.0) (set! (-> obj scale) 6963.2) + (with-pc + (when (not (-> *pc-settings* use-vis?)) + (let ((base-x (-> obj particles 0 init-pos x))) + (set! (-> obj particles 1 init-pos x) (+ base-x (* (-> *pc-settings* aspect-ratio-reciprocal) (- (-> obj particles 1 init-pos x) base-x)))) + (set! (-> obj particles 2 init-pos x) (+ base-x (* (-> *pc-settings* aspect-ratio-reciprocal) (- (-> obj particles 2 init-pos x) base-x)))) + ) + ) + ) ) ) 0 @@ -1936,6 +1944,22 @@ (set! (-> obj scale-backing) 10240.0) ) ) + (#when PC_PORT + + (let ((base-x (-> obj particles 2 init-pos x))) + (+! base-x (* (- 512.0 base-x) (- 1.0 (-> *pc-settings* aspect-ratio-reciprocal)))) + (set! (-> obj particles 0 init-pos x) 435.0) + (set! (-> obj particles 1 init-pos x) 432.0) + (set! (-> obj particles 2 init-pos x) 435.0) + + (when (not (-> *pc-settings* use-vis?)) + (dotimes (i (-> obj nb-of-particles)) + (set! (-> obj particles i init-pos x) (+ base-x (* (-> *pc-settings* aspect-ratio-reciprocal) (- (-> obj particles i init-pos x) base-x)))) + + )) + + ) + ) 0 (none) ) diff --git a/goal_src/engine/ui/hud.gc b/goal_src/engine/ui/hud.gc index 6d45df063..2c07b1c10 100644 --- a/goal_src/engine/ui/hud.gc +++ b/goal_src/engine/ui/hud.gc @@ -5,10 +5,6 @@ ;; name in dgo: hud ;; dgos: GAME, ENGINE -;; TODO - for hud-classes -(define-extern hud-init-by-other (function int none :behavior hud)) - - ;; DECOMP BEGINS (defmethod relocate hud ((obj hud) (arg0 int)) @@ -147,7 +143,13 @@ (* 0.5 (- (* (-> *video-parms* relative-y-scale) (+ (-> obj particles s5-0 init-pos y) (the float (* (-> obj y-sgn) (-> obj offset))) - (* (the float (-> obj y-offset)) (-> *video-parms* relative-x-scale-reciprical)) + (#if PC_PORT + (if (not (-> *pc-settings* use-vis?)) + (* (the float (-> obj y-offset)) (-> *video-parms* relative-y-scale)) + (* (the float (-> obj y-offset)) (-> *video-parms* relative-x-scale-reciprical)) + ) + (* (the float (-> obj y-offset)) (-> *video-parms* relative-x-scale-reciprical)) + ) ) ) (the float (-> *video-parms* screen-sy)) diff --git a/goal_src/game.gp b/goal_src/game.gp index 2965a30b9..98eb2272c 100644 --- a/goal_src/game.gp +++ b/goal_src/game.gp @@ -1679,8 +1679,8 @@ "nav/navigate-h.gc" "load/load-dgo.gc" "load/ramdisk.gc" - "pc/pckernel.gc" ;; added "sound/gsound.gc" + "pc/pckernel.gc" ;; added "math/transformq.gc" "collide/collide-func.gc" "anim/joint.gc" diff --git a/goal_src/goal-lib.gc b/goal_src/goal-lib.gc index 0c5802dc8..1ab7fb3a9 100644 --- a/goal_src/goal-lib.gc +++ b/goal_src/goal-lib.gc @@ -546,6 +546,10 @@ `(neq? ,thing 0) ) +(defmacro or! (place &rest args) + `(set! ,place (or ,place ,@args)) + ) + (defmacro not! (var) `(set! ,var (not ,var))) (defmacro true! (var) @@ -559,6 +563,12 @@ (defmacro fminmax (val minval maxval) `(fmax (fmin ,val ,maxval) ,minval) ) +(defmacro minmax! (val minval maxval) + `(set! ,val (max (min ,val ,maxval) ,minval)) + ) +(defmacro fminmax! (val minval maxval) + `(set! ,val (fmax (fmin ,val ,maxval) ,minval)) + ) (defmacro maxmin (val minval maxval) `(min (max ,val ,maxval) ,minval) diff --git a/goal_src/levels/racer_common/racer-part.gc b/goal_src/levels/racer_common/racer-part.gc index 137b1b34a..b49e31507 100644 --- a/goal_src/levels/racer_common/racer-part.gc +++ b/goal_src/levels/racer_common/racer-part.gc @@ -36,27 +36,17 @@ ) (cond ((< (-> *hud-parts* bike-speed 0 offset) 10) - (cond - ((< f0-1 (-> arg2 vector 1 z)) - (let ((f0-4 (deg-seek (-> arg2 vector 1 z) f0-1 (* 131072.0 (-> *display* seconds-per-frame))))) - (set! (-> arg2 vector 1 z) f0-4) - f0-4 - ) - ) - (else - (let ((f0-7 (deg-seek (-> arg2 vector 1 z) f0-1 (* 32768.0 (-> *display* seconds-per-frame))))) - (set! (-> arg2 vector 1 z) f0-7) - f0-7 - ) + (if (< f0-1 (-> arg2 vector 1 z)) + (set! (-> arg2 vector 1 z) (deg-seek (-> arg2 vector 1 z) f0-1 (* 131072.0 (-> *display* seconds-per-frame)))) + (set! (-> arg2 vector 1 z) (deg-seek (-> arg2 vector 1 z) f0-1 (* 32768.0 (-> *display* seconds-per-frame)))) ) - ) ) (else (set! (-> arg2 vector 1 z) f0-1) - f0-1 ) ) ) + (none) ) (defpartgroup group-part-hud-racer-speed-dial @@ -140,21 +130,16 @@ ((and (< 0.8 f0-1) (zero? (logand (-> *display* integral-frame-counter) 8))) (set! (-> arg2 vector 2 x) 128.0) (set! (-> arg2 vector 2 y) 0.0) - (let ((f0-4 0.0)) - (set! (-> arg2 vector 2 z) f0-4) - f0-4 - ) + (set! (-> arg2 vector 2 z) 0.0) ) (else (set! (-> arg2 vector 2 x) 128.0) (set! (-> arg2 vector 2 y) 128.0) - (let ((f0-7 128.0)) - (set! (-> arg2 vector 2 z) f0-7) - f0-7 - ) + (set! (-> arg2 vector 2 z) 128.0) ) ) ) + (none) ) (defun zoomer-heat-slice-color ((arg0 matrix) (arg1 float)) @@ -162,36 +147,25 @@ ((< arg1 0.6) (set! (-> arg0 vector 2 x) (* 213.33333 arg1)) (set! (-> arg0 vector 2 y) 128.0) - (let ((f0-4 0.0)) - (set! (-> arg0 vector 2 z) f0-4) - f0-4 - ) + (set! (-> arg0 vector 2 z) 0.0) ) ((< arg1 0.8) (set! (-> arg0 vector 2 x) 128.0) (set! (-> arg0 vector 2 y) (- 128.0 (* 640.0 (+ -0.6 arg1)))) - (let ((f0-9 0.0)) - (set! (-> arg0 vector 2 z) f0-9) - f0-9 - ) + (set! (-> arg0 vector 2 z) 0.0) ) ((zero? (logand (-> *display* integral-frame-counter) 8)) (set! (-> arg0 vector 2 x) 128.0) (set! (-> arg0 vector 2 y) 0.0) - (let ((f0-12 0.0)) - (set! (-> arg0 vector 2 z) f0-12) - f0-12 - ) + (set! (-> arg0 vector 2 z) 0.0) ) (else (set! (-> arg0 vector 2 x) 128.0) (set! (-> arg0 vector 2 y) 100.0) - (let ((f0-15 100.0)) - (set! (-> arg0 vector 2 z) f0-15) - f0-15 - ) + (set! (-> arg0 vector 2 z) 100.0) ) ) + (none) ) (defun part-hud-zoomer-heat-slice-01-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) @@ -199,6 +173,7 @@ (set! (-> arg2 vector 1 z) (* 182.04445 (+ -135.0 (* 215.0 f0-1)))) (zoomer-heat-slice-color arg2 f0-1) ) + (none) ) (defun part-hud-zoomer-heat-slice-02-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) @@ -209,6 +184,7 @@ ) (zoomer-heat-slice-color arg2 f0-1) ) + (none) ) (defun part-hud-zoomer-heat-slice-03-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) @@ -219,6 +195,7 @@ ) (zoomer-heat-slice-color arg2 f0-1) ) + (none) ) (defpartgroup group-part-hud-racer-heat-backing @@ -493,6 +470,48 @@ ) ) +(#when PC_PORT +;; extra methods needed for aspect ratio in pc port +(defmethod animate! hud-bike-heat ((obj hud-bike-heat) (arg0 symbol) (arg1 symbol)) + (with-pc + (let ((base-x (-> obj particles 0 init-pos x))) + (*! base-x (-> *pc-settings* aspect-ratio-reciprocal)) + (set! (-> obj particles 0 init-pos x) 13.0) + (set! (-> obj particles 1 init-pos x) 70.0) + (set! (-> obj particles 2 init-pos x) 20.0) + (set! (-> obj particles 3 init-pos x) 70.0) + + (when (not (-> *pc-settings* use-vis?)) + (dotimes (i (-> obj nb-of-particles)) + (set! (-> obj particles i init-pos x) (+ base-x (* (-> *pc-settings* aspect-ratio-reciprocal) (- (-> obj particles i init-pos x) base-x)))) + + )) + + ) + ) + (none) + ) + +(defmethod animate! hud-bike-speed ((obj hud-bike-speed) (arg0 symbol) (arg1 symbol)) + (with-pc + (let ((base-x (-> obj particles 1 init-pos x))) + (+! base-x (* (- 512.0 base-x) (- 1.0 (-> *pc-settings* aspect-ratio-reciprocal)))) + (set! (-> obj particles 0 init-pos x) 433.0) + (set! (-> obj particles 1 init-pos x) 378.0) + (set! (-> obj particles 2 init-pos x) 415.0) + + (when (not (-> *pc-settings* use-vis?)) + (dotimes (i (-> obj nb-of-particles)) + (set! (-> obj particles i init-pos x) (+ base-x (* (-> *pc-settings* aspect-ratio-reciprocal) (- (-> obj particles i init-pos x) base-x)))) + + )) + + ) + ) + (none) + ) + ) + (defpartgroup group-racer-trans-pad :id 115 :bounds (static-bspherem 0 0 0 8) diff --git a/goal_src/levels/racer_common/target-racer.gc b/goal_src/levels/racer_common/target-racer.gc index 1c2a44e84..c1ee14c3b 100644 --- a/goal_src/levels/racer_common/target-racer.gc +++ b/goal_src/levels/racer_common/target-racer.gc @@ -946,6 +946,7 @@ (= (-> self racer boost-level) 0.0) ) (when (nonzero? (-> self racer boost-sound-id)) + (#when PC_DEBUG_SOUND_ENABLE (let ((v1-241 (the-as sound-rpc-set-param (get-sound-buffer-entry)))) (set! (-> v1-241 command) (sound-command set-param)) (set! (-> v1-241 id) (-> self racer boost-sound-id)) @@ -955,6 +956,7 @@ (set! (-> v1-241 parms mask) (the-as uint 17)) (-> v1-241 id) ) + ) (set! (-> self racer boost-sound-id) (new 'static 'sound-id)) 0 ) diff --git a/test/decompiler/reference/engine/ambient/mood-tables_REF.gc b/test/decompiler/reference/engine/ambient/mood-tables_REF.gc index 289c8b4ed..3d8d27ea3 100644 --- a/test/decompiler/reference/engine/ambient/mood-tables_REF.gc +++ b/test/decompiler/reference/engine/ambient/mood-tables_REF.gc @@ -2,6 +2,7 @@ (in-package goal) ;; definition for function make-light-kit +;; INFO: Return type mismatch float vs none. (defun make-light-kit ((arg0 light-group) (arg1 float) (arg2 float) (arg3 float) (arg4 float)) (let ((s4-0 (new 'stack-no-clear 'matrix))) (matrix-rotate-y! s4-0 arg1) @@ -31,14 +32,11 @@ (set! (-> v1-4 direction w) 0.0) ) (set-vector! (-> arg0 dir2 color) 0.8 0.775 0.7 1.0) - (let ((f0-26 arg4)) - (set! (-> arg0 dir2 levels x) f0-26) - f0-26 - ) + (set! (-> arg0 dir2 levels x) arg4) + (none) ) ;; definition for function make-village1-light-kit -;; INFO: Return type mismatch float vs none. (defun make-village1-light-kit ((arg0 mood-context)) (make-light-kit (-> arg0 light-group 1) 38229.332 0.9 0.9 0.4) (let ((s5-0 (-> arg0 light-group 2))) diff --git a/test/decompiler/reference/engine/ambient/mood_REF.gc b/test/decompiler/reference/engine/ambient/mood_REF.gc index 7d11ecc97..bc0d032d9 100644 --- a/test/decompiler/reference/engine/ambient/mood_REF.gc +++ b/test/decompiler/reference/engine/ambient/mood_REF.gc @@ -10,13 +10,12 @@ ) ;; definition for function update-light-kit +;; INFO: Return type mismatch float vs none. ;; Used lq/sq (defun update-light-kit ((arg0 light-group) (arg1 light) (arg2 float)) (set! (-> arg0 ambi color quad) (-> arg1 color quad)) - (let ((f0-1 (* (-> arg1 levels x) arg2))) - (set! (-> arg0 ambi levels x) f0-1) - f0-1 - ) + (set! (-> arg0 ambi levels x) (* (-> arg1 levels x) arg2)) + (none) ) ;; definition for function set-target-light-index diff --git a/test/decompiler/reference/engine/game/collectables_REF.gc b/test/decompiler/reference/engine/game/collectables_REF.gc index fe5be2d22..7b4bb8c7d 100644 --- a/test/decompiler/reference/engine/game/collectables_REF.gc +++ b/test/decompiler/reference/engine/game/collectables_REF.gc @@ -129,7 +129,7 @@ (die () _type_ :state 24) (jump () _type_ :state 25) (notice-blue (handle) _type_ :state 26) - (get-pickup-sound (_type_ pickup-type) ambient-sound 27) + (initialize-effect (_type_ pickup-type) none 27) (initialize-eco (_type_ entity-actor pickup-type float) object 28) (animate (_type_) none 29) (blocked () _type_ :state 30) @@ -185,7 +185,8 @@ ) ;; definition for method 27 of type eco-collectable -(defmethod get-pickup-sound eco-collectable ((obj eco-collectable) (arg0 pickup-type)) +;; INFO: Return type mismatch ambient-sound vs none. +(defmethod initialize-effect eco-collectable ((obj eco-collectable) (arg0 pickup-type)) (set! (-> obj fact pickup-type) arg0) (case (-> obj fact pickup-type) (((pickup-type eco-blue) (pickup-type eco-red) (pickup-type eco-green) (pickup-type eco-yellow)) @@ -261,12 +262,10 @@ ) ) (set! (-> obj part) (create-launch-control (-> obj eco-effect) obj)) - (when (-> obj sound-name) - (let ((v0-1 (new 'process 'ambient-sound (-> obj sound-name) (-> obj root-override trans)))) - (set! (-> obj sound) v0-1) - v0-1 + (if (-> obj sound-name) + (set! (-> obj sound) (new 'process 'ambient-sound (-> obj sound-name) (-> obj root-override trans))) ) - ) + (none) ) ;; definition for function initialize-eco-by-other @@ -285,7 +284,7 @@ (set! (-> self fact options) (-> arg2 options)) (set! (-> self root-override trans quad) (-> arg0 quad)) (set! (-> self root-override transv quad) (-> arg1 quad)) - (get-pickup-sound self (-> self fact pickup-type)) + (initialize-effect self (-> self fact pickup-type)) (set! (-> self notify-parent) #f) (case (-> self fact pickup-type) (((pickup-type eco-blue) (pickup-type eco-yellow) (pickup-type eco-red)) @@ -319,7 +318,7 @@ (set! (-> obj pickup-type) arg1) (initialize obj) (set! (-> obj root-override trans quad) (-> arg0 extra trans quad)) - (get-pickup-sound obj (-> obj fact pickup-type)) + (initialize-effect obj (-> obj fact pickup-type)) (initialize-params obj 0 (the-as float 1024.0)) (update-transforms! (-> obj root-override)) (if (logtest? (fact-options eco-blocked) (-> obj fact options)) @@ -2744,7 +2743,7 @@ ;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 363] ;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 122] ;; Used lq/sq -(defbehavior birth-pickup-at-point process ((arg0 vector) (arg1 pickup-type) (arg2 float) (arg3 symbol) (arg4 process-drawable) (arg5 fact-info)) +(defbehavior birth-pickup-at-point process ((arg0 vector) (arg1 pickup-type) (arg2 float) (arg3 symbol) (arg4 process-tree) (arg5 fact-info)) (local-vars (v1-2 basic) (v1-28 symbol) @@ -3017,7 +3016,7 @@ (if (= (the-as int s3-0) 6) (set! (-> s2-1 y) (+ 6144.0 (-> s2-1 y))) ) - (birth-pickup-at-point s2-1 (the-as pickup-type s3-0) f30-0 arg0 (the-as process-drawable arg1) obj) + (birth-pickup-at-point s2-1 (the-as pickup-type s3-0) f30-0 arg0 arg1 obj) ) ) ) diff --git a/test/decompiler/reference/engine/gfx/time-of-day_REF.gc b/test/decompiler/reference/engine/gfx/time-of-day_REF.gc index 90f83efea..9525f7e8e 100644 --- a/test/decompiler/reference/engine/gfx/time-of-day_REF.gc +++ b/test/decompiler/reference/engine/gfx/time-of-day_REF.gc @@ -234,16 +234,15 @@ ;; ERROR: function was not converted to expressions. Cannot decompile. ;; definition for function init-time-of-day-context +;; INFO: Return type mismatch float vs none. (defun init-time-of-day-context ((arg0 time-of-day-context)) (set-vector! (-> arg0 title-light-group dir0 color) 0.82 0.82 0.82 1.0) (set-vector! (-> arg0 title-light-group dir1 color) 2.0 2.0 2.0 1.0) (set-vector! (-> arg0 title-light-group ambi color) 0.5 0.5 0.5 1.0) (set! (-> arg0 title-light-group dir0 levels x) 1.0) (set! (-> arg0 title-light-group dir1 levels x) 1.0) - (let ((f0-14 1.0)) - (set! (-> arg0 title-light-group ambi levels x) f0-14) - f0-14 - ) + (set! (-> arg0 title-light-group ambi levels x) 1.0) + (none) ) ;; definition for function update-time-of-day diff --git a/test/decompiler/reference/levels/beach/pelican_REF.gc b/test/decompiler/reference/levels/beach/pelican_REF.gc index 44cb978d8..e870c9f18 100644 --- a/test/decompiler/reference/levels/beach/pelican_REF.gc +++ b/test/decompiler/reference/levels/beach/pelican_REF.gc @@ -938,7 +938,7 @@ (pickup-type fuel-cell) (the float (-> self entity extra perm task)) #f - (the-as process-drawable *entity-pool*) + *entity-pool* (the-as fact-info #f) ) ) diff --git a/test/decompiler/reference/levels/ogre/ogreboss_REF.gc b/test/decompiler/reference/levels/ogre/ogreboss_REF.gc index fb247ba3d..0eaeb00ec 100644 --- a/test/decompiler/reference/levels/ogre/ogreboss_REF.gc +++ b/test/decompiler/reference/levels/ogre/ogreboss_REF.gc @@ -384,7 +384,7 @@ (-> self pickup-type) (-> *FACT-bank* eco-single-inc) #t - (the-as process-drawable *entity-pool*) + *entity-pool* t1-0 ) ) diff --git a/test/decompiler/reference/levels/racer_common/racer-part_REF.gc b/test/decompiler/reference/levels/racer_common/racer-part_REF.gc index d8731e95f..921682b50 100644 --- a/test/decompiler/reference/levels/racer_common/racer-part_REF.gc +++ b/test/decompiler/reference/levels/racer_common/racer-part_REF.gc @@ -2,6 +2,7 @@ (in-package goal) ;; definition for function part-hud-racer-speed-func +;; INFO: Return type mismatch float vs none. (defun part-hud-racer-speed-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) (let* ((f0-0 (-> *target* control unknown-float01)) (f0-1 (cond @@ -31,27 +32,17 @@ ) (cond ((< (-> *hud-parts* bike-speed 0 offset) 10) - (cond - ((< f0-1 (-> arg2 vector 1 z)) - (let ((f0-4 (deg-seek (-> arg2 vector 1 z) f0-1 (* 131072.0 (-> *display* seconds-per-frame))))) - (set! (-> arg2 vector 1 z) f0-4) - f0-4 - ) - ) - (else - (let ((f0-7 (deg-seek (-> arg2 vector 1 z) f0-1 (* 32768.0 (-> *display* seconds-per-frame))))) - (set! (-> arg2 vector 1 z) f0-7) - f0-7 - ) + (if (< f0-1 (-> arg2 vector 1 z)) + (set! (-> arg2 vector 1 z) (deg-seek (-> arg2 vector 1 z) f0-1 (* 131072.0 (-> *display* seconds-per-frame)))) + (set! (-> arg2 vector 1 z) (deg-seek (-> arg2 vector 1 z) f0-1 (* 32768.0 (-> *display* seconds-per-frame)))) ) - ) ) (else (set! (-> arg2 vector 1 z) f0-1) - f0-1 ) ) ) + (none) ) ;; failed to figure out what this is: @@ -135,6 +126,7 @@ ) ;; definition for function part-hud-racer-heat-func +;; INFO: Return type mismatch float vs none. (defun part-hud-racer-heat-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) (let ((f0-1 (/ (-> *target* racer heat) (-> *RACER-bank* heat-max)))) (set! (-> arg2 vector 1 z) (* 182.04445 (+ -45.0 (* 215.0 f0-1)))) @@ -142,59 +134,44 @@ ((and (< 0.8 f0-1) (zero? (logand (-> *display* integral-frame-counter) 8))) (set! (-> arg2 vector 2 x) 128.0) (set! (-> arg2 vector 2 y) 0.0) - (let ((f0-4 0.0)) - (set! (-> arg2 vector 2 z) f0-4) - f0-4 - ) + (set! (-> arg2 vector 2 z) 0.0) ) (else (set! (-> arg2 vector 2 x) 128.0) (set! (-> arg2 vector 2 y) 128.0) - (let ((f0-7 128.0)) - (set! (-> arg2 vector 2 z) f0-7) - f0-7 - ) + (set! (-> arg2 vector 2 z) 128.0) ) ) ) + (none) ) ;; definition for function zoomer-heat-slice-color +;; INFO: Return type mismatch float vs none. (defun zoomer-heat-slice-color ((arg0 matrix) (arg1 float)) (cond ((< arg1 0.6) (set! (-> arg0 vector 2 x) (* 213.33333 arg1)) (set! (-> arg0 vector 2 y) 128.0) - (let ((f0-4 0.0)) - (set! (-> arg0 vector 2 z) f0-4) - f0-4 - ) + (set! (-> arg0 vector 2 z) 0.0) ) ((< arg1 0.8) (set! (-> arg0 vector 2 x) 128.0) (set! (-> arg0 vector 2 y) (- 128.0 (* 640.0 (+ -0.6 arg1)))) - (let ((f0-9 0.0)) - (set! (-> arg0 vector 2 z) f0-9) - f0-9 - ) + (set! (-> arg0 vector 2 z) 0.0) ) ((zero? (logand (-> *display* integral-frame-counter) 8)) (set! (-> arg0 vector 2 x) 128.0) (set! (-> arg0 vector 2 y) 0.0) - (let ((f0-12 0.0)) - (set! (-> arg0 vector 2 z) f0-12) - f0-12 - ) + (set! (-> arg0 vector 2 z) 0.0) ) (else (set! (-> arg0 vector 2 x) 128.0) (set! (-> arg0 vector 2 y) 100.0) - (let ((f0-15 100.0)) - (set! (-> arg0 vector 2 z) f0-15) - f0-15 - ) + (set! (-> arg0 vector 2 z) 100.0) ) ) + (none) ) ;; definition for function part-hud-zoomer-heat-slice-01-func @@ -203,6 +180,7 @@ (set! (-> arg2 vector 1 z) (* 182.04445 (+ -135.0 (* 215.0 f0-1)))) (zoomer-heat-slice-color arg2 f0-1) ) + (none) ) ;; definition for function part-hud-zoomer-heat-slice-02-func @@ -214,6 +192,7 @@ ) (zoomer-heat-slice-color arg2 f0-1) ) + (none) ) ;; definition for function part-hud-zoomer-heat-slice-03-func @@ -225,6 +204,7 @@ ) (zoomer-heat-slice-color arg2 f0-1) ) + (none) ) ;; failed to figure out what this is: