TestPatchWork.cm
Copyright Ó 1988 by Xerox Corporation. All rights reversed.
Created by Bertrand Serlet, May 9, 1988 0:35:36 am PDT
Bertrand Serlet May 13, 1988 3:57:10 pm PDT
Install PatchWork
Run -a TestPatchWork
← &inv1 ← PatchWork.Layout[TestPatchWork.CreateInverter[]]
← PipalUI.Draw[&inv1]
← &inv2 ← PatchWork.Layout[TestPatchWork.Create2Inverter[]]
← PipalUI.Draw[&inv2]
← &ct ← TestPatchWork.AlpsDecoderFullArray[3]
← &obj1 ← PatchWork.Layout[&ct]
← &ct ← TestPatchWork.AlpsDecoderFullArrayRowTiling[3]
← &obj2 ← PatchWork.Layout[&ct]
← &ct ← TestPatchWork.AlpsDecoderFullArrayTiling[3]
← &obj3 ← PatchWork.Layout[&ct]
← PipalUI.Draw[PipalInt.CreateAbut[TRUE, List [&obj1, &obj2, &obj3]]]
← &ct ← TestPatchWork.Extract["TwoCascode"]
← &obj ← PatchWork.Layout[&ct]
← &ct ← TestPatchWork.Extract["OneLine"]
← &obj ← PatchWork.Layout[&ct]
← &ct1 ← TestPatchWork.alpsOne
← &ct2 ← PatchWork.RotateCellType[&ct1, $FlipX]
← PipalUI.Draw[PipalInt.CreateAbut[TRUE, List [PatchWork.Layout[&ct1], PatchWork.Layout[&ct2]]]]
← &ct ← TestPatchWork.AlpsDecoderFullArrayRowTiling[2]
← PatchWork.Store[&ct]
← &obj ← PatchWork.Layout[&ct]
← &ct ← TestPatchWork.AlpsDecoderFullArrayRowTiling[2]
← &ct.properties!
← &obj ← PatchWork.Layout[&ct]
← &ct.properties!
← PatchWork.Store[&ct, TRUE]
← &ct ← PatchWork.Retrieve["AlpsDecoderFullArrayRowTiling"]
← &ct.properties!
← &obj ← PatchWork.Layout[&ct]
← PipalUI.Draw[&obj]
Reconstituting TestPatchWork.directory.pipal
Run -a TestPipalCD
← &design ← PW.OpenDesign["TestPatchWork"]
← TestPipalCD.ConvertAndSaveDesign[&design]
← &obj ← PipalIO.RestoreObject["TestPatchWork.directory"]
← PipalUI.Draw[&obj]