Vectorskript1: PROCEDURE caad1;

VAR a,b,c,sizex:REAL; x,y,e,f:INTEGER;

BEGIN a:=10; b:=8; c:=1; FOR x:=0 TO 3 DO BEGIN FOR y:=1 TO 4 DO BEGIN FOR e:=1 TO 4 DO BEGIN FOR f:=13 TO 15 DO BEGIN sizex:=Random; Rect((e*2)-sizex,(f*2)-sizex,(e*2)+sizex,(f*2)+sizex); Rect(0,x*b,a,y*b); Rect(-b,b,0,2*b); Rect(a,b,a+b,2*b); IF(NOT((x=1)OR(y=2)OR(x=3)OR(y=4))) THEN BEGIN Rect(-c,x*b,0,y*b); Rect(a,x*b,a+c,y*b); Rect(0,4*b,a,4*b+2*c); END; END; END; END; END; END;

RUN(caad1);

Vectorscript2: PROCEDURE caad2;

VAR a,b,c,f,sizex:REAL; x,y,e:INTEGER;

BEGIN a:=10; b:=3; c:=1; f:=5.25; FOR x:=0 TO 3 DO BEGIN FOR y:=1 TO 4 DO BEGIN FOR e:=1 TO 4 DO BEGIN sizex:=Random; Rect((e*2)-sizex,(f*2)-sizex,(e*2)+sizex,(f*2)+sizex); Rect(0,x*b,a,y*b); Rect(-b,b,0,2*b); Rect(a,b,a+b,2*b); IF(NOT((x=1)OR(y=2)OR(x=3)OR(y=4))) THEN BEGIN Rect(-c,x*b,0,y*b); Rect(a,x*b,a+c,y*b); Rect(0,4*b,a,4*b+2*c); END; END; END; END; END;

RUN(caad2);

Vectorscript3: PROCEDURE caad3;

VAR a,b,c,sizex:REAL; x,y,e,f:INTEGER;

BEGIN a:=10; b:=12; c:=1; FOR x:=0 TO 3 DO BEGIN FOR y:=1 TO 4 DO BEGIN FOR e:=1 TO 4 DO BEGIN FOR f:=19 TO 23 DO BEGIN sizex:=Random; Rect((e*2)-sizex,(f*2)-sizex,(e*2)+sizex,(f*2)+sizex); Rect(0,x*b,a,y*b); Rect(-b,b,0,2*b); Rect(a,b,a+b,2*b); IF(NOT((x=1)OR(y=2)OR(x=3)OR(y=4))) THEN BEGIN Rect(-c,x*b,0,y*b); Rect(a,x*b,a+c,y*b); Rect(0,4*b,a,4*b+2*c); END; END; END; END; END; END;

RUN(caad3);

Attachment	Action	Size	Date	Who	Comment
Boxen1.jpg	manage	379.6 K	19 May 2006 - 19:11	AiGabrielleSiegenthaler
Boxen2.jpg	manage	212.9 K	19 May 2006 - 19:12	AiGabrielleSiegenthaler
PraesentationCAAD.pdf	manage	7328.7 K	26 Jun 2006 - 07:36	UnknownUser
Caad1.vso	manage	4.2 K	15 Jun 2006 - 14:30	RegisterGreen	Vectorskript
CAADnarrative.pdf	manage	958.4 K	09 May 2006 - 13:52	AiGabrielleSiegenthaler

Edit | Attach | Backlinks: Web All webs | Printable | History: r8 < r7 < r6 < r5 < r4 More topic actions...