--------------------------------------------------------------------
--
-- NAME : PIXELS
-- DISCREPANCY REPORTS:
--
--------------------------------------------------------------------
-- file:  pixels.ada
-- level: 0a, 1a, 2a, 0b, 1b, 2b, 0c, 1c, 2c

with GKS_TYPES;

use GKS_TYPES;

package PIXELS is

-- This package provides the procedures for calling the work-
-- station manager to inquire information about pixels.

   procedure INQ_PIXEL_ARRAY_DIMENSIONS
      (WS          : in WS_ID;
      CORNER_1_1   : in WC.POINT;
      CORNER_DX_DY : in WC.POINT;
      ERROR_INDICATOR : out ERROR_NUMBER;
      DIMENSIONS   : out RASTER_UNIT_SIZE);

   procedure INQ_PIXEL_ARRAY
      (WS            : in WS_ID;
      CORNER         : in WC.POINT;
      DX             : in RASTER_UNITS;
      DY             : in RASTER_UNITS;
      ERROR_INDICATOR: out ERROR_NUMBER;
      INVALID_VALUES : out INVALID_VALUES_INDICATOR;
      PIXEL_ARRAY    : out VARIABLE_PIXEL_COLOUR_MATRIX);

   procedure INQ_PIXEL
      (WS             : in WS_ID;
      POINT           : in WC.POINT;
      ERROR_INDICATOR : out ERROR_NUMBER;
      PIXEL_COLOUR    : out PIXEL_COLOUR_INDEX);

end PIXELS;