diff options
author | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
commit | ad547a6b5986815fda458221149728d9d9ab1d87 (patch) | |
tree | 16296910eb3eca724371474ea9aea3994dc69614 /Build/source/utils/asymptote/examples/wedge.asy | |
parent | 947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff) |
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/asymptote/examples/wedge.asy')
-rw-r--r-- | Build/source/utils/asymptote/examples/wedge.asy | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Build/source/utils/asymptote/examples/wedge.asy b/Build/source/utils/asymptote/examples/wedge.asy new file mode 100644 index 00000000000..41b4326cf42 --- /dev/null +++ b/Build/source/utils/asymptote/examples/wedge.asy @@ -0,0 +1,23 @@ +import graph3; +import solids; +size(0,150); +currentprojection=perspective(8,10,2); +currentlight=White; + +draw(circle(O,4,Z)); +draw(shift(-4Z)*scale(4,4,8)*unitcylinder,green+opacity(0.2)); + +triple F(real x){return (x,sqrt(16-x^2),sqrt((16-x^2)/3));} +path3 p=graph(F,0,4,operator ..); +path3 q=reverse(p)--rotate(180,(0,4,4/sqrt(3)))*p--cycle; + +render render=render(merge=true); +draw(surface(q--cycle),red,render); + +real t=2; +path3 triangle=(t,0,0)--(t,sqrt(16-t^2),0)--F(t)--cycle; +draw(surface(triangle),blue,render); + +xaxis3("$x$",Arrow3,PenMargin3(0,0.25)); +yaxis3("$y$",Arrow3,PenMargin3(0,0.25)); +zaxis3("$z$",dashed,Arrow3); |