From d48b81f371ea7938776777eb2b8d72bcb8e90cf0 Mon Sep 17 00:00:00 2001
From: Kistaro Windrider <kistaro@gmail.com>
Date: Thu, 29 Feb 2024 22:18:18 -0800
Subject: [PATCH] second cloud layer. correct lighting angle.

there are entrance or exit artifacts; this set of values seems to give acceptable levels of entrance artifacts
---
 vacation.p8 | 26 +++++++++++++++++++-------
 1 file changed, 19 insertions(+), 7 deletions(-)

diff --git a/vacation.p8 b/vacation.p8
index 8d80744..4ad9c7c 100644
--- a/vacation.p8
+++ b/vacation.p8
@@ -1409,8 +1409,8 @@ cmgr={
  sprs=10,
  step=3,
  y=12,
- h=9,
- oval_h=4,
+ h=10,
+ oval_h=5,
  c0 = 8, -- shadow
  c1 = 7, -- primary
 }
@@ -1467,10 +1467,10 @@ function cmgr:draw()
 	pal(wpal)
 	
 	poke(0x5f5e,0xf1)
-	sspr(0,96,128,h,5,112) 
+	sspr(0,96,128,h,0,112) 
 	poke(0x5f5e,0xf2)
-	sspr(0,96,128,h,4,113) 
-	sspr(0,96,128,h,1,113) 
+	sspr(0,96,128,h,-1,113) 
+	sspr(0,96,128,h,-3,113) 
 	poke(0x5f5e,255)
 	
 	-- render to screen
@@ -1531,7 +1531,7 @@ function setup_arcade_pal()
  pal()
  --game_nrm_pal
  pal({
-  [0] = 1, 0, 2, 140, 4, 5, 7, 7, 15, 6, 10, 132, 12, 12, 14, 7
+  [0] = 1, 0, 2, 140, 4, 5, 7, 7, 15, 6, 10, 132, 12, 134, 14, 7
  }, 1)
  --game_uw_pal
  pal({
@@ -1653,8 +1653,17 @@ mknew(arcade_level, function(x)
   splasher=x,
   xtarget=x.phin_x,
  }
- x.sky = bg.new{c=13}
+ x.sky = bg.new{c=12}
  x.sea = sea.new()
+ x.cld0 = cmgr.new{
+  y=18,
+  h=9,
+  oval_h=4,
+  sprs=12,
+  step=4,
+  c0=13,
+  c1=9,
+ }
  x.cld1 = cmgr.new{}
  x.bg = event_list.new()
  x.fg = event_list.new()
@@ -1665,6 +1674,7 @@ mknew(arcade_level, function(x)
 
  x.v = view.of{
   x.sky,
+  x.cld0,
   x.cld1,
   x.sea,
   x.waves,
@@ -1737,6 +1747,8 @@ function arcade_level:u()
  end
  if self.wordremain <= 0 and self.words.next == nil then
   self.phin.exiting = true
+  self.cld1.df = 0
+  self.cld0.df = 0
  end
  if self.phin.x > 90 then
   if not self.mstp then