From 5a5ed51adcf876db905825989f564b51d622c0dd Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 9 Jun 2009 00:38:32 +0000 Subject: asy doc, tlpsrc patterns git-svn-id: svn://tug.org/texlive/trunk@13675 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/doc/asymptote/examples/Klein.asy | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 Master/texmf/doc/asymptote/examples/Klein.asy (limited to 'Master/texmf/doc/asymptote/examples/Klein.asy') diff --git a/Master/texmf/doc/asymptote/examples/Klein.asy b/Master/texmf/doc/asymptote/examples/Klein.asy new file mode 100644 index 00000000000..ba3bccd87e9 --- /dev/null +++ b/Master/texmf/doc/asymptote/examples/Klein.asy @@ -0,0 +1,19 @@ +import graph3; + +size(200,0); +currentprojection=perspective(40,-100,40); + +// From http://local.wasp.uwa.edu.au/~pbourke/surfaces_curves/klein/ +triple f(pair t) { + real u=t.x; + real v=t.y; + real r=4*(1-cos(u)/2); + real x=6*cos(u)*(1+sin(u))+(u < pi ? r*cos(u)*cos(v) : r*cos(v+pi)); + real y=16*sin(u)+(u < pi ? r*sin(u)*cos(v) : 0); + real z=r*sin(v); + return (x,y,z); +} + +pen p=rgb(0.2,0.5,0.7); + +draw(surface(f,(0,0),(2pi,2pi),60,60),lightgray,meshpen=p); -- cgit v1.2.3