DIRECTORY CD, CDOps,CDCommandOps,CDSequencer,Core USING [CellType],CoreCreate, CoreGeometry,Sinix,Sisyph,SinixOps,TilingClass,PW;MakeSchematics: CEDAR PROGRAMIMPORTS CoreGeometry, PW, Sisyph, SinixOps, CDOps, CDCommandOpsSHARES TilingClass= BEGINTileToSchematics: PUBLIC PROC[tileArray: TilingClass.TileArray] = {GetElt: PROC [x, y: INT] RETURNS [obj: CD.Object] = {obj _ (IF tileArray[y] = NIL THEN NIL ELSE (IF tileArray[y][x] = NIL THEN NIL ELSE CoreGeometry.GetObject[Sisyph.mode.decoration, tileArray[y][x].type]))};schObj: CD.Object;sizeY: INT _ tileArray.size;sizeX: INT _ tileArray[0].size;schObj _ PW.MapFunction[GetElt, 0, sizeX, 0, sizeY];[] _ PW.Draw[schObj, NIL]; };TileCmd: PROC[comm: CDSequencer.Command] = {instance: CD.Instance _ CDOps.TheInstance[comm.design, "Extracting"];ct: Core.CellType _ NARROW [SinixOps.ExtractCDInstance[instance, comm.design, Sisyph.mode].result];ct2: Core.CellType _ NARROW[ct.data, Core.CellType];tile: TilingClass.TilingData _ NARROW[ct2.data, TilingClass.TilingData];TileToSchematics[tile.tileArray];};CDCommandOps.RegisterWithMenu[menu: $ProgramMenu,entry: "Sisyph Extract and Draw Tile",doc: "",proc: TileCmd];END.   ´  MakeSchematics.mesaCopyright c 1987 by Xerox Corporation.  All rights reserved.Last Edited by: Alan Bell May 24, 1987 1:34:11 pm PDTKrivacic July 15, 1987 11:11:13 am PDTÊû  –"cedar" style˜ codešœ™Kšœ
Ïmœ1™<Kšœ5™5K™&—K˜ šÏk	œ˜
Kšžœ˜K˜Kšœ˜Kšœ˜Kšœžœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜K˜	Kšœ˜Kšžœ˜—K˜ •StartOfExpansion[]šÏnœžœž˜Kšžœžœ'˜?Kšžœ˜Kšœž˜—K˜ K˜ šŸœžœžœ&˜Cš
Ÿœžœžœžœžœ˜5KšœžœžœžœžœžœžœžœžœžœžœI˜›—K˜ Kšœžœ˜Kšœžœ˜Kšœžœ˜K˜ Kšœ	žœ)˜4K˜ Kšœžœžœ˜—K˜ šŸœžœ˜,K˜ Kšœ
žœ9˜EJšœžœI˜cKšœžœ˜4Kšœžœ#˜HKšœ!˜!K˜—K˜ K˜sK˜ Kšžœ˜K˜ — …—    À  o  