------------------------------------------------------------------ -- -- NAME: WS_TRANSFORMATION -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file: ws_xform.ada -- level: all levels with GKS_TYPES; use GKS_TYPES; package WS_TRANSFORMATION is -- This package provides the procedures for calling the -- workstation manager to do the workstation transformations. procedure SET_WS_WINDOW (WS : in WS_ID; WS_WINDOW_LIMITS : in NDC.RECTANGLE_LIMITS); procedure SET_WS_VIEWPORT (WS : in WS_ID; WS_VIEWPORT_LIMITS : in DC.RECTANGLE_LIMITS); end WS_TRANSFORMATION;