summaryrefslogtreecommitdiff
path: root/Build/source/utils/asymptote/examples/wedge.asy
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
committerKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
commitad547a6b5986815fda458221149728d9d9ab1d87 (patch)
tree16296910eb3eca724371474ea9aea3994dc69614 /Build/source/utils/asymptote/examples/wedge.asy
parent947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (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.asy23
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);