Startseite
  Archiv
  Gästebuch
  Kontakt
 


http://myblog.de/qwertz123

Gratis bloggen bei
myblog.de





plümchen

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;
18.1.07 11:19


kreis

   initxyw(canvas,random(300)+100,random(300)+100,90);
   for j:=0 to 16 do begin Canvas.Pen.color:=cl16(j);
        vw(canvas,10);vw(canvas,-10); li(canvas,360/16); end  ;
18.1.07 11:20


pusteplümchen

   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);
     for k:=1 to n do begin vw(Canvas,10);
       vw(Canvas,-10);li(Canvas,360/n); end;
        vw(Canvas,-50); li (canvas,360/n); end;
18.1.07 11:21


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


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


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


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


 [eine Seite weiter]



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