with A83_014_Vector; use A83_014_Vector;

     package DOS_011_Plot is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     Copyright : constant string :=
       "DOS_011_Plot v1.00 (C) 1994 David Wallace Croft.  "
       & "All rights reserved.";
     Description : constant string :=
       "Simple XY plot procedure.";
     ----------------------------------------------------------------------
     procedure Demo;
     procedure Plot_XY (
       X_Data : in     Vector_Type;
       Y_Data : in     Vector_Type;
       Symbol : in     character := 'o';
       Adjust : in     boolean := true;
       X_Min  : in     float   := 0.0;
       X_Max  : in     float   := 1.0;
       Y_Min  : in     float   := 0.0;
       Y_Max  : in     float   := 1.0 );
     procedure Translate (
       X_New :    out natural;
       Y_New :    out natural;
       X_Old : in     float;
       Y_Old : in     float;
       X_Min : in     float :=  0.0;
       X_Max : in     float :=  1.0;
       Y_Min : in     float :=  0.0;
       Y_Max : in     float :=  1.0 );
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end DOS_011_Plot;