------------------------------------------------------------------
--
--  NAME: SEGMENT_ATTRIBUTES
--  DISCREPANCY REPORTS:
--
------------------------------------------------------------------
-- file: SEG_ATTR.ADA
-- level: 1a, 2a

with GKS_TYPES;

use  GKS_TYPES;

package SEGMENT_ATTRIBUTES is

-- The package SEGMENT_ATTRIBUTES contains procedures that set
-- segment attributes.

   procedure SET_SEGMENT_TRANSFORMATION
      (SEGMENT        : in SEGMENT_NAME;
       TRANSFORMATION : in TRANSFORMATION_MATRIX);

   procedure SET_VISIBILITY
      (SEGMENT    : in SEGMENT_NAME;
       VISIBILITY : in SEGMENT_VISIBILITY);

   procedure SET_HIGHLIGHTING
      (SEGMENT      : in SEGMENT_NAME;
       HIGHLIGHTING : in SEGMENT_HIGHLIGHTING);

   procedure SET_SEGMENT_PRIORITY
      (SEGMENT  : in SEGMENT_NAME;
       PRIORITY : in SEGMENT_PRIORITY);

end SEGMENT_ATTRIBUTES;