diff options
author | Andreas Müller <andreas.mueller@ost.ch> | 2022-01-03 16:56:27 +0100 |
---|---|---|
committer | Andreas Müller <andreas.mueller@ost.ch> | 2022-01-03 16:56:27 +0100 |
commit | 1ed828da721157115f5620c23b15662a2fb0de05 (patch) | |
tree | 50e817322c6c1499d08d9da9ec282d02fc2db2c6 /buch/chapters/030-geometrie/images/kegelschnitte.pov | |
parent | Abbildung kegelschnitte (diff) | |
download | SeminarSpezielleFunktionen-1ed828da721157115f5620c23b15662a2fb0de05.tar.gz SeminarSpezielleFunktionen-1ed828da721157115f5620c23b15662a2fb0de05.zip |
Mantellinien zur Kegelschnittgraphik
Diffstat (limited to '')
-rw-r--r-- | buch/chapters/030-geometrie/images/kegelschnitte.pov | 46 |
1 files changed, 45 insertions, 1 deletions
diff --git a/buch/chapters/030-geometrie/images/kegelschnitte.pov b/buch/chapters/030-geometrie/images/kegelschnitte.pov index 60e6964..6b6388b 100644 --- a/buch/chapters/030-geometrie/images/kegelschnitte.pov +++ b/buch/chapters/030-geometrie/images/kegelschnitte.pov @@ -13,6 +13,7 @@ global_settings { #declare imagescale = 0.090; #declare r = 0.03; #declare R = 1.3 * r; +#declare rkurve = 0.6 * r; camera { location <-33, 20, 50> @@ -77,6 +78,7 @@ union { #declare kurvenfarbe = rgb<0.4,0.8,0>; #declare leitfarbe = rgb<0.8,0.2,0.8>; #declare ebenenfarbe = rgbt<0.6,0.4,0.2,0.0>; +#declare mantelfarbe = rgb<0.2,0.6,1.0>; #declare kegelhoehe = 3; #declare kegelradius = 1.4; @@ -150,6 +152,32 @@ intersection { } } +#declare ymantel = kegelradius - 1; +#declare xmantel = sqrt(kegelradius*kegelradius-ymantel*ymantel); + +union { + cylinder { + <3+xmantel,-kegelhoehe,ymantel>, + <3-xmantel,kegelhoehe,-ymantel>, + 0.5 * rkurve + } + sphere { <3+xmantel,-kegelhoehe,ymantel>, 0.5 * rkurve } + sphere { <3-xmantel,kegelhoehe,-ymantel>, 0.5 * rkurve } + cylinder { + <3-xmantel,-kegelhoehe,ymantel>, + <3+xmantel,kegelhoehe,-ymantel>, + 0.5 * rkurve + } + sphere { <3-xmantel,-kegelhoehe,ymantel>, 0.5 * rkurve } + sphere { <3+xmantel,kegelhoehe,-ymantel>, 0.5 * rkurve } + pigment { + color mantelfarbe + } + finish { + specular 0.5 + metallic + } +} #declare e3 = <0, 1, 0>; #declare tunten = -offsethyperbel / vdot(nparabel-nhyperbel, e3); @@ -185,7 +213,6 @@ intersection { Origin + (-a * cosh(s) * xaxis + b * sinh(s) * yaxis) #end -#declare rkurve = 0.6 * r; // Hyperbel union { @@ -279,6 +306,23 @@ intersection { } } +union { + cylinder { + <0,-kegelhoehe,kegelradius>, + <0,kegelhoehe,-kegelradius>, + 0.5 * rkurve + } + sphere { <0,-kegelhoehe,kegelradius>, 0.5 * rkurve } + sphere { <0,kegelhoehe,-kegelradius>, 0.5 * rkurve } + pigment { + color mantelfarbe + } + finish { + specular 0.5 + metallic + } +} + ebene(0, nparabel, offsetparabel, 0.5) #declare tcenter = 0.5 * offsetparabel / vdot(nparabel, e3); |