summaryrefslogtreecommitdiff
path: root/Master/texmf/doc/asymptote/examples/parametricsurface.asy
blob: d020bbe6e7ffb4b0f3811cf7e073bb89b5d8d4c0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
import graph3;

size(200,0);
currentprojection=orthographic(4,0,2);

real R=2;
real a=1.9;

triple f(pair t) {
  return ((R+a*cos(t.y))*cos(t.x),(R+a*cos(t.y))*sin(t.x),a*sin(t.y));
}

pen p=rgb(0.2,0.5,0.7);

// surface only
//draw(surface(f,(0,0),(2pi,2pi),30,15));

// mesh only
//draw(surface(f,(0,0),(2pi,2pi),30,15),nullpen,meshpen=p);

// surface & mesh
draw(surface(f,(0,0),(2pi,2pi),30,15),lightgray,meshpen=p);