From 2db90bfe4b174570424c408f04000902411d8755 Mon Sep 17 00:00:00 2001 From: Joshua Baer Date: Mon, 12 Apr 2021 21:51:55 +0200 Subject: update to current state of book --- buch/chapters/60-gruppen/images/torus.pov | 378 +++++++++++++++--------------- 1 file changed, 189 insertions(+), 189 deletions(-) (limited to 'buch/chapters/60-gruppen/images/torus.pov') diff --git a/buch/chapters/60-gruppen/images/torus.pov b/buch/chapters/60-gruppen/images/torus.pov index 3a8e327..ee09c36 100644 --- a/buch/chapters/60-gruppen/images/torus.pov +++ b/buch/chapters/60-gruppen/images/torus.pov @@ -1,189 +1,189 @@ -// -// diffusion.pov -// -// (c) 2021 Prof Dr Andreas Müller, OST Ostscheizer Fachhochschule -// -#version 3.7; -#include "colors.inc" - -global_settings { - assumed_gamma 1 -} - -#declare imagescale = 0.034; -#declare N = 100; -#declare r = 0.43; -#declare R = 1; - -camera { - location <43, 25, -20> - look_at <0, -0.01, 0> - right 16/9 * x * imagescale - up y * imagescale -} - -light_source { - <10, 20, -40> color White - area_light <1,0,0> <0,0,1>, 10, 10 - adaptive 1 - jitter -} - -sky_sphere { - pigment { - color rgb<1,1,1> - } -} - -#macro rotiere(phi, vv) - < cos(phi) * vv.x - sin(phi) * vv.z, vv.y, sin(phi) * vv.x + cos(phi) * vv.z > -#end - -#macro punkt(phi,theta) - rotiere(phi, < R + r * cos(theta), r * sin(theta), 0 >) -#end - -mesh { - #declare phistep = 2 * pi / N; - #declare thetastep = 2 * 2 * pi / N; - #declare phi = 0; - #while (phi < 2 * pi - phistep/2) - #declare theta = 0; - #while (theta < 2 * pi - thetastep/2) - triangle { - punkt(phi , theta ), - punkt(phi + phistep, theta ), - punkt(phi + phistep, theta + thetastep) - } - triangle { - punkt(phi , theta ), - punkt(phi + phistep, theta + thetastep), - punkt(phi , theta + thetastep) - } - #declare theta = theta + thetastep; - #end - #declare phi = phi + phistep; - #end - pigment { - color Gray - } - finish { - specular 0.9 - metallic - } -} - -#declare thetastart = -0.2; -#declare thetaend = 1.2; -#declare phistart = 5; -#declare phiend = 6; - -union { - #declare thetastep = 0.2; - #declare theta = thetastart; - #while (theta < thetaend + thetastep/2) - #declare phistep = (phiend-phistart)/N; - #declare phi = phistart; - #while (phi < phiend - phistep/2) - sphere { punkt(phi,theta), 0.01 } - cylinder { - punkt(phi,theta), - punkt(phi+phistep,theta), - 0.01 - } - #declare phi = phi + phistep; - #end - sphere { punkt(phi,theta), 0.01 } - #declare theta = theta + thetastep; - #end - - pigment { - color Red - } - finish { - specular 0.9 - metallic - } -} - -union { - #declare phistep = 0.2; - #declare phi = phistart; - #while (phi < phiend + phistep/2) - #declare thetastep = (thetaend-thetastart)/N; - #declare theta = thetastart; - #while (theta < thetaend - thetastep/2) - sphere { punkt(phi,theta), 0.01 } - cylinder { - punkt(phi,theta), - punkt(phi,theta+thetastep), - 0.01 - } - #declare theta = theta + thetastep; - #end - sphere { punkt(phi,theta), 0.01 } - #declare phi = phi + phistep; - #end - pigment { - color Blue - } - finish { - specular 0.9 - metallic - } -} - -#macro punkt2(a,b) - punkt(5.6+a*sqrt(3)/2-b/2,0.2+a/2 + b*sqrt(3)/2) -#end - -#declare darkgreen = rgb<0,0.6,0>; - -#declare astart = 0; -#declare aend = 1; -#declare bstart = -0.2; -#declare bend = 1.2; -union { - #declare a = astart; - #declare astep = 0.2; - #while (a < aend + astep/2) - #declare b = bstart; - #declare bstep = (bend - bstart)/N; - #while (b < bend - bstep/2) - sphere { punkt2(a,b), 0.01 } - cylinder { punkt2(a,b), punkt2(a,b+bstep), 0.01 } - #declare b = b + bstep; - #end - sphere { punkt2(a,b), 0.01 } - #declare a = a + astep; - #end - pigment { - color darkgreen - } - finish { - specular 0.9 - metallic - } -} -union { - #declare b = bstart; - #declare bstep = 0.2; - #while (b < bend + bstep/2) - #declare a = astart; - #declare astep = (aend - astart)/N; - #while (a < aend - astep/2) - sphere { punkt2(a,b), 0.01 } - cylinder { punkt2(a,b), punkt2(a+astep,b), 0.01 } - #declare a = a + astep; - #end - sphere { punkt2(a,b), 0.01 } - #declare b = b + bstep; - #end - pigment { - color Orange - } - finish { - specular 0.9 - metallic - } -} +// +// diffusion.pov +// +// (c) 2021 Prof Dr Andreas Müller, OST Ostscheizer Fachhochschule +// +#version 3.7; +#include "colors.inc" + +global_settings { + assumed_gamma 1 +} + +#declare imagescale = 0.034; +#declare N = 100; +#declare r = 0.43; +#declare R = 1; + +camera { + location <43, 25, -20> + look_at <0, -0.01, 0> + right 16/9 * x * imagescale + up y * imagescale +} + +light_source { + <10, 20, -40> color White + area_light <1,0,0> <0,0,1>, 10, 10 + adaptive 1 + jitter +} + +sky_sphere { + pigment { + color rgb<1,1,1> + } +} + +#macro rotiere(phi, vv) + < cos(phi) * vv.x - sin(phi) * vv.z, vv.y, sin(phi) * vv.x + cos(phi) * vv.z > +#end + +#macro punkt(phi,theta) + rotiere(phi, < R + r * cos(theta), r * sin(theta), 0 >) +#end + +mesh { + #declare phistep = 2 * pi / N; + #declare thetastep = 2 * 2 * pi / N; + #declare phi = 0; + #while (phi < 2 * pi - phistep/2) + #declare theta = 0; + #while (theta < 2 * pi - thetastep/2) + triangle { + punkt(phi , theta ), + punkt(phi + phistep, theta ), + punkt(phi + phistep, theta + thetastep) + } + triangle { + punkt(phi , theta ), + punkt(phi + phistep, theta + thetastep), + punkt(phi , theta + thetastep) + } + #declare theta = theta + thetastep; + #end + #declare phi = phi + phistep; + #end + pigment { + color Gray + } + finish { + specular 0.9 + metallic + } +} + +#declare thetastart = -0.2; +#declare thetaend = 1.2; +#declare phistart = 5; +#declare phiend = 6; + +union { + #declare thetastep = 0.2; + #declare theta = thetastart; + #while (theta < thetaend + thetastep/2) + #declare phistep = (phiend-phistart)/N; + #declare phi = phistart; + #while (phi < phiend - phistep/2) + sphere { punkt(phi,theta), 0.01 } + cylinder { + punkt(phi,theta), + punkt(phi+phistep,theta), + 0.01 + } + #declare phi = phi + phistep; + #end + sphere { punkt(phi,theta), 0.01 } + #declare theta = theta + thetastep; + #end + + pigment { + color Red + } + finish { + specular 0.9 + metallic + } +} + +union { + #declare phistep = 0.2; + #declare phi = phistart; + #while (phi < phiend + phistep/2) + #declare thetastep = (thetaend-thetastart)/N; + #declare theta = thetastart; + #while (theta < thetaend - thetastep/2) + sphere { punkt(phi,theta), 0.01 } + cylinder { + punkt(phi,theta), + punkt(phi,theta+thetastep), + 0.01 + } + #declare theta = theta + thetastep; + #end + sphere { punkt(phi,theta), 0.01 } + #declare phi = phi + phistep; + #end + pigment { + color Blue + } + finish { + specular 0.9 + metallic + } +} + +#macro punkt2(a,b) + punkt(5.6+a*sqrt(3)/2-b/2,0.2+a/2 + b*sqrt(3)/2) +#end + +#declare darkgreen = rgb<0,0.6,0>; + +#declare astart = 0; +#declare aend = 1; +#declare bstart = -0.2; +#declare bend = 1.2; +union { + #declare a = astart; + #declare astep = 0.2; + #while (a < aend + astep/2) + #declare b = bstart; + #declare bstep = (bend - bstart)/N; + #while (b < bend - bstep/2) + sphere { punkt2(a,b), 0.01 } + cylinder { punkt2(a,b), punkt2(a,b+bstep), 0.01 } + #declare b = b + bstep; + #end + sphere { punkt2(a,b), 0.01 } + #declare a = a + astep; + #end + pigment { + color darkgreen + } + finish { + specular 0.9 + metallic + } +} +union { + #declare b = bstart; + #declare bstep = 0.2; + #while (b < bend + bstep/2) + #declare a = astart; + #declare astep = (aend - astart)/N; + #while (a < aend - astep/2) + sphere { punkt2(a,b), 0.01 } + cylinder { punkt2(a,b), punkt2(a+astep,b), 0.01 } + #declare a = a + astep; + #end + sphere { punkt2(a,b), 0.01 } + #declare b = b + bstep; + #end + pigment { + color Orange + } + finish { + specular 0.9 + metallic + } +} -- cgit v1.2.1