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
|
@ -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
|
our_shape = $E2DF ; location in the Applesoft ROM
|
||||||
; that holds $11,$F0,$03,$20,$00
|
; that holds $11,$F0,$03,$20,$00
|
||||||
; which makes an offset right-angle
|
; which makes two offset lines,
|
||||||
; double line-ish pattern when
|
; one up, one down, when
|
||||||
; interpreted as a shape table
|
; interpreted as a shape table
|
||||||
; (it points into the code for the FRE()
|
; (it points into the code for the FRE()
|
||||||
; BASIC routine but that's not important)
|
; 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 is the starting point, * are the two line segments drawn
|
||||||
|
|
||||||
; .
|
; ^
|
||||||
; *
|
; *
|
||||||
; . x *
|
; . x *
|
||||||
; . . .
|
; . . V
|
||||||
|
|
|
@ -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…
Reference in New Issue