ETH Zuerich - Startseite
Professur für CAAD

 


caad d-arch


Caad Teaching
 

 
Bachelor of Architecture: CAAD II ss07

 
Master of Advanced Studies
in Architecture, CAAD


 
DWF-Processing
Programmieren statt Zeichnen


 
Graustufen - Ein Atlas
Schweizer Wohngebäude als XML Daten


 
DWF- Denken in Systemen:
In Collaboration with the Technical University Vienna


 
Seminarwoche:
BlowUp


 
Archiv

 
Caad Projects
 

 
Theory
 
Design
 
Building
 
Practice

 
Related pages
 

 
Swiss Federal Institute of Technology Zurich
 
Institute of Building Technology
 
Faculty of Architecture

 
Other pages

 










hbt d-arch

MAS ETH ARCH/CAAD - 2005/06 - STUDENT PAGES
Master of Advanced Studies in Architecture, Specialization in Computer Aided Architectural Design | 065-0005/6
Supervision: Prof. Dr. Ludger Hovestadt, Philipp Schaerer
Chair of CAAD, ETH Zurich






structure scripts:

script 01
Image01.jpg
procedure lineGraphic1;

VAR i,k:integer;
   rot,gruen,blau,colorRange:LONGINT;
   p1X, p1Y, p2X, p2Y:real;

begin
   colorRange:=20000;
   move(0,0);
   
   for i:=1 to 24 do begin
      rot:=(65535-colorRange)+(Random*colorRange);
      gruen:=0;
      blau:=0;
      PenFore(rot,gruen,blau); 
      
      for k:= 1 to 20 do begin
         p1X := sin (i*20);
         p1Y := i*i/2;
         p2X := 30*i;
         p2Y := 40*i;
         moveto(p2X,p2Y);
         lineto (p1X,p1Y) ;
         Rotate(p1X);
         redraw;
      end;
      Rotate(13);
   end;
end;
run(lineGraphic1);

script 02
Image03.jpg
procedure lineGraphic3;

VAR i,k:INTEGER;
   groessePoly:INTEGER;
   rot,gruen,blau,colorRange:LONGINT;
   kx,ky:REAL;
   
begin
   groessePoly:=100;
   colorRange:=20000;
   for i:= 1 to 8 do begin
      rot:=(65535-colorRange)+(Random*colorRange);
      gruen:=0;
         blau:=0;
      FillBack(rot,gruen,blau);
      for k:=1 to 360 do begin
         groessePoly:=k;
         kx:=k*10;
         ky:=1000*sin(deg2rad(k));   
         moveto(kx,ky);
           poly(groessePoly,#60d,
           groessePoly,#120d,
           groessePoly,#180d,
           groessePoly,#240d,
           groessePoly,#300d);
       end;
      rotate(360/8);
      redraw;         
   end;
end;

run(lineGraphic3);

script 03
Image04.jpg
VAR i,k:INTEGER;
   rot,gruen,blau,colorRange:LONGINT;
   kx,ky, kx1,ky1:REAL;
   kxOff,kyOff:real;
   
begin
   colorRange:=30000;
   for i:= 1 to 25 do begin
      
      rot:=(65535-colorRange)+(Random*colorRange);
      gruen:=0;
         blau:=0;
      PenFore(rot,gruen,blau);
      
      kxOff   :=random*700+400;
      kyOff   :=random*400;
      
      for k:=1 to 180 do begin
         kx:=100*sin(deg2rad(k));
         ky:=(k);
         kx1:=130*sin(deg2rad(k));
         ky1:=(k);
         moveto(kx+kxOff,ky+kyOff);
           lineto(kx1+kxOff,ky1+kyOff);
       end;
      for k:=1 to 180 do begin
         kx:=(k);
         ky:=130*sin(deg2rad(k));
         kx1:=(k);
         ky1:=100*sin(deg2rad(k));
         moveto(kx+kxOff,ky+kyOff);
           lineto(kx1+kxOff,ky1+kyOff);
           
       end;
       rotate(2);
   end;
end;

run(lineGraphic4);
 
Image02.jpg
procedure lineGraphic2;

VAR i,k,j,h:integer;
   kreis:real;
   muster:integer;
   width,height:real;
   p1X, p1Y, p2X, p2Y:real;
   pw1X, pw1Y, pw2X, pw2Y:LONGINT;
   kx,ky,kx1,ky1:real;
   kurvex,kurveY,rangeY:real;
   check:real;
   randomHoehe:real;
   gap, anzahl:integer;
   c:integer;
   rot,gruen,blau,colorRange:LONGINT;

begin
   c:=9; (*anzahl sinuskurven*)
   anzahl:=7;
   colorRange:=40000;
   gap    := -20;
   width  := 200;
   height := 200;
   
   for i:= 1 to anzahl do begin
      for k:= 1 to anzahl do begin
         
         rot:=(65535-colorRange)+(Random*colorRange);
         gruen:=0;
            blau:=0;
         FillBack(rot,gruen,blau);
         
         p1X := ((i*width)+(i*gap));
         p1Y := ((k*height)+(k*gap));
         p2X := ((i*width)+width+(i*gap));
         p2Y := ((k*height)+height+(k*gap));
   
         (*rect(p1X,p1Y,p2X,p2Y);*)
         
         pw1X:=trunc(p1X);
         pw2X:=trunc(p2X);
         
         dselectall;
         
         for h:= 1 to c do begin
         
            kreis:=0;
            randomHoehe:=trunc((random)*height);
            
            if randomHoehe>height/2 then randomHoehe:=height/2;
      
            
            rot:=(65535-colorRange)+(Random*colorRange);
            gruen:=0;
               blau:=0;
            PenFore(rot,gruen,blau); 
            
            for j:= pw1x to pw2x-1 do begin
         
                rangeY:=p2Y-p1Y;
                kreis:=kreis+10;
               check:=(sin(deg2rad(kreis)))*(height/randomHoehe);
               
               if check>height/3 then check:=height/3;
               
               kurveY:=(p1y+(rangeY/2))+check;
               kurveX:=j;
               moveto(kurveX,kurveY);
               lineto(kurveX+1,kurveY);
            
               
            end;
            rotate(360/c);
            randomhoehe:=0;
            check:=0;
         end;
         
          redraw;
      end;
      
   end;

end;

run(lineGraphic2);



Revision r1.2 - 09 Nov 2005 - 13:03 - NDSFrankThessling
Parents: WebHome > NDSFrankThessling
Copyright © 1999-2003 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.

This website has been archived and is no longer maintained.