XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Musik: Funktionen zur einfacheren Handhabung des Play-Befehles
Funktionen zur einfacheren Bedienung von PLAY, sonst müsste man die Noten als Zahlen eingeben.
Der Parameter ist dabei immer die Oktave.
def c(1)   &(1)*12
def cis(1) &(1)*12+1
def d(1)   &(1)*12+2
def dis(1) &(1)*12+3
def e(1)   &(1)*12+4
def f(1)   &(1)*12+5
def fis(1) &(1)*12+6
def g(1)   &(1)*12+7
def gis(1) &(1)*12+8
def a(1)   &(1)*12+9
def ais(1) &(1)*12+10
def h(1)   &(1)*12+11
Beispielprogramm
cls
play 48,-1,0  Instrument ändern

whileloop 2,3

    play c(&loop),4,0  C-Dur-Tonleiter in den Oktaven 2 und 3 spielen
    play d(&loop),4,0
    play e(&loop),4,0
    play f(&loop),4,0
    play g(&loop),4,0
    play a(&loop),4,0
    play h(&loop),4,0

endwhile

play c(4),4,0  Ein C in der Oktave 4 spielen
waitinput