Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-08-10 08:25:13 +00:00
Code Issues Projects Releases Wiki Activity

add fx/sunset, fx/radial2, fx/radial3, fx/radial4, fx/radial5

Browse Source
This commit is contained in:
4am
2018-11-04 10:18:30 -05:00
parent 05ac8136f3
commit d124019918
21 changed files with 13192 additions and 1817 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Makefile
View File

@@ -43,7 +43,12 @@ asm: md
$(ACME) src/fx/fx.hgr.stagger.lr.white.a
$(ACME) src/fx/fx.hgr.corner.circle.a
$(ACME) src/fx/fx.hgr.sunrise.a
$(ACME) src/fx/fx.hgr.sunset.a
$(ACME) src/fx/fx.hgr.radial.a
$(ACME) src/fx/fx.hgr.radial2.a
$(ACME) src/fx/fx.hgr.radial3.a
$(ACME) src/fx/fx.hgr.radial4.a
$(ACME) src/fx/fx.hgr.radial5.a
$(ACME) src/fx/fx.hgr.split.ud.intro.a
$(ACME) src/fx/fx.hgr.iris.a
$(ACME) src/fx/fx.hgr.ripple.a

2
res/fx.conf
View File

@@ -1 +1 @@
#
#

5
res/fx/_FileInformation.txt
View File

@@ -20,7 +20,12 @@ STAGGER.LR=Type(06),AuxType(6000),Access(C3)
STAGGERWHITE.LR=Type(06),AuxType(6000),Access(C3)
CORNER.CIRCLE=Type(06),AuxType(6000),Access(C3)
SUNRISE=Type(06),AuxType(6000),Access(C3)
SUNSET=Type(06),AuxType(6000),Access(C3)
RADIAL=Type(06),AuxType(6000),Access(C3)
RADIAL2=Type(06),AuxType(6000),Access(C3)
RADIAL3=Type(06),AuxType(6000),Access(C3)
RADIAL4=Type(06),AuxType(6000),Access(C3)
RADIAL5=Type(06),AuxType(6000),Access(C3)
SPLIT.UD.INTRO=Type(06),AuxType(6000),Access(C3)
IRIS=Type(06),AuxType(6000),Access(C3)
RIPPLE=Type(06),AuxType(6000),Access(C3)

49
res/notes/do.txt
View File

@@ -1,49 +0,0 @@
0123456789012345678901234567890123456789
0AAAAA AAAAA AAAAA AAAAA .
1 .
2 .
3 .
4 .
5 AAAAA AAAAA AAAAA AAAAA.
6AAAAA .
7 .
8 .
9 .
0 .
1 .
2AAAAA .
3 .
4 .
5 .
6 .
7 .
8AAAAA .
9 .
0 .
1 .
2 .
3 .
4AAAAA .
5 .
6 .
7 .
8 .
9 .
0AAAAA .
1 .
2 .
3 .
4 .
5 .
6AAAAA .
7 .
8 .
9 .
0 .
1 .
2AAAAA .
3 .
4 .
5 .
6 .
7 .

54
res/notes/radial.py
View File

