added ag-schacht to repository (found on teal, last modified 2000-12-15)

pr/ag-schacht/GNUmakefile

@@ -0,0 +1,25 @@
+# what's where?
+include GNUmakevars
+
+
+all: \
+	test-ag-schacht.png \
+
+
+%.ppm: %.pov
+	$(POVRAY) +W$(WIDTH) +H$(HEIGHT) +V -I$< +L$(POVINC) +L../../lib/ +D +FP
+
+%.png: %.pov
+	$(POVRAY) +V -I$< +L$(POVINC) +L../../lib/ +D +FN
+
+%.pov: make%
+	$< > $@
+
+
+
+test-ag-schacht.png: test-ag-schacht.pov \
+    ag-schacht.pov
+
+
+%.gif: %.ppm
+	ppmquant 256 $< | ppmtogif > $@

pr/ag-schacht/T_arkonstahl.pov

@@ -0,0 +1,26 @@
+/* 
+    $Id: T_arkonstahl.pov,v 1.1 2000/06/28 22:13:00 hjp Exp $
+
+    Textur für Arkonstahl. 
+    
+    Abgeleitet von Terkonit-Textur von 
+    Harald Ottacher
+    ottacher@iwf.tu-graz.ac.at
+    http://www.hjp.at/pr/3d/kr100/
+
+ */
+#declare T_arkonstahl =
+texture {
+  pigment { color red 0.4 green 0.4 blue 0.8}
+  finish {
+    metallic
+    ambient 0.0
+    diffuse 0.7
+    brilliance 1
+    reflection 0.1
+    specular 0.7
+    roughness 1/60
+  }
+} 
+
+

pr/ag-schacht/ag-schacht.pov

@@ -0,0 +1,141 @@
+#include "T_arkonstahl.pov"
+#include "section.povinc"
+
+#declare RHA = 750;
+#declare RHI = 745;
+#declare RAG = 5;
+#declare DAG = 0.2;
+#declare D = 1;
+#declare Eps = 1E-6;
+
+#declare HLeucht = 3;
+#declare HLeuchtKap = 0.2;
+#declare RLeucht = 0.04;
+
+
+#declare ag_schacht =
+    union {
+	difference {
+	    sphere {
+		<0, 0, 0>, RHA
+	    }
+	    sphere {
+		<0, 0, 0>, RHI
+	    }
+	    texture { T_arkonstahl }
+	}
+
+	#local A = 0;
+	#while (A < 360)
+	    object {
+		section (
+		    difference {
+			cylinder {
+			    <0, -RHA, 0>,
+			    <0, RHA, 0>,
+			    RAG + DAG
+			}
+			cylinder {
+			    <0, -(RHA+Eps), 0>,
+			    <0, RHA+Eps, 0>,
+			    RAG
+			}
+		    }
+		    A-10, A+10
+		)
+		texture { T_arkonstahl }
+	    }
+	    #local A = A + 60;
+	#end
+	#local H = 700;
+
+	#while (H < RHA) 
+	    #local R = sqrt(RHA*RHA - H * H);
+	    union {
+		difference {
+		    cylinder {
+			<0, H - D/2, 0>,
+			<0, H + D/2, 0>,
+			R
+		    }
+		    cylinder {
+			<0, H - D/2 - Eps, 0>,
+			<0, H + D/2 + Eps, 0>,
+			RAG
+		    }
+		    texture { T_arkonstahl }
+
+		}
+		#local A = 0;
+		#while (A < 360)
+		    union {
+			union {
+			    cylinder {
+				<0, H - HLeucht/2, RAG - RLeucht * 1.5>,
+				<0, H - HLeucht/2 - (HLeuchtKap - RLeucht/2) , RAG - RLeucht * 1.5>,
+				RLeucht
+			    }
+			    cylinder {
+				<0, H - HLeucht/2, RAG - RLeucht * 1.5>,
+				<0, H - HLeucht/2 - HLeuchtKap , RAG - RLeucht * 1.5>,
+				RLeucht/2
+			    }
+			    torus {
+				RLeucht/2, RLeucht/2
+				translate <0, H - HLeucht/2 - (HLeuchtKap - RLeucht/2) , RAG - RLeucht * 1.5>
+			    }
+			    cylinder {
+				<0, HLeucht/2 - HLeuchtKap/2, RAG - RLeucht * 1.5>,
+				<0, HLeucht/2 - HLeuchtKap/2, RAG>,
+				RLeucht
+
+			    }
+			    texture { T_arkonstahl }
+			}
+			union {
+			    cylinder {
+				<0, H + HLeucht/2, RAG - RLeucht * 1.5>,
+				<0, H + HLeucht/2 + (HLeuchtKap - RLeucht/2) , RAG - RLeucht * 1.5>,
+				RLeucht
+			    }
+			    cylinder {
+				<0, H + HLeucht/2, RAG - RLeucht * 1.5>,
+				<0, H + HLeucht/2 + HLeuchtKap , RAG - RLeucht * 1.5>,
+				RLeucht/2
+			    }
+			    torus {
+				RLeucht/2, RLeucht/2
+				translate <0, H + HLeucht/2 + (HLeuchtKap - RLeucht/2) , RAG - RLeucht * 1.5>
+			    }
+			    cylinder {
+				<0, HLeucht/2 + HLeuchtKap/2, RAG - RLeucht * 1.5>,
+				<0, HLeucht/2 + HLeuchtKap/2, RAG>,
+				RLeucht
+
+			    }
+			    texture { T_arkonstahl }
+			}
+			cylinder {
+			    <0, H - HLeucht/2, RAG - RLeucht * 1.5>,
+			    <0, H + HLeucht/2, RAG - RLeucht * 1.5>,
+			    RLeucht
+			    texture {
+				pigment {
+				    color <1-sin(radians(A))*0.2,
+				           1-sin(radians(A+120))*0.2,
+					   1-sin(radians(A+240))*0.2>
+				}
+				finish {
+				    ambient 16
+				}
+			    } 
+			}
+			rotate <0, A, 0>
+		    }
+		    #local A = A + 60;
+		#end
+	    }
+	    #local H = H + 5;
+	#end
+    }
+

pr/ag-schacht/povray.ini

@@ -0,0 +1,6 @@
++MB5
++QR
+-A
++HTN
++fp +w640 +h480 +d1 
+display_gamma = 2.2

pr/ag-schacht/test-ag-schacht.pov

@@ -0,0 +1,39 @@
+#version unofficial MegaPov 0.5;
+#include "colors.inc"
+#include "shapes.inc"
+#include "textures.inc"
+#include "metals.inc"
+#include "stones.inc"
+
+#include "ag-schacht.pov"
+
+
+#default {finish {ambient 0.1 diffuse 0.3 brilliance 0}}
+
+global_settings {
+        assumed_gamma 1.0
+        ambient_light rgb<0.1, 0.1, 0.1>
+	radiosity {
+	    pretrace_start 0.04
+	    pretrace_end 0.005
+	    count 300
+	    recursion_limit 3
+	    nearest_count 10
+	    error_bound 0.3
+	    low_error_factor 1
+	    //adc_bailout 1
+	}
+}
+
+#local CP = <0, 740+D+1.7, RAG*0.8>;
+camera {
+        location CP
+        look_at <-0, 0, 0>
+	angle 32
+}
+
+object {
+    ag_schacht
+}
+
+