------------------------------------------------------------------ -- -- NAME: TEK_OUTPUT_PRIMITIVES -- DISCREPANCY REPORTS: -- Not listed ------------------------------------------------------------------ -- FILE : TEK_OUT_PRIM_MA.ADA -- LEVEL : MA, 0A, 1A, 2A, MB, 0B, 1B, 2B -- PACKAGE BODY LEVELS ARE DIFFERENT with CGI; with GKS_TYPES; with WS_STATE_LIST_TYPES; use CGI; use GKS_TYPES; package TEK_OUTPUT_PRIMITIVES is -- This package contains four output primitive procedures -- for the Tektronix output device. procedure POLYLINE (WS_SL : WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; LINE_POINTS : ACCESS_POINT_ARRAY_TYPE); procedure POLYMARKER (WS_SL : WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; MARKER_POINTS : ACCESS_POINT_ARRAY_TYPE); procedure FILL_AREA (WS_SL : WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; FILL_AREA_POINTS : ACCESS_POINT_ARRAY_TYPE); procedure TEXT (WS_SL : WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; TEXT_POSITION : NDC.POINT; TEXT_STRING : ACCESS_STRING_TYPE); end TEK_OUTPUT_PRIMITIVES;