add fx/fx.hgr.crystal

Makefile

@@ -31,6 +31,7 @@ asm: md
 	$(ACME) src/fx/fx.hgr.block.fizzle.a
 	$(ACME) src/fx/fx.hgr.block.mosaic.a
 	$(ACME) src/fx/fx.hgr.2pass.lr.a
+	$(ACME) src/fx/fx.hgr.crystal.a
 
 dsk: md asm
 	$(CADIUS) CREATEVOLUME build/"$(DISK)" "${VOLUME}" 32766KB >>build/log

res/fx.conf

@@ -1 +1 @@
-#
# transition effects for HGR slideshows
#
TWOPASS.LR
INTERLOCK.LR
BLOCK.MOSAIC
IRIS
FIZZLE
INTERLOCK.UD
BLOCK.FIZZLE
DIAGONAL
SPIRAL
BAR.DISSOLVE

[eof]
+#
# transition effects for HGR slideshows
#
CRYSTAL
TWOPASS.LR
INTERLOCK.LR
BLOCK.MOSAIC
IRIS
FIZZLE
INTERLOCK.UD
BLOCK.FIZZLE
DIAGONAL
SPIRAL
BAR.DISSOLVE

[eof]

res/fx/_FileInformation.txt

@@ -8,3 +8,4 @@ BAR.DISSOLVE=Type(06),AuxType(6000),Access(C3)
 BLOCK.FIZZLE=Type(06),AuxType(6000),Access(C3)
 BLOCK.MOSAIC=Type(06),AuxType(6000),Access(C3)
 TWOPASS.LR=Type(06),AuxType(6000),Access(C3)
+CRYSTAL=Type(06),AuxType(6000),Access(C3)

res/notes/crystal.py

@@ -0,0 +1,18 @@
+#!/usr/bin/env python3
+
+import sys
+
+alphabet = 'ABCDEFGHIJKLMNOPQRSTUVWX'
+coords = []
+for filename in ('crystal1.txt','crystal2.txt','crystal3.txt','crystal4.txt'):
+    with open(filename) as f:
+        lines = f.readlines()
+    for c in alphabet:
+        for line, row in zip(lines, range(len(lines))):
+            for l, col in zip(line, range(len(line))):
+                if l == c:
+                    if (row, col) not in coords:
+                        coords.append((row, col))
+        coords.append((255,255))
+for row, col in coords:
+    print("         !byte %s,%s" % (row, col))

res/notes/crystal1.txt

@@ -0,0 +1,24 @@
+AA      AA      AA    AA      AA      AA
+  BB      BB      BBBB      BB      BB
+    CC      CC            CC      CC
+      DD      DD        DD      DD
+EE      EE      EE    EE      EE      EE
+  FF      FF      FFFF      FF      FF
+    GG      GG            GG      GG
+      HH      HH        HH      HH
+II      II      II    II      II      II
+  JJ      JJ      JJJJ      JJ      JJ
+    KK      KK            KK      KK
+L     LL      LL        LL      LL     L
+M     MM      MM        MM      MM     M
+    NN      NN            NN      NN
+  OO      OO      OOOO      OO      OO
+PP      PP      PP    PP      PP      PP
+      QQ      QQ        QQ      QQ
+    RR      RR            RR      RR
+  SS      SS      SSSS      SS      SS
+TT      TT      TT    TT      TT      TT
+      UU      UU        UU      UU
+    VV      VV            VV      VV
+  WW      WW      WWWW      WW      WW
+XX      XX      XX    XX      XX      XX

res/notes/crystal2.txt

@@ -0,0 +1,24 @@
+AAAA    AAAA    AAA  AAA    AAAA    AAAA
+BBBBBB    BBBB    BBBB    BBBB    BBBBBB
+  CCCCCC    CCCC        CCCC    CCCCCC
+    DDDDDD    DDDD    DDDD    DDDDDD
+EE    EEEEEE    EEEEEEEE    EEEEEE    EE
+FFFF    FFFFFF    FFFF    FFFFFF    FFFF
+  GGGG    GGGGGG        GGGGGG    GGGG
+    HHHH    HHHHHH    HHHHHH    HHHH
+II    IIII    IIIIIIIIIIII    IIII    II
+JJJJ    JJJJ    JJJJJJJJ    JJJJ    JJJJ
+  KKKK    KKKK    KKKK    KKKK    KKKK
+L   LLLL    LLLL        LLLL    LLLL   L
+M   MMMM    MMMM        MMMM    MMMM   M
+  NNNN    NNNN    NNNN    NNNN    NNNN
+OOOO    OOOO    OOOOOOOO    OOOO    OOOO
+PP    PPPP    PPPPPPPPPPPP    PPPP    PP
+    QQQQ    QQQQQQ    QQQQQQ    QQQQ
+  RRRR    RRRRRR        RRRRRR    RRRR
+SSSS    SSSSSS    SSSS    SSSSSS    SSSS
+TT    TTTTTT    TTTTTTTT    TTTTTT    TT
+    UUUUUU    UUUU    UUUU    UUUUUU
+  VVVVVV    VVVV        VVVV    VVVVVV
+WWWWWW    WWWW    WWWW    WWWW    WWWWWW
+XXXX    XXXX    XXX  XXX    XXXX    XXXX

