------------------------------------------------------------------ -- -- NAME: CGM_ELEMENTS_PICTURE_DESCRIPTOR -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file : CGM_EL_PICT_DSCRT.ADA -- level : 0a with CGM_STANDARD_TYPES; use CGM_STANDARD_TYPES; package CGM_ELEMENTS_PICTURE_DESCRIPTOR is -- This package contains a procedure to encode and write each of the -- Picture Descriptor Elements: Class 2. -- Some of these procedures are only "hooks" for future use. -- NOTE: Picture desc. elements can be parameters for the METAFILE -- DEFAULTS REPLACEMENT element which must know how many octets -- (bytes) are required to encode the element BEFORE the element -- is written to the CGM. The OUTPUT_ELEMENT parameter supports -- this requirement. See the comment provided with the -- BINARY_ENCODED_ELEMENT_LENGTH object in the CGM_GEN_STATE for -- a full explaination of its use. ----------------------------------------------------------------------- procedure CGM_SCALING_MODE (MODE : in SCALING_MODE; SCALE_FACTOR : in METRIC_SCALE_FACTOR; OUTPUT_ELEMENT : in OUTPUT_ELEMENT_TYPE := YES); -- CGM_SCALING_MODE encodes the CGM_SCALING_MODE element. -- This element may be between the BEGIN PICTURE and the BEGIN -- PICTURE BODY element. The element has two parameters. The -- first specifies if VDC space will be abstract space, which -- may be mapped to an arbitrary size on a physical device, or -- metric space, which is intended to be mapped to a particular -- size. -- The second parameter contains the metric scaling factor -- (a real number) and is only valid when the first parameter -- specifies metric space. -- This generator only supports abstract space which is -- the ANSI X3.122-1986 clause 6 default). ----------------------------------------------------------------------- procedure CGM_COLOUR_SELECTION_MODE (MODE : in COLOUR_SELECTION_MODE; OUTPUT_ELEMENT : in OUTPUT_ELEMENT_TYPE := YES); -- CGM_COLOUR_SELECTION_MODE encodes the CGM COLOUR SELECTION -- MODE element. This element may be between the BEGIN PICTURE -- and the BEGIN PICTURE BODY element. The element has one -- parameter which specifies how colours will be selected; either -- indexed or direct. Indexed specifies an index into a colour -- table while direct provides the RED, GREEN, and BLUE additive -- colour intensities. -- This generator only supports indexed which is -- the ANSI X3.122-1986 clause 6 default. ----------------------------------------------------------------------- procedure CGM_LINE_WIDTH_SPECIFICATION_MODE (MODE : in LINE_WIDTH_SPEC_MODE; OUTPUT_ELEMENT : in OUTPUT_ELEMENT_TYPE := YES); -- CGM_LINE_WIDTH_SPECIFICATION_MODE encodes the CGM LINE WIDTH -- SPECIFICATION MODE element. This element may be between the -- BEGIN PICTURE and the BEGIN PICTURE BODY element. The element -- has one parameter which specifies if the mode is absolute or -- scaled. Absolute mode means that values subsequently read from -- the file are tied to the VDC EXTENT while scaled means the -- values are a scale factor to be applied. -- This generator only supports scaled which is -- the ANSI X3.122-1986 clause 6 default. ----------------------------------------------------------------------- procedure CGM_MARKER_SIZE_SPECIFICATION_MODE (MODE : in MARKER_SIZE_SPEC_MODE; OUTPUT_ELEMENT : in OUTPUT_ELEMENT_TYPE := YES); -- CGM_MARKER_SIZE_SPECIFICATION_MODE encodes the CGM MARKER -- SIZE SPECIFICATION MODE element. -- This element may be between the BEGIN PICTURE and the -- BEGIN PICTURE BODY element. The element has one parameter -- which specifies if the mode is absolute or scaled. Absolute -- mode means that values subsequently read from the file are -- tied to the VDC EXTENT while scaled means the values are a -- scale factor to be applied. This generator only supports -- scaled which is the ANSI X3.122-1986 clause 6 default. ----------------------------------------------------------------------- procedure CGM_EDGE_WIDTH_SPECIFICATION_MODE (MODE : in EDGE_WIDTH_SPEC_MODE; OUTPUT_ELEMENT : in OUTPUT_ELEMENT_TYPE := YES); -- CGM_EDGE_WIDTH_SPECIFICATION_MODE encodes the CGM EDGE -- WIDTH_SPECIFICATION MODE element. -- This element may be between the BEGIN PICTURE and the -- BEGIN PICTURE BODY element. The element has one parameter -- which specifies if the mode is absolute or scaled. Absolute -- mode means that values subsequently read from the file are -- tied to the VDC EXTENT while scaled means the values are a -- scale factor to be applied. This generator only supports -- scaled which is the ANSI X3.122-1986 clause 6 default. ----------------------------------------------------------------------- procedure CGM_VDC_EXTENT (LOWER_LEFT : in VDC_COORDINATE.POINT; UPPER_RIGHT : in VDC_COORDINATE.POINT; OUTPUT_ELEMENT : in OUTPUT_ELEMENT_TYPE := YES); -- CGM_VDC_EXTENT encodes the CGM_VDC_EXTENT element. -- This element may be between the BEGIN PICTURE and the -- BEGIN PICTURE BODY element. The element has two -- parameters each of which are points (a point being an -- X and Y coordinate). The first parameter is the -- lower-left corner and the second is the upper-right -- corner of the VDC space which can contain a visible -- image. ----------------------------------------------------------------------- procedure CGM_BACKGROUND_COLOUR (DIRECT_COLOUR : in COLOUR_DIRECT; OUTPUT_ELEMENT : in OUTPUT_ELEMENT_TYPE := YES); -- CGM_BACKGROUND_COLOUR encodes the CGM BACKGROUND COLOUR -- element. This element may be between the BEGIN PICTURE -- and the BEGIN PICTURE BODY element. The element has one -- parameter consisting of a RED, GREEN, and BLUE intensitiy -- value (a direct colour value regardless of the current -- value of the COLOUR SELECTION MODE). ------------------------------------------------------------------------ end CGM_ELEMENTS_PICTURE_DESCRIPTOR;