|
Edit
| Attach
| Backlinks: Web All webs
| Printable
| History: r8 |r6 < r5 < r4 < r3
More topic actions... test
* CAADnarrative.pdf: CAADnarrative.pdf
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);
Edit
| Attach
| Backlinks: Web All webs
| Printable
| History: r8 |r6 < r5 < r4 < r3
More topic actions...
|