Geschütze, Schleusen, Traktrostrahler.

pr/star/Hangar_Schotts.pov

@@ -31,6 +31,19 @@ intersection {
 	    #declare i = i + 45
 	#end
 
+	// Mannschleusen
+
+	#declare i = 0
+	#while (i < 360) 
+	    superellipsoid {
+		<0.25, 0.25>
+		scale <4, 2, 4>
+		translate <0, -40, 92>
+		rotate <0, i, 0>
+	    }
+	    #declare i = i + 45
+	#end
+
 	// untere Hangars
 
 	#declare i = 0

pr/star/Impulsgeschuetz.pov

@@ -0,0 +1,66 @@
+#include "T_BlackMetal.pov"
+
+#declare Impulsgeschuetz = 
+    union {
+	union {
+	    intersection {
+		sphere { <0, 0, 0>, 3
+		}
+		#declare i = 0
+		#while (i < 5)
+		    cone {
+			<0, -3, -2>, 4.9
+			<0, +3, -2>, 4.9
+			rotate <30, 0, 0>
+			rotate <0, 0, i*72>
+		    }
+		    #declare i = i + 1
+		#end
+	    }
+	    difference {
+		cone {
+		    <0, 0.3, 2.5>, 0.6,
+		    <0, 0.3, 5.5>, 0.5
+		}
+		cone {
+		    <0, 0.3, 2.5>, 0.4,
+		    <0, 0.3, 5.6>, 0.4
+		}
+	    }
+	    difference {
+		cone {
+		    <0, -0.3, 2.5>, 0.4,
+		    <0, -0.3, 4.5>, 0.4
+		}
+		cone {
+		    <0, 0, 0>, 0.6,
+		    <0, 0, 1>, 0.6
+		    rotate <45, 0, 0>
+		    translate <0, -0.3, 4.5>
+		}
+	    }
+	    torus {
+		0.5, 0.2
+		rotate <90, 0, 0>
+		translate <0, 0.3, 5.5>
+	    }
+	    texture {
+		pigment {color <0.7, 0.7, 1.0>}
+		finish {phong 1.0}
+	    }
+	}
+        #declare i=5.0
+	#while (i > 3.5)
+	    torus {
+		0.5, 0.09
+		rotate <90, 0, 0>
+		translate <0, 0.3, i>
+		texture { T_BlackMetal }
+	    }
+	    #declare i = i - 0.2
+	#end
+	    
+	light_source {
+		<0, 0.3, 3> color Yellow
+	}
+    }

pr/star/Makefile

@@ -1,6 +1,6 @@
 # what's where?
-POVHOME=/usr/local/povray3
+POVHOME=/usr/lib/povray3
-POVBIN=$(POVHOME)/bin
+POVBIN=/usr/bin
 POVINC=$(POVHOME)/include
 POVRAY=$(POVBIN)/x-povray
 
@@ -17,6 +17,8 @@ all: \
 	test-winebottle-glass.ppm \
 	gravojet1.ppm \
 	totale.ppm \
+	test-Impulsgeschuetz.ppm \
+	test-Traktorstrahler.ppm \
 
 
 %.ppm: %.pov
@@ -33,3 +35,9 @@ test-hypertrop.ppm: test-hypertrop.pov Hypertrop.pov \
     ynkelonium_texture.pov T_BlackMetal.pov
 test-hyperfunk.ppm: test-hyperfunk.pov Hyperfunk.pov \
     T_BlackMetal.pov
+totale.ppm: totale.pov star.pov ynkelonium_texture.pov strut.pov \
+    Hangar_Schotts.pov T_BlackMetal.pov
+test-Impulsgeschuetz.ppm: test-Impulsgeschuetz.pov Impulsgeschuetz.pov \
+    T_BlackMetal.pov
+test-Traktorstrahler.ppm: test-Traktorstrahler.pov Traktorstrahler.pov \
+    T_BlackMetal.pov

pr/star/TODO

@@ -1,5 +1,2 @@
-Antennen am oberen Pol
-Geschütze
-Traktorstrahler bei unteren Schleusen
 
 Farben!

pr/star/T_BlackMetal.pov

@@ -1,3 +1,4 @@
+#include "metals.inc"
 #declare T_BlackMetal =
     texture {
 	pigment {

pr/star/Traktorstrahler.pov

@@ -0,0 +1,72 @@
+#include "ynkelonium_texture.pov"
+
+#declare Traktorstrahler =
+union {
+    cone {
+	<0, 0, 0>, 2
+	<0, 0, 1>, 2
+    }
+    cone {
+	<0, 0, 1>, 1.5
+	<0, 0, 4>, 0.8
+    }
+    sphere {
+	<0, 0, 4>, 1.0
+    }
+    union {
+	union {
+	    cone {
+		<0, 0, 0>, 0.6
+		<0, 0, 2>, 1.2
+	    }
+	    cone {
+		<-1.5, 0, 1>, 0.2
+		<-1.5, 0, 2>, 1.5
+	    }
+	    cone {
+		<1.5, 0, 1>, 0.2
+		<1.5, 0, 2>, 1.5
+	    }
+	    prism {
+		linear_sweep
+		linear_spline
+		-1.5
+		1.5
+		5
+		<-1.5, 2>, <1.5, 2>, <0.2, 1>, <-0.2, 1>, <-1.5, 2>
+		rotate <0, 0, 90>
+	    }
+	}
+	union {
+	    cone {
+		<-1.5, 0, 2>, 1.5
+		<-1.5, 0, 2.2>, 1.5
+	    }
+	    cone {
+		<1.5, 0, 2>, 1.5
+		<1.5, 0, 2.2>, 1.5
+	    }
+	    prism {
+		linear_sweep
+		linear_spline
+		-1.5,
+		+1.5,
+		5
+		<-1.5, 2>, <1.5, 2>, <1.5, 2.2>, <-1.5, 2.2>, <-1.5, 2>
+		rotate <0, 0, 90>
+	    }
+	    texture {
+		T_BlackMetal
+		finish { F_MetalA }
+	    }
+	}
+	rotate <0, 0, -45>
+	rotate <30, 0, 0>
+	translate   <0, 0, 4>
+    	
+    }
+    texture {
+	Ynkelonium_Texture
+	finish { F_MetalA }
+    }
+}

pr/star/povray.ini

@@ -1,4 +1,4 @@
-+A
+-A
 +HTP
 +fp +w400 +h300 +d1
 +l/usr/local/povray3/include

pr/star/star.pov

@@ -56,6 +56,19 @@ difference {
 	#declare i = i + 45
     #end
 
+    // Mannschleusen
+
+    #declare i = 0
+    #while (i < 360) 
+	superellipsoid {
+	    <0.25, 0.25>
+	    scale <4, 2, 4>
+	    translate <0, -40, 92>
+	    rotate <0, i, 0>
+	}
+	#declare i = i + 45
+    #end
+
     // untere Hangars
 
     #declare i = 0
@@ -74,6 +87,36 @@ difference {
 	translate <0, -100, 0>
     }
 
+    // Deck 16 und Panoramafenster
+    intersection {
+	sphere {
+	    <0, 0, 0> 98.5
+	}
+	cone {
+	    <0, 79, 0>, 98.5
+	    <0, 89, 0>, 98.5
+	}
+	texture {
+	    pigment {
+		color White
+	    }
+	}
+    }
+	
+    #declare i = 0
+    #while (i < 360)
+	#declare j = 10
+	#while (j <= 50)
+	    cone {
+		<0, 80, 58>, 1
+		<0, 80, 62>, 1
+		rotate <0, i+j, 0>
+	    }
+	    #declare j = j + 5
+	#end
+	#declare i = i + 60
+    #end
+
     texture {
 	Ynkelonium_Texture
     }
@@ -355,6 +398,10 @@ union {
 
 #include "Hyperfunk.pov"
 
+#include "../tfk/tfk1.pov"
+#include "Impulsgeschuetz.pov"
+#include "Traktorstrahler.pov"
+
 #declare star = 
 union {
     object {
@@ -504,6 +551,68 @@ union {
 	    rotate <0, -120, 0>
 	}
     }
+    //#declare G_y 85
+    //#declare G_r 52
+    #declare G_y = 80
+    #declare G_r = 60
+
+    object {
+	TFK1
+	translate <0, G_y, G_r>
+    }
+    object {
+	TFK1
+	translate <0, G_y, G_r>
+	rotate <0, 120, 0>
+    }
+    object {
+	TFK1
+	translate <0, G_y, G_r>
+	rotate <0, 240, 0>
+    }
+    object {
+	Impulsgeschuetz
+	translate <0, G_y, G_r>
+	rotate <0, 60, 0>
+    }
+    object {
+	Impulsgeschuetz
+	translate <0, G_y, G_r>
+	rotate <0, 180, 0>
+    }
+    object {
+	Impulsgeschuetz
+	translate <0, G_y, G_r>
+	rotate <0, 300, 0>
+    }
+    #declare i = 0
+    #while (i < 360)
+	object {
+	    Impulsgeschuetz
+	    scale <0.4, 0.4, 0.6>
+	    translate <0, -50, 86>
+	    rotate <0, i, 0>
+	}
+	#declare i = i + 45
+    #end
+    light_source {
+	<0, 88, 0>
+	color White
+    }
+
+    // Traktorstrahler
+
+    #declare i = 20
+    #while (i < 360) 
+	object {
+	    Traktorstrahler
+	    translate <0, 0, 99.5>
+	    rotate <36, i, 0>
+	    rotate <0, i, 0>
+	}
+	#declare i = i + 45
+    #end
+
 
     translate <0, 110, 0>
 }

pr/star/test-Impulsgeschuetz.pov

@@ -0,0 +1,31 @@
+#include "colors.inc"
+#include "shapes.inc"
+#include "textures.inc"
+#include "stones.inc"
+
+global_settings {
+        assumed_gamma 1.0
+        ambient_light rgb<0.5, 0.5, 0.5>
+}
+camera {
+        //location <-0, 100, 130>
+        //location <0, 0, 30>
+        location <5, 5, 10>
+        look_at <0, 0, 5>
+        //location <20, 17, 60>
+        //look_at <0, 17, 20>
+}
+
+light_source {
+        <100, 100, 0> color White
+}
+light_source {
+        <0, 50, 0> color White
+}
+
+#declare Ynkelonium_Texture =
+        texture {pigment {color Salmon}}
+
+#include "Impulsgeschuetz.pov"
+object { Impulsgeschuetz }
+

pr/star/test-Traktorstrahler.pov

@@ -0,0 +1,40 @@
+#include "colors.inc"
+#include "shapes.inc"
+#include "textures.inc"
+#include "metals.inc"
+#include "stones.inc"
+#include "T_BlackMetal.pov"
+
+global_settings {
+        assumed_gamma 1.0
+        ambient_light rgb<0.5, 0.5, 0.5>
+}
+background { color rgb<0.2, 0.4, 0.8>  }
+light_source {
+    <-200, 200, -200>
+    color White
+}
+light_source {
+    <0, 0, -10>
+    color White
+}
+camera {
+        location <-15, 10, +10>
+        look_at <-0, 3, -0>
+}
+
+#include "Traktorstrahler.pov"
+
+object {
+    Traktorstrahler
+    translate <0, 3, 0>
+}
+
+
+plane {
+    <0, 1, 0>, 0
+    pigment {
+	checker color White*0.7, color White*0.5
+    }
+}
+

pr/star/test-star.pov

@@ -13,8 +13,8 @@ light_source {
     color White
 }
 camera {
-        location <-30, 220, -0>
+        location <-0, 50, 100>
-        look_at <-0, 200, 40>
+        look_at <-0, 50, 80>
 }
 
 #include "star.pov"

pr/star/totale.pov

@@ -13,7 +13,7 @@ light_source {
     color White
 }
 camera {
-        location <-170, 120, -171>
+        location <-200, 120, -171>
         look_at <-80, 110, -60>
 }