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






MAG_EX.jpg
by 3ds-max



shinv2_1_small2.jpg
by vectorscript




Force field


PROCEDURE forcefield;


VAR


{   myArray:DYNARRAY[,] OF BOOLEAN;}

   l, i, k, j, m, n, h2, s : longint ;
   
   rotate1, move1, r, h : real;

   x, y, num : INTEGER;



BEGIN

{num := intdialog('Please enter an even number of pattern:','8') ;}
num := 12;


for j:=1 to 2 do begin  

   flipver;

   h2 := j*10 ;



   for k:=1 to num/2 do begin 

      r := random-0.5 ;
      
      m:=10+(random*20);
   
      n := (3*m)*r ;
      
      rotate1:=(random-0.5)*(8/5);

      IF r>0 then begin

         h := random*10;

         s := (random+1)/3 ;

         end


         else begin

         h := (random*10) + 10 ;

         s := random ;

         end;


         for i:=0 to m do begin
            
            moveto(i+n, h-h2) ;

            lineto(m+n, i+h-h2) ; 

            lineto(m+(m-i)+n, h-h2);

            rotate(rotate1);

            scale(1,1);

            redraw;         
      
         end;      

      END;

   end;

END;

RUN (forcefield);

Revision r1.2 - 16 Nov 2005 - 13:08 - NDSDongYounShin
Parents: WebHome > NDSDongYounShin
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.