diff options
author | Karl Berry <karl@freefriends.org> | 2009-06-09 00:38:32 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-06-09 00:38:32 +0000 |
commit | 5a5ed51adcf876db905825989f564b51d622c0dd (patch) | |
tree | e735ac11e0f5fa09d2ef7c8992654fb5ff98b39e /Master/texmf/doc/asymptote/examples/Klein.asy | |
parent | fa0e85e77e9560d371aa26d0ddc1500c4c050e16 (diff) |
asy doc, tlpsrc patterns
git-svn-id: svn://tug.org/texlive/trunk@13675 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/doc/asymptote/examples/Klein.asy')
-rw-r--r-- | Master/texmf/doc/asymptote/examples/Klein.asy | 19 |
1 files changed, 19 insertions, 0 deletions
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); |