Ringwulsthangars.

This commit is contained in:
hjp 1998-11-02 23:58:35 +00:00
parent 89d110b580
commit d771e6f7d2
1 changed files with 40 additions and 2 deletions

View File

@ -125,6 +125,41 @@
object {Geschuetze_Huelle_unten} object {Geschuetze_Huelle_unten}
} }
#declare Hangars_Ringwulst_neg =
difference {
union {
#declare i = 0
#while (i < 360)
union {
box {
<-50, 40, 0>
< 50, 80, 2500>
}
box {
<-50, 120, 0>
< 50, 220, 2500>
}
box {
<-50, -40, 0>
< 50, -80, 2500>
}
box {
<-50, -120, 0>
< 50, -220, 2500>
}
rotate <0, i, 0>
}
#declare i = i + 30
#end
}
torus {
1250, 390
}
texture {
Ynkelonium_Texture
}
}
#declare Geschuetze_Ringwulst_aussen = #declare Geschuetze_Ringwulst_aussen =
union { union {
#declare w = -45 #declare w = -45
@ -199,7 +234,8 @@
torus { torus {
1250, 400 1250, 400
} }
#declare i = 0 #declare i = 10
#declare ii = 10
#while (i < 360) #while (i < 360)
object { object {
Triebwerk_neg Triebwerk_neg
@ -213,8 +249,10 @@
translate <1250, 0, 0> translate <1250, 0, 0>
rotate <0, i, 0> rotate <0, i, 0>
} }
#declare i = i + 30 #declare i = i + ii
#declare ii = 30 - ii
#end #end
object {Hangars_Ringwulst_neg}
} }
cone { cone {
<0, -400, 0>, 1250, <0, -400, 0>, 1250,