------------------------------------------------------------------ -- -- NAME: WSR_SET_PRIMITIVE_ATTRIBUTES_0A - BODY -- DISCREPANCY REPORTS: ------------------------------------------------------------------ -- file: WSR_SET_PRIM_0A_B.ADA -- level: 0a,1a,2a,0b,1b,2b,0c,1c,2c package body WSR_SET_PRIMITIVE_ATTRIBUTES_0A is -- The attribute entry in the workstation state list accessed by -- the pointer WS_STATE_LIST is set to the specified value in -- each procedure. procedure SET_TEXT_PATH (WS_STATE_LIST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; PATH : in TEXT_PATH) is -- The workstation state list is accessed by the pointer -- WS_STATE_LIST. The attribute field of the workstation -- state list is set to the specified value. -- -- The parameters to this procedure are used as follows: -- -- WS_STATE_LIST - a pointer to the workstation state list. -- PATH - the value of the text path being set in the -- workstation state list. begin WS_STATE_LIST.OUTPUT_ATTR.CURRENT_TEXT_PATH := PATH; end SET_TEXT_PATH; procedure SET_PATTERN_SIZE (WS_STATE_LIST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; PATTERN_HEIGHT_VECTOR : in NDC.VECTOR; -- DR019 PATTERN_WIDTH_VECTOR : in NDC.VECTOR) is -- DR019 -- The workstation state list is accessed by the pointer -- WS_STATE_LIST. The pattern width vector and pattern -- height vector fields of the workstation state list -- are set to the specified values in PATTERN_HEIGHT_VECTOR and -- DR019 -- PATTERN_WIDTH_VECTOR. -- DR019 -- -- The parameters in this procedure are used as follows: -- -- WS_STATE_LIST - a pointer to the workstation state list. -- PATTERN_HEIGHT_VECTOR - the pattern height vector to be set -- DR019 -- in the workstation state list. -- DR019 -- PATTERN_WIDTH_VECTOR - the pattern width vector to be set -- DR019 -- in the workstation state list. -- DR019 begin WS_STATE_LIST.OUTPUT_ATTR.CURRENT_PATTERN_WIDTH_VECTOR := -- DR019 PATTERN_WIDTH_VECTOR; -- DR019 WS_STATE_LIST.OUTPUT_ATTR.CURRENT_PATTERN_HEIGHT_VECTOR := -- DR019 PATTERN_HEIGHT_VECTOR; -- DR019 end SET_PATTERN_SIZE; procedure SET_PATTERN_REFERENCE_POINT (WS_STATE_LIST : in out WS_STATE_LIST_TYPES.WS_STATE_LIST_PTR; POINT : in NDC.POINT) is -- The workstation state list is accessed by the pointer -- WS_STATE_LIST. The pattern reference point field of the -- workstation state list is set to the specified value in POINT. -- -- The parameters in this procedure are used as follows: -- -- WS_STATE_LIST - a pointer to the workstation state list. -- POINT - the pattern reference point to be set in the -- workstation state list. begin WS_STATE_LIST.OUTPUT_ATTR.CURRENT_PATTERN_REFERENCE_POINT := POINT; end SET_PATTERN_REFERENCE_POINT; end WSR_SET_PRIMITIVE_ATTRIBUTES_0A;