test/gen/basin.cal

{ RCSid $Id$ }
{
        basin.cal - calculate coordinates for basin sink.
}

sq(x) : x*x;

R(t,p) : 5 + (3.25*sq(cos(p))+1.75*sq(sin(p))+1*sin(p)*sq(cos(t)))*sq(sin(t));

x(t,p) : R(t,p)*sin(t)*cos(p);
y(t,p) : R(t,p)*sin(t)*sin(p);
z(t,p) : R(t,p)*cos(t);

theta(s) : PI*(.5+.5*s);
phi(t) : 2*PI*t;
Revision:	1.1
Committed:	Tue Jan 8 23:53:04 2019 UTC (6 years, 9 months ago) by greg
Branch:	MAIN
CVS Tags:	rad6R0, rad5R4, rad5R3, HEAD
Log Message:	Added tests for genbox genprism genrev gensurf and genworm
#	User	Rev	Content
1	greg	1.1	{ RCSid $Id$ }
2			{
3			basin.cal - calculate coordinates for basin sink.
4			}
5
6			sq(x) : x*x;
7
8			R(t,p) : 5 + (3.25sq(cos(p))+1.75sq(sin(p))+1sin(p)sq(cos(t)))*sq(sin(t));
9
10			x(t,p) : R(t,p)sin(t)cos(p);
11			y(t,p) : R(t,p)sin(t)sin(p);
12			z(t,p) : R(t,p)*cos(t);
13
14			theta(s) : PI(.5+.5s);
15			phi(t) : 2PIt;