@@ -25,16 +25,66 @@ for i in range(300, 0, -1):
if any:
coords.append((255,255))
q1 = coords.copy()
q2 = [(-x-1,y) for x,y in coords]
q2.reverse()
q3 = [(-x-1,-y-1) for x,y in coords]
q4 = [(x,-y-1) for x,y in coords]
q4.reverse()
coords = q4 + coords + q2 + q3
coords = q4 + q1 + q2 + q3
with open("../../src/fx/fx.hgr.radial.data.a", "w") as f:
for x, y in coords:
if x not in range(-40,40):
f.write(" !byte 255,255\n")
else:
f.write(" !byte %s,%s\n" % ((23-y,19-x)))
coords = []
for cs in list(zip(q1,q3)) + list(zip(q2,q4)):
for c in cs:
coords.append(c)
with open("../../src/fx/fx.hgr.radial2.data.a", "w") as f:
for x, y in coords:
if x not in range(-40,40):
f.write(" !byte 255,255\n")
else:
f.write(" !byte %s,%s\n" % ((23-y,19-x)))
coords = []
for cs in zip(q1,q2,q3,q4):
for c in cs:
coords.append(c)
with open("../../src/fx/fx.hgr.radial3.data.a", "w") as f:
for x, y in coords:
if x not in range(-40,40):
f.write(" !byte 255,255\n")
else:
f.write(" !byte %s,%s\n" % ((23-y,19-x)))
q1.reverse()
q3.reverse()
coords = []
for cs in zip(q1,q2,q3,q4):
for c in cs:
coords.append(c)
with open("../../src/fx/fx.hgr.radial4.data.a", "w") as f:
for x, y in coords:
if x not in range(-40,40):
f.write(" !byte 255,255\n")
else:
f.write(" !byte %s,%s\n" % ((23-y,19-x)))
q1.reverse()
q2.reverse()
q3.reverse()
q4.reverse()
coords = []
for cs in zip(q1,q2,q3,q4):
for c in cs:
coords.append(c)
with open("../../src/fx/fx.hgr.radial5.data.a", "w") as f:
for x, y in coords:
if x not in range(-40,40):
f.write(" !byte 255,255\n")
else:
f.write(" !byte %s,%s\n" % ((23-y,19-x)))

8
res/notes/sunrise.py
View File

@@ -33,3 +33,11 @@ with open("../../src/fx/fx.hgr.sunrise.data.a", "w") as f:
f.write(" !byte 255,255\n")
else:
f.write(" !byte %s,%s\n" % (47-y,39-x))
coords.reverse()
with open("../../src/fx/fx.hgr.sunset.data.a", "w") as f:
for x, y in coords:
if x == 255:
f.write(" !byte 255,255\n")
else:
f.write(" !byte %s,%s\n" % (47-y,39-x))

4
src/4cade.a
View File

@@ -193,7 +193,7 @@ AttractMode
jmp BlankHGR
@HGRSlideshow
jsr LoadTransition
; jsr LoadTransition
jsr okvs_iter
!word gSlideshowStore
!word HGRLoad
@@ -209,7 +209,7 @@ HGRLoad
; load HGR screenshot at $4000
+LOAD_FILE kHGRScreenshotDirectory, PTR
; jsr LoadTransition
jsr LoadTransition
jsr $6000 ; transition effect code was loaded here earlier
jmp WaitOnScreenshot

34
src/fx/fx.hgr.radial.a
View File

@@ -2,39 +2,7 @@
!to "build/FX/RADIAL",plain
*=$6000
coord = $FE
lda #<@coords
sta coord
lda #>@coords
sta coord+1
ldy #0
@loop
lda (coord),y
bpl @copy
lda #$6
jsr WaitForKeyWithTimeout
bmi @exit
bpl @next ; always branches
@copy
tax
iny
lda (coord),y
tay
txa
jsr HGRHalfBlockCopy
@next
inc coord
bne +
inc coord+1
+ inc coord
bne +
inc coord+1
+ ldy #$00
lda ($FE),y
cmp #$80
bne @loop
@exit rts
!source "src/fx/fx.hgr.radial.common.a"
@coords
!source "src/fx/fx.hgr.radial.data.a"

33
src/fx/fx.hgr.radial.common.a Normal file
View File

@@ -0,0 +1,33 @@
coord = $FE
lda #<@coords
sta coord
lda #>@coords
sta coord+1
ldy #0
@loop
lda (coord),y
bpl @copy
lda #$6
jsr WaitForKeyWithTimeout
bmi @exit
bpl @next ; always branches
@copy
tax
iny
lda (coord),y
tay
txa
jsr HGRHalfBlockCopy
@next
inc coord
bne +
inc coord+1
+ inc coord
bne +
inc coord+1
+ ldy #$00
lda ($FE),y
cmp #$80
bne @loop
@exit rts

