Gargoyle.tip
last written by Bier, August 19, 1985 1:39:50 pm PDT
[DEF,SHIFT,(RightShift Down | LeftShift Down)]
[DEF,CTRL,Ctrl Down]
SELECT TRIGGER FROM
Mouse Motions
Red Down =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CTRL] => {Coords StartDeselectPoint};
ENDCASE => {Coords StartCopySelect};
[CTRL] => {Coords StartAdd};
ENDCASE => {Coords StartSelectPoint};
Mouse
WHILE Red Down =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CTRL] => {Coords DuringDeselectPoint};
ENDCASE => {Coords DuringCopySelect};
[CTRL] =>{Coords DuringAdd};
ENDCASE => {Coords DuringSelectPoint};
Red Up =>
SELECT
ENABLE
FROM
[
SHIFT] =>
SELECT
ENABLE
FROM
[CTRL] =>{Coords EndDeselectPoint};
ENDCASE => {Coords EndCopySelect};
[CTRL] =>{Coords EndAdd};
ENDCASE => {Coords EndSelectPoint};
Yellow Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => {Coords StartScale};
ENDCASE => {Coords StartDrag};
[SHIFT] => {Coords StartCopySelectTrajectory};
ENDCASE => {Coords StartSelectTrajectory};
Mouse
WHILE Yellow Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => {Coords DuringScale};
ENDCASE => {Coords DuringDrag};
[SHIFT] => {Coords DuringCopySelectTrajectory};
ENDCASE => {Coords DuringSelectTrajectory};
Yellow Up =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => {Coords EndScale};
ENDCASE => {Coords EndDrag};
[SHIFT] => {Coords EndCopySelectTrajectory};
ENDCASE => {Coords EndSelectTrajectory};
Blue Down =>
SELECT
ENABLE
FROM
[SHIFT] => {Coords StartCopyExtend};
[CTRL] =>{Coords StartRotate};
ENDCASE => {Coords StartExtend};
Mouse
WHILE Blue Down =>
SELECT
ENABLE
FROM
[SHIFT] => {Coords DuringCopyExtend};
[CTRL] =>{Coords DuringRotate};
ENDCASE => {Coords DuringExtend};
Blue Up =>
SELECT
ENABLE
FROM
[SHIFT] => {Coords EndCopyExtend};
[CTRL] =>{Coords EndRotate};
ENDCASE => {Coords EndExtend};
Number Commands
One Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => ReloadTipTable;
ENDCASE;
BW Down => {LineWidth 1};
ENDCASE;
Two Down =>
SELECT
ENABLE
FROM
BW Down => {LineWidth 2};
ENDCASE;
Three Down =>
SELECT
ENABLE
FROM
BW Down => {LineWidth 3};
ENDCASE;
Four Down =>
SELECT
ENABLE
FROM
BW Down => {LineWidth 4};
ENDCASE;
Letter Commands
A Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => LiftAnchor;
ENDCASE => DropAnchor;
ENDCASE;
B Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => NoOp;
ENDCASE => ToggleDoubleBuffer;
ENDCASE;
C Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => NoOp;
ENDCASE => Close;
ENDCASE;
D Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => NoOp;
ENDCASE => SelectAll;
ENDCASE;
S Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => MakeCold;
ENDCASE => MakeHot;
ENDCASE;
G Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => {GravityChoiceChange FlipBackward};
ENDCASE => {GravityChoiceChange FlipForward};
ENDCASE;
O Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => NoOp;
ENDCASE => ToggleAlwaysOn;
ENDCASE;
H Down =>
SELECT
ENABLE
FROM
[
CTRL] =>
SELECT
ENABLE
FROM
[SHIFT] => NoOp;
ENDCASE => {ToggleSlope 90};
ENDCASE;
Special Keys
DEL Down => Delete;
ENDCASE.