XProfan

Deutsch

Nico
Madysa

Mit dem Music-Befehl kann man unter Profan² ja herrlich einfach musizieren, das einzige Problem ist, dass man nur einen Kanal gleichzeitig ansteuern kann. Daher habe ich mich einfach mal in dem wesentlich komplizierteren Play-Befehl probiert und damit ein kleines slowakisches Schlaflied umgesetzt, das wir vor Kurzem im Musik-Unterricht hatten.

Es wird zuerst die Music-Variante gespielt und dann, im Vergleich dazu, die Play-Variante.

Auch, wenn es komplizierter Play statt Music zu verwenden,
das Ergebnis klingt auch wesentlich besser.

Gespielt wird Leise ein Windhauch, ein altes slowakisches Wiegenlied.
Hier der deutsche Text:
1. Leise ein Windhauch die Blätter wiegt.
Lauscht, ob das Kind schon in Träumen liegt.
|: Still und sacht kommt die Nacht,
Will, dass kein Müder mehr sorgt und wacht. :|

2. Fernher tönt deutlich der Turmuhr Schlag.
Schlafe, mein Kind, bald ist wieder Tag.
|: Sternenschein hüllt dich ein.
Schlafe, denn früh willst du munter sein. :|

3. Gehst du zur Schule im Morgenlicht,
Schau allen fröhlich ins Angesicht.
|: Ferienzeit ist nicht weit,
hält so viel Schönes für dich bereit. :|

Kompilieren Markieren Separieren

