Cargas de Produndidad / Depth Charge

[oblo]

Note: You can directly do that in ZXBasic (replacing the ASM function) with:

Code:

t = PEEK(Ulong, 23672) BAND 0xFFFFFF

It won't be perhaps as fast as the ASM. Can you check it?

Tested and it's way faster than ASM; in fact, I can't control the speed of the sonar pointer. With the ASM function, I can do that changing the 360 in a = t1 / 360 * PI: REM a is the seconds pointer in radians line.
This is how the sonar subroutine is defined right now:

Code:

REM Rutina del sonar SUB sonar() REM sonido del sonar segundos = segundos + 1 if segundos = 15 then beep 0.07,45 : beep 0.13,30 segundos = 0 poke 23164+(RND*3),135 poke 23196+(RND*3),135 poke 23228+(RND*3),135 end if REM grafico del sonar FUNCTION t() as uLong asm DI LD DE,(23674) LD D,0 LD HL,(23672) EI end asm end function DIM t1 AS FLOAT t1 = t() a = t1 / 360 * PI: REM a is the seconds pointer in radians sx = 20 * SIN a : LET sy = 20 * COS a PLOT 237, 28: DRAW sx, sy if sx2 <> sx then over 1 PLOT 237, 28: DRAW sx2, sy2 sx2 = sx : sy2 = sy over 0 CIRCLE 236, 28, 18 CIRCLE 236, 28, 13 CIRCLE 236, 28, 8 plot 236,9 : draw 0,38 plot 217,28 : draw 38,0 end if if sx > 19.9 or sx < -19.9 or (sx > 0 and sx < 3) then resetsonar = resetsonar + 1 if resetsonar = 1 then for y = 18 to 23 print at y,27; " "; next y CIRCLE 236, 28, 18 CIRCLE 236, 28, 13 CIRCLE 236, 28, 8 plot 236,9 : draw 0,38 plot 217,28 : draw 38,0 end if else resetsonar = 0 end if return END sub

Cheers