From e8fcbfb46f9d7badd043b9daca9659bbd45f84ee Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@ost.ch>
Date: Sat, 10 Apr 2021 22:56:28 +0200
Subject: new images

---
 vorlesungen/slides/7/images/commutator.pov | 59 ++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 vorlesungen/slides/7/images/commutator.pov

(limited to 'vorlesungen/slides/7/images/commutator.pov')

diff --git a/vorlesungen/slides/7/images/commutator.pov b/vorlesungen/slides/7/images/commutator.pov
new file mode 100644
index 0000000..9ae11b9
--- /dev/null
+++ b/vorlesungen/slides/7/images/commutator.pov
@@ -0,0 +1,59 @@
+//
+// commutator.pov
+//
+// (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
+//
+#include "common.inc"
+
+sphere { O, 0.99
+	pigment {
+		color rgbt<1,1,1,0.5>
+	}
+	finish {
+		specular 0.9
+		metallic
+	}
+}
+
+#declare filename = concat("f/", str(clock, -4, 0), ".inc");
+
+#include filename
+
+#declare n1 = vcross(<0,1,0>, finalXY);
+#declare n2 = vcross(<0,1,0>, finalYX);
+
+intersection {
+	sphere { O, 1 }
+	plane { -n1, 0 }
+	plane { n2, 0 }
+	pigment {
+		color rgb<0,0.4,0.1>
+	}
+	finish {
+		specular 0.9
+		metallic
+	}
+}
+
+union {
+        XYkurve()
+        pigment {
+                color Red
+        }
+	finish {
+		specular 0.9
+		metallic
+	}
+}
+
+union {
+        YXkurve()
+        pigment {
+                color Blue
+        }
+	finish {
+		specular 0.9
+		metallic
+	}
+}
+
-- 
cgit v1.2.1