Delphi Schiebregler (Sierpinski Dreieck)

[Frankfurtoder]

Schau dir Tutorials an:

http://www.delphi-treff.de/tutorials/

Delphi-Quellcode:

 
repeat
  inc(n);
  zufall:=random(6);
  Case zufall of
    0: begin
         x:=(xstart+a1) div 2;
         y:=(ystart+b1) div 2;
         canvas.Pixels[x,y]:=clred;
         xstart:=x;
         ystart:= y ;
       end;
    1: begin
         x:=(xstart+a2) div 2;
         y:=(ystart+b2) div 2 ;
         canvas.Pixels[x,y]:=clgreen;
         xstart:=x;
         ystart:= y;
       end;
    2: begin
         x:=(xstart+a3) div 2;
         y:=(ystart+b3) div 2;
         canvas.Pixels[x,y]:=clblue;
         xstart:=x; 
         ystart:=y;
       end;
    3: begin
         x:=(xstart+a4) div 2;
         y:=(ystart+b4) div 2;
         canvas.Pixels[x,y]:=clyellow;
         xstart:=x;
         ystart:=y;
       end;
    4: begin
         x:=(xstart+a5) div 2;
         y:=(ystart+b5) div 2;
         canvas.Pixels[x,y]:=clpurple;
         xstart:=x;
         ystart:=y;
       end;
    5: begin
         x:=(xstart+a6) div 2;
         y:=(ystart+b6) div 2;
         canvas.Pixels[x,y]:=clsilver;
         xstart:=x; 
         ystart:=y;
       end;
  end;
until n=anzahl;
end; // end of with  <-- geiler Kommentar