Set better default scale

2025-08-05 11:25:05 +00:00 · 2022-07-22 16:02:00 -05:00
parent f446e44a39
commit b35c96c0fb
1 changed files with 14 additions and 2 deletions
--- a/demos/kfest-2022/demo-10/App.Main.s
+++ b/demos/kfest-2022/demo-10/App.Main.s
@@ -73,7 +73,11 @@ Scale           equ   56
                stz   LastHFlip
                stz   SpriteCount
                stz   SpriteToggle
-                stz   Scale
+
+                lda   #4
+                sta   Scale
+                pei   Scale
+                _GTESetBG1Scale

 ; Initialize the graphics screen playfield

@@ -211,12 +215,20 @@ EvtLoop
                beq   :reg_key
                and   #$007F
                cmp   #'s'
-                bne   :reg_key
+                bne   :not_s
                inc   Scale
                pei   Scale
                _GTESetBG1Scale
                jmp   do_render

+:not_s
+                cmp   #'x'
+                bne   :reg_key
+                dec   Scale
+                pei   Scale
+                _GTESetBG1Scale
+                jmp   do_render
+
 :reg_key
                and   #$007F
                cmp   #LEFT_ARROW