Startseite
  Archiv
  Gästebuch
  Kontakt
 


http://myblog.de/qwertz123

Gratis bloggen bei
myblog.de





pgra1

procedure TForm1.Button1Click(Sender: TObject);
begin
   initxyw(canvas,200,300,0); {0-> nach rechts beginnen, mathematisch  Canvas:Zeichenfläche}
   vw(Canvas,100); li (canvas,60);
   vw(Canvas,100); li (canvas,60);
   vw(Canvas,100); li (canvas,60);
end;

procedure TForm1.Button2Click(Sender: TObject);
var j,n:integer;
begin
   initxyw(canvas,400,300,0);
   n:=SE1.Value;
   for j:=1 to n do begin vw(Canvas,50); li (canvas,2*360/n); end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var j,n:integer;
begin
initxyw(canvas,100,400,90);
   n:=SE1.Value;
    vw(canvas,100); Canvas.pen.color:=clred;
   for j:=1 to n do begin vw(Canvas,50); li (canvas,2*360/n); end;

end;

procedure TForm1.Button4Click(Sender: TObject);
var j,n:integer;
begin
   initxyw(canvas,100,400,90); {am anfang gleich nach oben schauen; ODER einmal links 90}
   n:=SE1.Value;
   Canvas.pen.color:=clgreen; {Vor dem Zeichnen die Farbe setzen!}
   vw(canvas,100);
   Canvas.pen.color:=clyellow;
   for j:=1 to n do begin vw(Canvas,50);
                 vw(Canvas,-50); li (canvas,360/n); end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var j,k,n:integer;
begin
   initxyw(canvas,100,400,90);
   n:=SE1.Value;
   Canvas.pen.color:=clgreen;
   vw(canvas,100);
   Canvas.pen.color:=clyellow;
   for j:=1 to n do begin  vw(Canvas,50);
    for k:=1 to 3 do begin vw(Canvas,10); li(Canvas,360/3); end;
       vw(Canvas,-50); li (canvas,360/n); end;

end;

procedure TForm1.Button6Click(Sender: TObject);
var j,k,n:integer;
begin
   initxyw(canvas,random(300)+100,random(300)+100,90);  {x,y,z}
   for j:=0 to 16 do begin Canvas.Pen.color:=cl16(j);
        vw(canvas,10);vw(canvas,-10); li(canvas,360/16); end  ;   {Kreis}
   initxyw(canvas,random(300)+100,random(300)+100,90);
   n:=SE1.Value;
   Canvas.pen.color:=clgreen;
   vw(canvas,100);
   Canvas.pen.color:=cl16(random(16));
   for j:=1 to n do begin  vw(Canvas,50);
     {Canvas.Pen.color:=cl16(random(16));}
     for k:=1 to n do begin vw(Canvas,10);
       vw(Canvas,-10);li(Canvas,360/n); end;  {<-n statt 3,jetzt keine dreicke(3),sondern n-ecke(n) ganz außen}
        vw(Canvas,-50); li (canvas,360/n); end;
18.1.07 12:57
 


bisher 0 Kommentar(e)     TrackBack-URL

Name:
Email:
Website:
E-Mail bei weiteren Kommentaren
Informationen speichern (Cookie)



 Smileys einfügen



Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung