DIRECTORY IPLimits USING [topFrameSize]; IPVariables: CEDAR DEFINITIONS = BEGIN FrameVariable: TYPE = [0..IPLimits.topFrameSize); ImagerVariableValues: TYPE = MACHINE DEPENDENT { -- see IP82 4 (4.2) DCScpx(0), DCScpy(1), correctMX(2), correctMY(3), T(4), priorityImportant(5), mediumXSize(6), mediumYSize(7), fieldXMin(8), fieldYMin(9), fieldXMax(10), fieldYMax(11), showVec(12), color(13), noImage(14), strokeWidth(15), strokeEnd(16), underlineStart(17), amplifySpace(18), correctPass(19), correctShrink(20), correctTX(21), correctTY(22) }; ImagerVariable: TYPE = ImagerVariableValues[DCScpx..correctTY]; StrokeEndValues: TYPE = MACHINE DEPENDENT { -- see IP82 (4.8.2) square(0), butt(1), round(2) }; StrokeEnd: TYPE = StrokeEndValues[square..round]; END. IPVariables.mesa Last edited by Andy Shore, January 19, 1983 3:29 pm allows symbolic referencing: IPVariables.ImagerVariable[priorityImportant] Change Log Created by Shore; September 16, 1982 11:00 am Changed by Shore; September 24, 1982 2:33 pm added StrokeEnd Changed by Shore; September 26, 1982 1:09 pm added subrange defs for ImagerVariable and StrokeEnd Changed by Shore; November 11, 1982 2:51 pm change to Cedar.Style and added node styles Changed by Shore; January 19, 1983 3:28 pm made module CEDAR, changed node formats ΚQ– "Cedar" style˜headšœ™JšΟc3™3unitšΟk ˜ Jšœ žœ˜——šœ žœž˜&Jšœžœ˜1J˜šœžœžœž œ˜EJ˜J˜Jšžœ˜J˜J˜J˜J˜J˜ J˜ J˜ J˜J˜J˜J˜J˜J˜J˜J˜—J˜šœžœ+˜?JšJ™J—J˜šœžœžœž œ˜?J˜ J˜J˜J˜—J˜Jšœ žœ"˜1J˜Jšžœ˜—šœ ™ J™-J™™,J™—J™™,Jšœ4™4—J™™+J™+—J™™*J™'———…—όk