Startseite
  Archiv
  Gästebuch
  Kontakt
 


http://myblog.de/qwertz123

Gratis bloggen bei
myblog.de





schildchen

mplementation
uses utools  ;
{$R *.DFM}

PROCEDURE n_eck(cv:TCanvas; n:integer; a:real);
var i:integer;
begin
 for i:=1 to n do begin vw(cv,a); li(cv,360/n); end ;
END ;



PROCEDURE schild(cv:TCanvas; a:real);
var i:integer;
begin
   vw(cv,2*a);
   li(cv,-45);
   for i:=1 to 4 do begin vw(cv,a); li(cv,90); end ;
END ;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   initxyw(canvas,300,200,90);
   vw(canvas,100);
   li(canvas,-45);
   for i:=1 to 4 do begin vw(canvas,50); li(canvas,90); end ;

   initxyw(canvas,200,220,90);
   vw(canvas,100);
   li(canvas,-45);
   for i:=1 to 4 do begin vw(canvas,50); li(canvas,90); end   ;

   initxyw(canvas,100,220,90);
   vw(canvas,80);
   li(canvas,-45);
   for i:=1 to 4 do begin vw(canvas,40); li(canvas,90); end   ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

   initxyw(canvas,300,200,90); schild(canvas,50);
   initxyw(canvas,200,220,90); schild(canvas,50);
   initxyw(canvas,100,220,90); schild(canvas,40);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin

   initxyw(canvas,300,200,90); n_eck(canvas,5,50);
   li(canvas,180); n_eck(canvas,5,50);

   initxyw(canvas,100,200,90); n_eck(canvas,5,50);
   li(canvas,-120); n_eck(canvas,5,50);
   li(canvas,-120); n_eck(canvas,5,50);

   initxyw(canvas,200,400,90); n_eck(canvas,5,30);
   li(canvas,-90); n_eck(canvas,5,30);    {Winkel is nu 90°}
   li(canvas,-90); n_eck(canvas,5,30);
   li(canvas,-90); n_eck(canvas,5,30);


end;

procedure TForm1.Button4Click(Sender: TObject);
begin

   initxyw(canvas,300,200,0);
   n_eck(canvas,SE1.value,SE2.value);

end;

end.
18.1.07 11:55
 


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