CDSatellites.TIP
Copyright © 1985 by Xerox Corporation. All rights reserved.
Created by: Pradeep Sindhu, December 23, 1985 4:30:58 pm PST
Pradeep Sindhu, February 19, 1986 3:44:08 pm PST
[DEF,CTRL,(Spare3 Down | Ctrl Down)]
[DEF,SHIFT,(LeftShift Down | RightShift Down)]
[DEF,LeftDown,(Red Down)]
[DEF,LeftUp,(Red Up)]
[DEF,MiddleDown,(Yellow Down)]
[DEF,MiddleUp,(Yellow Up)]
[DEF,RightDown,(Blue Down)]
[DEF,RightUp,(Blue Up)]
[
DEF,Menu,
(~1 Down
WHILE Space Down
WHILE [RightUp] WHILE [LeftUp] WHILE [MiddleUp] => Coords, ~2;
Space Down
WHILE ~1 Down
WHILE [RightUp] WHILE [LeftUp] WHILE [MiddleUp] => Coords, ~2)]
~1 represent's key; ~2 represent's Menu atom to call
SELECT
TRIGGER
FROM
[LeftUp] WHILE I Down => Coords, SelectInstanceGroup;
[MiddleDown] WHILE I Down => Coords, AddInstanceSatellite;
[RightUp] WHILE I Down => Coords, SetInstanceSatellites;
[LeftUp] WHILE O Down => Coords, SelectObjectGroup;
[MiddleDown] WHILE O Down => Coords, AddObjectSatellite;
[RightUp] WHILE O Down => Coords, SetObjectSatellites;
BackSlash Down WHILE [CTRL] WHILE [SHIFT] => Coords, UnMakeComment;
BackSlash Down WHILE [CTRL] => Coords, MakeComment;
[Menu, L, SatellitesMenu];
ENDCASE...