DIRECTORYButtons USING [Button],Graph USING [BackgroundIndex, Chart, ColorIndex, Controller, Entity, EntityGroup, EntityGroupList, EntityList, GraphHandle, NullRect, NullVec, OutputType, ROPE, SegmentDataList, Text, Texts, ValueList, Viewer, XY],Imager USING [Box, ConstantColor, Rectangle, VEC],ImagerColor USING [RGB],ImagerFont USING [Font];GraphUtil: CEDAR DEFINITIONS = { OPEN Graph;Error: SIGNAL[atom: ATOM, info: ROPE _ NIL];RaiseError: PROC [atom: ATOM, msg: ROPE _ NIL];BlinkMsg: PROC [msg: ROPE _ NIL];HandleNotNil: PROC [handle: GraphHandle, msg: ROPE _ NIL, debug: BOOL _ FALSE] RETURNS [ok: BOOL];ChartNotNil: PROC [chart: Chart, msg: ROPE _ NIL, debug: BOOL _ FALSE] RETURNS [ok: BOOL];ViewerNotNil: PROC [viewer: Viewer, msg: ROPE _ NIL, debug: BOOL _ FALSE] RETURNS [ok: BOOL];GraphViewerExits: PROC [handle: GraphHandle, msg: ROPE _ NIL, debug: BOOL _ FALSE] RETURNS [ok: BOOL];ControllerNotNil: PROC [c: Controller, msg: ROPE _ NIL, debug: BOOL _ FALSE] RETURNS [ok: BOOL];ControllerViewerExits: PROC [handle: GraphHandle, msg: ROPE _ NIL, debug: BOOL _ FALSE] RETURNS [ok: BOOL];BoundsValid: PROC [box: Imager.Box] RETURNS [BOOL];DivisionsValid: PROC [divX, divY: INT] RETURNS [BOOL];RectangleValid: PROC[rect: Imager.Rectangle _ NullRect] RETURNS [BOOL];ColorValueOk: PROC [value: REAL _ 0.0, blinkMsg: BOOL _ TRUE] RETURNS [ok: BOOL _ TRUE];ForegroundColor: PROC [background: BackgroundIndex _ white, output: OutputType _ screen] RETURNS [Imager.ConstantColor];BackgroundColor: PROC [background: BackgroundIndex _ white, output: OutputType _ screen] RETURNS [Imager.ConstantColor];UseMyColors: PROC [handle: GraphHandle];SetColor: PROC [index: ColorIndex _ 0, rgb: ImagerColor.RGB _ [0, 0, 0]] RETURNS [Imager.ConstantColor];UseDefaultColors: PROC [handle: GraphHandle _ NIL];UseCedarColors: PROC [];SetCursorForBackgroundIndex: PROC [bkgnd: BackgroundIndex _ white];UseDefaultFonts: PROC [handle: GraphHandle];UseMyFonts: PROC [handle: GraphHandle];InViewer: PROC [viewer: Viewer, x, y: INTEGER] RETURNS [BOOL];CrossSegment: PROC [xseg, yseg: SegmentDataList, at: REAL] RETURNS [ok: BOOL, v1, v2: Imager.VEC];InterOrExtraPolate: PROC [v1, v2: Imager.VEC, x: REAL] RETURNS [REAL];Crosssection: PROC [xseg, yseg: SegmentDataList, at: REAL] RETURNS [ok: BOOL, value: REAL];RealToScreen: PROC [handle: GraphHandle, r: REAL, xy: XY _ x] RETURNS [REAL];RealToScreenI: PROC [handle: GraphHandle, r: REAL, xy: XY _ x] RETURNS [INTEGER];RealToScreenRel: PROC [handle: GraphHandle, r: REAL, xy: XY _ x] RETURNS [REAL];RealVecToScreenVec: PROC [handle: GraphHandle, vec: Imager.VEC] RETURNS [Imager.VEC];ScreenToReal: PROC [handle: GraphHandle, s: REAL, xy: XY _ x] RETURNS [REAL];ScreenIToReal: PROC [handle: GraphHandle, s: INTEGER, xy: XY _ x] RETURNS [REAL];ScreenIToRealVec: PROC [handle: GraphHandle, sx, sy: INTEGER] RETURNS [Imager.VEC];TextPosToChartPos: PROC [axesRect: Imager.Rectangle, textPos: Imager.VEC] RETURNS [x, y: INTEGER];ChartPosToTextPos: PROC [axesRect: Imager.Rectangle, chartPos: Imager.VEC] RETURNS [textPos: Imager.VEC];TextRect: PROC[text: Text _ NIL, font: ImagerFont.Font _ NIL, axesRect: Imager.Rectangle _ NullRect] RETURNS [rect: Imager.Rectangle _ NullRect, hotPoint: Imager.VEC _ NullVec];SetToggleColor: PROC[switch: Buttons.Button _ NIL, on: BOOL _ TRUE, paint: BOOL _ TRUE] RETURNS [BOOL];SetIntField: PROC [field: Viewer _ NIL, value: INT _ 0];GetIntField: PROC [field: Viewer _ NIL, showMsg: BOOL _ TRUE] RETURNS [msg: ROPE _ NIL, int: INT _ 0];SetRealField: PROC [field: Viewer _ NIL, value: REAL _ 0.0];GetRealField: PROC [field: Viewer _ NIL, showMsg: BOOL _ TRUE] RETURNS [msg: ROPE _ NIL, real: REAL _ 0.0];FullName: PROC [entity: Entity] RETURNS [fullName: ROPE];FontHeight: PROC [font: ImagerFont.Font] RETURNS [height: REAL];RopeSize: PROC [rope: ROPE, font: ImagerFont.Font] RETURNS [width, height: REAL];RemoveTextFromList: PROC [text: Text, texts: Texts];RemoveEntityFromList: PROC [entity: Entity, entityList: EntityList];TextFromId: PROC [texts: Texts, id: INT] RETURNS [text: Text];EntityFromId: PROC [entityList: EntityList, id: INT] RETURNS [entity: Entity];SpecIndexedText: PROC [controller: Controller, texts: Texts] RETURNS [text: Text];SpecIndexedEntity: PROC [controller: Controller, ref: REF ANY _ NIL] RETURNS [entity: Entity];ReverseTexts: PROC [old: Texts, killOld: BOOL _ TRUE] RETURNS [new: Texts];ReverseEntityList: PROC [old: EntityList, killOld: BOOL _ TRUE] RETURNS [new: EntityList];ReverseValueList: PROC [old: ValueList, killOld: BOOL _ TRUE] RETURNS [new, last: ValueList];CopyValueList: PUBLIC PROC [old: ValueList, killOld: BOOL _ TRUE] RETURNS [new, last: ValueList];ReverseSDL: PROC [old: SegmentDataList, killOld: BOOL _ TRUE] RETURNS [new, last: SegmentDataList _ NIL]; -- killOld only "partially" kill the old.InitSegEnd: PROC [entity: Entity];SetSegments: PUBLIC PROC [entity: Entity]; -- called when x and y's segment.end's are intialized.InitSegAll: PROC [entity: Entity];UpdateSegEnd: PROC [entity: Entity, values: ValueList];UpdateSegAll: PROC [entity: Entity, values: ValueList];LengthOfVL: PROC [valueList: ValueList] RETURNS [INT];LengthOfEL: PROC [entityList: EntityList, group: EntityGroup _ NIL] RETURNS [INT];LengthOfSDL: PROC [segmentDataList: SegmentDataList _ NIL] RETURNS [INT];AppendX: PROC [xEntity: Entity, newx: REAL] RETURNS [oldx: REAL];AppendY: PROC [entity: Entity, y, x1, x2: REAL] RETURNS [oldy: REAL];AppendTexts: PROC [first, second: Texts] RETURNS [new: Texts];AppendEntityList: PROC [first, second: EntityList] RETURNS [new: EntityList];AppendEGL: PROC [first, second: EntityGroupList] RETURNS [new: EntityGroupList];NewTextId: PROC [handle: GraphHandle, tryId: INT] RETURNS [newId: INT];NewEntityId: PROC [handle: GraphHandle, tryId: INT] RETURNS [newId: INT];NewGroupId: PROC [handle: GraphHandle, tryId: INT] RETURNS [newId: INT];FileFromSelection: PROC [wDir: ROPE _ NIL] RETURNS [file, msg: ROPE _ NIL];ReplaceFileExt: PROC [file: ROPE, extension: ROPE _ NIL] RETURNS [new: ROPE];WDirOfViewer: PROC [viewer: Viewer] RETURNS [wDir: ROPE _ NIL];HandleFromViewer: PROC [viewer: Viewer _ NIL] RETURNS [GraphHandle];VanillaHandle: PROC [] RETURNS [GraphHandle];Cleanup: PROC [handle: GraphHandle, full: BOOL _ TRUE] RETURNS [GraphHandle];Almost: PROC [p, q: REAL] RETURNS [a: BOOL _ TRUE];DataBounds: PROC [entityList: EntityList, old: Imager.Box] RETURNS [Imager.Box];Print: PROC[handle: GraphHandle, file: ROPE] RETURNS [msg: ROPE _ NIL];NotANumber: PROC [r: REAL] RETURNS [BOOL] = INLINE {RETURN[LOOPHOLE[r, LONG CARDINAL] = 17740000001B]};NotANan: PROC [r: REAL] RETURNS [BOOL] = INLINE {RETURN[LOOPHOLE[r, LONG CARDINAL] # 17740000001B]};}.LOG.SChen, August 14, 1985 7:30:22 pm PDT, created.   ф  GraphUtil.mesa, Copyright c 1985 by Xerox Corporation.  All rights reserved.Last edited:Sweetsun Chen, November 23, 1985 5:57:10 pm PSTChristian Le Cocq April 27, 1987 3:43:11 pm PDTerror checkingcolorshandle must not be nil !!handle can not be nil !! display is not altered.coordinates and coordinates transformationpanel fieldstext and entitykillOld below only "partially" kills the old list.graphMergeGraph: PROC [handle: GraphHandle, graph: GRAPH, paint: BOOL _ TRUE];ReplaceGraph: PROC[handle: GraphHandle, graph: GRAPH, paint: BOOL _ TRUE];stringsviewer, handle, propertiesAddProp: PROC [object: REF ANY, prop: ATOM, val: REF ANY];FetchProp: PROC [object: REF ANY, prop: ATOM] RETURNS [val: REF ANY];miscЭ╩	О  Ш JЪЬ╧mЬ1ЩLЩJЪЬ/Щ/IcodeЩ/ЧЪ╧k	Ш	JЪЬЮЬ
ШJЪЬЮЬРЮЬ3ЮЬШ╓JЪЬЮЬ!ЮЬШ2JЪЬЮЬЮЬШJЪЬЮЬШЧJШ ЪЬЮЬЮЬЮЬШ,JШ ЧЩJЪ	ЬЮЬЮЬЮЬЮЬШ,JЪ
╧n
ЬЮЬЮЬЮЬЮЬШ/JЪЯЬЮЬЮЬЮЬШ!JЪЯЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШbJЪЯЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШZJЪЯЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШ]JЪЯЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШfJЪЯЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШ`JЪЯЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШkJЪЯЬЮЬЮЬЮЬШ3JЪ
ЯЬЮЬЮЬЮЬЮЬШ6JЪЯЬЮЬ$ЮЬЮЬШGJЩ ЧЩJЪЯЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬШXJЪЯЬЮЬDЮЬШxJЪЯЬЮЬDЮЬШxJЪЯЬЮЬШ(JЪЯЬЮЬ*ЮЬЮЬШhJЪЯЬЮЬЮЬШ3JЪЯЬЮЬШJЪЯЬЮЬ"ШCЪЯЬЮЬШ,JЪЬЩЧЪЯ
ЬЮЬШ'JЪЬ0Щ0ЧJШ ЧЩ*JЪ
ЯЬЮЬЮЬЮЬЮЬШ>JЪЯЬЮЬ#ЮЬЮЬЮЬЮЬШbJЪЯЬЮЬЮЬЮЬЮЬЮЬШFJЪЯЬЮЬ#ЮЬЮЬЮЬ	ЮЬШ[JЪЯЬЮЬЮЬЮЬЮЬЮЬШMJЪЯЬЮЬЮЬЮЬЮЬЮЬШQJЪЯЬЮЬЮЬЮЬЮЬЮЬШPJЪ
ЯЬЮЬ#ЮЬЮЬ	ЮЬШUJЪЯЬЮЬЮЬЮЬЮЬЮЬШMJЪЯЬЮЬЮЬЮЬЮЬЮЬШQJЪ
ЯЬЮЬЮЬЮЬ	ЮЬШSJЪ
ЯЬЮЬ.ЮЬЮЬЮЬШbJЪ
ЯЬЮЬ/ЮЬЮЬЮЬШiJЪЯЬЮЬЮЬЮЬ)ЮЬ6ЮЬШ▒JЩ ЧЪЬЩJЪЯЬЮЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШgJЪЯЬЮЬЮЬ	ЮЬШ8JЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШfJЪЯЬЮЬЮЬ	ЮЬШ<JЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШkJШ ЧЩJЪЯЬЮЬЮЬЮЬШ9JЪЯ
ЬЮЬЮЬ
ЮЬШ@JЪ
ЯЬЮЬЮЬЮЬЮЬШQJЪЯЬЮЬШ4JЪЯЬЮЬ*ШDJЪЯ
ЬЮЬЮЬЮЬШ>JЪЯЬЮЬЮЬЮЬШNJЪЯЬЮЬ(ЮЬШRЪЯЬЮЬЮЬЮЬЮЬЮЬШ^JЪЬ2Щ2ЧJЪ
ЯЬЮЬЮЬЮЬЮЬШKJЪ
ЯЬЮЬЮЬЮЬЮЬШZJЪ
ЯЬЮЬЮЬЮЬЮЬШ]JЪЯЬЮЬЮЬЮЬЮЬЮЬШaJЪЯ
ЬЮЬ!ЮЬЮЬЮЬЮЬ╧c)ШУJЪЯ
ЬЮЬШ"JЪЯЬЮЬЮЬа6ШaJЪЯ
ЬЮЬШ"JЪЯЬЮЬ%Ш7JЪЯЬЮЬ%Ш7JЪЯ
ЬЮЬЮЬЮЬШ6JЪ
Я
ЬЮЬ/ЮЬЮЬЮЬШRJЪ
ЯЬЮЬ%ЮЬЮЬЮЬШIJЪ
ЯЬЮЬЮЬЮЬЮЬШAJЪ
ЯЬЮЬЮЬЮЬЮЬШEJЪЯЬЮЬЮЬШ>JЪЯЬЮЬЮЬШMJЪЯ	ЬЮЬ"ЮЬШPJЪ
Я	ЬЮЬЮЬЮЬ	ЮЬШGJЪ
ЯЬЮЬЮЬЮЬ	ЮЬШIJЪ
Я
ЬЮЬЮЬЮЬ	ЮЬШHJШ ЧЩJЪ
Я
ЬЮЬЮЬ	ЮЬЮЬЩIJЪ
ЯЬЮЬЮЬ	ЮЬЮЬЩJJЩ ЧЩJЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШKJЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШMJЪ
ЯЬЮЬЮЬЮЬЮЬШ?JШ ЧЩJЪЯЬЮЬЮЬЮЬШDJЪЯЬЮЬЮЬШ-JЪ
ЯЬЮЬЮЬЮЬЮЬШMJЪЯЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЩ:KЪЯ	ЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЮЬЩEJЩ ЧЩJЪЯЬЮЬЮЬЮЬЮЬЮЬШ3JЪЯ
ЬЮЬ+ЮЬШPJЪЯЬЮЬЮЬЮЬЮЬЮЬШGЪЯ
ЬЮЬЮЬЮЬЮЬЮЬШ4JЪЮЬЮЬЮЬШ3ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШ1JЪЮЬЮЬЮЬШ3ЧJШ ЧJШJШ ЪЮЬШJЪЬ"ЮЬ
Ш/ЧЧ ЕЧ    и  '  