### Curve Routines.

#### curvebasis(basis)

Define a basis matrix for a curve.

```    Fortran:
subroutine curvebasis(basis)
real basis(4,4)
C:
curvebasis(basis)
float     basis[4][4];

Pascal:
procedure CurveBasis(basis: Matrix44_t)
```

#### curveprecision(nsegs)

Define the number of line segments used to draw a curve.

```    Fortran:
subroutine curveprecision(nsegs)
integer nsegs
C:
curveprecision(nsegs)
int  nsegs;

Pascal:
procedure CurvePrecision(nsegs: integer)
```

#### rcurve(geom)

Draw a rational curve.

```    Fortran:
subroutine rcurve(geom)
real geom(4,4)
C:
rcurve(geom)
float     geom[4][4];

Pascal:
procedure Rcurve(geom: Matrix44_t)
```

#### curve(geom)

Draw a curve.

```    Fortran:
subroutine curve(geom)
real geom(3,4)
C:
curve(geom)
float     geom[4][3];

Pascal:
procedure Curve(geom: Matrix43_t)
```

#### curven(n, geom)

Draw n - 3 overlapping curve segments. Note: n must be at least 4.

```    Fortran:
subroutine curven(n, geom)
integer n
real geom(3,n)
C:
curven(n, geom)
int  n;
float     geom[][3];

Pascal:
procedure Curven(n: integer; geom: GeomMat_t)
```