DIRECTORYCD,CDCurves,CDImports,CDTexts,CDMakeProcPrivate,IO,Rope;CDMakeProcSomeImpl: CEDAR PROGRAMIMPORTS CDMakeProcPrivate, IO, Rope, CDTexts = BEGINMakeCurves: PROC [env: CDMakeProcPrivate.Environment, ob: CD.Object, useW: BOOL, key: Rope.ROPE] RETURNS [Rope.ROPE] = {r: Rope.ROPE _ Rope.Cat["CDCurves.", key, "[points: "];list: Rope.ROPE _ NIL;pp: CDCurves.CurveSpecific _ NARROW[ob.specific];n: INT _ 0;CDMakeProcPrivate.IncludeDirectory[env, "CDCurves"];FOR pl: LIST OF CD.Position _ pp.points, pl.rest WHILE pl#NIL DOn _ n+1;IF n=1 THEN list _ "LIST[" ELSE list _ Rope.Cat[list, ", "];list _ Rope.Cat[list, CDMakeProcPrivate.PosToRope[pl.first]];ENDLOOP;r _ Rope.Cat[r, list, "]"];IF useW THEN r _ Rope.Cat[r, IO.PutFR[", w: %g", [integer[pp.w]]]];r _ Rope.Cat[r, ", layer: ", CDMakeProcPrivate.LayerIdent[env, ob.layer], "].ob"];RETURN [r];};MakeSplines: CDMakeProcPrivate.ExpressionProc = {RETURN [ MakeCurves[env, NARROW[x], TRUE, "CreateSpline"] ];};MakeLines: CDMakeProcPrivate.ExpressionProc = {RETURN [ MakeCurves[env, NARROW[x], TRUE, "CreateLine"] ];};MakePolygon: CDMakeProcPrivate.ExpressionProc = {RETURN [ MakeCurves[env, NARROW[x], FALSE, "CreatePolygon"] ];};MakeFilledCurve: CDMakeProcPrivate.ExpressionProc = {RETURN [ MakeCurves[env, NARROW[x], FALSE, "CreateFilledCurve"] ];};MakeText: CDMakeProcPrivate.ExpressionProc = {SupportFont: PROC [env: CDMakeProcPrivate.Environment, font: CDTexts.CDFont] RETURNS [r: Rope.ROPE] = {x: REF;TRUSTED { x _ LOOPHOLE[font] };r _ CDMakeProcPrivate.GlobalIdent[env, x];IF r=NIL THEN {decl: Rope.ROPE;CDMakeProcPrivate.IncludeDirectory[env, "CDTexts"];r _ CDMakeProcPrivate.RequestGlobalIdent[env, "font", x];decl _ Rope.Cat[r, ": CDTexts.CDFont _ CDTexts.MakeFont[name: "];decl _ Rope.Cat[decl, CDMakeProcPrivate.RopeToRope[tp.cdFont.supposedName], ", scale: ", IO.PutFR1["%g", IO.int[tp.cdFont.scaleI]]];decl _ Rope.Cat[decl, "];"];CDMakeProcPrivate.GlobalDeclaration1[env, decl];};};r: Rope.ROPE _ "CDTexts.Create[text: ";fontIdent: Rope.ROPE;ob: CD.Object _ NARROW[x];tp: CDTexts.TextSpecific _ NARROW[ob.specific];flip: BOOL _ CDTexts.IsFlipText[ob];fontIdent _ SupportFont[env, tp.cdFont]; CDMakeProcPrivate.IncludeDirectory[env, "CDTexts"];r _ Rope.Cat[r, CDMakeProcPrivate.RopeToRope[tp.text], ", font: ", fontIdent];r _ Rope.Cat[r, ", layer: ", CDMakeProcPrivate.LayerIdent[env, ob.layer]];r _ Rope.Cat[r, ", flip: ", (IF flip THEN "TRUE" ELSE "FALSE"), "]"];RETURN [r];};MakeImport: CDMakeProcPrivate.ExpressionProc = {MakeImpGenerator: PROC [env: CDMakeProcPrivate.Environment] = {IF CDMakeProcPrivate.GetEnvironmentProp[env, $hasImports]=NIL THEN {CDMakeProcPrivate.PutEnvironmentProp[env, $hasImports, $hasImports];CDMakeProcPrivate.GlobalDeclaration2[env, "imports: CDGenerate.Context _ CDGenerate.AssertTable[""IMPORT""];"];}};r: Rope.ROPE;ob: CD.Object _ NARROW[x];ip: CDImports.ImportSpecific _ NARROW[ob.specific];IF Rope.Find[ip.designName, "."]>=0 THEN RETURN [NIL]; MakeImpGenerator[env];r _ Rope.Cat["CDGenerate.FetchNCall[imports, design, ", CDMakeProcPrivate.RopeToRope[Rope.Cat[ip.designName, ".", ip.objectName]], "]"];RETURN [r];};CDMakeProcPrivate.RegisterExpressionProc[$Polygon0, MakePolygon];CDMakeProcPrivate.RegisterExpressionProc[$FilledCurve0, MakeFilledCurve];CDMakeProcPrivate.RegisterExpressionProc[$Line0, MakeLines];CDMakeProcPrivate.RegisterExpressionProc[$Spline0, MakeSplines];CDMakeProcPrivate.RegisterExpressionProc[$RigidText, MakeText];CDMakeProcPrivate.RegisterExpressionProc[$FlipText, MakeText];CDMakeProcPrivate.RegisterExpressionProc[$Import, MakeImport];END.    ö  CDMakeProcSomeImpl.mesa   (module for ChipNDale)Copyright c 1985, 1986 by Xerox Corporation.  All rights reserved.Created by Christian Jacobi, May 9, 1985 1:58:40 pm PDT Last edited by: Christian Jacobi, October 22, 1986 5:11:14 pm PDT Êl  ˜ codešœ0™0Kšœ
Ïmœ7™BKšœ8™8K™AK˜ —šÏk	˜	Kšžœ˜Kšœ	˜	Kšœ
˜
Kšœ˜Kšœ˜Kšœ˜Kšœ˜—K˜ šÏnœžœž˜!Kšžœžœ˜/—Kšž˜K˜ šÐbn
œžœ*žœžœžœžœžœ˜xKšœžœÐfsœ¡œ˜7Kšœžœžœ˜Kšœžœ˜1Kšœžœ˜Kšœ4˜4šžœžœžœžœžœžœž˜@Kšœ˜Kš
žœžœ	¡œžœ¡œ˜<Kšœ=˜=Kšžœ˜—Kšœ˜Kšžœžœžœ¡œ˜CKšœ¡	œ1¡œ˜RKšžœ˜Kšœ˜—K˜ š œ&˜1Kšžœžœžœ¡œ˜<Kšœ˜—K˜ šÏb	œ&˜/Kšžœžœžœ¡
œ˜:Kšœ˜—K˜ š¢œ&˜1Kšžœžœžœ¡œ˜>Kšœ˜—K˜ š Ÿœ&˜5Kšžœžœžœ¡œ˜BKšœ˜—K˜ š¢œ&˜.K˜ šŸœžœ<žœ
žœ˜gKšœžœ˜Kšžœžœ	˜Kšœ*˜*šžœžœžœ˜Kšœž˜Kšœ3˜3Kšœ9˜9Kšœ¡*œ˜AKšœM¡	œžœžœ˜„Kšœ¡œ˜Kšœ0˜0Kšœ˜—Kšœ˜—K˜ Kšœžœ¡œ˜'Kšœžœ˜Kšœžœ
žœ˜Kšœžœ˜/Kšœžœ˜$Kšœ)˜)Kšœ3˜3Kšœ8¡œ˜NKšœJ˜JKš	œžœžœžœ¡œ˜EKšžœ˜Kšœ˜—K˜ š 
œ&˜0šŸœžœ)˜?šžœ8žœžœ˜DKšœD˜DKšœ+¡Aœ˜oKšœ˜—Kšœ˜—Kšœžœ˜Kšœžœ
žœ˜Kšœžœ˜3Kšžœ"žœžœžœ˜7Kšœ˜Kšœ¡(œL¡œ¡˜ˆKšžœ˜Kšœ˜—K˜ K˜ KšœA˜AKšœI˜IKšœ<˜<Kšœ@˜@Kšœ?˜?Kšœ>˜>Kšœ>˜>Kšžœ˜K˜ K˜ K˜ — …—    ^  À  