--======================================================================
--
--     Contours.ads
--
--     CONREC is a contouring subroutine for rectangularily spaced data.
--
--     It emits calls to a line drawing subroutine supplied by the user
--     which draws a contour map corresponding to Float*4data on a randomly
--     spaced rectangular grid. The coordinates emitted are in the same
--     units given in the x() and y() arrays.
--
--     Any number of contour levels may be specified but they must be
--     in order of increasing value.
--
--     procedure conrec(d,x,y,z)
--       d: matrix of data to contour
--       x: data matrix column coordinates
--       y: data matrix row coordinates
--       z: contour levels in increasing order
--
--       vecout: user-defined line drawing procedure, of the form
--               ( x1, y1, x2, y2, z: float );
--
--     There is often the requirement to distinguish each contour
--     line with a different colour or a different line style. This
--     can be done in many ways using the contour values z for a
--     particular line segment.
--
--     Author: Paul D. Bourke
--     Ada version: 23.I.1999, Gautier.deMontmollin@Maths.UniNe.CH
--
--======================================================================

generic

with procedure vecout ( x1, y1, x2, y2, z: float ); -- user-defined

package Contours is

   type contour_data is array( integer range<>, integer range<> ) of float;
   type contour_pos is array( integer range<> ) of float;
   type contour_level is array( integer range<> ) of float;

   procedure ConRec (d   : contour_data;
                     x,y : contour_pos;
                     z   : contour_level);

end;