------------------------------------------------------------------
--
--  NAME: SET_BUNDLE_REPRESENTATION
--  DISCREPANCY REPORTS:
--
------------------------------------------------------------------
-- file: SET_BUNDLE_REP.ADA
-- level: 1a, 2a

with GKS_TYPES;

use  GKS_TYPES;

package SET_BUNDLE_REPRESENTATION is

-- The package SET_BUNDLE_REPRESENTATION contains procedures that
-- set the various bundle representations.

   procedure SET_POLYLINE_REPRESENTATION
      (WS             : in WS_ID;
       INDEX          : in POLYLINE_INDEX;
       TYPE_OF_LINE   : in LINETYPE;
       WIDTH          : in LINEWIDTH;
       COLOUR         : in COLOUR_INDEX);

   procedure SET_POLYMARKER_REPRESENTATION
      (WS             : in WS_ID;
       INDEX          : in POLYMARKER_INDEX;
       TYPE_OF_MARKER : in MARKER_TYPE;
       SIZE           : in MARKER_SIZE;
       COLOUR         : in COLOUR_INDEX);


   procedure SET_TEXT_REPRESENTATION
      (WS             : in WS_ID;
       INDEX          : in TEXT_INDEX;
       FONT_PRECISION : in TEXT_FONT_PRECISION;
       EXPANSION      : in CHAR_EXPANSION;
       SPACING        : in CHAR_SPACING;
       COLOUR         : in COLOUR_INDEX);

   procedure SET_FILL_AREA_REPRESENTATION
      (WS       : in WS_ID;
       INDEX    : in FILL_AREA_INDEX;
       INTERIOR : in INTERIOR_STYLE;
       STYLE    : in STYLE_INDEX;
       COLOUR   : in COLOUR_INDEX);

   procedure SET_PATTERN_REPRESENTATION
      (WS      : in WS_ID;
       INDEX   : in PATTERN_INDEX;
       PATTERN : in COLOUR_MATRIX);

end SET_BUNDLE_REPRESENTATION;