CAAD.HBT.ETHZ.CH . MAS0506stu . 01-02FirstVectorsript

Home | Article List |

Contact | Login

MAS05-06:Mainpage | MAS05-06:Student Pages

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

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

_______________________________________________________________________________________________________________________________
example 1

PROCEDURE  script5;

VAR
   rectWidth, rectHeight : INTEGER;
   r,g,b : LONGINT;
   i,k : INTEGER;
   startX,startY : INTEGER;
   gap : REAL;


BEGIN;

   rectWidth := 20;
   rectHeight := 30;
   
   gap:= 5;

   FOR k:=0 TO 10 DO BEGIN
      FOR i:=0 TO 10 DO BEGIN

      FillPat (1);
      ColorIndexToRGB(72,r,g,b);
      FillBack(r,g*i+1,b);
      

      ColorIndexToRGB(6,r,g,b);
      PenFore(r*i+1,g,b);

      startX := i*rectWidth + i*gap ;
      startY := k*rectHeight + k*gap ;

      Rect(startX,startY,startX + rectWidth,startY + rectHeight);
      
   END;
END;

{endpoint}
END;

_______________________________________________________________________________________________________________________________
example 2

PROCEDURE Script6;

VAR
   rectWidth, rectHeight : INTEGER;
   r,g,b : LONGINT;
   j,i,k,m : INTEGER;
   startX,startY : INTEGER;
   gap : REAL;


BEGIN;

   rectWidth := 10;
   rectHeight := 10;
   
   gap:= 4;

FOR m:=0 TO 3 DO BEGIN


   FOR k:=0 TO 10 DO BEGIN
      FOR i:=0 TO 10 DO BEGIN

      ColorIndexToRGB(72,r,g,b);
      PenFore(r,g,b);

      startX := i*rectWidth + i*gap ;
      startY := k*rectHeight + k*gap ;

      Rect(startX,startY,startX + rectWidth,startY + rectHeight);


      FillPat(0);

      ColorIndexToRGB(6,r,g,b);
      PenFore(r,g,b);

      Oval(startX,startY,startX + rectWidth,startY + rectHeight);
      
   
      
      END;
   
   END;

   MoveObjs(2*m,2*m,FALSE,FALSE);
   DSelectAll; 

   
END;

END;


Run(Script6);

_______________________________________________________________________________________________________________________________
example 3

PROCEDURE Script9;

VAR
   rectWidth, rectHeight : INTEGER;
   r,g,b : LONGINT;
   i,k,m : LONGINT;
   startX,startY : INTEGER;
   gap : REAL;


BEGIN;

   rectWidth := 50;
   rectHeight := 50;
   
   gap:= RANDOM;

FOR m:=0 TO 10 DO BEGIN

      FOR k:=0 TO 20 DO BEGIN
         FOR i:=0 TO 30 DO BEGIN

         startX := i*rectWidth + i*gap ;
         startY := k*rectHeight + k*gap ;

         ColorIndexToRGB(6,r,g,b);
         PenFore(r,g,b);
         FillPat (0);
         Rect(startX,startY,startX + rectWidth,startY + rectHeight);

         ColorIndexToRGB(72,r,g,b);
         PenFore(r,g,b);
         FillPat (0);
         Oval(startX,startY,startX + rectWidth,startY + rectHeight);

         
      END;

      

   END;

   MoveObjs(4*m,4*m,FALSE,FALSE);
   DSelectAll; 

   
END;

END;


Run(Script9);

_______________________________________________________________________________________________________________________________
example 4

PROCEDURE Script8;

VAR
   rectWidth, rectHeight : INTEGER;
   r,g,b : LONGINT;
   i,k,m : LONGINT;
   startX,startY : INTEGER;
   gap : REAL;


BEGIN;

   rectWidth := 50;
   rectHeight := 50;
   
   gap:= RANDOM;

FOR m:=0 TO 10 DO BEGIN

      FOR k:=0 TO 20 DO BEGIN
         FOR i:=0 TO 30 DO BEGIN

         startX := i*rectWidth + i*gap ;
         startY := k*rectHeight + k*gap ;

         ColorIndexToRGB(6,r,g,b);
         PenFore(r,g,b);
         FillPat (0);
         Rect(startX,startY,startX + rectWidth,startY + rectHeight);

         ColorIndexToRGB(72,r,g,b);
         PenFore(r,g,b);
         FillPat (0);
         Oval(startX,startY,startX + rectWidth,startY + rectHeight);

         
      END;

      RotatePoint(0,0,15d);

   END;

   MoveObjs(4*m,4*m,FALSE,FALSE);
   DSelectAll; 

   
END;

END;


Run(Script8);

_______________________________________________________________________________________________________________________________
example 5

PROCEDURE Script10;

VAR
   rectWidth, rectHeight : INTEGER;
   r,g,b : LONGINT;
   i,k,m : LONGINT;
   startX,startY : INTEGER;
   gap : REAL;


