mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-05 21:34:30 +00:00
spiral: putting way too much work ingo this
think I understand what's going on fully now though
This commit is contained in:
parent
1a9f28c7a2
commit
5330100fde
10
demos/lovebyte2024/spiraling_shape_32/spiral.shape
Normal file
10
demos/lovebyte2024/spiraling_shape_32/spiral.shape
Normal file
@ -0,0 +1,10 @@
|
||||
# reverse engineering what the pattern we picked actually looks like
|
||||
#
|
||||
# Number of shapes
|
||||
1
|
||||
START
|
||||
NRT NDN NOP
|
||||
NUP DN NLT
|
||||
NLT NUP NOP
|
||||
NUP UP NOP
|
||||
STOP
|
@ -93,8 +93,8 @@ tiny_loop:
|
||||
|
||||
our_shape = $E2DF ; location in the Applesoft ROM
|
||||
; that holds $11,$F0,$03,$20,$00
|
||||
; which makes an offset right-angle
|
||||
; double line-ish pattern when
|
||||
; which makes two offset lines,
|
||||
; one up, one down, when
|
||||
; interpreted as a shape table
|
||||
; (it points into the code for the FRE()
|
||||
; BASIC routine but that's not important)
|
||||
@ -118,7 +118,7 @@ our_shape = $E2DF ; location in the Applesoft ROM
|
||||
|
||||
; x is the starting point, * are the two line segments drawn
|
||||
|
||||
; .
|
||||
; ^
|
||||
; *
|
||||
; . x *
|
||||
; . . .
|
||||
; . . V
|
||||
|
7
demos/lovebyte2024/spiraling_shape_32/spiral_test.bas
Normal file
7
demos/lovebyte2024/spiraling_shape_32/spiral_test.bas
Normal file
@ -0,0 +1,7 @@
|
||||
10 HIMEM:8167
|
||||
20 POKE 232,231:POKE 233,31
|
||||
30 FOR L=8167 TO 8175: READ B:POKE L,B:NEXT L
|
||||
35 HGR:ROT=0:SCALE=2
|
||||
40 FOR I=1 TO 1: XDRAW I AT I*10,100:NEXT I
|
||||
90 END
|
||||
100 DATA 1,0,4,0,17,240,3,32,0
|
Loading…
x
Reference in New Issue
Block a user