Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-27 03:50:27 +00:00
Code Issues Projects Releases Wiki Activity

added cx16 version of bdmusic, needs ADSR though

Browse Source
This commit is contained in:
Irmen de Jong 2022-06-30 21:33:48 +02:00
parent 97cb0cbd08
commit 2ad4fdbbb9
1 changed files with 127 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

127
examples/cx16/bdmusic.p8 Normal file
View File

@ -0,0 +1,127 @@
%import textio
%import syslib
%import floats
main {
sub start() {
txt.print("will play the music from boulderdash,\nmade in 1984 by peter liepa.\npress enter to start: ")
void c64.CHRIN()
txt.clear_screen()
repeat {
uword note
for note in notes {
ubyte note1 = lsb(note)
ubyte note2 = msb(note)
uword freqR = freq(note1)
uword freqL = freq(note2)
cx16.vpoke(1, $F9C0, lsb(freqR))
cx16.vpoke(1, $F9C1, msb(freqR))
cx16.vpoke(1, $F9C2, %10111111) ; left, max volume
cx16.vpoke(1, $F9C3, %10000000) ; triangle
cx16.vpoke(1, $F9C4, lsb(freqL))
cx16.vpoke(1, $F9C5, msb(freqL))
cx16.vpoke(1, $F9C6, %01111111) ; right, max volume
cx16.vpoke(1, $F9C7, %10000000) ; triangle
; TODO ADSR of some kind?
print_notes(note1, note2)
sys.wait(10)
}
}
}
sub freq(ubyte note) -> uword {
float fword = freqs_hz[note-10] / (48828.125 / 131072.0) ; formula from the Vera PSG docs
return fword as uword
}
sub print_notes(ubyte n1, ubyte n2) {
txt.nl()
txt.plot(n1, txt.DEFAULT_HEIGHT-1)
txt.color(7)
txt.chrout('Q')
txt.plot(n2, txt.DEFAULT_HEIGHT-1)
txt.color(4)
txt.chrout('Q')
}
; details about the boulderdash music can be found here:
; https://www.elmerproductions.com/sp/peterb/sounds.html#Theme%20tune
uword[] notes = [
$1622, $1d26, $2229, $252e, $1424, $1f27, $2029, $2730,
$122a, $122c, $1e2e, $1231, $202c, $3337, $212d, $3135,
$1622, $162e, $161d, $1624, $1420, $1430, $1424, $1420,
$1622, $162e, $161d, $1624, $1e2a, $1e3a, $1e2e, $1e2a,
$142c, $142c, $141b, $1422, $1c28, $1c38, $1c2c, $1c28,
$111d, $292d, $111f, $292e, $0f27, $0f27, $1633, $1627,
$162e, $162e, $162e, $162e, $222e, $222e, $162e, $162e,
$142e, $142e, $142e, $142e, $202e, $202e, $142e, $142e,
$162e, $322e, $162e, $332e, $222e, $322e, $162e, $332e,
$142e, $322e, $142e, $332e, $202c, $302c, $142c, $312c,
$162e, $163a, $162e, $3538, $222e, $2237, $162e, $3135,
$142c, $1438, $142c, $1438, $202c, $2033, $142c, $1438,
$162e, $322e, $162e, $332e, $222e, $322e, $162e, $332e,
$142e, $322e, $142e, $332e, $202c, $302c, $142c, $312c,
$2e32, $292e, $2629, $2226, $2c30, $272c, $2427, $1420,
$3532, $322e, $2e29, $2926, $2730, $242c, $2027, $1420
]
float[] freqs_hz = [
; first 10 are unused so should index by i-10
44.6,
47.4,
50.4,
53.4,
56.6,
59.6,
63.5,
67.1,
71.3,
75.5,
80.0,
84.7,
89.3,
94.9,
100.7,
106.8,
113.2,
119.3,
127.1,
134.1,
142.7,
151.0,
160.0,
169.5,
178.5,
189.7,
201.4,
213.6,
226.3,
238.5,
254.1,
268.3,
285.3,
301.9,
320.0,
339.0,
357.0,
379.5,
402.9,
427.3,
452.6,
477.0,
508.2,
536.5,
570.7,
603.8,
639.9,
678.0,
714.1
]
}