res/notes/crystal3.txt

@@ -0,0 +1,24 @@
+AAAAAA  AAAAAA  AAAAAAAA  AAAAAA  AAAAAA
+BBBBBBBB  BBBBBB  BBBB  BBBBBB  BBBBBBBB
+CCCCCCCCCC  CCCCCC    CCCCCC  CCCCCCCCCC
+  DDDDDDDDDD  DDDDDDDDDDDD  DDDDDDDDDD
+EE  EEEEEEEEEE  EEEEEEEE  EEEEEEEEEE  EE
+FFFF  FFFFFFFFFF  FFFF  FFFFFFFFFF  FFFF
+GGGGGG  GGGGGGGGGG    GGGGGGGGGG  GGGGGG
+  HHHHHH  HHHHHHHHHHHHHHHHHHHH  HHHHHH
+II  IIIIII  IIIIIIIIIIIIIIII  IIIIII  II
+JJJJ  JJJJJJ  JJJJJJJJJJJJ  JJJJJJ  JJJJ
+KKKKKK  KKKKKK  KKKKKKKK  KKKKKK  KKKK
+L LLLLLL  LLLLLL  LLLL  LLLLLL  LLLLLL L
+M MMMMMM  MMMMMM  MMMM  MMMMMM  MMMMMM M
+NNNNNN  NNNNNN  NNNNNNNN  NNNNNN  NNNNNN
+OOOO  OOOOOO  OOOOOOOOOOOO  OOOOOO  OOOO
+PP  PPPPPP  PPPPPPPPPPPPPPPP  PPPPPP  PP
+  QQQQQQ  QQQQQQQQQQQQQQQQQQQQ  QQQQQQ
+RRRRRR  RRRRRRRRRR    RRRRRRRRRR  RRRRRR
+SSSS  SSSSSSSSSS  SSSS  SSSSSSSSSS  SSSS
+TT  TTTTTTTTTT  TTTTTTTT  TTTTTTTTTT  TT
+  UUUUUUUUUU  UUUUUUUUUUUU  UUUUUUUUUU  
+VVVVVVVVVV  VVVVVV    VVVVVV  VVVVVVVVVV
+WWWWWWWW  WWWWWW  WWWW  WWWWWW  WWWWWWWW
+XXXXXX  XXXXXX  XXXXXXXX  XXXXXX  XXXXXX

res/notes/crystal4.txt

@@ -0,0 +1,24 @@
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
+EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
+HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
+IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
+JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
+KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK
+LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
+MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
+NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
+OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
+PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
+QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
+RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
+TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
+UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
+VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
+WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
+XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

src/fx/fx.hgr.crystal.a

@@ -0,0 +1,51 @@
+!cpu 6502
+!to "build/FX/CRYSTAL",plain
+*=$6000
+
+         lda   #$01
+         sta   $FD
+@outerloop
+         dec   $FD
+         lda   #<@coords
+         sta   $FE
+         lda   #>@coords
+         sta   $FF
+         ldy   #$00
+@loop
+         lda   ($fe),y
+         bpl   @copy
+         lda   #$10
+         jsr   WaitForKeyWithTimeout
+         bmi   @exit
+         bpl   @next                 ; always branches
+@copy
+         tax
+         iny
+         lda   ($fe),y
+         tay
+         txa
+         bit   $FD
+         bpl   +
+         jsr   HGRBlockCopy
+         beq   @next                 ; always branches
++        jsr   HGRBlockToWhite
+@next
+         inc   $FE
+         bne   +
+         inc   $FF
++        inc   $FE
+         bne   +
+         inc   $FF
++        ldy   #$00
+         lda   ($FE),y
+         cmp   #$80
+         bne   @loop
+         bit   $FD
+         bpl   @outerloop
+@exit    rts
+
+@coords
+         !source "src/fx/fx.hgr.crystal.data.a"
+         !byte $80
+         !source "src/wait.a"
+         !source "src/fx/fx.hgr.common.a"