Startseite
  Archiv
  Gästebuch
  Kontakt
 


http://myblog.de/qwertz123

Gratis bloggen bei
myblog.de





proc

implementation
uses utools;

{$R *.DFM}

PROCEDURE Rechteck(cv:TCanvas; b,h:real);
begin
  vw(cv,b); li(cv,90); vw(cv,h); li(cv,90);
  vw(cv,b); li(cv,90); vw(cv,h); li(cv,90);
end;

PROCEDURE Fenster(cv:TCanvas; b,h:real);
begin
 Rechteck(cv,b,h);
 Rechteck(cv,b/2,h);
end;

PROCEDURE Fenster3(cv:TCanvas; b,h:real);
begin
 Rechteck(cv,b,h);
 Rechteck(cv,b,h*0.7);
 Rechteck(cv,b/2,h*0.7);
end;

PROCEDURE Fensterzeile(cv:TCanvas;bs,hs:real;nh:integer);   {NH:Anzahl Fenster Horiontal}
VAR b,h:real;i:integer;
Begin
 b:=bs/(2*nh+1);
 h:=hs/3;
 pu;vw(cv,b);li(cv,90);vw(cv,h);li(cv,-90);pd;
 for i:=1 to nh do begin
  Fenster3(cv,b,h);
  pu;vw(cv,2*b);pd
 end;
 {}
 pu;vw(cv,-bs);li(cv,90);vw(cv,-h);li(cv,-90);pd;
END;

PROCEDURE Hausfront (cv:TCanvas;bh,hh:real;nh,nv:integer);
var b,h:real; i:integer;
BEGIN
 Rechteck (cv,bh,hh);
 for i:=1 to nv do begin
  Fensterzeile (cv,bh,hh/nv,nh);
   pu; li(cv,90); vw(cv,hh/nv); li(cv,-90); pd;
 end;
end;

PROCEDURE fensterx(cv:TCanvas; b,h:real);
 begin
  case random(4) of
   1: rechteck(cv,b,h);
   2: fenster(cv,b,h);
   3: fenster3(cv,b,h);
   0: begin rechteck (cv,b,h); rechteck(cv,b*0.7,h); rechteck(cv,b*0.3,h); end
   end; {case}

END {Procedure};


procedure TForm1.Button1Click(Sender: TObject);
begin

 initxyw  (canvas,200,300,0);
 rechteck (canvas,50,70);
 initxyw  (canvas,100,300,0);
 fenster  (canvas,50,70);
 initxyw  (canvas,100,200,0);
 fenster3 (canvas,50,70);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

 initxyw      (canvas,100,150,0);
 Fensterzeile (canvas,200,100,3);
 initxyw      (canvas,100,250,0);
 Fensterzeile (canvas,300,100,6);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   initxyw(canvas,100,400,0);
    Rechteck(Canvas,SE1.Value,SE2.Value);
    Fensterzeile (canvas,SE1.Value,SE2.Value/2,SE3.Value);  {BREITE|HÖHE|ANZAHL}
    pu; li(canvas,90);vw(canvas,SE2.Value/2);li(canvas,-90);pd;   {links drehen | | rechts drehen}

    Fensterzeile (canvas,SE1.Value,SE2.Value/2,SE3.Value);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
   initxyw(canvas,100,400,0);
   Hausfront(Canvas,SE1.Value,SE2.Value,3,4);

   Hausfront(Canvas,SE1.Value,100,4,2);

end;

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

procedure TForm1.Button6Click(Sender: TObject);
var b,h:real;
begin
   initxyw(canvas,150,222,0);
   fensterx(Canvas,SE1.Value,SE2.Value);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
invalidate
end;

end.
18.1.07 11:38
 


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