Startseite
  Archiv
  Gästebuch
  Kontakt
 


http://myblog.de/qwertz123

Gratis bloggen bei
myblog.de





element

implementation
uses utools;
{$R *.DFM}
PROCEDURE Element (cv:TCanvas; a:real);
begin
cv.pen.color:=cl16(random(16));
vw(cv,4*a); li(cv,90); vw(cv,3*a); li(cv,90);
 vw(cv,2*a); li(cv,90); vw(cv,a); li(cv,90); vw(cv,a); li(cv,-90);
 vw(cv,a); li(cv,-90); vw(cv,2*a); li(cv,-90); vw(cv,3*a); li(cv,-90); vw(cv,4*a);
 li(cv,-90); vw(cv,4*a); li(cv,90)
end;

PROCEDURE Zeile (cv:TCanvas; a:real; n:integer);
var i:integer;
begin
cv.pen.color:=cl16(random(16));
 for i:=1 to n do
  begin
   Element(cv,a);
  end;
 end;

PROCEDURE Rahmen (cv:TCanvas; a:real; nh,nv:integer);
begin
 Zeile(cv,a,nh); li(cv,-90); Zeile(cv,a,nh); li(cv,-90);
 Zeile(cv,a,nh); li(cv,-90); Zeile(cv,a,nh); li(cv,-90);
end;

PROCEDURE n_eck (cv:TCanvas; a:real; nh,n:integer);
var j:integer;
begin

 for j:=1 to n do begin zeile (cv,a,nh); li(cv,-360/n);end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   initxyw(canvas,200,100,0);
   Element(Canvas,10);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   initxyw(canvas,200,100,0);
   Zeile(Canvas,10,10);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   initxyw(canvas,200,100,0);
   Rahmen(Canvas,10,10,10);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close
end;

procedure TForm1.Button5Click(Sender: TObject);
var n:integer;
begin
n:= SE.Value;
   initxyw(canvas,200,100,0);
   n_eck(Canvas,5,5,n);

end;
18.1.07 12:05
 


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