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





~ 01-4.4 vs.cnc production ~ 01-4.5 vs.summary


Module 01.4.3 Script 3d fabric "hahnentritt".


051207scriptimages3d.jpg


PROCEDURE pieddepoule24hscript;

VAR

   OffsetDX, OffsetDY : INTEGER;
   gap : REAL;
   r,g,b: LONGINT;

BEGIN;
   
   OffsetDX := 12;
   OffsetDY := 12;
   gap := 12;

BeginGroup;
BeginGroup;
   
BeginGroup;
   BeginGroup;

BeginXtrd(0,18);
         {Setting the color}
            ColorIndexToRGB(255,r,g,b);
            FillBack(r,g,b);   
            ColorIndexToRGB(255,r,g,b);
            PenFore(r,g,b);
      
         {draw rectangle black1Vert}
            Rect(0,0,9,27);

         {Setting the color}
            ColorIndexToRGB(0,r,g,b);
            FillBack(r,g,b);   
            ColorIndexToRGB(255,r,g,b);
            PenFore(r,g,b);
               
         {draw rectangle white2Vert}
            Rect(0+4*gap,0+4*gap,9+4*gap,27+4*gap);
EndXtrd;

      {duplicate objects}
      Duplicate(OffsetDX,OffsetDY);
      Duplicate(OffsetDX,OffsetDY);
      Duplicate(OffsetDX,OffsetDY);
      
   EndGroup;

Selectall;
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
Selectall;
   Duplicate(OffsetDX*8,OffsetDY*0);
   Duplicate(OffsetDX*8,OffsetDY*0);
   Duplicate(OffsetDX*8,OffsetDY*0);
   Duplicate(OffsetDX*8,OffsetDY*0);
DSelectall;
EndGroup;

BeginGroup;
   BeginGroup;

BeginXtrd(0,18);
               
         {Setting the color}
            ColorIndexToRGB(0,r,g,b);
            FillBack(r,g,b);
            ColorIndexToRGB(255,r,g,b);
            PenFore(r,g,b);

         {draw rectangle white1Hor}
            Rect(9,3,36,12);   
         
         {Setting the color}
            ColorIndexToRGB(255,r,g,b);
            FillBack(r,g,b);   
            ColorIndexToRGB(255,r,g,b);
            PenFore(r,g,b);

         {draw rectangle black2Hor}
            Rect(9+4*gap,3+4*gap,36+4*gap,12+4*gap);
EndXtrd;   
      
      {duplicate objects}
      Duplicate(OffsetDX,OffsetDY);
      Duplicate(OffsetDX,OffsetDY);
      Duplicate(OffsetDX,OffsetDY);

   EndGroup;
Selectall;
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
Selectall;
   Duplicate(OffsetDX*0,OffsetDY*8);
   Duplicate(OffsetDX*0,OffsetDY*8);
   Duplicate(OffsetDX*0,OffsetDY*8);
   Duplicate(OffsetDX*0,OffsetDY*8);
DSelectall;
EndGroup;
EndGroup;

Selectall;
   Duplicate(OffsetDX*0,OffsetDY*32);
Selectall;
   Duplicate(OffsetDX*32,OffsetDY*0);
EndGroup;


END;
Run(pieddepoule24hscript);



-- NDSClaudiaFuhr - 08 Dec 2005

Revision r1.4 - 15 Dec 2005 - 10:54 - NDSClaudiaFuhr
Parents: WebHome > NDSClaudiaFuhr > Claudiamodule01-4
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.