add fx/ripple

Makefile

@@ -46,6 +46,7 @@ asm: md
 	$(ACME) src/fx/fx.hgr.radial.a
 	$(ACME) src/fx/fx.hgr.split.ud.intro.a
 	$(ACME) src/fx/fx.hgr.iris.a
+	$(ACME) src/fx/fx.hgr.ripple.a
 
 dsk: md asm
 	$(CADIUS) CREATEVOLUME build/"$(DISK)" "${VOLUME}" 32766KB >>build/log

res/fx.conf

@@ -1 +1 @@
-#
# transition effects for HGR slideshows
#
IRIS
SPLIT.UD.INTRO
RADIAL
SUNRISE
DIAGONAL
CHECKERBOARD
HALF.FIZZLE
CORNER.CIRCLE
BAR.DISSOLVE
STAGGERWHITE.LR
DIAMOND
ONESQUARE
TWOPASS.LR
CRYSTAL
HALF.MOSAIC
STAGGER.LR
FOURSQUARE
STAGGER.UD
INTERLOCK.LR
BLOCK.MOSAIC
FIZZLE
STAGGERWHITE.UD
INTERLOCK.UD
BLOCK.FIZZLE
SPIRAL

[eof]
+#
# transition effects for HGR slideshows
#
RIPPLE
IRIS
SPLIT.UD.INTRO
RADIAL
SUNRISE
DIAGONAL
CHECKERBOARD
HALF.FIZZLE
CORNER.CIRCLE
BAR.DISSOLVE
STAGGERWHITE.LR
DIAMOND
ONESQUARE
TWOPASS.LR
CRYSTAL
HALF.MOSAIC
STAGGER.LR
FOURSQUARE
STAGGER.UD
INTERLOCK.LR
BLOCK.MOSAIC
FIZZLE
STAGGERWHITE.UD
INTERLOCK.UD
BLOCK.FIZZLE
SPIRAL

[eof]

res/fx/_FileInformation.txt

@@ -23,3 +23,4 @@ SUNRISE=Type(06),AuxType(6000),Access(C3)
 RADIAL=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)

res/notes/ripple.py

@@ -19,3 +19,15 @@ for i in range(20000):
 with open("../../src/fx/fx.hgr.iris.data.a", "w") as f:
     for x, y in coords:
         f.write("         !byte %s,%s\n" % (y,x))
+
+radialcoords = []
+#for i, j, k in zip(range(640), range(640,1280), range(1280,1920)):
+for i, j, k, l in zip(range(480), range(480,960), range(960,1440), range(1440,1920)):
+    radialcoords.append(coords[i])
+    radialcoords.append(coords[j])
+    radialcoords.append(coords[k])
+    radialcoords.append(coords[l])
+    radialcoords.append((255,255))
+with open("../../src/fx/fx.hgr.ripple.data.a", "w") as f:
+    for x, y in radialcoords:
+        f.write("         !byte %s,%s\n" % (y,x))

src/fx/fx.hgr.ripple.a

@@ -0,0 +1,43 @@
+!cpu 6502
+!to "build/FX/RIPPLE",plain
+*=$6000
+
+coord = $FE
+
+         lda   #<@coords
+         sta   coord
+         lda   #>@coords
+         sta   coord+1
+         ldy   #0
+@loop
+         lda   (coord),y
+         bpl   +
+         lda   #$30
+         jsr   WaitForKeyWithTimeout
+         bmi   @exit
+         bpl   @next
++        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
+
+@coords
+         !source "src/fx/fx.hgr.ripple.data.a"
+         !byte $80
+
+         !source "src/wait.a"
+         !source "src/fx/fx.hgr.common.a"