'Definition der einzelnen Töne - so kann man leichter
'die Übersicht bewahren
Def %C0 25
Def %D0 27
Def %E0 29
Def %F0 30
Def %G0 32
Def %A0 34
Def %H0 36
Def %C1 37
Def %Cis1 38
Def %D1 39
Def %E1 41
Def %F1 42
Def %G1 44
Def %A1 46
Def %B1 47
Def %H1 48
Def %C2 49
Def %D2 51
Def %E2 53
Def %F2 54
Def %G2 56
Def %A2 58
Def %B2 59
Def %C3 61
Def %P 325 Dauer einer Achtelnote
Def %Instrument 1 Nummer des Instruments; Standard-Klavier  (Acustic Grand Piano) = 0
cls
'Hier ist die Music-Variante; nur ein Kanal kann abgespielt werden.
'Music I + str$(%Instrument) +  O4 A B-8 A8 G A8 G8 F E D P A B-8 A8 G A8 G8 F E D P F G A2 > C < B- A2 A B-8 A8 G A8 G8 F E D P
'Alle benötigten Kanäle werden mit dem gewählten Instrument belegt
Play %Instrument;%Instrument;%Instrument;0;%Instrument;%Instrument;%Instrument;%Instrument;\
%Instrument;%Instrument;%Instrument;%Instrument ,-1,0
'Nun wird das Lied mit Begleitung gespielt.
'Takt 1
Play  %A2; %D0;   0;0;   0 ,0,0 : Sleep %P
Play    0;-%D0; %D1;0;   0 ,0,0 : Sleep %P
Play -%A2; %B2;-%D1;0; %F1 ,0,0 : Sleep %P
Play  %A2;-%B2; %A1;0;-%F1 ,0,0 : Sleep %P
'Takt 2
Play -%A2; %G2;-%A1;0; %G0 ,0,0 : Sleep %P
Play    0;   0; %D1;0;-%G0 ,0,0 : Sleep %P
Play  %A2;-%G2;-%D1;0; %G1 ,0,0 : Sleep %P
Play -%A2; %G2; %B1;0;-%G1 ,0,0 : Sleep %P
'Takt 3
Play  %F2;-%G2;-%B1;0; %D0 ,0,0 : Sleep %P
Play -%F2; %D1;   0;0;-%D0 ,0,0 : Sleep %P
Play  %E2;-%D1; %A0;0;   0 ,0,0 : Sleep %P
Play -%E2; %Cis1;-%A0;0;   0 ,0,0 : Sleep %P
'Takt 4
Play  %D2;-%Cis1; %D0;0;   0 ,0,0 : Sleep %P
Play    0; %D1;-%D0;0;   0 ,0,0 : Sleep %P
Play -%D2;-%D1; %F1;0;   0 ,0,0 : Sleep %P
Play    0;   0;-%F1;0; %A1 ,0,0 : Sleep %P
'Takt 5
Play  %A2; %D0;   0;0;-%A1 ,0,0 : Sleep %P
Play    0;-%D0; %D1;0;   0 ,0,0 : Sleep %P
Play -%A2; %B2;-%D1;0; %F1 ,0,0 : Sleep %P
Play  %A2;-%B2; %A1;0;-%F1 ,0,0 : Sleep %P
'Takt 6
Play -%A2; %G2;-%A1;0; %G0 ,0,0 : Sleep %P
Play    0;   0; %D1;0;-%G0 ,0,0 : Sleep %P
Play  %A2;-%G2;-%D1;0; %G1 ,0,0 : Sleep %P
Play -%A2; %G2; %B1;0;-%G1 ,0,0 : Sleep %P
'Takt 7
Play  %F2;-%G2;-%B1;0; %D0 ,0,0 : Sleep %P
Play -%F2; %D1;   0;0;-%D0 ,0,0 : Sleep %P
Play  %E2;-%D1; %A0;0;   0 ,0,0 : Sleep %P
Play -%E2; %Cis1;-%A0;0;   0 ,0,0 : Sleep %P
'Takt 8
Play  %D2;-%Cis1; %D0;0;   0 ,0,0 : Sleep %P
Play    0; %D1;-%D0;0;   0 ,0,0 : Sleep %P
Play -%D2;-%D1; %F1;0;   0 ,0,0 : Sleep %P
Play    0;   0;-%F1;0; %A1 ,0,0 : Sleep %P
'Takt 9
Play  %F2; %D0; %D1;0;-%A1; %F1; %A1 ,0,0 : Sleep 2 * %P
Play -%F2;-%D0;-%D1;0; %G2;-%F1;-%A1; %C0; %C1; %E1; %G1 ,0,0 : Sleep 2 * %P
Play  %A2; %F0; %C1;0;-%G2; %F1; %A1;-%C0;-%C1;-%E1;-%G1 ,0,0 : Sleep 4 * %P
'Takt 10
Play -%A2;-%F0;-%C1;0; %C3;-%F1;-%A1; %D0; %D1; %F1; %C3 ,0,0 : Sleep 2 * %P
Play  %B2; %C0; %C1;0;-%C3; %E1; %G1;-%D0;-%D1;-%F1;-%C3 ,0,0 : Sleep 2 * %P
Play -%B2;-%C0;-%C1;0; %A2;-%E1;-%G1; %F0; %C1; %F1; %A1 ,0,0 : Sleep 4 * %P
'Takt 11
Play  %A2; %D0;   0;0;-%A2;   0;   0;-%F0;-%C1;-%F1;-%A1 ,0,0 : Sleep %P
Play    0;-%D0; %D1;0;   0 ,0,0 : Sleep %P
Play -%A2; %B2;-%D1;0; %F1 ,0,0 : Sleep %P
Play  %A2;-%B2; %A1;0;-%F1 ,0,0 : Sleep %P
'Takt 12
Play -%A2; %G2;-%A1;0; %C0 ,0,0 : Sleep %P
Play    0;   0; %C1;0;-%C0 ,0,0 : Sleep %P
Play  %A2;-%G2;-%C1;0; %E1 ,0,0 : Sleep %P
Play -%A2; %G2; %G1;0;-%E1 ,0,0 : Sleep %P
'Takt 13
Play  %F2;-%G2;-%G1;0; %D0; %D1; %F1; %A1 ,0,0 : Sleep 2 * %P
Play -%F2; %E2; %A0;0;-%D0;-%D1;-%F1;-%A1; %Cis1; %E1; %G1 ,0,0 : Sleep 2 * %P
'Takt 14
Play  %D2;-%E2;-%A0;0; %D0; %D1; %F1; %A1;-%Cis1;-%E1;-%G1 ,0,0 : Sleep 4 * %P
'Takt 15
Play -%D2; %F2; %D1;0; %D0; %D1; %F1; %A1 ,0,0 : Sleep 2 * %P
Play  %G2;-%F2;-%D1;0;-%D0;-%D1;-%F1;-%A1; %C0; %C1; %E1; %G1 ,0,0 : Sleep 2 * %P
Play -%G2; %A2; %F0;0; %C1; %F1; %A1;   0;-%C0;-%C1;-%E1;-%G1 ,0,0 : Sleep 4 * %P
'Takt 16
Play  %C3;-%A2;-%F0;0;-%C1;-%F1;-%A1; %D0; %D1; %F1; %C3 ,0,0 : Sleep 2 * %P
Play -%C3; %B2; %C0;0; %C1; %E1; %G1;-%D0;-%D1;-%F1;-%C3 ,0,0 : Sleep 2 * %P
Play  %A2;-%B2;-%C0;0;-%C1;-%E1;-%G1; %F0; %C1; %F1; %A1 ,0,0 : Sleep 4 * %P
'Takt 17
Play  %A2; %D0;   0;0;   0;   0;   0;-%F0;-%C1;-%F1;-%A1 ,0,0 : Sleep %P
Play    0;-%D0; %D1;0;   0 ,0,0 : Sleep %P
Play -%A2; %B2;-%D1;0; %F1 ,0,0 : Sleep %P
Play  %A2;-%B2; %A1;0;-%F1 ,0,0 : Sleep %P
'Takt 18
Play -%A2; %G2;-%A1;0; %C0 ,0,0 : Sleep %P
Play    0;   0; %C1;0;-%C0 ,0,0 : Sleep %P
Play  %A2;-%G2;-%C1;0; %E1 ,0,0 : Sleep %P
Play -%A2; %G2; %G1;0;-%E1 ,0,0 : Sleep %P
'Takt 19
Play  %F2;-%G2;-%G1;0; %D0; %D1; %F1; %A1 ,0,0 : Sleep 2 * %P
Play -%F2; %E2; %A0;0;-%D0;-%D1;-%F1;-%A1; %Cis1; %E1; %G1 ,0,0 : Sleep 2 * %P
'Takt 20
Play  %D2;-%E2;-%A0;0; %D0; %D1; %F1; %A1;-%Cis1;-%E1;-%G1 ,0,0 : Sleep 8 * %P
Play -%D2;   0;   0;0;-%D0;-%D1;-%F1;-%A1 ,0,0
Sleep 500
end