From 5f85830e648c7f0fc8f4de57092f57d6999ca043 Mon Sep 17 00:00:00 2001
From: hjp <hjp@41646610-1e7d-41f5-9080-4b43bf584971>
Date: Sun, 30 Jan 2005 22:21:35 +0000
Subject: [PATCH] Ringwulst

---
 pr/schneller_kreuzer/ringwulst.pov | 60 ++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 pr/schneller_kreuzer/ringwulst.pov

diff --git a/pr/schneller_kreuzer/ringwulst.pov b/pr/schneller_kreuzer/ringwulst.pov
new file mode 100644
index 0000000..d5a4a28
--- /dev/null
+++ b/pr/schneller_kreuzer/ringwulst.pov
@@ -0,0 +1,60 @@
+#local Eps = 1E-6;
+
+#declare ringwulst = 
+    difference {
+	difference {
+	    union {
+		cylinder {
+		    <0, -10, 0>
+		    <0,  10, 0>
+		    50
+		}
+		torus {
+		    50, 15
+		    scale <1, 10/15, 1>
+		}
+	    }
+	    cylinder {
+		<0, -10 - Eps, 0>
+		<0,  10 + Eps, 0>
+		15
+	    }
+	}
+	difference {
+	    union {
+		cylinder {
+		    <0, -8, 0>
+		    <0,  8, 0>
+		    50
+		}
+		torus {
+		    50, 13
+		    scale <1, 8/13, 1>
+		}
+	    }
+	    cylinder {
+		<0, -8 - Eps, 0>
+		<0,  8 + Eps, 0>
+		17
+	    }
+	}
+	box {
+	    <-100, -100, -100>
+	    <   0,  100,    0>
+	}
+
+	#if (0)
+	texture {
+	    crackle 
+	    texture_map {
+		[ 0.0 T_arkonstahl ]
+		[ 0.2 T_arkonstahl ]
+		[ 0.2 T_luft ]
+		[ 1.0 T_luft ]
+	    }
+	}
+	#else 
+	texture { T_arkonstahl }
+	#end
+    }
+