BEGIN;

   rectWidth := 10;
   rectHeight := 10;
   
   gap:= RANDOM;

FOR m:= 0 TO 2 DO BEGIN

   FOR k:=0 TO 15 DO BEGIN
      FOR i:=0 TO 15 DO BEGIN

      ColorIndexToRGB(72,r,g,b);
      FillBack(r,g,b);

      ColorIndexToRGB(72,r,g,b);
      PenFore(r,g,b);

      startX := i*rectWidth + i*gap ;
      startY := k*rectHeight + k*gap ;

      Rect(startX,startY,startX + rectWidth,startY + rectHeight);

      ColorIndexToRGB(6,r,g,b);
      FillBack(r,g,b);

      ColorIndexToRGB(6,r,g,b);
      PenFore(r,g,b);

      Oval(startX,startY,startX + rectWidth,startY + rectHeight);

      

      
      END;
RotatePoint (0,0,15d)
   END;
END;
{endpoint}
END;
Run(Script10);

_______________________________________________________________________________________________________________________________
example 6

PROCEDURE Script12;

VAR
   rectWidth, rectHeight : INTEGER;
   r,g,b : LONGINT;
   i,k : LONGINT;
   startX,startY : INTEGER;
   gap : REAL;


BEGIN;

   rectWidth := 10;
   rectHeight := 10;
   
   gap:= RANDOM;

      FOR k:=0 TO 15 DO BEGIN
         FOR i:=0 TO 15 DO BEGIN
   
         ColorIndexToRGB(72,r,g,b);
         FillBack(r,g,b);

         ColorIndexToRGB(72,r,g,b);
         PenFore(r,g,b);

         startX := i*rectWidth + i*gap ;
         startY := k*rectHeight + k*gap ;

         Rect(startX,startY,startX + rectWidth,startY + rectHeight);

         ColorIndexToRGB(6,r,g,b);
         FillBack(r,g,b);

         ColorIndexToRGB(6,r,g,b);
         PenFore(r,g,b);

         Oval(startX,startY,startX + rectWidth,startY + rectHeight);

         
         RotatePoint (0,0,15d);


         END;
      
      END;


END;
Run(Script12);

_______________________________________________________________________________________________________________________________
example 7

PROCEDURE Script13;

VAR
   rectWidth, rectHeight : INTEGER;
   r,g,b : LONGINT;
   i,k,m : LONGINT;
   startX,startY : INTEGER;
   gap : REAL;


BEGIN;

   rectWidth := 10;
   rectHeight := 10;
   
   gap:= RANDOM;

   FOR m:=0 TO 10 DO BEGIN

      FOR k:=0 TO 30 DO BEGIN
         FOR i:=0 TO 30 DO BEGIN
   
         ColorIndexToRGB(72,r,g,b);
         FillBack(r,g,b);

         ColorIndexToRGB(72,r,g,b);
         PenFore(r,g,b);

         startX := i*rectWidth + i*gap ;
         startY := k*rectHeight + k*gap ;

         Rect(startX,startY,startX + rectWidth,startY + rectHeight);

         ColorIndexToRGB(6,r,g,b);
         FillBack(r,g,b);

         ColorIndexToRGB(6,r,g,b);
         PenFore(r,g,b);

         Oval(startX,startY,startX + rectWidth,startY + rectHeight);

         RotatePoint (0,0,15d);

         END;
      
      END;
   
   MoveObjs(-2*m,1*m,FALSE,FALSE);
   DSelectAll; 
   END;
END;
Run(Script13);

_______________________________________________________________________________________________________________________________
example 8 :vectorscript in process

PROCEDURE Script16arcs;


VAR
   i,k,m: INTEGER;
   r,g,b : LONGINT;
   gap: REAL;
   radius: REAL;
   startAngel: REAL;
   sweepAngel: REAL;
   startX,startY: REAL;


BEGIN
   r:=0;g:=0;b:=0; 
     PenFore(r,g,b);

   radius:=40;
   startAngel:=00;
   sweepAngel:=170;
   gap:=random;
   
   FOR m:=0 TO 5 DO BEGIN
   FOR i:=0 TO 10 DO BEGIN
      FOR k:=0 TO 10 DO BEGIN

      startX:=i*radius+i*gap;
      startY:=k*radius+k*gap;

      {draw arc}
      Arcbycenter(startX,startY,radius,startAngel,sweepAngel);

      RotatePoint(3*i,-7*k,15d);
      END;
      
      
   END;
   END;

END;

Run(Script16arcs);

_______________________________________________________________________________________________________________________________

-- NDSMonikaAnnen - 09 Nov 2005

Revision r1.4 - 03 May 2006 - 13:39 - NDSMonikaAnnen Parents: WebHome > NDSMonikaAnnen	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.