-- DoradoBoard.mesa-- last modified by C. Thacker November 8, 1982 9:45 amDIRECTORY	Containers,	Graphics,	IO,	Rope,	ViewerClasses;DoradoBoard: CEDAR DEFINITIONSIMPORTS IO, Rope, ViewerClasses = BEGIN------ Constants ------ASISeal: CARDINAL = 1009;canonWithSegs: CARDINAL = LAST[CARDINAL];canonWithoutSegs: CARDINAL = LAST[CARDINAL]-1;------ Variables ------boardWidth, boardHeight: Mils;asiOffset: Point;board: Board;------ Types ------ErrorType: TYPE = {ASISealError, EndOfFile, IllegalFile, InvalidSignal, NeedFile};MouseButton: TYPE = {red, yellow, blue};Pad: TYPE = RECORD [	p: Point, 	con: CARDINAL,	segs: REF SegTab,	type: PadType	];PadType: TYPE = RECORD [ t: ProbeID, n: FlukeChan];ProbeID: TYPE = {noProbe, signal,gnd,vee,vdd,vtt,vcc};FlukeChan: TYPE =  [0..7203];PadIndex: TYPE = CARDINAL [0 .. 10000];Pads: TYPE = ARRAY PadIndex OF Pad;PadsRef: TYPE = REF Pads;Point: TYPE = RECORD [x, y: Mils];Mils: TYPE = INTEGER;SegTab: TYPE = RECORD [	l: ARRAY WiringLayer OF INT _ ALL[0],	sigName: Rope.ROPE _ NIL,	padCount: CARDINAL _ 0 --count of the non-canonical pads in this net	];SigPadList: TYPE =  LIST OF PadIndex;WiringLayer: TYPE = [0 .. 4);Board: TYPE = REF BoardRec;BoardRec: TYPE = RECORD [	outer: Containers.Container _ NIL,		-- handle for the enclosing container	height: CARDINAL _ 0,		-- height measured from the top of the container	boardName, signal, boardPicture: ViewerClasses.Viewer _ NIL,	asiFile: IO.STREAM _ NIL,	errorInStream: IO.STREAM _ NIL,	errorOutStream: IO.STREAM _ NIL,	showLabels, showPads: BOOL _ TRUE,	plotLayer: ARRAY WiringLayer OF BOOL _ ALL[TRUE],	mirFact: INTEGER _ 1,	rotAngle: INTEGER _ 0,	center: Point,	padCount: PadIndex _ 0,	-- number of pads in ASI file	hitPadIndex: PadIndex _ 0,	pads: PadsRef _ NIL,	scale, milsPerPixel: REAL _ 1.0,	signalPads: SigPadList _ NIL	-- list of signals to be painted	];------ Procedures in BoardPaint.mesa ------PaintBoard: ViewerClasses.PaintProc;BoardContext: PROC [state: Board, context: Graphics.Context _ NIL]  RETURNS[Graphics.Context];------ Procedures in Wiring.mesa ------AddSignal: PROC [state: Board, signal: Rope.ROPE]	RETURNS [BOOLEAN];RemoveSignal: PROC [state: Board, signal: Rope.ROPE]	RETURNS [BOOLEAN];FileError: PROC [state: Board, file: Rope.ROPE, error: ErrorType];GetCardinal: PROC [state: Board] RETURNS [CARDINAL];GetInt: PROC [state: Board] RETURNS [INT];GetPoint: PROC [state: Board] RETURNS [Point];FindClosestPad: PROC [state: Board, p: Point]	RETURNS [pad: PadIndex, sigName: Rope.ROPE];MinPadGE: PROC [state: Board, x: Mils] RETURNS [minIndex: PadIndex];	-- Returns smallest index minIndex such that x<=state.pads[minIndex].p.x.GetCanonicalPad: PROC [state: Board, index: PadIndex] RETURNS [pindex: PadIndex];ReadBoardData: PROC [state: Board, boardName: Rope.ROPE];------ Procedures in Fluke.mesa ------ASItoFluke:  PROC[x,y: INTEGER] RETURNS [PadType];END.	-- of DoradoBoard CHANGE LOGCreated by L. Hilton, September 9, 1982 7:05 pmStarted adding code for Fluke tester - CT November 8, 1982 9:46 am      Э╩f  Ц"Mesa" styleШ IprocЪЧ╧cLЬ╧k	ЬЮЬ╧bЬЮЬЮЬЮЬЮЬЮЬЭЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЭЬCЭЬЮЬQЮЬЮЬЮЬЮЬ	ЮЬ&ЮЬЮЬ'ЮЬ5ЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬXЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ"ЮЬЭ&Ь	ЮЬЭ1Ь9ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ/ЭЬ-ЮЬЮЬ"ЮЬЭ!ЬЭ+ЬЯ
Ь╧nЬЮЬ,ЮЬЮЬЭ'Ьа	ЬЮЬЮЬЮЬЮЬаЬЮЬЮЬЮЬЮЬа	ЬЮЬЮЬаЬЮЬЮЬЮЬаЬЮЬЮЬЮЬаЬЮЬЮЬ
аЬЮЬЮЬЮЬаЬЮЬЮЬЭJаЬЮЬ!ЮЬаЬЮЬ ЮЬЭ&Ьа
ЬЮЬЮЬЮЬЮЬЭЬЮЬЮЬЮЬKЮЬШ▒Ч ЕЧ    4  а  