asy doc, tlpsrc patterns

git-svn-id: svn://tug.org/texlive/trunk@13675 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 24 insertions, 0 deletions

diff --git a/Master/texmf/doc/asymptote/examples/floatingdisk.asy b/Master/texmf/doc/asymptote/examples/floatingdisk.asy
new file mode 100644
index 00000000000..2e99ec9c2c1
--- /dev/null
+++ b/Master/texmf/doc/asymptote/examples/floatingdisk.asy
@@ -0,0 +1,24 @@
+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); 
+ 
+path waterline=tremble(addnodes(pA..pB,1),angle=10,frequency=0.1,random=50); 
+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,Fill(white)));