diff options
Diffstat (limited to 'Build/source/utils/asymptote/examples/Klein.asy')
-rw-r--r-- | Build/source/utils/asymptote/examples/Klein.asy | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Build/source/utils/asymptote/examples/Klein.asy b/Build/source/utils/asymptote/examples/Klein.asy new file mode 100644 index 00000000000..ba3bccd87e9 --- /dev/null +++ b/Build/source/utils/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); |