From b04c2e1a42573e9735547702356c7b9a769a6855 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 7 Apr 2013 18:26:53 +0000 Subject: texmf -> texmf-dist: doc git-svn-id: svn://tug.org/texlive/trunk@29714 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/asymptote/examples/floatingdisk.asy | 26 ++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 Master/texmf-dist/doc/asymptote/examples/floatingdisk.asy (limited to 'Master/texmf-dist/doc/asymptote/examples/floatingdisk.asy') diff --git a/Master/texmf-dist/doc/asymptote/examples/floatingdisk.asy b/Master/texmf-dist/doc/asymptote/examples/floatingdisk.asy new file mode 100644 index 00000000000..be8b339767d --- /dev/null +++ b/Master/texmf-dist/doc/asymptote/examples/floatingdisk.asy @@ -0,0 +1,26 @@ +import trembling; +settings.outformat="pdf"; +size(6cm,0); + +real R=1/5; +real h=0.5; +real d=1/12; +real l=.7; + +pair pA=(-l,0); +pair pB=(l,0); + +tremble tr=tremble(angle=10,frequency=0.1,random=50,fuzz=1); +path waterline=tr.deform(pA..pB); + +path disk=shift(0,-d)*scale(R)*unitcircle; +path water=waterline--(l,-h)--(-l,-h)--(-l,0)--cycle; +path container=(l,1/7)--(l,-h)--(-l,-h)--(-l,1/7); + +filldraw(disk,red,linewidth(.3)); +fill(water,mediumgrey+opacity(0.5)); +draw(waterline); + +draw(container,linewidth(1.5)); + +shipout(bbox(2mm)); -- cgit v1.2.3