Feldschirmprojektoren.

This commit is contained in:
hjp 2008-02-09 23:01:16 +00:00
parent 4765c5295c
commit 9aaf8fcce0
2 changed files with 122 additions and 8 deletions

View File

@ -82,6 +82,7 @@
#local A0 = A0 + 90;
#end
/*
difference {
intersection {
cone {
@ -134,6 +135,106 @@
}
#end
}
*/
}
#declare feldschirm_projektor =
union {
intersection {
union {
difference {
sphere {
<0, 0, 0>, 47.5
}
sphere {
<0, 0, 0>, 47
}
}
difference {
sphere {
<0, 0, 0>, 46.5
}
sphere {
<0, 0, 0>, 46
}
}
difference {
sphere {
<0, 0, 0>, 45.5
}
sphere {
<0, 0, 0>, 45
}
}
texture { pigment { rgb < 0.2, 0.2, 0.4 > } }
}
cone {
<0,0,0>, 0
<-50, 0, 0>, 5
scale <1, 0.5, 1>
rotate <0, 0, -17.5>
texture { pigment { rgb < 0.2, 0.2, 0.2 > } }
}
}
#local fsp_r1 = 0.5;
#local fsp_r2 = 0.3;
#local fsp_sa = 3;
cone {
<-43,0,0>, fsp_r2
<-47, 0, 0>, fsp_r1
rotate <0, 0, -fsp_sa>
scale <1, 0.5, 1>
rotate <0, 0, -17.5>
texture { pigment { rgb < 1, 0.9, 1 > } }
}
cone {
<-43,0,0>, fsp_r2
<-47, 0, 0>, fsp_r1
rotate <0, 0, -fsp_sa>
rotate <120, 0, 0>
scale <1, 0.5, 1>
rotate <0, 0, -17.5>
texture { pigment { rgb < 1, 0.9, 1 > } }
}
cone {
<-43,0,0>, fsp_r2
<-47, 0, 0>, fsp_r1
rotate <0, 0, -fsp_sa>
rotate <-120, 0, 0>
scale <1, 0.5, 1>
rotate <0, 0, -17.5>
texture { pigment { rgb < 1, 0.9, 1 > } }
}
sphere {
<-41.5, 15, 0>, 1
texture { T_Copper_3D }
}
cone {
<-0, 4.8, 0>, 1
<-0, 0, 0>, 1.5
matrix <
1, 0, 0,
0.5/4.8, 1, 0,
0, 0, 1,
0, 0, 0
>
translate <-42, 10.2, 0>
texture { pigment { rgb < 1, 0.9, 1 > } }
}
cone {
<-41.5, 12, -3>, 0.5
<-41.5, 12, +3>, 0.5
texture { pigment { rgb < 1, 0.8, 1 > } }
}
sphere {
<-41.5, 12, -3>, 0.6
texture { T_Copper_3D }
}
sphere {
<-41.5, 12, +3>, 0.6
texture { T_Copper_3D }
}
}
#declare deck_13 =
@ -154,11 +255,12 @@
}
}
#end
difference {
difference { // XXX
cone {
<0, 10.2, 0> 46.6
<0, 9.8, 0> 46.7
texture { T_arkonstahl }
<0, 10.2, 0> 46.9
<0, 9.8, 0> 47.0
// texture { T_arkonstahl }
texture { T_bodenbelag }
}
torus {
(15+6)/2, (15-6)/2
@ -166,8 +268,9 @@
}
#ifdef (SCHNITT_1)
intersection {
torus {
23, 23
cone {
<0, -0.3, 0> 47.1
<0, 0.3, 0> 47.1
}
plane {
<0, 0, -1> 0
@ -179,6 +282,7 @@
}
rotate <0, 135, 0>
translate <0, 10.0, 0>
texture { pigment { rgb < 1, 0, 0 > } }
}
#end
}
@ -286,5 +390,15 @@
#end
#local a = 0;
#while (a < 360)
#if (!SCHNITT_1 | a <= 270)
object {
feldschirm_projektor
rotate <0, a, 0>
}
#end
#local a = a + 20;
#end
}

View File

@ -17,14 +17,14 @@ light_source {
color White
}
#local CP = <-16, 10, -10>;
#local CP = <-105, 100, -105>;
light_source {
CP
color White*0.5
}
camera {
location CP
look_at <-6, 10, -0>
look_at <-15, 15, -0>
angle 20
}