Josephina

Aus ProgrammingWiki

< OLG Seifhennersdorf < fächerverbindender Unterricht-Pi

Archivierte Version vom 2011-01-29T12:17:43+00:00. Aktuelle Version

var Pie:String;
    key:integer;
    dauer:integer;
    c:Char; k:Char;
    i,posx,z:Integer;

canvas_clear();
Pie :=  '3.141592653589793238462643383279502884197169399375105820974944592307816406286208998' ;

selectSound(19); // 19. MIDI organ
posx:=0;
z:=2*((length(Pie)-2) div 2);
for i := 3 to z+1 do begin
if i mod 2 = 1 then begin
  c := Pie[i];
  k := Pie[i+1];

if c='0' then key:=12;

if c='1' then key:=25;

if c='2' then key:=38;

if c='3' then key:=51;

if c='4' then key:=64;

if c='5' then key:=53;

if c='6' then key:=42;

if c='7' then key:=0;

if c='8' then key:=13;

if c='9' then key:=26;

if (c='0') or (c='9') then dauer:=100 div 1;

if (c='1') or (c='4')or (c='5') or (c='8') then dauer:=100 div 2;

if (c='2') or (c='3') then dauer:=100 div 4;

if (c='6') or (c='7') then dauer:=100 div 8;  

  
  
canvas_fillRect(posx,80-(key-60)*4,dauer,10);           
  posx := posx + dauer+5;
  sound_play(key,dauer*10);
end; 
end;

Josephina

Suche