From 220983d69488c433198a65e87880d6cfa6467f5b Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 24 Mar 2024 10:36:25 -0700 Subject: [PATCH] (snake) Faster tail drawing --- projects/examples/demos/snake.tal | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/projects/examples/demos/snake.tal b/projects/examples/demos/snake.tal index f227b7e..5504ac1 100644 --- a/projects/examples/demos/snake.tal +++ b/projects/examples/demos/snake.tal @@ -110,12 +110,12 @@ STH ( | draw tail ) ;snake-icns .Screen/addr DEO2 - .snake/length LDZ #00 + .snake/tail .snake/length LDZ DUP ADD OVR ADD SWP &>loop ( -- ) - DUPk ADD .snake/tail ADD LDZ #0005 SFT2 .Screen/x DEO2 - DUPk ADD .snake/tail ADD INC LDZ #0005 SFT2 .Screen/y DEO2 + LDZk #0005 SFT2 .Screen/x DEO2 + INCk LDZ #0005 SFT2 .Screen/y DEO2 STHkr .Screen/sprite DEO - INC GTHk ?&>loop + INC INC GTHk ?&>loop POP2 ( | draw head ) .snake/x LDZ #0005 SFT2 .Screen/x DEO2