@Joris,
Thanks for checking. I'm glad to hear this one is working on your computer.
@KCC,
Always good to hear something is working
A few more demo tunes ...
Code: Select all
UseModule PSG
OpenWindow(0, 0, 0, 200, 100, "PSG Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
bass.s = "T11 \16 O2 V44 W1 L4 V+CV-E8E8 <FA> <V+GV-B8B8> CE :"
chords.s = "T11 \8 O4 V44 W4 L8 CEG>C< <FA>CF <GB>DG CEG>C< :"
melody.s = "T11 O5 W4 L4 CEC<G> CEC2 CEC<G> CE16R16E16R16C2 CEC<G> CEC2 CEC<G> C<G16>R16E16R16C2 :"
PSG_PlayMML(bass, chords, melody)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
PSG_Terminate()
Code: Select all
UseModule PSG
OpenWindow(0, 0, 0, 200, 100, "PSG Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
bass.s = "T11 O1 V48 W1 \8 L8 G4B-B-G4B-B- G4>E-E-<G4>E-E-< A>CF4<A>CF4< F4AAGB->D4<"
chords.s = "T11 O3 V42 W4 \2 L8 GB->D4<GB->D4< GB->E-<B-GB->E-<B- A>CF4<A>CF4< FA>C<AGB->D4<"
melody1.s = "T11 O5 V44 W4 \1 L4 GG2G8F8 E-E-2E-8D8 CCCD E-2D2"
melody2.s = "B-B-2B-8A8 GG2G8F8 CCCD E-2D2"
melody3.s = "B-B-2B-8A8 GG2G8F8 ACFA G2D2"
channel0.s = bass + ":"
channel1.s = chords + ":"
channel2.s = melody1 + melody2 + melody1 + melody3 + ":"
PSG_PlayMML(channel0, channel1, channel2)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
PSG_Terminate()