DIRECTORYCD, CDBasics, CDCells, CDCurves, CDInstances, CDLayers, CDOps, CDProperties, CDRects, CDSequencer, Core, CoreGeometry, CoreOps, Sinix, Sisyph, TerminalIO;BondWireImpl: CEDAR PROGRAMIMPORTS CD, CDBasics, CDCells, CDCurves, CDInstances, CDLayers, CDOps, CDProperties, CDRects, CDSequencer, CoreGeometry, CoreOps, Sinix, Sisyph, TerminalIO~ BEGINCreateBondWire: PROC [comm: CDSequencer.Command] ~ {layer:		CD.Layer				_ CDLayers.CurrentLayer[comm.design];width:	INT					_ MAX[2,2*((CDLayers.LayerWidth[comm.design, layer]+1)/2)];iRect:		CD.Rect				_ CDBasics.ToRect[comm.sPos, comm.pos];points:	LIST OF CD.Position	_ LIST[[iRect.x1, iRect.y1], [iRect.x2, iRect.y2]];spot:		CD.Object				_ CDRects.CreateRect[[width, width], CD.commentLayer];line:		CD.Object				_ CDCurves.CreateLine[points, width, layer].ob;cell:		CD.Object				_ CDCells.CreateEmptyCell[];flippedA:	BOOL					_ (comm.sPos.x<comm.pos.x AND comm.sPos.y>comm.pos.y);flippedB:	BOOL					_ (comm.sPos.x>comm.pos.x AND comm.sPos.y<comm.pos.y);orient:	CD.Orientation		_ IF flippedA OR flippedB THEN mirrorX ELSE original;iList:		CD.InstanceList		_ NIL;spot1Inst:	CD.Instance			_ CDInstances.NewInst[spot];spot2Inst:	CD.Instance			_ CDInstances.NewInst[spot,	[SizeOfRect[iRect]]];lineInst:	CD.Instance			_ CDInstances.NewInst[line];IF comm.sPos = comm.pos THEN{TerminalIO.PutRope["Zero length BondWire not included.\n"]; RETURN};iList _ CONS[spot1Inst, CONS[spot2Inst, CONS[lineInst, iList]]];cell _ CDCells.CreateCell[il: iList];CDCells.ToSequenceMode[cell];CDProperties.PutObjectProp[cell, Sisyph.mode.extractProcProp, $ExtractBondWire];[]	_ CDOps.IncludeObjectI[comm.design, cell, [iRect.x1, iRect.y1], orient];TerminalIO.PutRope["BondWire included.\n"]};SizeOfRect: PROC [r: CD.Rect] RETURNS [CD.Position] = INLINE{RETURN [[x: ABS[r.x2-r.x1], y: ABS[r.y2-r.y1]]]};ExtractBondWire: Sinix.ExtractProc = {ir:		CD.Rect		_ CD.InterestRect[obj];insts:	CoreGeometry.Instances _ NIL;wire:	Core.Wire _ CoreOps.CreateWire[name: Sinix.NameFromSatellites[obj, properties]];EachInstance: CDCells.InstEnumerator ~ {IF CDRects.IsBareRect[inst.ob] THEN insts _ CONS [[inst.ob, inst.trans], insts]};[] _ CDCells.EnumerateInstances[obj, EachInstance];CoreGeometry.PutPins[mode.decoration, wire, insts];result _ wire};Sinix.RegisterExtractProc[$ExtractBondWire, ExtractBondWire];CDSequencer.ImplementCommand[$CreateBondWire, CreateBondWire,, doQueue];END.    گ  BondWireImpl.mesaCopyright س 1985, 1986, 1987 by Xerox Corporation.  All rights reserved.Don Curry February 17, 1988 7:20:12 pm PST ‌تھ  ک ڑœ™JڑœH™HJڑœ'دk™*—J™ ڑ‌	ک	Jڑœ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œکڑJک —ڑدnœ‌œ‌کJڑ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œک›Jڑœ‌کJ™ —ڑ‍œ‌œ ک4Jڑœ‌œ/ک9Jڑœ‌œ‌œ6کJJڑœ‌œ0ک:Jڑ	œ‌œ‌œ‌œ‌œ-کOJڑœ‌œ0‌œکJJڑœ‌œ:کCJڑœ‌œ'ک0Jڑœ
‌œ‌œکIJڑœ
‌œ‌œکIJڑœ‌œ‌œ
‌œ
‌œ	‌œ
کMJڑœ‌œ‌œکJڑœ‌œ(ک5Jڑœ‌œ=کJJڑœ
‌œ(ک4ڑ‌œ‌کJڑœ=‌œکE—Jڑœ‌œ‌œ‌œک@Jڑœ%ک%JڑœکJڑœPکPJڑœKکKJڑœ,ک,—Jک ڑ‍
œ‌œ‌œ‌ک<Jڑœ‌œ‌œ‌œک2—Jک ڑ‍œک&Jڑœ‌œ	‌œک%Jڑœ ‌œک$JڑœVکVڑ‍œک'Jڑœ‌œ‌œ	‌œ!کR—Jڑœ3ک3Jڑœ3ک3JڑœکJک —Jڑœ=ک=Jک ڑœHکHJ™ —Jڑ‌œکJک — …—    	”  خ  