------------------------------------------------------------------ -- -- NAME: TEK_COLOUR_OPERATIONS -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- FILE: TEK_CLR_OPS.ADA -- PACKAGE SPECIFICATION for LEVEL: MA, 0A, 1A, 2A, MB, 0B, 1B, 2B with GKS_TYPES; with WS_STATE_LIST_TYPES; use GKS_TYPES; package TEK_COLOUR_OPERATIONS is -- This package contains a procedure that sets the colour values for the -- colour lookup table. procedure SET_COLOUR_REPRESENTATION (WS_SL : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; INDEX : COLOUR_INDEX; COLOUR : COLOUR_REPRESENTATION; ERROR : out ERROR_NUMBER); end TEK_COLOUR_OPERATIONS;