From 28a284819b8e97542b2fcfd396728edbaa953b14 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Wed, 21 Sep 2022 20:09:20 -0700 Subject: [PATCH] Simplified world --- ray/src/ray.tal | 66 +++++++++++++++++++------------------------------ 1 file changed, 25 insertions(+), 41 deletions(-) diff --git a/ray/src/ray.tal b/ray/src/ray.tal index 3a2fc00..c4adb25 100644 --- a/ray/src/ray.tal +++ b/ray/src/ray.tal @@ -117,7 +117,7 @@ JMP2r @draw-col ( distance* color -- ) - #04 SFT ,&color STR + ,&color STR ( scale ) #01 SFT2 NIP STH #8000 @@ -144,6 +144,7 @@ JMP2r @draw-minimap ( -- ) #01 .Screen/auto DEO + ;fill-icn .Screen/addr DEO2 #0000 .Screen/y DEO2 #1000 &ver @@ -152,9 +153,7 @@ JMP2r #1000 &hor ( id ) #00 OVR STHkr #40 SFT ADD - ( addr* ) #0003 MUL2 ;nametable ADD2 - LDA2k ;spritesheet ADD2 .Screen/addr DEO2 - ( color ) INC2 INC2 LDA .Screen/sprite DEO + ;world ADD2 LDA .Screen/sprite DEO INC GTHk ,&hor JCN POP2 POPr @@ -183,6 +182,9 @@ JMP2r JMP2r +@fill-icn + ffff ffff ffff ffff + @to-scale ( x* y* -- x* y* ) ( scale ) SWP2 #01 SFT2 @@ -237,8 +239,8 @@ JMP2r @get-tile ( x* y* -- tile ) ;to-scale JSR2 - #43 SFT2 SWP2 #03 SFT2 ADD2 #0003 MUL2 - ;nametable ADD2 LDA2 NIP + #43 SFT2 SWP2 #03 SFT2 ADD2 + ;world ADD2 LDA JMP2r @@ -294,42 +296,24 @@ JMP2r @player-icn 0010 387c 3810 0000 -@spritesheet - 0000 0000 0000 0000 0000 0000 0000 0000 - ffff ffff ffff ffff 0000 0000 0000 0000 - 0000 0000 0000 0000 ffff ffff ffff ffff - ffff ffff ffff ffff ffff ffff ffff ffff - 0000 0000 0000 0000 ffff ffff ffff ffff - ffff ffff ffff ffff ffff ffff ffff ffff - 0000 0000 0000 0000 ffff ffff ffff ffff - ffff ffff ffff ffff ffff ffff ffff ffff +@world +01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 +01 00 00 00 00 00 00 00 00 00 00 00 02 00 00 01 +01 00 00 00 00 00 00 00 00 00 00 00 02 00 00 01 +01 00 00 00 00 00 00 00 00 03 03 03 02 00 00 01 +01 00 00 00 03 00 00 00 00 03 00 00 02 00 00 01 +01 00 00 00 03 00 00 00 00 03 00 00 02 00 00 01 +01 00 00 00 03 00 00 00 00 00 00 00 01 00 00 01 +01 00 00 00 03 00 00 00 00 00 00 00 01 00 00 01 +01 00 03 03 02 02 02 02 02 00 00 00 01 00 00 01 +01 00 00 00 00 00 00 00 02 00 00 00 01 00 00 01 +01 00 00 00 00 00 00 00 02 00 00 00 01 00 00 01 +01 00 00 00 00 00 00 00 02 00 03 03 03 00 00 01 +01 00 00 00 00 00 00 00 02 00 00 00 00 00 00 02 +01 00 00 00 00 00 00 00 02 00 00 00 00 00 00 01 +01 00 00 00 00 00 00 00 02 00 00 00 00 00 00 01 +01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 -@nametable - -0010 8100 1081 0010 8100 1081 0010 8100 1081 0010 8100 1081 0010 8100 1081 0010 -8100 1081 0010 8100 1081 0010 8100 1081 0010 8100 0081 0000 8100 0081 0000 8100 -0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 1081 -0010 8100 0081 0000 8100 0081 0000 8100 2081 0020 8100 0081 0000 8100 0081 0000 -8100 0081 0000 8100 0081 0000 8100 1081 0010 8100 0081 0000 8100 0081 0000 8100 -1081 0000 8100 0081 0010 8100 1081 0010 8100 1081 0010 8100 3081 0030 8100 1081 -0010 8100 0081 0000 8100 0081 0000 8100 1081 0000 8100 0081 0000 8100 0081 0000 -8100 0081 0000 8100 0081 0000 8100 1081 0010 8100 0081 0000 8100 0081 0000 8100 -1081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 1081 -0010 8100 0081 0000 8100 1081 0010 8100 1081 0010 8100 1081 0010 8100 1081 0000 -8100 0081 0000 8100 0081 0000 8100 1081 0010 8100 0081 0000 8100 1081 0000 8100 -0081 0000 8100 0081 0000 8100 2081 0020 8100 2081 0020 8100 0081 0000 8100 1081 -0010 8100 0081 0000 8100 1081 0000 8100 0081 0000 8100 0081 0000 8100 1081 0000 -8100 0081 0000 8100 0081 0000 8100 1081 0010 8100 0081 0000 8100 1081 0000 8100 -0081 0000 8100 0081 0000 8100 1081 0000 8100 2081 0020 8100 2081 0020 8100 2081 -0010 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 3081 0000 -8100 0081 0000 8100 0081 0000 8100 2081 0020 8100 0081 0000 8100 0081 0000 8100 -0081 0000 8100 0081 0000 8100 3081 0000 8100 0081 0000 8100 0081 0000 8100 2081 -0020 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 1081 0000 -8100 0081 0000 8100 0081 0000 8100 2081 0020 8100 0081 0010 8100 1081 0020 8100 -2081 0020 8100 2081 0010 8100 1081 0000 8100 0081 0000 8100 0081 0000 8100 1081 -0020 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 8100 0081 0000 -8100 0081 0000 8100 0081 0000 8100 1081 0020 8100 2081 0020 8100 1081 0010 8100 -1081 0010 8100 3081 0030 8100 3081 0010 8100 1081 0020 8100 2081 0010 8100 1081 @sin60 ( 60 positions on a circle )