mirror of
https://github.com/PDP-10/its.git
synced 2026-02-18 13:37:10 +00:00
552 lines
25 KiB
Plaintext
552 lines
25 KiB
Plaintext
'<PCODE "SWCHAR">
|
|
|
|
<PACKAGE "SWCHAR">
|
|
|
|
<ENTRY CHARGE MCHARG SHEAR>
|
|
|
|
<USE "SMCELLS">
|
|
|
|
<USE "DISPLA">
|
|
|
|
<BLOCK (<GET IDISPLA OBLIST> <ROOT>)>
|
|
|
|
3DSTK
|
|
|
|
3D
|
|
|
|
<ENDBLOCK>
|
|
|
|
<SET L000!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L100!-MCELLS))>
|
|
|
|
<SET L001!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L101!-MCELLS))>
|
|
|
|
<SET L002!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L102!-MCELLS))>
|
|
|
|
<SET L003!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L103!-MCELLS))>
|
|
|
|
<SET L004!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L104!-MCELLS))>
|
|
|
|
<SET L005!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L105!-MCELLS))>
|
|
|
|
<SET L006!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L106!-MCELLS))>
|
|
|
|
<SET L007!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L107!-MCELLS))>
|
|
|
|
<SET L010!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 -11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L011!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L111!-MCELLS))>
|
|
|
|
<SET L012!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
-21.0 0))>
|
|
|
|
<SET L013!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L113!-MCELLS))>
|
|
|
|
<SET L014!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L114!-MCELLS))>
|
|
|
|
<SET L015!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L115!-MCELLS))>
|
|
|
|
<SET L016!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L116!-MCELLS))>
|
|
|
|
<SET L017!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L117!-MCELLS))>
|
|
|
|
<SET L020!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L120!-MCELLS))>
|
|
|
|
<SET L021!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L121!-MCELLS))>
|
|
|
|
<SET L022!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L122!-MCELLS))>
|
|
|
|
<SET L023!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L123!-MCELLS))>
|
|
|
|
<SET L024!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L124!-MCELLS))>
|
|
|
|
<SET L025!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L125!-MCELLS))>
|
|
|
|
<SET L026!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L126!-MCELLS))>
|
|
|
|
<SET L027!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L127!-MCELLS))>
|
|
|
|
<SET L030!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L130!-MCELLS) (-1 L200!-MCELLS) (-1 L131!-MCELLS))>
|
|
|
|
<SET L032!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L132!-MCELLS))>
|
|
|
|
<SET L033!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 3.0 0) (
|
|
1 4.0 2.0 0) (1 6.0 3.0 0) (1 6.0 5.0 0) (1 2.0 7.0 0) (1 2.0 9.0 0) (1 4.0 10.0
|
|
0) (1 6.0 9.0 0) (1 6.0 8.0 0) (0 4.0 12.0 0) (1 4.0 0.0000000 0) (0 4.0 -1.0 0)
|
|
(1 7.0 0.0000000 0) (1 8.0 3.0 0) (1 8.0 9.0 0) (1 7.0 12.0 0) (1 4.0 13.0 0) (1
|
|
1.0 12.0 0) (1 0.0000000 9.0 0) (1 0.0000000 3.0 0) (1 1.0 0.0000000 0) (1 4.0
|
|
-1.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L034!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L134!-MCELLS))>
|
|
|
|
<SET L035!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L135!-MCELLS))>
|
|
|
|
<SET L036!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L136!-MCELLS))>
|
|
|
|
<SET L037!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1
|
|
L200!-MCELLS) (-1 L137!-MCELLS))>
|
|
|
|
<SET L040!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L041!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 12.0 0)
|
|
(1 4.0 3.0 0) (0 4.0 0.0000000 0) (1 4.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L042!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0)
|
|
(1 2.0 7.0 0) (0 6.0 12.0 0) (1 6.0 7.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L043!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 4.0 12.0 0)
|
|
(0 1.0 8.0 0) (1 11.0 8.0 0) (0 11.0 12.0 0) (1 7.0 0.0000000 0) (0 0.0000000
|
|
4.0 0) (1 10.0 4.0 0) (0 14.0 0.0000000 0))>
|
|
|
|
<SET L044!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
2.0 0) (1 4.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 2.0 0) (1 8.0 4.0 0) (1
|
|
0.0000000 8.0 0) (1 0.0000000 10.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 10.0
|
|
0) (0 4.0 15.0 0) (1 4.0 -3.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L045!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 8.0 12.0 0)
|
|
(0 4.0 10.0 0) (1 3.0 11.0 0) (1 2.0 11.0 0) (1 1.0 10.0 0) (1 1.0 8.0 0) (1 2.0
|
|
7.0 0) (1 3.0 7.0 0) (1 4.0 8.0 0) (1 4.0 10.0 0) (0 4.0 4.0 0) (1 5.0 5.0 0) (1
|
|
6.0 5.0 0) (1 7.0 4.0 0) (1 7.0 2.0 0) (1 6.0 1.0 0) (1 5.0 1.0 0) (1 4.0 2.0 0)
|
|
(1 4.0 4.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L046!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
2.0 0) (1 0.0000000 4.0 0) (1 4.0 10.0 0) (1 4.0 11.0 0) (1 3.0 12.0 0) (1 2.0
|
|
12.0 0) (1 1.0 11.0 0) (1 1.0 10.0 0) (1 7.0 1.0 0) (0 8.0 4.0 0) (1 4.0
|
|
0.0000000 0) (1 2.0 0.0000000 0) (1 0.0000000 2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L047!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 6.0 0) (
|
|
1 4.0 12.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L050!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 12.0 0)
|
|
(1 4.0 11.0 0) (1 3.0 9.0 0) (1 3.0 3.0 0) (1 4.0 1.0 0) (1 6.0 0.0000000 0) (0
|
|
11.0 0.0000000 0))>
|
|
|
|
<SET L051!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0)
|
|
(1 4.0 11.0 0) (1 5.0 9.0 0) (1 5.0 3.0 0) (1 4.0 1.0 0) (1 2.0 0.0000000 0) (0
|
|
11.0 0.0000000 0))>
|
|
|
|
<SET L052!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 3.0 0) (
|
|
1 6.0 9.0 0) (0 2.0 9.0 0) (1 6.0 3.0 0) (0 7.0 6.0 0) (1 1.0 6.0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L053!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
6.0 0) (1 8.0 6.0 0) (0 4.0 10.0 0) (1 4.0 2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L054!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 5.0 1.0 0) (
|
|
1 4.0 2.0 0) (1 3.0 1.0 0) (1 4.0 0.0000000 0) (1 5.0 1.0 0) (1 5.0 -2.0 0) (1
|
|
3.0 -4.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L055!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 6.0 0) (
|
|
1 7.0 6.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L056!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0
|
|
0.0000000 0) (1 5.0 1.0 0) (1 4.0 2.0 0) (1 3.0 1.0 0) (1 4.0 0.0000000 0) (0
|
|
11.0 0.0000000 0))>
|
|
|
|
<SET L057!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 8.0 12.0 0)
|
|
(0 11.0 0.0000000 0))>
|
|
|
|
<SET L060!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0
|
|
3.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (1 0.0000000 3.0 0) (0 0.0000000
|
|
0.0000000 0) (1 8.0 12.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L061!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 3.0 10.0 0)
|
|
(1 4.0 12.0 0) (1 5.0 12.0 0) (1 5.0 0.0000000 0) (0 3.0 0.0000000 0) (1 7.0
|
|
0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L062!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0 7.0 0) (1 0.0000000
|
|
3.0 0) (1 0.0000000 0.0000000 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L063!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
3.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 3.0 0) (1 8.0 4.0 0) (1
|
|
5.0 6.0 0) (1 8.0 8.0 0) (1 8.0 9.0 0) (1 6.0 12.0 0) (1 2.0 12.0 0) (1
|
|
0.0000000 9.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L064!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 5.0
|
|
0.0000000 0) (1 5.0 12.0 0) (1 4.0 12.0 0) (1 0.0000000 6.0 0) (1 0.0000000 5.0
|
|
0) (1 8.0 5.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L065!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
2.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 2.0 0) (1 8.0 6.0 0) (1
|
|
6.0 8.0 0) (1 0.0000000 8.0 0) (1 0.0000000 12.0 0) (1 7.0 12.0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L066!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0
|
|
0.0000000 0) (1 0.0000000 2.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0
|
|
0) (1 8.0 9.0 0) (0 0.0000000 5.0 0) (1 2.0 7.0 0) (1 6.0 7.0 0) (1 8.0 5.0 0) (
|
|
1 8.0 2.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L067!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
9.0 0) (1 1.0 12.0 0) (1 8.0 12.0 0) (1 4.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L070!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0
|
|
0.0000000 0) (1 0.0000000 2.0 0) (1 0.0000000 4.0 0) (1 2.0 6.0 0) (1 6.0 6.0 0)
|
|
(1 8.0 8.0 0) (1 8.0 10.0 0) (1 6.0 12.0 0) (1 2.0 12.0 0) (1 0.0000000 10.0 0)
|
|
(1 0.0000000 8.0 0) (1 2.0 6.0 0) (0 6.0 6.0 0) (1 8.0 4.0 0) (1 8.0 2.0 0) (1
|
|
6.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L071!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
3.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 3.0 0) (1 8.0 10.0 0) (1
|
|
6.0 12.0 0) (1 2.0 12.0 0) (1 0.0000000 10.0 0) (1 0.0000000 7.0 0) (1 2.0 5.0 0
|
|
) (1 6.0 5.0 0) (1 8.0 7.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L072!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0
|
|
0.0000000 0) (1 5.0 1.0 0) (1 4.0 2.0 0) (1 3.0 1.0 0) (1 4.0 0.0000000 0) (0
|
|
4.0 5.0 0) (1 5.0 6.0 0) (1 4.0 7.0 0) (1 3.0 6.0 0) (1 4.0 5.0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L073!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 5.0 0) (
|
|
1 5.0 6.0 0) (1 4.0 7.0 0) (1 3.0 6.0 0) (1 4.0 5.0 0) (0 4.0 2.0 0) (1 3.0 1.0
|
|
0) (1 4.0 0.0000000 0) (1 5.0 1.0 0) (1 4.0 2.0 0) (0 5.0 1.0 0) (1 5.0 -2.0 0)
|
|
(1 3.0 -4.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L074!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 2.0 0) (
|
|
1 2.0 6.0 0) (1 6.0 10.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L075!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 4.0 0) (
|
|
1 8.0 4.0 0) (0 8.0 8.0 0) (1 1.0 8.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L076!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 2.0 0) (
|
|
1 6.0 6.0 0) (1 2.0 10.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L077!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0 7.0 0) (1 4.0 3.0 0) (
|
|
1 4.0 2.0 0) (0 4.0 0.0000000 0) (1 4.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L100!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 8.0 7.0 0) (
|
|
1 6.0 8.0 0) (1 4.0 8.0 0) (1 2.0 7.0 0) (1 2.0 4.0 0) (1 4.0 3.0 0) (1 6.0 3.0
|
|
0) (1 8.0 4.0 0) (1 8.0 8.0 0) (1 7.0 11.0 0) (1 6.0 12.0 0) (1 2.0 12.0 0) (1
|
|
1.0 11.0 0) (1 0.0000000 8.0 0) (1 0.0000000 4.0 0) (1 1.0 1.0 0) (1 2.0
|
|
0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L101!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 4.0 12.0 0)
|
|
(1 8.0 0.0000000 0) (0 7.0 3.0 0) (1 1.0 3.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L102!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (1 5.0 12.0 0) (1 8.0 10.0 0) (1 8.0 8.0 0) (1 5.0 6.0 0) (1 0.0000000
|
|
6.0 0) (0 5.0 6.0 0) (1 8.0 4.0 0) (1 8.0 2.0 0) (1 5.0 0.0000000 0) (1
|
|
0.0000000 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L103!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0
|
|
0.0000000 0) (1 0.0000000 3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0
|
|
0) (1 8.0 9.0 0) (0 8.0 3.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L104!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (1 4.0 12.0 0) (1 6.0 11.0 0) (1 8.0 8.0 0) (1 8.0 4.0 0) (1 6.0 1.0 0)
|
|
(1 4.0 0.0000000 0) (1 0.0000000 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L105!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (1 8.0 12.0 0) (0 5.0 6.0 0) (1 0.0000000 6.0 0) (0 0.0000000 0.0000000
|
|
0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L106!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (1 8.0 12.0 0) (0 5.0 6.0 0) (1 0.0000000 6.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L107!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0
|
|
0.0000000 0) (1 0.0000000 3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0
|
|
0) (1 8.0 9.0 0) (0 5.0 6.0 0) (1 8.0 6.0 0) (1 8.0 3.0 0) (1 6.0 0.0000000 0) (
|
|
1 2.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L110!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (0 0.0000000 6.0 0) (1 8.0 6.0 0) (1 8.0 12.0 0) (0 8.0 6.0 0) (1 8.0
|
|
0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L111!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0
|
|
0.0000000 0) (1 6.0 0.0000000 0) (0 4.0 0.0000000 0) (1 4.0 12.0 0) (0 6.0 12.0
|
|
0) (1 2.0 12.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L112!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 2.0 0) (
|
|
1 2.0 0.0000000 0) (1 4.0 0.0000000 0) (1 5.0 2.0 0) (1 5.0 12.0 0) (0 7.0 12.0
|
|
0) (1 2.0 12.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L113!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (0 8.0 12.0 0) (1 0.0000000 4.0 0) (0 2.0 6.0 0) (1 8.0 0.0000000 0) (0
|
|
11.0 0.0000000 0))>
|
|
|
|
<SET L114!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
12.0 0) (1 0.0000000 0.0000000 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L115!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (1 4.0 6.0 0) (1 8.0 12.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L116!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (1 8.0 0.0000000 0) (1 8.0 12.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L117!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0
|
|
3.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (1 0.0000000 3.0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L120!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (1 5.0 12.0 0) (1 8.0 10.0 0) (1 8.0 8.0 0) (1 5.0 6.0 0) (1 0.0000000
|
|
6.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L121!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0
|
|
3.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (1 0.0000000 3.0 0) (0 5.0 3.0 0)
|
|
(1 7.0 0.0000000 0) (1 9.0 -2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L122!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
12.0 0) (1 5.0 12.0 0) (1 8.0 10.0 0) (1 8.0 8.0 0) (1 5.0 6.0 0) (1 0.0000000
|
|
6.0 0) (0 5.0 6.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L123!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
2.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 2.0 0) (1 8.0 4.0 0) (1
|
|
0.0000000 8.0 0) (1 0.0000000 10.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 10.0
|
|
0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L124!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0
|
|
0.0000000 0) (1 4.0 12.0 0) (0 8.0 12.0 0) (1 0.0000000 12.0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L125!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
12.0 0) (1 0.0000000 3.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 3.0 0
|
|
) (1 8.0 12.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L126!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
12.0 0) (1 4.0 0.0000000 0) (1 8.0 12.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L127!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
12.0 0) (1 0.0000000 3.0 0) (1 2.0 0.0000000 0) (1 3.0 0.0000000 0) (1 4.0 3.0 0
|
|
) (1 5.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 3.0 0) (1 8.0 12.0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L130!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 8.0 12.0 0)
|
|
(0 0.0000000 12.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L131!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0
|
|
0.0000000 0) (1 4.0 6.0 0) (1 8.0 12.0 0) (0 0.0000000 12.0 0) (1 4.0 6.0 0) (0
|
|
11.0 0.0000000 0))>
|
|
|
|
<SET L132!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
12.0 0) (1 8.0 12.0 0) (1 0.0000000 0.0000000 0) (1 8.0 0.0000000 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L133!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 12.0 0)
|
|
(1 3.0 12.0 0) (1 3.0 0.0000000 0) (1 6.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L134!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
12.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L135!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0)
|
|
(1 5.0 12.0 0) (1 5.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L136!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 8.0 0) (
|
|
1 2.0 9.0 0) (1 4.0 12.0 0) (1 6.0 9.0 0) (1 7.0 8.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L137!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 -1.0 -2.0 0)
|
|
(1 10.0 -2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L140!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0)
|
|
(1 6.0 8.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L141!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 7.0 0) (
|
|
1 2.0 8.0 0) (1 6.0 8.0 0) (1 7.0 7.0 0) (1 7.0 0.0000000 0) (0 7.0 1.0 0) (1
|
|
5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0 1.0 0) (1 1.0 4.0 0) (1 3.0 5.0 0) (
|
|
1 5.0 5.0 0) (1 7.0 4.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L142!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0
|
|
0.0000000 0) (1 1.0 11.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0
|
|
0) (1 7.0 2.0 0) (1 5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0 2.0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L143!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 7.0 6.0 0) (
|
|
1 5.0 8.0 0) (1 3.0 8.0 0) (1 1.0 6.0 0) (1 1.0 2.0 0) (1 3.0 0.0000000 0) (1
|
|
5.0 0.0000000 0) (1 7.0 2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L144!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 7.0 11.0 0)
|
|
(1 7.0 0.0000000 0) (0 7.0 2.0 0) (1 5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0
|
|
2.0 0) (1 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (0 11.0 0.0000000
|
|
0))>
|
|
|
|
<SET L145!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 4.0 0) (
|
|
1 7.0 4.0 0) (1 7.0 6.0 0) (1 5.0 8.0 0) (1 3.0 8.0 0) (1 1.0 6.0 0) (1 1.0 2.0
|
|
0) (1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L146!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0
|
|
0.0000000 0) (1 1.0 9.0 0) (1 3.0 11.0 0) (1 5.0 11.0 0) (1 7.0 9.0 0) (1 7.0
|
|
8.0 0) (0 4.0 6.0 0) (1 1.0 6.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L147!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 -1.0 0)
|
|
(1 3.0 -3.0 0) (1 5.0 -3.0 0) (1 7.0 -1.0 0) (1 7.0 8.0 0) (0 7.0 6.0 0) (1 5.0
|
|
8.0 0) (1 3.0 8.0 0) (1 1.0 6.0 0) (1 1.0 2.0 0) (1 3.0 0.0000000 0) (1 5.0
|
|
0.0000000 0) (1 7.0 2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L150!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0
|
|
0.0000000 0) (1 1.0 11.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0
|
|
0) (1 7.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L151!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 5.0 -1.0 0)
|
|
(1 4.0 0.0000000 0) (1 4.0 8.0 0) (0 4.0 11.0 0) (1 4.0 11.0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L152!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 -1.0 0)
|
|
(1 3.0 -3.0 0) (1 4.0 -3.0 0) (1 5.0 -1.0 0) (1 5.0 8.0 0) (0 5.0 11.0 0) (1 5.0
|
|
11.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L153!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0
|
|
0.0000000 0) (1 1.0 11.0 0) (0 7.0 8.0 0) (1 1.0 5.0 0) (0 3.0 6.0 0) (1 7.0
|
|
0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L154!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 11.0 0)
|
|
(1 4.0 0.0000000 0) (1 5.0 -1.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L155!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
7.0 0) (1 1.0 8.0 0) (1 2.0 8.0 0) (1 4.0 5.0 0) (1 6.0 8.0 0) (1 7.0 8.0 0) (1
|
|
8.0 7.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L156!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0
|
|
0.0000000 0) (1 1.0 8.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0
|
|
0) (1 7.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L157!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 2.0 0) (
|
|
1 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (1 7.0 2.0 0) (1 5.0
|
|
0.0000000 0) (1 3.0 0.0000000 0) (1 1.0 2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L160!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 -3.0 0)
|
|
(1 1.0 8.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (1 7.0 2.0
|
|
0) (1 5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0 2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L161!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 2.0 0) (
|
|
1 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (0 7.0 8.0 0) (1 7.0 -4.0
|
|
0) (1 8.0 -4.0 0) (0 7.0 2.0 0) (1 5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0
|
|
2.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L162!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0
|
|
0.0000000 0) (1 1.0 8.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0
|
|
0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L163!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 2.0 0) (
|
|
1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 2.0 0) (1 7.0 3.0 0) (1 1.0 5.0 0)
|
|
(1 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L164!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 8.0 0) (
|
|
1 2.0 8.0 0) (0 4.0 11.0 0) (1 4.0 0.0000000 0) (1 5.0 -1.0 0) (0 11.0 0.0000000
|
|
0))>
|
|
|
|
<SET L165!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 8.0 0) (
|
|
1 1.0 2.0 0) (1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 2.0 0) (1 7.0 8.0 0)
|
|
(0 7.0 2.0 0) (1 7.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L166!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 8.0 0) (
|
|
1 1.0 6.0 0) (1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 6.0 0) (1 7.0 8.0 0)
|
|
(0 11.0 0.0000000 0))>
|
|
|
|
<SET L167!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000
|
|
8.0 0) (1 0.0000000 2.0 0) (1 1.0 0.0000000 0) (1 2.0 0.0000000 0) (1 4.0 3.0 0)
|
|
(1 6.0 0.0000000 0) (1 7.0 0.0000000 0) (1 8.0 2.0 0) (1 8.0 8.0 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L170!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0
|
|
0.0000000 0) (1 3.0 3.0 0) (1 5.0 5.0 0) (1 7.0 8.0 0) (0 1.0 8.0 0) (1 3.0 5.0
|
|
0) (1 5.0 3.0 0) (1 7.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L171!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 -1.0 0)
|
|
(1 3.0 -3.0 0) (1 5.0 -3.0 0) (1 7.0 -1.0 0) (1 7.0 8.0 0) (0 1.0 8.0 0) (1 1.0
|
|
2.0 0) (1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 2.0 0) (0 11.0 0.0000000 0
|
|
))>
|
|
|
|
<SET L172!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 8.0 0) (
|
|
1 7.0 8.0 0) (1 5.0 5.0 0) (1 3.0 3.0 0) (1 1.0 0.0000000 0) (1 7.0 0.0000000 0)
|
|
(0 11.0 0.0000000 0))>
|
|
|
|
<SET L173!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 12.0 0)
|
|
(1 5.0 12.0 0) (1 4.0 11.0 0) (1 4.0 7.0 0) (1 3.0 6.0 0) (1 4.0 5.0 0) (1 4.0
|
|
1.0 0) (1 5.0 0.0000000 0) (1 6.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L174!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 15.0 0)
|
|
(1 4.0 -3.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L175!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0)
|
|
(1 3.0 12.0 0) (1 4.0 11.0 0) (1 4.0 7.0 0) (1 5.0 6.0 0) (1 4.0 5.0 0) (1 4.0
|
|
1.0 0) (1 3.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L176!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 9.0 0) (
|
|
1 3.0 11.0 0) (1 5.0 9.0 0) (1 7.0 11.0 0) (0 11.0 0.0000000 0))>
|
|
|
|
<SET L177!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000
|
|
15.0 0) (1 8.0 15.0 0) (1 8.0 0.0000000 0) (1 0.0000000 0.0000000 0) (0 11.0
|
|
0.0000000 0))>
|
|
|
|
<SET L200!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 -2.0 5.0 0)
|
|
(1 -2.0 14.0 0) (1 7.0 14.0 0) (0 0.0000000 0.0000000 0))>
|
|
|
|
<SETG CHARS '![L000 L001 L002 L003 L004 L005 L006 L007 L010 L011 L012 L013 L014
|
|
L015 L016 L017 L020 L021 L022 L023 L024 L025 L026 L027 L030 FOO L032 L033 L034
|
|
L035 L036 L037 L040 L041 L042 L043 L044 L045 L046 L047 L050 L051 L052 L053 L054
|
|
L055 L056 L057 L060 L061 L062 L063 L064 L065 L066 L067 L070 L071 L072 L073 L074
|
|
L075 L076 L077 L100 L101 L102 L103 L104 L105 L106 L107 L110 L111 L112 L113 L114
|
|
L115 L116 L117 L120 L121 L122 L123 L124 L125 L126 L127 L130 L131 L132 L133 L134
|
|
L135 L136 L137 L140 L141 L142 L143 L144 L145 L146 L147 L150 L151 L152 L153 L154
|
|
L155 L156 L157 L160 L161 L162 L163 L164 L165 L166 L167 L170 L171 L172 L173 L174
|
|
L175 L176 L177 L200!]>
|
|
|
|
<GDECL (CHARS) <UVECTOR [129 ATOM]>>
|
|
|
|
<SETG FLUM %<RSUBR!- '[ %<PCODE!- "SWCHAR" 0> FLUM #DECL ("VALUE" ANY ANY ANY)
|
|
DISP %<RGLOC CHARS T> (<XLATE .X .Y>)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FLUM PGLUE ![788529152!]>>
|
|
|
|
|
|
<SETG FLUMER %<RSUBR!- '[ %<PCODE!- "SWCHAR" 32> FLUMER #DECL ("VALUE" ANY)
|
|
FLUM]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FLUMER PGLUE ![536870912!]>>
|
|
|
|
|
|
<SETG CHARGE %<RSUBR!- '[ %<PCODE!- "SWCHAR" 70> CHARGE #DECL ("VALUE" ANY
|
|
CHARACTER <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>) DISP X (<OR
|
|
FIX FLOAT>) Y SIZE %<RGLOC CHARS T> (<SCALE .SIZE> <XLATE .X .Y>)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CHARGE PGLUE ![805240832!]>>
|
|
|
|
|
|
<SETG MCHARG %<RSUBR!- '[ %<PCODE!- "SWCHAR" 138> MCHARG #DECL ("VALUE" <LIST <
|
|
LIST FIX ANY>> CHARACTER <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>
|
|
) CALL X (<OR FIX FLOAT>) Y SIZE %<RGLOC CHARS T> (<SCALE .SIZE> <XLATE .X .Y>)
|
|
]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,MCHARG PGLUE ![805240832!]>>
|
|
|
|
|
|
<BLOCK (!.OBLIST <GET IDISPLA OBLIST>)>
|
|
|
|
<SET 3DSTK ('T)>
|
|
|
|
<SETG SHEAR %<RSUBR!- '[ %<PCODE!- "SWCHAR" 207> SHEAR #DECL ("VALUE" <VECTOR [
|
|
2 FIX] <VECTOR [16 FLOAT] [REST FLOAT]>> "OPTIONAL" FLOAT) 3DSTK]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SHEAR PGLUE ![805306368!]>>
|
|
|
|
|
|
<ENDBLOCK>
|
|
|
|
<ENDPACKAGE>
|