m=a/6
pen req("Pen_of_RGB 0 0 .7")
line2 m/2,m/2, m,0
line2 m,0, m+m/2,m/2
line2 m/2,m/2, m+m/2,m/2
line2 0,b, m*2,b
line2 0,b-m/2, m*2,b-m/2
line2 0,b, 0,b-m/2
line2 m*2,b, m*2,b-m/2
pen req("Pen_of_RGB .7 0 0")
line2 m*2+m/2,m/2, m*2+m,0
line2 m*2+m,0, m*2+m+m/2,m/2
line2 m*2+m/2,m/2, m*2+m+m/2,m/2
line2 m*2+0,b, m*2+m*2,b
line2 m*2+0,b-m/2, m*2+m*2,b-m/2
line2 m*2+0,b, m*2+0,b-m/2
line2 m*2+m*2,b, m*2+m*2,b-m/2
pen req("Pen_of_RGB 0 .7 0")
line2 m*4+m/2,m/2, m*4+m,0
line2 m*4+m,0, m*4+m+m/2,m/2
line2 m*4+m/2,m/2, m*4+m+m/2,m/2
line2 m*4+0,b, m*4+m*2,b
line2 m*4+0,b-m/2, m*4+m*2,b-m/2
line2 m*4+0,b, m*4+0,b-m/2
line2 m*4+m*2,b, m*4+m*2,b-m/2
pen req("Pen_of_RGB .6 .6 .6")
line2 0,m, m/2,m/2
line2 2*m,m, m+m/2,m/2
line2 2*m,m, m+m/2,m/2
line2 2*m,m, 2*m+m/2,m/2
line2 4*m,m, 4*m-m/2,m/2
line2 4*m,m, 4*m+m/2,m/2
line2 a,m, a-m/2,m/2
line2 0,m, 0,b-m/2
line2 2*m,m, 2*m,b-m/2
line2 4*m,m, 4*m,b-m/2
line2 a,m, a,b-m/2
line2 0,m, a,m
|
! Omaggio ad ArchiCAD di Roberto Corona - Firenze
! 10.1999
Rotz 90
define material "Gri" 6, .60,.60,.60
define material "Ros" 6, .7,0,0
define material "Ver" 6, 0,.7,0
define material "Azz" 6, 0,0,.7
m=a/6
addy -m
set material "Gri":pen req("Pen_of_RGB .6 .6 .6")
revolve 5,180, 63,
m/2,m/2,1, m,m,0, m,m-.001,0,
m+.001,m,0, b-m/2,m,1
set material "azz":pen req("Pen_of_RGB 0 0 .7")
revolve 2,180, 63,
0, m/100,1, m/2,m/2,1
revolve 2,180, 63,
b-m/2,m,1, b,m,1
addy -m*2
set material "Gri":pen req("Pen_of_RGB .6 .6 .6")
revolve 5,180, 63,
m/2,m/2,1, m,m,0, m,m-.001,0,
m+.001,m,0, b-m/2,m,1
set material "ros":pen req("Pen_of_RGB .7 0 0")
revolve 2,180, 63,
0, m/100,1, m/2,m/2,1
revolve 2,180, 63,
b-m/2,m,1, b,m,1
addy -m*2
set material "Gri":pen req("Pen_of_RGB .6 .6 .6")
revolve 5,180, 63,
m/2,m/2,1, m,m,0, m,m-.001,0,
m+.001,m,0, b-m/2,m,1
set material "ver":pen req("Pen_of_RGB 0 .7 0")
revolve 2,180, 63,
0, m/100,1, m/2,m/2,1
revolve 2,180, 63,
b-m/2,m,1, b,m,1
|
| nome | tipo | descrizione | valore |
| A |  |
Dimensione X | 1.00 |
| B |  |
Dimensione Y | 1.20 |
|