12
src/fx/fx.hgr.radial2.a Normal file
View File

@@ -0,0 +1,12 @@
!cpu 6502
!to "build/FX/RADIAL2",plain
*=$6000
!source "src/fx/fx.hgr.radial.common.a"
@coords
!source "src/fx/fx.hgr.radial2.data.a"
!byte $80
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"

2764
src/fx/fx.hgr.radial2.data.a Normal file
View File

File diff suppressed because it is too large Load Diff

12
src/fx/fx.hgr.radial3.a Normal file
View File

@@ -0,0 +1,12 @@
!cpu 6502
!to "build/FX/RADIAL3",plain
*=$6000
!source "src/fx/fx.hgr.radial.common.a"
@coords
!source "src/fx/fx.hgr.radial3.data.a"
!byte $80
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"

2764
src/fx/fx.hgr.radial3.data.a Normal file
View File

File diff suppressed because it is too large Load Diff

12
src/fx/fx.hgr.radial4.a Normal file
View File

@@ -0,0 +1,12 @@
!cpu 6502
!to "build/FX/RADIAL4",plain
*=$6000
!source "src/fx/fx.hgr.radial.common.a"
@coords
!source "src/fx/fx.hgr.radial4.data.a"
!byte $80
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"

2764
src/fx/fx.hgr.radial4.data.a Normal file
View File

File diff suppressed because it is too large Load Diff

12
src/fx/fx.hgr.radial5.a Normal file
View File

@@ -0,0 +1,12 @@
!cpu 6502
!to "build/FX/RADIAL5",plain
*=$6000
!source "src/fx/fx.hgr.radial.common.a"
@coords
!source "src/fx/fx.hgr.radial5.data.a"
!byte $80
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"

2764
src/fx/fx.hgr.radial5.data.a Normal file
View File

File diff suppressed because it is too large Load Diff

34
src/fx/fx.hgr.sunrise.a
View File

@@ -2,39 +2,7 @@
!to "build/FX/SUNRISE",plain
*=$6000
coord = $FE
lda #<@coords
sta coord
lda #>@coords
sta coord+1
ldy #0
@loop
lda (coord),y
bpl @copy
lda #$28
jsr WaitForKeyWithTimeout
bmi @exit
bpl @next ; always branches
@copy
tax
iny
lda (coord),y
tay
txa
jsr HGRHalfBlockCopy
@next
inc coord
bne +
inc coord+1
+ inc coord
bne +
inc coord+1
+ ldy #$00
lda ($FE),y
cmp #$80
bne @loop
@exit rts
!source "src/fx/fx.hgr.sunrise.common.a"
@coords
!source "src/fx/fx.hgr.sunrise.data.a"

33
src/fx/fx.hgr.sunrise.common.a Normal file
View File

@@ -0,0 +1,33 @@
coord = $FE
lda #<@coords
sta coord
lda #>@coords
sta coord+1
ldy #0
@loop
lda (coord),y
bpl @copy
lda #$28
jsr WaitForKeyWithTimeout
bmi @exit
bpl @next ; always branches
@copy
tax
iny
lda (coord),y
tay
txa
jsr HGRHalfBlockCopy
@next
inc coord
bne +
inc coord+1
+ inc coord
bne +
inc coord+1
+ ldy #$00
lda ($FE),y
cmp #$80
bne @loop
@exit rts

12
src/fx/fx.hgr.sunset.a Normal file
View File

@@ -0,0 +1,12 @@
!cpu 6502
!to "build/FX/SUNSET",plain
*=$6000
!source "src/fx/fx.hgr.sunrise.common.a"
@coords
!source "src/fx/fx.hgr.sunset.data.a"
!byte $80
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"

3632
res/notes/corner-circle.txt → src/fx/fx.hgr.sunset.data.a
View File

File diff suppressed because it is too large Load Diff