Added movie

Megapov compatibility.

pr/entdecker/GNUmakefile

@@ -23,6 +23,11 @@ uninteresting: \
 	test-torus.jpg \
 	entdecker1.jpg \
 
+movie: entdecker-in-theophilus.pov 
+	$(POVRAY) +L$(POVINC) +V -I$< +FP +W200 +H300 \
+		+KI0 +KF60 +KFI0 +KFF120 \
+		+SF40 +EF100 \
+		+HTX
 
 %.ppm: %.pov
 	$(POVRAY) +L$(POVINC) +V -I$< +FP

pr/entdecker/entdecker-in-theophilus.pov

@@ -74,33 +74,33 @@ camera {
 #end
 
 
-#macro warnkreis (r1, r2, s)
+#macro warnkreis (r1, r2, st)
 // r1 ... inner radius
 // r2 ... outer radius
-// s  ... step width
+// st  ... step width
     union {
 	#local i = 0;
 	#while (i < 360)
 	    polygon {
 		5
-		<r1 * cos(radians(i-s)), r1 * sin(radians(i-s))>
+		<r1 * cos(radians(i-st)), r1 * sin(radians(i-st))>
 		<r1 * cos(radians(i-0)), r1 * sin(radians(i-0))>
-		<r2 * cos(radians(i+s)), r2 * sin(radians(i+s))>
+		<r2 * cos(radians(i+st)), r2 * sin(radians(i+st))>
 		<r2 * cos(radians(i+0)), r2 * sin(radians(i+0))>
-		<r1 * cos(radians(i-s)), r1 * sin(radians(i-s))>
+		<r1 * cos(radians(i-st)), r1 * sin(radians(i-st))>
 		pigment { color Yellow }
 	    }
-	    #local i = i + s;
+	    #local i = i + st;
 	    polygon {
 		5
-		<r1 * cos(radians(i-s)), r1 * sin(radians(i-s))>
+		<r1 * cos(radians(i-st)), r1 * sin(radians(i-st))>
 		<r1 * cos(radians(i-0)), r1 * sin(radians(i-0))>
-		<r2 * cos(radians(i+s)), r2 * sin(radians(i+s))>
+		<r2 * cos(radians(i+st)), r2 * sin(radians(i+st))>
 		<r2 * cos(radians(i+0)), r2 * sin(radians(i+0))>
-		<r1 * cos(radians(i-s)), r1 * sin(radians(i-s))>
+		<r1 * cos(radians(i-st)), r1 * sin(radians(i-st))>
 		pigment { color 0.1 }
 	    }
-	    #local i = i + s;
+	    #local i = i + st;
 	#end
 	rotate <90, 0, 0>
 	translate <0, 0.01, 0>
@@ -202,7 +202,7 @@ difference {
 	}
 	texture {
 	    pigment { color rgb <0.7, 0.7, 0.9> }
-	    finish { F_MetalA }
+	    //finish { F_MetalA }
 	}
     }
     cylinder {
@@ -224,6 +224,28 @@ difference {
 
 #include "entdecker.pov"
 
+#local t1 = 10;
+#local t2 = 30;
+#local t3 = 50;
+#local t4 = 60;
+#switch (clock) 
+    #range (0, t1)
+	#local elev = -2000
+	#break
+    #range (t1, t2)
+	#local elev = (clock-t1)/(t2-t1);
+	#local elev = elev*elev;
+	#local elev = elev * 1000 - 2000;
+        #break;
+    #range (t2, t3)
+	#local elev = (clock-t3)/(t2-t3);
+	#local elev = elev*elev;
+	#local elev = - elev * 1000;
+        #break;
+    #range (t3, t4)
+	#local elev = 0;
+	#break;
+#end
 #if (1)
 union {
     cylinder {
@@ -240,7 +262,7 @@ union {
 	translate <0, 930, 0>
     }
 
-    translate <0, -200, 0>
+    translate <0, elev, 0>
 }
 #end
 

pr/entdecker/entdecker.pov

@@ -244,45 +244,45 @@
 	// formen einen leicht verzerrten Buckyball
 	#declare i = 0;
 	#while (i < 5)
-	    #declare s = -1;
+	    #declare sg = -1;
-	    #while (s <= 1) 
+	    #while (sg <= 1) 
 		object {
 		    mvh
 		    translate <900, 0, 0>
-		    rotate <0, 0, s*70.81>
+		    rotate <0, 0, sg*70.81>
-		    rotate <0, i*72+(s-1)*18 + 36, 0>
+		    rotate <0, i*72+(sg-1)*18 + 36, 0>
 		}
 		object {
 		    mvh
 		    translate <900, 0, 0>
-		    rotate <0, 0, s*48.11>
+		    rotate <0, 0, sg*48.11>
-		    rotate <0, i*72+(s-1)*18 + 36, 0>
+		    rotate <0, i*72+(sg-1)*18 + 36, 0>
 		}
 		object {
 		    mvh
 		    translate <900, 0, 0>
-		    rotate <0, 0, s*31.48>
+		    rotate <0, 0, sg*31.48>
-		    rotate <0, i*72+(s-1)*18 + 12, 0>
+		    rotate <0, i*72+(sg-1)*18 + 12, 0>
 		}
 		object {
 		    mvh
 		    translate <900, 0, 0>
-		    rotate <0, 0, s*31.48>
+		    rotate <0, 0, sg*31.48>
-		    rotate <0, i*72+(s-1)*18 + 60, 0>
+		    rotate <0, i*72+(sg-1)*18 + 60, 0>
 		}
 		object {
 		    mvh
 		    translate <900, 0, 0>
-		    rotate <0, 0, s*9.27>
+		    rotate <0, 0, sg*9.27>
-		    rotate <0, i*72+(s-1)*18 + 24, 0>
+		    rotate <0, i*72+(sg-1)*18 + 24, 0>
 		}
 		object {
 		    mvh
 		    translate <900, 0, 0>
-		    rotate <0, 0, s*9.27>
+		    rotate <0, 0, sg*9.27>
-		    rotate <0, i*72+(s-1)*18 + 48, 0>
+		    rotate <0, i*72+(sg-1)*18 + 48, 0>
 		}
-		#declare s = s + 2;
+		#declare sg = sg + 2;
 	    #end
 	    #declare i = i + 1;
 	#end
@@ -290,22 +290,22 @@
 	// Ortungsbänder
 	#declare i = 0;
 	#while (i < 5)
-	    #declare s = -1;
+	    #declare sg = -1;
-	    #while (s <= 1) 
+	    #while (sg <= 1) 
 		object {
 		    ortungsband
 		    rotate <0,    0,           22.5>
-		    rotate <s*25, 0,           0>
+		    rotate <sg*25, 0,           0>
-		    rotate <0,    i*72 + s*28, 0>
+		    rotate <0,    i*72 + sg*28, 0>
 		}
 		object {
 		    ortungsband
 		    rotate <0,    0,           180>
 		    rotate <0,    0,           22.5>
-		    rotate <s*25, 0,           0>
+		    rotate <sg*25, 0,           0>
-		    rotate <0,    i*72 + s*28, 0>
+		    rotate <0,    i*72 + sg*28, 0>
 		}
-		#declare s = s + 2;
+		#declare sg = sg + 2;
 	    #end
 	    object {
 		ortungsband

pr/entdecker/metagrav.pov

@@ -7,7 +7,7 @@
 #declare cone_texture =
     texture {
 	material_map {
-	    gif "16_lines_v_capped.map.gif" 
+	    png "16_lines_v_capped.map.png" 
 	    map_type 2
 	    texture {
 		pigment { color rgb <0.75, 0.75, 0.1> }
@@ -128,7 +128,7 @@
 		1, 0.5
 		texture {
 		    material_map {
-			gif "16_lines.map.gif" 
+			png "16_lines.map.png" 
 			map_type 5
 			texture {
 			    pigment { color rgb <0.75, 0.75, 0.1> }

pr/entdecker/povray.ini

@@ -1,4 +1,5 @@
 +A
++AM2
 +QR
 +HTP
 +fp

pr/entdecker/suedpol.pov

@@ -4,7 +4,6 @@
 #include "metals.inc"
 #include "stones.inc"
 
-
 global_settings {
         assumed_gamma 1.0
         ambient_light rgb<0.5, 0.5, 0.5>

pr/entdecker/test-entdecker.pov

@@ -4,10 +4,10 @@
 #include "metals.inc"
 #include "stones.inc"
 
-
 global_settings {
         assumed_gamma 1.0
-        ambient_light rgb<0.5, 0.5, 0.5>
+        //ambient_light rgb<0.5, 0.5, 0.5>
+	radiosity {}
 }
 
 light_source {