From 7475e356b57efc75a2e7b27f6822f25101c250a4 Mon Sep 17 00:00:00 2001
From: ManDude <7569514+ManDude@users.noreply.github.com>
Date: Sat, 2 Sep 2023 14:26:36 +0100
Subject: [PATCH] [jak2] higher resolution cloud textures (#2951)

Adds a new "hires" sky texture animation that makes the sky use 512x512
textures instead of 128x128. The clouds have higher detail, are slightly
more noisy, and are considerably less blocky. There is also a less
noticeable "dot crawl" effect.


![image](https://cdn.discordapp.com/attachments/995787558816595968/1146960820320878643/image.png)

![image](https://cdn.discordapp.com/attachments/995787558816595968/1146960819750449264/image.png)
---
 .../opengl_renderer/TextureAnimator.cpp       | 101 ++-
 .../opengl_renderer/TextureAnimator.h         |  16 +-
 goal_src/jak2/engine/debug/menu.gc            |  15 +-
 goal_src/jak2/engine/gfx/mood/time-of-day.gc  |   3 +-
 goal_src/jak2/engine/gfx/sky/sky-tng.gc       |  10 +-
 .../engine/gfx/sprite/particles/sparticle.gc  |   7 +-
 .../jak2/engine/gfx/texture/texture-anim-h.gc |  14 +
 .../engine/gfx/texture/texture-anim-tables.gc | 606 ++++++++++++++++++
 .../jak2/engine/gfx/texture/texture-anim.gc   |  71 +-
 .../jak2/engine/gfx/texture/texture-finish.gc |   8 +-
 goal_src/jak2/pc/debug/default-menu-pc.gc     |   1 +
 goal_src/jak2/pc/pckernel-impl.gc             |  10 +-
 goal_src/jak2/pc/pckernel.gc                  |  11 +
 13 files changed, 801 insertions(+), 72 deletions(-)

diff --git a/game/graphics/opengl_renderer/TextureAnimator.cpp b/game/graphics/opengl_renderer/TextureAnimator.cpp
index 4160d635d9..a027523623 100644
--- a/game/graphics/opengl_renderer/TextureAnimator.cpp
+++ b/game/graphics/opengl_renderer/TextureAnimator.cpp
@@ -9,8 +9,8 @@
 
 #include "third-party/imgui/imgui.h"
 
-//#define dprintf(...) printf(__VA_ARGS__)
-//#define dfmt(...) fmt::print(__VA_ARGS__)
+// #define dprintf(...) printf(__VA_ARGS__)
+// #define dfmt(...) fmt::print(__VA_ARGS__)
 #define dprintf(...)
 #define dfmt(...)
 
@@ -358,6 +358,12 @@ TextureAnimator::TextureAnimator(ShaderLibrary& shaders, const tfrag3::Level* co
       m_psm32_to_psm8_64_64(64, 64, 64, 64),
       m_sky_blend_texture(kFinalSkyTextureSize, kFinalSkyTextureSize, GL_UNSIGNED_INT_8_8_8_8_REV),
       m_sky_final_texture(kFinalSkyTextureSize, kFinalSkyTextureSize, GL_UNSIGNED_INT_8_8_8_8_REV),
+      m_sky_hires_blend_texture(kFinalSkyHiresTextureSize,
+                                kFinalSkyHiresTextureSize,
+                                GL_UNSIGNED_INT_8_8_8_8_REV),
+      m_sky_hires_final_texture(kFinalSkyHiresTextureSize,
+                                kFinalSkyHiresTextureSize,
+                                GL_UNSIGNED_INT_8_8_8_8_REV),
       m_slime_blend_texture(kFinalSlimeTextureSize,
                             kFinalSlimeTextureSize,
                             GL_UNSIGNED_INT_8_8_8_8_REV),
@@ -513,7 +519,7 @@ void TextureAnimator::draw_debug_window() {
   ImGui::Text("Sky:");
   ImGui::Text("Fog Height: %f", m_debug_sky_input.fog_height);
   ImGui::Text("Cloud minmax: %f %f", m_debug_sky_input.cloud_min, m_debug_sky_input.cloud_max);
-  for (int i = 0; i < 9; i++) {
+  for (int i = 0; i < 11; i++) {
     ImGui::Text("Time[%d]: %f", i, m_debug_sky_input.times[i]);
   }
   ImGui::Text("Dest %d", m_debug_sky_input.cloud_dest);
@@ -521,6 +527,16 @@ void TextureAnimator::draw_debug_window() {
   imgui_show_tex(m_sky_blend_texture.texture());
   imgui_show_tex(m_sky_final_texture.texture());
 
+  imgui_show_tex(m_sky_hires_blend_texture.texture());
+  imgui_show_tex(m_sky_hires_final_texture.texture());
+
+  for (int i = 0; i < kNumSkyHiresNoiseLayers; ++i) {
+    ImGui::Text("Noise Hires %d", i);
+    imgui_show_tex(m_sky_hires_noise_textures[i].old_tex);
+    ImGui::SameLine();
+    imgui_show_tex(m_sky_hires_noise_textures[i].new_tex);
+  }
+
   auto& slots = jak2_animated_texture_slots();
   for (size_t i = 0; i < slots.size(); i++) {
     ImGui::Text("Slot %d %s (%d)", (int)i, slots[i].c_str(), (int)m_private_output_slots[i]);
@@ -612,6 +628,7 @@ enum PcTextureAnimCodes {
   KREW_HOLO = 40,
   CLOUDS_AND_FOG = 41,
   SLIME = 42,
+  CLOUDS_HIRES = 43,
 };
 
 // metadata for an upload from GOAL memory
@@ -767,9 +784,10 @@ void TextureAnimator::handle_texture_anim_data(DmaFollower& dma,
           auto p = scoped_prof("krew-holo");
           run_fixed_animation_array(m_krew_holo_anim_array_idx, tf, texture_pool);
         } break;
-        case CLOUDS_AND_FOG: {
+        case CLOUDS_AND_FOG:
+        case CLOUDS_HIRES: {
           auto p = scoped_prof("clouds-and-fog");
-          handle_clouds_and_fog(tf, texture_pool);
+          handle_clouds_and_fog(tf, texture_pool, vif0.immediate == CLOUDS_HIRES);
         } break;
         case SLIME: {
           auto p = scoped_prof("slime");
@@ -982,24 +1000,27 @@ void TextureAnimator::run_clut_blender_group(DmaTransfer& tf, int idx, u64 frame
   }
 }
 
-void TextureAnimator::handle_clouds_and_fog(const DmaTransfer& tf, TexturePool* texture_pool) {
+void TextureAnimator::handle_clouds_and_fog(const DmaTransfer& tf,
+                                            TexturePool* texture_pool,
+                                            bool hires) {
   ASSERT(tf.size_bytes >= sizeof(SkyInput));
   SkyInput input;
   memcpy(&input, tf.data, sizeof(SkyInput));
-  auto tex = run_clouds(input);
+  auto tex = run_clouds(input, hires);
+  auto& gpu_tex = hires ? m_sky_hires_pool_gpu_tex : m_sky_pool_gpu_tex;
 
-  if (m_sky_pool_gpu_tex) {
-    texture_pool->move_existing_to_vram(m_sky_pool_gpu_tex, input.cloud_dest);
+  if (gpu_tex) {
+    texture_pool->move_existing_to_vram(gpu_tex, input.cloud_dest);
     ASSERT((int)texture_pool->lookup(input.cloud_dest).value() == tex);
   } else {
     TextureInput in;
     in.gpu_texture = tex;
-    in.w = kFinalSkyTextureSize;
-    in.h = kFinalSkyTextureSize;
+    in.w = hires ? kFinalSkyHiresTextureSize : kFinalSkyTextureSize;
+    in.h = hires ? kFinalSkyHiresTextureSize : kFinalSkyTextureSize;
     in.debug_page_name = "PC-ANIM";
-    in.debug_name = "clouds";
+    in.debug_name = hires ? "clouds-hires" : "clouds";
     in.id = get_id_for_tbp(texture_pool, input.cloud_dest, 777);
-    m_sky_pool_gpu_tex = texture_pool->give_texture_and_load_to_vram(in, input.cloud_dest);
+    gpu_tex = texture_pool->give_texture_and_load_to_vram(in, input.cloud_dest);
   }
 }
 
@@ -1018,8 +1039,8 @@ void TextureAnimator::handle_slime(const DmaTransfer& tf, TexturePool* texture_p
     } else {
       TextureInput in;
       in.gpu_texture = no_scroll_tex;
-      in.w = kFinalSkyTextureSize;
-      in.h = kFinalSkyTextureSize;
+      in.w = kFinalSlimeTextureSize;
+      in.h = kFinalSlimeTextureSize;
       in.debug_page_name = "PC-ANIM";
       in.debug_name = "slime";
       in.id = get_id_for_tbp(texture_pool, input.dest, 778);
@@ -1036,8 +1057,8 @@ void TextureAnimator::handle_slime(const DmaTransfer& tf, TexturePool* texture_p
     } else {
       TextureInput in;
       in.gpu_texture = tex;
-      in.w = kFinalSkyTextureSize;
-      in.h = kFinalSkyTextureSize;
+      in.w = kFinalSlimeTextureSize;
+      in.h = kFinalSlimeTextureSize;
       in.debug_page_name = "PC-ANIM";
       in.debug_name = "slime-scroll";
       in.id = get_id_for_tbp(texture_pool, input.dest, 779);
@@ -2550,14 +2571,24 @@ void TextureAnimator::setup_sky() {
   }
 
   {
-    const float max_times[4] = {4800.f, 2400.f, 1200.f, 600.f};
-    const float scales[4] = {0.5, 0.2, 0.15, 0.0075f};
     for (int i = 0, dim = kFinalSkyTextureSize >> (kNumSkyNoiseLayers - 1); i < kNumSkyNoiseLayers;
          i++, dim *= 2) {
       auto& tex = m_sky_noise_textures[i];
       tex.temp_data.resize(dim * dim);
-      tex.max_time = max_times[i];
-      tex.scale = scales[i];
+      tex.dim = dim;
+      glGenTextures(1, &tex.new_tex);
+      m_random_index = update_opengl_noise_texture(tex.new_tex, tex.temp_data.data(),
+                                                   m_random_table, dim, m_random_index);
+      glGenTextures(1, &tex.old_tex);
+      m_random_index = update_opengl_noise_texture(tex.old_tex, tex.temp_data.data(),
+                                                   m_random_table, dim, m_random_index);
+    }
+  }
+  {
+    for (int i = 0, dim = kFinalSkyHiresTextureSize >> (kNumSkyHiresNoiseLayers - 1);
+         i < kNumSkyHiresNoiseLayers; i++, dim *= 2) {
+      auto& tex = m_sky_hires_noise_textures[i];
+      tex.temp_data.resize(dim * dim);
       tex.dim = dim;
       glGenTextures(1, &tex.new_tex);
       m_random_index = update_opengl_noise_texture(tex.new_tex, tex.temp_data.data(),
@@ -2591,7 +2622,7 @@ void TextureAnimator::setup_sky() {
   }
 }
 
-GLint TextureAnimator::run_clouds(const SkyInput& input) {
+GLint TextureAnimator::run_clouds(const SkyInput& input, bool hires) {
   m_debug_sky_input = input;
 
   // anim 0 creates a clut with rgba = 128, 128, 128, i, at tbp = (24 * 32)
@@ -2609,6 +2640,11 @@ GLint TextureAnimator::run_clouds(const SkyInput& input) {
   // [(CSource - 0) * Asource] >> 7 + CDest
   // in the PS2, CSource is 128, so the >> 7 cancels entirely.
 
+  // note that in hires mode (this is new to opengoal), the max size is upped to 256 and different
+  // textures get used
+  auto& blend_tex = hires ? m_sky_hires_blend_texture : m_sky_blend_texture;
+  auto& final_tex = hires ? m_sky_hires_final_texture : m_sky_final_texture;
+
   int times_idx = 0;
   // Anim 0:
   // this create a 16x16 CLUT with RGB = 128, 128, 128 and alpha = i
@@ -2616,7 +2652,7 @@ GLint TextureAnimator::run_clouds(const SkyInput& input) {
   // it's uploaded 24 * 32 = 768. (texture-anim-alpha-ramp-clut-upload)
   times_idx++;
   {
-    FramebufferTexturePairContext ctxt(m_sky_blend_texture);
+    FramebufferTexturePairContext ctxt(blend_tex);
     glClearColor(0.0, 0.0, 0.0, 0.0);
     glClear(GL_COLOR_BUFFER_BIT);
     glUniform1i(m_uniforms.tcc, 1);
@@ -2641,9 +2677,14 @@ GLint TextureAnimator::run_clouds(const SkyInput& input) {
     // Anim 1:
     // noise (16x16)
     // while (noise_layer_idx) {
-    for (int noise_layer_idx = 0; noise_layer_idx < kNumSkyNoiseLayers; noise_layer_idx++) {
+    NoiseTexturePair* noise_textures = hires ? m_sky_hires_noise_textures : m_sky_noise_textures;
+    int noise_layer_amt = hires ? kNumSkyHiresNoiseLayers : kNumSkyNoiseLayers;
+    for (int noise_layer_idx = 0; noise_layer_idx < noise_layer_amt; noise_layer_idx++) {
       const float new_time = input.times[times_idx];
-      auto& ntp = m_sky_noise_textures[noise_layer_idx];
+      auto& ntp = noise_textures[noise_layer_idx];
+
+      ntp.max_time = input.max_times[noise_layer_idx];
+      ntp.scale = input.scales[noise_layer_idx];
 
       if (new_time < ntp.last_time) {
         std::swap(ntp.new_tex, ntp.old_tex);
@@ -2666,21 +2707,21 @@ GLint TextureAnimator::run_clouds(const SkyInput& input) {
     }
   }
 
-  FramebufferTexturePairContext ctxt(m_sky_final_texture);
+  FramebufferTexturePairContext ctxt(final_tex);
   glClearColor(0.0, 0.0, 0.0, 0.0);
   glClear(GL_COLOR_BUFFER_BIT);
   glUniform1i(m_uniforms.enable_tex, 2);
-  glBindTexture(GL_TEXTURE_2D, m_sky_blend_texture.texture());
+  glBindTexture(GL_TEXTURE_2D, blend_tex.texture());
   glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
   glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
   glUniform1f(m_uniforms.minimum, input.cloud_min);
   glUniform1f(m_uniforms.maximum, input.cloud_max);
   glDisable(GL_BLEND);
   glDrawArrays(GL_TRIANGLE_FAN, 0, 4);
-  glBindTexture(GL_TEXTURE_2D, m_sky_final_texture.texture());
+  glBindTexture(GL_TEXTURE_2D, final_tex.texture());
   glGenerateMipmap(GL_TEXTURE_2D);
   glBindTexture(GL_TEXTURE_2D, 0);
-  return m_sky_final_texture.texture();
+  return final_tex.texture();
 }
 
 void TextureAnimator::run_slime(const SlimeInput& input) {
@@ -2774,4 +2815,4 @@ void TextureAnimator::run_slime(const SlimeInput& input) {
   glBindTexture(GL_TEXTURE_2D, m_slime_final_scroll_texture.texture());
   glGenerateMipmap(GL_TEXTURE_2D);
   glBindTexture(GL_TEXTURE_2D, 0);
-}
\ No newline at end of file
+}
diff --git a/game/graphics/opengl_renderer/TextureAnimator.h b/game/graphics/opengl_renderer/TextureAnimator.h
index 0ec472c6b7..b32d9c6315 100644
--- a/game/graphics/opengl_renderer/TextureAnimator.h
+++ b/game/graphics/opengl_renderer/TextureAnimator.h
@@ -217,7 +217,9 @@ struct SkyInput {
   float fog_height;
   float cloud_min;
   float cloud_max;
-  float times[9];
+  float times[11];
+  float max_times[6];
+  float scales[6];
   int32_t cloud_dest;
 };
 
@@ -261,7 +263,7 @@ class TextureAnimator {
   void setup_sky();
   void handle_upload_clut_16_16(const DmaTransfer& tf, const u8* ee_mem);
   void handle_generic_upload(const DmaTransfer& tf, const u8* ee_mem);
-  void handle_clouds_and_fog(const DmaTransfer& tf, TexturePool* texture_pool);
+  void handle_clouds_and_fog(const DmaTransfer& tf, TexturePool* texture_pool, bool hires);
   void handle_slime(const DmaTransfer& tf, TexturePool* texture_pool);
   void handle_erase_dest(DmaFollower& dma);
   void handle_set_shader(DmaFollower& dma);
@@ -383,7 +385,7 @@ class TextureAnimator {
                                  const std::string& suffix1,
                                  const std::optional<std::string>& dgo);
   void run_clut_blender_group(DmaTransfer& tf, int idx, u64 frame_idx);
-  GLint run_clouds(const SkyInput& input);
+  GLint run_clouds(const SkyInput& input, bool hires);
   void run_slime(const SlimeInput& input);
 
   Psm32ToPsm8Scrambler m_psm32_to_psm8_8_8, m_psm32_to_psm8_16_16, m_psm32_to_psm8_32_32,
@@ -417,10 +419,12 @@ class TextureAnimator {
 
   // must be power of 2 - dimensions of the final clouds textures
   static constexpr int kFinalSkyTextureSize = 128;
+  static constexpr int kFinalSkyHiresTextureSize = 512;
   static constexpr int kFinalSlimeTextureSize = 128;
 
   // number of small sub-textures. Must be less than log2(kFinalTextureSize).
   static constexpr int kNumSkyNoiseLayers = 4;
+  static constexpr int kNumSkyHiresNoiseLayers = 6;
   static constexpr int kNumSlimeNoiseLayers = 4;
 
  private:
@@ -432,9 +436,13 @@ class TextureAnimator {
   FramebufferTexturePair m_sky_blend_texture;
   FramebufferTexturePair m_sky_final_texture;
   GpuTexture* m_sky_pool_gpu_tex = nullptr;
+  NoiseTexturePair m_sky_hires_noise_textures[kNumSkyHiresNoiseLayers];
+  FramebufferTexturePair m_sky_hires_blend_texture;
+  FramebufferTexturePair m_sky_hires_final_texture;
+  GpuTexture* m_sky_hires_pool_gpu_tex = nullptr;
 
   SlimeInput m_debug_slime_input;
-  NoiseTexturePair m_slime_noise_textures[kNumSkyNoiseLayers];
+  NoiseTexturePair m_slime_noise_textures[kNumSlimeNoiseLayers];
   FramebufferTexturePair m_slime_blend_texture;
   FramebufferTexturePair m_slime_final_texture, m_slime_final_scroll_texture;
   GpuTexture* m_slime_pool_gpu_tex = nullptr;
diff --git a/goal_src/jak2/engine/debug/menu.gc b/goal_src/jak2/engine/debug/menu.gc
index 728f515fb4..838818c8f7 100644
--- a/goal_src/jak2/engine/debug/menu.gc
+++ b/goal_src/jak2/engine/debug/menu.gc
@@ -1460,17 +1460,14 @@
      (debug-menu-context-select-new-item arg0 1)
      )
     ((cpad-pressed? (-> arg0 joypad-number) left)
-     (debug-menu-context-select-new-item arg0 -5)
+     (debug-menu-context-select-new-item arg0 (#if PC_PORT
+                                                   (if (cpad-hold? (-> arg0 joypad-number) l3) -20 -5)
+                                                   -5))
      )
     ((cpad-pressed? (-> arg0 joypad-number) right)
-     (debug-menu-context-select-new-item arg0 5)
-     )
-    ;; pc port note : added these two
-    ((cpad-pressed? (-> arg0 joypad-number) l1)
-     (debug-menu-context-select-new-item arg0 -20)
-     )
-    ((cpad-pressed? (-> arg0 joypad-number) r1)
-     (debug-menu-context-select-new-item arg0 20)
+     (debug-menu-context-select-new-item arg0 (#if PC_PORT
+                                                   (if (cpad-hold? (-> arg0 joypad-number) l3) 20 5)
+                                                   5))
      )
     )
   arg0
diff --git a/goal_src/jak2/engine/gfx/mood/time-of-day.gc b/goal_src/jak2/engine/gfx/mood/time-of-day.gc
index 4347f5049d..3ed04234c3 100644
--- a/goal_src/jak2/engine/gfx/mood/time-of-day.gc
+++ b/goal_src/jak2/engine/gfx/mood/time-of-day.gc
@@ -479,7 +479,8 @@
       (set-fog-height! f0-16)
       )
     (if (-> arg0 sky)
-        (set! (-> (&-> *level* default-level texture-anim-array 9) 0) *sky-texture-anim-array*)
+        (set! (-> (&-> *level* default-level texture-anim-array 9) 0) (#if PC_PORT  (if *hires-sky* *sky-hires-texture-anim-array* *sky-texture-anim-array*)
+                                                                                    *sky-texture-anim-array*))
         (set! (-> (&-> *level* default-level texture-anim-array 9) 0) #f)
         )
     (let ((s5-2 (level-get-target-inside *level*)))
diff --git a/goal_src/jak2/engine/gfx/sky/sky-tng.gc b/goal_src/jak2/engine/gfx/sky/sky-tng.gc
index 19c7bea989..c11b9237be 100644
--- a/goal_src/jak2/engine/gfx/sky/sky-tng.gc
+++ b/goal_src/jak2/engine/gfx/sky/sky-tng.gc
@@ -37,8 +37,6 @@ vf30: cam 1 (premultiplied by hmge)
 vf31: cam 0 (premultiplied by hmge)
 |#
 
-;; TODO: cloud drawing is disabled.
-
 ;; DECOMP BEGINS
 
 ;; set the xy component of vf24 (texture offset for large poly renderer) to values / 65,536
@@ -825,13 +823,9 @@ vf31: cam 0 (premultiplied by hmge)
              (green-sun-dma (the-as sky-work s4-0) s3-0)
              (moon-dma (the-as sky-work s4-0) s3-0)
              (draw-haze (the-as sky-work s4-0) s3-0)
-             (when (nonzero? *sky-texture-anim-array*) ;; added check
-               (draw-clouds (the-as sky-work s4-0) s3-0) ;; DISABLED!
-               )
+             (draw-clouds (the-as sky-work s4-0) s3-0)
              (draw-base (the-as sky-work s4-0) s3-0)
-             (when (nonzero? *sky-texture-anim-array*) ;; added check
-               (draw-fog (the-as sky-work s4-0) s3-0)
-               )
+             (draw-fog (the-as sky-work s4-0) s3-0)
              )
            )
          (let ((v1-52 *dma-mem-usage*))
diff --git a/goal_src/jak2/engine/gfx/sprite/particles/sparticle.gc b/goal_src/jak2/engine/gfx/sprite/particles/sparticle.gc
index 463e46948c..260b497bfe 100644
--- a/goal_src/jak2/engine/gfx/sprite/particles/sparticle.gc
+++ b/goal_src/jak2/engine/gfx/sprite/particles/sparticle.gc
@@ -749,9 +749,10 @@
       (.mfc0 v1-53 Count)
       (- v1-53 gp-0)
       (when *display-sprite-info*
-        (if (movie?)
-            (format *stdcon* "~%~%~%")
-            )
+        ;; pc port note : this is unnecessary
+        ;; (if (movie?)
+        ;;     (format *stdcon* "~%~%~%")
+        ;;     )
         (format
           *stdcon*
           "2d: ~4d~100h3d: ~4d~200hwarp/glow: ~3D~350hhud:~3D~%"
diff --git a/goal_src/jak2/engine/gfx/texture/texture-anim-h.gc b/goal_src/jak2/engine/gfx/texture/texture-anim-h.gc
index 3c06d86d2c..d6a586f907 100644
--- a/goal_src/jak2/engine/gfx/texture/texture-anim-h.gc
+++ b/goal_src/jak2/engine/gfx/texture/texture-anim-h.gc
@@ -179,6 +179,20 @@
   )
 
 
+(#when PC_PORT
+(deftype noise256x256 (structure)
+  ((image uint8 65536 :offset-assert 0)
+   )
+  )
+
+
+(deftype noise512x512 (structure)
+  ((image uint8 262144 :offset-assert 0)
+   )
+  )
+)
+
+
 (deftype fog8x256 (structure)
   ((image uint8 256 :offset-assert   0)
    )
diff --git a/goal_src/jak2/engine/gfx/texture/texture-anim-tables.gc b/goal_src/jak2/engine/gfx/texture/texture-anim-tables.gc
index 6b192fae6e..eb653f608c 100644
--- a/goal_src/jak2/engine/gfx/texture/texture-anim-tables.gc
+++ b/goal_src/jak2/engine/gfx/texture/texture-anim-tables.gc
@@ -419,9 +419,612 @@
     )
   )
 
+(#when PC_PORT
+(define *sky-hires-texture-anim-array*
+  (the-as (texture-anim-array texture-anim)
+    (new 'static 'texture-anim-array :type texture-anim
+      (new 'static 'texture-anim
+        :func-id 'texture-anim-alpha-ramp-clut-upload
+        :init-func-id 'texture-anim-alpha-ramp-clut-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 24.0)
+        :color (new 'static 'rgba :a #x80)
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 0)
+        )
+      (new 'static 'texture-anim
+        :num-layers #x2
+        :func-id 'cloud-texture-anim-func
+        :init-func-id 'dest-texture-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 16.0 :y 4.0)
+        :color (new 'static 'rgba :a #x80)
+        :frame-delta 300.0
+        :frame-mod 9600.0
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 2
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 16.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 9600.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 16.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 9600.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          )
+        )
+      (new 'static 'texture-anim
+        :num-layers #x2
+        :func-id 'cloud-texture-anim-func
+        :init-func-id 'dest-texture-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 32.0 :y 5.0)
+        :color (new 'static 'rgba :a #x80)
+        :frame-delta 300.0
+        :frame-mod 4800.0
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 2
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 32.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 4800.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 32.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 4800.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          )
+        )
+      (new 'static 'texture-anim
+        :num-layers #x2
+        :func-id 'cloud-texture-anim-func
+        :init-func-id 'dest-texture-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 64.0 :y 6.0)
+        :color (new 'static 'rgba :a #x80)
+        :frame-delta 300.0
+        :frame-mod 2400.0
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 2
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 64.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 2400.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 64.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 2400.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          )
+        )
+      (new 'static 'texture-anim
+        :num-layers #x2
+        :func-id 'cloud-texture-anim-func
+        :init-func-id 'dest-texture-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 128.0 :y 8.0)
+        :color (new 'static 'rgba :a #x80)
+        :frame-delta 300.0
+        :frame-mod 1200.0
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 2
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 128.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 1200.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 128.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 1200.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          )
+        )
+      (new 'static 'texture-anim
+        :num-layers #x2
+        :func-id 'cloud-texture-anim-func
+        :init-func-id 'dest-texture-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 256.0 :y 8.0)
+        :color (new 'static 'rgba :a #x80)
+        :frame-delta 300.0
+        :frame-mod 600.0
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 2
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 256.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 600.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 256.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 600.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          )
+        )
+      (new 'static 'texture-anim
+        :num-layers #x2
+        :func-id 'cloud-texture-anim-func
+        :init-func-id 'dest-texture-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 512.0 :y 8.0)
+        :color (new 'static 'rgba :a #x80)
+        :frame-delta 300.0
+        :frame-mod 450.0
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 2
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 512.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 450.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 512.0 :y 16.0 :z 24.0)
+            :func-id 'cloud-texture-anim-layer-func
+            :init-func-id 'noise-texture-init
+            :tex #f
+            :end-time 450.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          )
+        )
+      (new 'static 'texture-anim
+        :num-layers 6
+        :func #f
+        :init-func-id 'dest-texture-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 512.0 :y 16.0)
+        :color (new 'static 'rgba :a #x80)
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 6
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 16.0 :y 4.0)
+            :func-id 'default-texture-anim-layer-func
+            :init-func-id 'src-texture-init
+            :tex #f
+            :end-time 300.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.49)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 32.0 :y 5.0)
+            :func-id 'default-texture-anim-layer-func
+            :init-func-id 'src-texture-init
+            :tex #f
+            :end-time 300.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.19)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 64.0 :y 6.0)
+            :func-id 'default-texture-anim-layer-func
+            :init-func-id 'src-texture-init
+            :tex #f
+            :end-time 300.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.145)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 128.0 :y 8.0)
+            :func-id 'default-texture-anim-layer-func
+            :init-func-id 'src-texture-init
+            :tex #f
+            :end-time 300.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.015)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 256.0 :y 8.0)
+            :func-id 'default-texture-anim-layer-func
+            :init-func-id 'src-texture-init
+            :tex #f
+            :end-time 300.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.01)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 512.0 :y 8.0)
+            :func-id 'default-texture-anim-layer-func
+            :init-func-id 'src-texture-init
+            :tex #f
+            :end-time 300.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x2 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.0075)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          )
+        )
+      (new 'static 'texture-anim
+        :num-layers #x1
+        :func #f
+        :init-func-id 'dest-texture-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 512.0 :y 8.0)
+        :color (new 'static 'rgba :a #x80)
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 2
+          (new 'static 'texture-anim-layer
+            :extra (new 'static 'vector :x 512.0 :y 16.0)
+            :func-id 'move-rg-to-ba-texture-anim-layer-func
+            :init-func-id 'src-texture-init
+            :tex #f
+            :end-time 300.0
+            :tex-name #f
+            :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+            :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+            :start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            :end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
+            :end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
+            :end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
+            )
+          )
+        )
+      (new 'static 'texture-anim
+        :func-id 'texture-anim-cloud-clut-upload
+        :init-func-id 'texture-anim-cloud-clut-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 24.0 :y 0.5 :z 1.0)
+        :color (new 'static 'rgba :a #x80)
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 2)
+        )
+      (new 'static 'texture-anim
+        :func-id 'fog-texture-anim-func
+        :init-func-id 'fog-texture-anim-init
+        :tex #f
+        :tex-name #f
+        :extra (new 'static 'vector :x 4.0 :y 6.0 :z 122880.0)
+        :color (new 'static 'rgba :a #x80)
+        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
+        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
+        :data (new 'static 'array texture-anim-layer 2)
+        )
+      )
+    )
+  )
+
+(defun set-layer-scale! ((n int) (val float))
+  "set the scale of noise layer `n` in the hires sky anim"
+  (set! (-> *sky-hires-texture-anim-array* array-data 7 data  n  start-color w) val)
+  )
+(defun set-layer-update-time! ((n int) (val float))
+  "set the update time of noise layer `n` in the hires sky anim"
+  (set! (-> *sky-hires-texture-anim-array* array-data (1+ n) frame-mod) val)
+  (set! (-> *sky-hires-texture-anim-array* array-data (1+ n) data 0 end-time) val)
+  (set! (-> *sky-hires-texture-anim-array* array-data (1+ n) data 1 end-time) val)
+  )
+
+(set-layer-scale! 0 0.49)
+(set-layer-scale! 1 0.19)
+(set-layer-scale! 2 0.145)
+(set-layer-scale! 3 0.015)
+(set-layer-scale! 4 0.01)
+(set-layer-scale! 5 0.0075)
+(set-layer-update-time! 0 (fsec 16))
+(set-layer-update-time! 1 (fsec 8))
+(set-layer-update-time! 2 (fsec 6))
+(set-layer-update-time! 3 (fsec 4))
+(set-layer-update-time! 4 (fsec 3))
+(set-layer-update-time! 5 (fsec 2))
+
+)
+
 ;; WARN: Return type mismatch float vs none.
 (defun set-fog-height! ((arg0 float))
   (set! (-> (the-as (array texture-anim) *sky-texture-anim-array*) 8 extra z) arg0)
+  (#when PC_PORT
+    (set! (-> (the-as (array texture-anim) *sky-hires-texture-anim-array*) 10 extra z) arg0))
   (none)
   )
 
@@ -429,6 +1032,9 @@
 (defun set-cloud-minmax! ((arg0 float) (arg1 float))
   (set! (-> *sky-texture-anim-array* array-data 7 extra y) arg0)
   (set! (-> *sky-texture-anim-array* array-data 7 extra z) arg1)
+  (#when PC_PORT
+    (set! (-> *sky-hires-texture-anim-array* array-data 9 extra y) arg0)
+    (set! (-> *sky-hires-texture-anim-array* array-data 9 extra z) arg1))
   (none)
   )
 
diff --git a/goal_src/jak2/engine/gfx/texture/texture-anim.gc b/goal_src/jak2/engine/gfx/texture/texture-anim.gc
index 3ae175df5b..9454bc178a 100644
--- a/goal_src/jak2/engine/gfx/texture/texture-anim.gc
+++ b/goal_src/jak2/engine/gfx/texture/texture-anim.gc
@@ -198,6 +198,7 @@
   (krew-holo 40)
   (clouds-and-fog 41)
   (slime 42)
+  (clouds-hires 43)
   )
 
 (deftype texture-anim-pc-upload (structure)
@@ -597,6 +598,8 @@
   )
 
 (define-extern *sky-texture-anim-array* (texture-anim-array texture-anim))
+(#when PC_PORT
+  (define-extern *sky-hires-texture-anim-array* (texture-anim-array texture-anim)))
 (define-extern *darkjak-texture-anim-array* (texture-anim-array texture-anim))
 (define-extern *jakb-prison-texture-anim-array* (texture-anim-array texture-anim))
 (define-extern *darkjak-hires-texture-anim-array* (texture-anim-array texture-anim))
@@ -693,11 +696,13 @@
   )
 
 (deftype sky-input (structure)
-  ((fog-height float)
-   (cloud-min  float)
-   (cloud-max  float)
-   (times      float 9)
-   (cloud-dest int32)
+  ((fog-height  float)
+   (cloud-min   float)
+   (cloud-max   float)
+   (times       float 11)
+   (max-times   float 6)
+   (scales      float 6)
+   (cloud-dest  int32)
    )
   )
 
@@ -706,6 +711,10 @@
   (set! (-> si cloud-min)  (-> *sky-texture-anim-array* array-data 7 extra y))
   (set! (-> si cloud-max)  (-> *sky-texture-anim-array* array-data 7 extra z))
   (set! (-> si cloud-dest) (the int (-> *sky-texture-anim-array* array-data 6 tex dest 0)))
+  (dotimes (i (-> *sky-texture-anim-array* array-data 5 num-layers))
+    (set! (-> si scales i) (-> *sky-texture-anim-array* array-data 5 data i start-color w))
+    (set! (-> si max-times i) (-> *sky-texture-anim-array* array-data (1+ i) frame-mod))
+    )
   (dotimes (i 9)
     (set! (-> si times i)
           (-> *sky-texture-anim-array* array-data i frame-time)
@@ -713,6 +722,22 @@
     )
   )
 
+(defun make-sky-hires-input ((si sky-input))
+  (set! (-> si fog-height) (-> (the-as (array texture-anim) *sky-hires-texture-anim-array*) 10 extra z))
+  (set! (-> si cloud-min)  (-> *sky-hires-texture-anim-array* array-data 9 extra y))
+  (set! (-> si cloud-max)  (-> *sky-hires-texture-anim-array* array-data 9 extra z))
+  (set! (-> si cloud-dest) (the int (-> *sky-hires-texture-anim-array* array-data 8 tex dest 0)))
+  (dotimes (i (-> *sky-hires-texture-anim-array* array-data 7 num-layers))
+    (set! (-> si scales i) (-> *sky-hires-texture-anim-array* array-data 7 data i start-color w))
+    (set! (-> si max-times i) (-> *sky-hires-texture-anim-array* array-data (1+ i) frame-mod))
+    )
+  (dotimes (i 11)
+    (set! (-> si times i)
+          (-> *sky-hires-texture-anim-array* array-data i frame-time)
+          )
+    )
+  )
+
 #|
 struct SlimeInput {
   float alphas[4];
@@ -774,11 +799,11 @@ struct SlimeInput {
                                   bucket
                                   )
        (pc-texture-anim-flag start-anim-array dma-buf)
-       (pc-texture-anim-flag clouds-and-fog dma-buf :qwc 4)
+       (pc-texture-anim-flag clouds-and-fog dma-buf :qwc (/ (psize-of sky-input) 16))
        (make-sky-input (the sky-input (-> dma-buf base)))
-       (&+! (-> dma-buf base) 64)
+       (&+! (-> dma-buf base) (psize-of sky-input))
        (pc-texture-anim-flag finish-anim-array dma-buf)
-       (dotimes (i 8) ;; intentially skipping fog here!!
+       (dotimes (i 9) ;; intentially skipping fog here!!
          (pc-update-anim-frame-time (-> *sky-texture-anim-array* array-data i))
          )
        )
@@ -786,6 +811,29 @@ struct SlimeInput {
      (set! anim-idx 8) ;; fog
      ;(return #f)
      )
+    ((= anim-array *sky-hires-texture-anim-array*)
+     (when (= bucket (bucket-id tex-lcom-sky-post))
+       ;; skip. I believe this is only used to generate the envmap texture for the ocean.
+       ;; it generates the exact same thing, so if we want this on PC one day, we can just
+       ;; steal if from the beginning of the frame.
+       (return #f)
+       )
+     (with-dma-buffer-add-bucket ((dma-buf (-> *display* frames (-> *display* on-screen) global-buf))
+                                  bucket
+                                  )
+       (pc-texture-anim-flag start-anim-array dma-buf)
+       (pc-texture-anim-flag clouds-hires dma-buf :qwc (/ (psize-of sky-input) 16))
+       (make-sky-hires-input (the sky-input (-> dma-buf base)))
+       (&+! (-> dma-buf base) (psize-of sky-input))
+       (pc-texture-anim-flag finish-anim-array dma-buf)
+       (dotimes (i 11) ;; intentially skipping fog here!!
+         (pc-update-anim-frame-time (-> *sky-hires-texture-anim-array* array-data i))
+         )
+       )
+     ;; falling through on purpose
+     (set! anim-idx 10) ;; fog
+     ;(return #f)
+     )
     ((= anim-array *skull-gem-texture-anim-array*)
      (pc-update-fixed-anim bucket (texture-anim-pc skull-gem) anim-array)
      (return #f)
@@ -1645,6 +1693,13 @@ struct SlimeInput {
       ((128)
        (set! s4-0 (new 'loading-level 'noise128x128))
        )
+      ;; pc port note : added these two cases
+      ((256)
+       (set! s4-0 (new 'loading-level 'noise256x256))
+       )
+      ((512)
+       (set! s4-0 (new 'loading-level 'noise512x512))
+       )
       )
     (when s4-0
       (let ((v1-14 (new 'loading-level 'texture)))
diff --git a/goal_src/jak2/engine/gfx/texture/texture-finish.gc b/goal_src/jak2/engine/gfx/texture/texture-finish.gc
index 3af3bcaace..6d051b5800 100644
--- a/goal_src/jak2/engine/gfx/texture/texture-finish.gc
+++ b/goal_src/jak2/engine/gfx/texture/texture-finish.gc
@@ -19,16 +19,10 @@
     )
   )
 
-;; failed to figure out what this is:
 (init! *sky-texture-anim-array*)
-
-;; failed to figure out what this is:
+(init! *sky-hires-texture-anim-array*)
 (init! *darkjak-texture-anim-array*)
-
-;; failed to figure out what this is:
 (init! *skull-gem-texture-anim-array*)
-
-;; failed to figure out what this is:
 (init! *bomb-texture-anim-array*)
 
 (kmemclose)
diff --git a/goal_src/jak2/pc/debug/default-menu-pc.gc b/goal_src/jak2/pc/debug/default-menu-pc.gc
index 7b0d5e4359..d4d7dd17f4 100644
--- a/goal_src/jak2/pc/debug/default-menu-pc.gc
+++ b/goal_src/jak2/pc/debug/default-menu-pc.gc
@@ -858,6 +858,7 @@
             ;(flag "PS2 Music" #f ,(dm-lambda-boolean-flag (-> *pc-settings* ps2-music?)))
             ;(flag "PS2 Sound effects" #f ,(dm-lambda-boolean-flag (-> *pc-settings* ps2-se?)))
             ;(flag "PS2 Hints" #f ,(dm-lambda-boolean-flag (-> *pc-settings* ps2-hints?)))
+            (flag "Highres Clouds" #f ,(dm-lambda-boolean-flag (-> *pc-settings* hires-clouds?)))
             (flag "Faster airlocks" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fast-airlock?)))
             (flag "Faster elevators" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fast-elevator?)))
             (flag "Faster progress" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fast-progress?)))
diff --git a/goal_src/jak2/pc/pckernel-impl.gc b/goal_src/jak2/pc/pckernel-impl.gc
index 953836585e..c8bed17c3c 100644
--- a/goal_src/jak2/pc/pckernel-impl.gc
+++ b/goal_src/jak2/pc/pckernel-impl.gc
@@ -11,8 +11,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
-                                            ;; version: 0.1.3.2
-(defconstant PC_KERNEL_VERSION (static-pckernel-version 0 1 3 2))
+                                            ;; version: 0.1.4.2
+(defconstant PC_KERNEL_VERSION (static-pckernel-version 0 1 4 2))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;; types and enums
@@ -87,7 +87,9 @@
    (fast-elevator? symbol)
    (fast-progress? symbol)
 
+   ;; gfx
    (smooth-minimap?   symbol)
+   (hires-clouds?     symbol)
    
    (text-language pc-language) ;; language for game text
 
@@ -135,6 +137,7 @@
   (set! (-> obj fast-elevator?) #t)
   (set! (-> obj fast-progress?) #f)
   (set! (-> obj smooth-minimap?) #t)
+  (set! (-> obj hires-clouds?) #t)
   0)
 
 (defmethod reset-extra pc-settings-jak2 ((obj pc-settings-jak2) (call-handlers symbol))
@@ -157,6 +160,9 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
+(define *hires-sky* #t)
+
+
 (defun get-video-params () *video-params*)
 
 
diff --git a/goal_src/jak2/pc/pckernel.gc b/goal_src/jak2/pc/pckernel.gc
index 187e09fc7f..b3f9dce905 100644
--- a/goal_src/jak2/pc/pckernel.gc
+++ b/goal_src/jak2/pc/pckernel.gc
@@ -125,6 +125,15 @@
   )
 
 
+(defmethod update pc-settings-jak2 ((obj pc-settings-jak2))
+  "Set the default misc settings"
+
+  ((method-of-type pc-settings update) obj)
+  
+  (set! *hires-sky* (-> obj hires-clouds?))
+  (none))
+
+
 (defun real-movie? ()
   "are we in an actual cutscene and should letterbox the view?"
   (and (!= #f *scene-player*) (nonzero? movie?) (movie?)))
@@ -310,6 +319,7 @@
     (("fast-elevator?") (set! (-> obj fast-elevator?) (file-stream-read-symbol file)))
     (("fast-progress?") (set! (-> obj fast-progress?) (file-stream-read-symbol file)))
     (("smooth-minimap?") (set! (-> obj smooth-minimap?) (file-stream-read-symbol file)))
+    (("hires-clouds?") (set! (-> obj hires-clouds?) (file-stream-read-symbol file)))
     (("text-language") (set! (-> obj text-language) (the-as pc-language (file-stream-read-int file))))
     (("cheats") (set! (-> obj cheats) (the-as pc-cheats (file-stream-read-int file))))
     (("cheats-revealed") (set! (-> obj cheats-revealed) (the-as pc-cheats (file-stream-read-int file))))
@@ -336,6 +346,7 @@
   (format file "  (fast-elevator? ~A)~%" (-> obj fast-elevator?))
   (format file "  (fast-progress? ~A)~%" (-> obj fast-progress?))
   (format file "  (smooth-minimap? ~A)~%" (-> obj smooth-minimap?))
+  (format file "  (hires-clouds? ~A)~%" (-> obj hires-clouds?))
   (format file "  (text-language ~D)~%" (-> obj text-language))
   (format file "  (cheats #x~x)~%" (-> obj cheats))
   (format file "  (cheats-revealed #x~x)~%" (-> obj cheats-revealed))