SoftHdwAssemblyTestPrintParse.cm
Copyright Ó 1989 by Xerox Corporation. All rights reserved.
Barth, July 25, 1989 5:40:58 pm PDT
← &sgf[SoftHdwAssemblyImpl]
← &tiles ← NIL
← &tiles ← CTI[&tiles, InputEnabled, Horizontal, [0,0]]
← &tiles ← CTI[&tiles, InputEnabled, Horizontal, [1,1]]
← &tiles ← CTI[&tiles, InputEnabled, Vertical, [2,2]]
← &tiles ← CTI[&tiles, ParallelInput, Horizontal, [0,2]]
← &tiles ← CTI[&tiles, OLDToI, Horizontal, [0,3]]
← &tiles ← CTI[&tiles, OLDToRU, Vertical, [3,0]]
← &subProgram ← Create[NIL, &tiles]
← &instances ← NIL
← &instances ← CPI[&instances, &subProgram, [0,0], [0,0], Rotate90FlipX]
← &program ← Create[instances: &instances]
← &object ← SoftHdwAssembly.Print[NEW[SoftHdwAssembly.ArrayPositionRec ← [chip: [1,1], minorArray: [16,16], grain: [4,4]]], &program]
← SoftHdwAssembly.PrintAndDraw[NEW[SoftHdwAssembly.ArrayPositionRec ← [chip: [1,1], minorArray: [16,16], grain: [4,4]]], &program]
← &parsed ← SoftHdwAssembly.Parse[&object]
← SoftHdwAssembly.PrintAndDraw[NEW[SoftHdwAssembly.ArrayPositionRec ← [chip: [1,1], minorArray: [16,16], grain: [4,4]]], &parsed]