hgr: thick_sine demo
This commit is contained in:
Vince Weaver
parent
7cb330cb9e
commit
a25a133d6d
|
|
@ -19,7 +19,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
|||
GATOR.BAS CURSOR.BAS STARGATE.BAS TUNNEL.BAS STARFIELD.BAS \
|
||||
STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS \
|
||||
FIREWORKS.BAS THINKING.BAS ARCS.BAS WIRE_HGR.BAS STATIC.BAS \
|
||||
OVAL.BAS OVAL_HGR.BAS MOVING.BAS
|
||||
OVAL.BAS OVAL_HGR.BAS MOVING.BAS THICK_SINE.BAS
|
||||
|
||||
# cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
|
||||
cp empty.dsk appleiibot.dsk
|
||||
|
|
@ -102,6 +102,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
|||
$(DOS33) -y appleiibot.dsk SAVE A OVAL.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A OVAL_HGR.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A MOVING.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A THICK_SINE.BAS
|
||||
|
||||
####
|
||||
|
||||
|
|
@ -231,6 +232,11 @@ SNOW.BAS: snow.bas
|
|||
|
||||
####
|
||||
|
||||
THICK_SINE.BAS: thick_sine.bas
|
||||
$(TOKENIZE) < thick_sine.bas > THICK_SINE.BAS
|
||||
|
||||
####
|
||||
|
||||
MOVE.BAS: move.bas
|
||||
$(TOKENIZE) < move.bas > MOVE.BAS
|
||||
|
||||
|
|
|
|||
|
|
@ -0,0 +1,2 @@
|
|||
1FORI=0TO102:POKE1013+I,4*PEEK(2126+I)-204+(PEEK(2229+I/3)-35)/4^(I-INT(I/3)*3):NEXT
|
||||
2&"/foL:Be;569e7W4>qM5\bE4=S3EqM3Y3KYdjS1Tr[3Ip\qb3C75EI\r[38Hpbpljeml94Vq=5bBa3\_BrTlF943-35/5768959:+7:;SW$@#@;&3*$SE%O)CD&/MF-<Z;W$$>?+5a#
|
||||
|
|
@ -8,9 +8,10 @@ EMPTYDISK = ../../../empty_disk/empty.dsk
|
|||
all: plasma_hgr.dsk
|
||||
|
||||
plasma_hgr.dsk: HELLO OVAL PURPLE_WAVES ZEBRA JAWS TWIST OVAL_FLIP MOVING \
|
||||
MIRROR
|
||||
MIRROR THICK_SINE
|
||||
cp $(EMPTYDISK) plasma_hgr.dsk
|
||||
$(DOS33) -y plasma_hgr.dsk SAVE A HELLO
|
||||
$(DOS33) -y plasma_hgr.dsk BSAVE -a 0x3F5 THICK_SINE
|
||||
$(DOS33) -y plasma_hgr.dsk BSAVE -a 0xc00 OVAL
|
||||
$(DOS33) -y plasma_hgr.dsk BSAVE -a 0xc00 PURPLE_WAVES
|
||||
$(DOS33) -y plasma_hgr.dsk BSAVE -a 0xc00 ZEBRA
|
||||
|
|
@ -43,6 +44,14 @@ oval_flip.o: oval_flip.s
|
|||
|
||||
###
|
||||
|
||||
THICK_SINE: thick_sine.o
|
||||
ld65 -o THICK_SINE thick_sine.o -C $(LINKERSCRIPTS)/apple2_3f5.inc
|
||||
|
||||
thick_sine.o: thick_sine.s
|
||||
ca65 -o thick_sine.o thick_sine.s -l thick_sine.lst
|
||||
|
||||
###
|
||||
|
||||
MOVING: moving.o
|
||||
ld65 -o MOVING moving.o -C $(LINKERSCRIPTS)/apple2_3f5.inc
|
||||
|
||||
|
|
@ -96,5 +105,6 @@ purple_waves.o: purple_waves.s
|
|||
###
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o *.lst OVAL PURPLE_WAVES ZEBRA JAWS TWIST OVAL_FLIP
|
||||
rm -f *~ *.o *.lst OVAL PURPLE_WAVES ZEBRA JAWS TWIST OVAL_FLIP \
|
||||
THICK_SINE
|
||||
|
||||
|
|
|
|||
|
|
@ -0,0 +1,133 @@
|
|||
; thick sine
|
||||
|
||||
|
||||
; zero page
|
||||
GBASL = $26
|
||||
GBASH = $27
|
||||
YY = $69
|
||||
ROW_SUM = $70
|
||||
|
||||
HGR_X = $E0
|
||||
HGR_XH = $E1
|
||||
HGR_Y = $E2
|
||||
HGR_COLOR = $E4
|
||||
HGR_PAGE = $E6
|
||||
|
||||
FRAME = $FC
|
||||
SUM = $FD
|
||||
SAVEX = $FE
|
||||
SAVEY = $FF
|
||||
|
||||
; soft-switches
|
||||
FULLGR = $C052
|
||||
PAGE1 = $C054
|
||||
|
||||
; ROM routines
|
||||
|
||||
HGR2 = $F3D8
|
||||
HPOSN = $F411 ; (Y,X),(A) (values stores in HGRX,XH,Y)
|
||||
HPLOT0 = $F457 ; plot at (Y,X), (A)
|
||||
|
||||
;================================
|
||||
; Clear screen and setup graphics
|
||||
;================================
|
||||
thick_sine:
|
||||
|
||||
jsr HGR2 ; set hi-res 140x192, page2, fullscreen
|
||||
; A and Y both 0 at end
|
||||
;==================
|
||||
; create sinetable
|
||||
|
||||
;ldy #0 ; Y is 0
|
||||
sinetable_loop:
|
||||
tya ; 2
|
||||
and #$3f ; wrap sine at 63 entries ; 2
|
||||
|
||||
cmp #$20
|
||||
php ; save pos/negative for later
|
||||
|
||||
and #$1f
|
||||
|
||||
cmp #$10
|
||||
bcc sin_left ; blt
|
||||
|
||||
sin_right:
|
||||
; sec carry should be set here
|
||||
eor #$FF
|
||||
adc #$20 ; 32-X
|
||||
sin_left:
|
||||
tax
|
||||
lda sinetable_base,X ; 4+
|
||||
|
||||
plp
|
||||
bcc sin_done
|
||||
|
||||
sin_negate:
|
||||
; carry set here
|
||||
eor #$ff
|
||||
adc #0 ; FIXME: this makes things off by 1
|
||||
|
||||
sin_done:
|
||||
sta sinetable,Y
|
||||
|
||||
iny
|
||||
bne sinetable_loop
|
||||
|
||||
|
||||
;============================
|
||||
; main loop
|
||||
;============================
|
||||
|
||||
draw_circle:
|
||||
|
||||
blah_smc:
|
||||
ldx #0
|
||||
stx SAVEX
|
||||
|
||||
ldy #0
|
||||
sty SAVEY
|
||||
|
||||
circle_loop:
|
||||
ldx SAVEX
|
||||
; ldy sinetable,X
|
||||
; sty SAVEY
|
||||
lda sinetable,X
|
||||
clc
|
||||
asl
|
||||
; $60 is midscreen
|
||||
adc #$60
|
||||
ldx SAVEY
|
||||
ldy #0
|
||||
|
||||
jsr HPLOT0 ; plot at (Y,X), (A)
|
||||
|
||||
inc SAVEX
|
||||
inc SAVEY
|
||||
bne circle_loop
|
||||
|
||||
done:
|
||||
inc blah_smc+1
|
||||
|
||||
lda SAVEX
|
||||
and #$3f
|
||||
cmp #$3f
|
||||
bne blah
|
||||
lda HGR_COLOR
|
||||
eor #$ff
|
||||
sta HGR_COLOR
|
||||
blah:
|
||||
|
||||
jmp draw_circle
|
||||
|
||||
|
||||
sinetable_base:
|
||||
; this is actually (32*sin(x))
|
||||
.byte $00,$03,$06,$09,$0C,$0F,$11,$14
|
||||
.byte $16,$18,$1A,$1C,$1D,$1E,$1F,$1F
|
||||
.byte $20
|
||||
|
||||
; for bot
|
||||
; 3F5 - 7d = 378
|
||||
; jmp oval
|
||||
|
||||
sinetable=$6000
|
||||
Loading…
Reference in New Issue