File: plot_a.xp

package info (click to toggle)
epix 1.2.22-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,256 kB
  • sloc: cpp: 16,847; sh: 5,054; makefile: 159; lisp: 6
file content (27 lines) | stat: -rw-r--r-- 407 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
/* -*-ePiX-*- */
#include "epix.h"
using namespace ePiX;
P f(double u, double v)
{
  double x=u*Cos(v), y=u*Sin(v);
  //  return P(x, y, 0.25*x*(x*x-3*y*y));
  return P(x, y, x*y);
}

domain R(P(0,0), P(1,1), mesh(6, 20), mesh(6, 20));

int main() 
{
  bounding_box(P(-1,-1),P(1,1));
  unitlength("1in");
  picture(1.5,1.5);

  begin();
  revolutions();

  camera.at(P(3, 1, 3));

  plot(f, R);

  end();
}