snapshot

pr/zyhm_ranton/GNUmakefile

@@ -0,0 +1,19 @@
+# what's where?
+include GNUmakevars
+
+
+all: \
+	test-zyhm_ranton.ppm \
+
+
+
+%.ppm: %.pov
+	$(POVRAY) +L$(POVINC) +V -I$< +D +FP
+
+%.pov: make%
+	$< > $@
+
+test-zyhm_ranton.ppm: test-zyhm_ranton.pov zyhm_ranton.pov
+
+%.gif: %.ppm
+	ppmquant 256 $< | ppmtogif > $@

pr/zyhm_ranton/arkon_texture.pov

@@ -0,0 +1,3 @@
+#include "metals.inc"
+#declare Arkon_Texture =
+        texture {pigment {color <0.6, 0.6, 0.8>} finish {F_MetalB}}

pr/zyhm_ranton/povray.ini

@@ -0,0 +1,4 @@
++A
++HTP
++fp +w400 +h300 +d1
+display_gamma = 2.2

pr/zyhm_ranton/test-zyhm_ranton.pov

@@ -0,0 +1,48 @@
+#include "colors.inc"
+#include "shapes.inc"
+#include "textures.inc"
+#include "metals.inc"
+#include "stones.inc"
+
+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 {
+    <2000, 2000, 2000>
+    color White
+}
+
+#declare Camera_Totale = 1
+
+#ifdef (Camera_Triebwerk)
+camera {
+        location <1650, 1700, 0>
+        look_at <1250, 1300, 0>
+}
+#end
+
+#ifdef (Camera_Totale)
+camera {
+        location <2650, 1800, 0>
+        look_at <0, 800, 0>
+}
+#end
+
+#include "zyhm_ranton.pov"
+
+object {
+    zyhm_ranton
+    translate <0, 800, 0>
+}
+
+
+#if (0)
+plane {
+    <0, 1, 0>, 0
+    pigment {
+	checker color White*0.7, color White*0.5
+    }
+}
+#end

pr/zyhm_ranton/zyhm_ranton.pov

@@ -0,0 +1,35 @@
+#include "arkon_texture.pov"
+
+#declare zyhm_ranton = 
+    difference {
+	sphere {
+	    <0, 0, 0>, 750
+	}
+	union {
+	    #declare i = 0
+	    #while (i < 360) 
+		#debug concat ("\ni: ", str(i, 0, 0))
+		sphere {
+		    <0, 0, 0>, 100
+		    translate <0, 0, 750>
+		    rotate <0, i, 0>
+		}
+		#declare i = i + 30
+	    #end
+	}
+	sphere {
+	    <0, 0, 0>, 100
+	    translate <0, 0, 750>
+	    rotate <90, 0, 0>
+	}
+	sphere {
+	    <0, 0, 0>, 100
+	    translate <0, 0, 750>
+	    rotate <-90, 0, 0>
+	}
+	texture {
+	    Arkon_Texture
+	}
+    }
+
+