OPTIONS Fast, DefaultKeys; [DEF,SHIFT,(LeftShift Down | RightShift Down)] [DEF,NumberRed,(~1 Down => SELECT ENABLE FROM T Down => {~2 RotateSelTextCCW}; ENDCASE => {Coords ~2 LeftStep})] [DEF,NumberBlue,(~1 Down => SELECT ENABLE FROM T Down => {~2 RotateSelTextCW}; ENDCASE => {Coords ~2 RightStep})] [DEF,NumbersUp,(One Up WHILE Two Up WHILE Three Up WHILE Four Up WHILE Five Up WHILE Six Up WHILE Seven Up WHILE Eight Up WHILE Nine Up)] SELECT TRIGGER FROM Mouse => SELECT ENABLE FROM Red Down => SELECT ENABLE FROM T Down => {Coords SelectText}; S Down => {Coords Slide}; C Up WHILE H Up WHILE V Up WHILE Z Up WHILE [NumbersUp] => {Coords SelectPoint}; ENDCASE; Z Down WHILE Yellow Down => {Coords ZoomPoint}; ENDCASE; Red Down => SELECT ENABLE FROM C Down => {Coords SelectCurve}; H Down => SELECT ENABLE FROM S Down => JumpLeftSameCurve; ENDCASE => JumpLeftAnyCurve; V Down => JumpUp; Z Down => {Coords ZoomIn}; [NumberRed,One,1]; [NumberRed,Two,2]; [NumberRed,Three,3]; [NumberRed,Four,4]; [NumberRed,Five,5]; [NumberRed,Six,6]; [NumberRed,Seven,7]; [NumberRed,Eight,8]; [NumberRed,Nine,9]; T Down => {Coords SelectText}; S Down => {Coords Slide}; ENDCASE => {Coords SetFocus SelectPoint}; Yellow Down => SELECT ENABLE FROM Z Down => {Coords ZoomPoint}; T Down => {Coords MoveSelText}; ENDCASE => SetFocus; Yellow Up WHILE Z Down => {Coords ZoomPoint}; Blue Down => SELECT ENABLE FROM C Down => RemoveCurve; H Down => SELECT ENABLE FROM S Down => JumpRightSameCurve; ENDCASE => JumpRightAnyCurve; V Down => JumpDown; Z Down => {Coords ZoomOut}; [NumberBlue,One,1]; [NumberBlue,Two,2]; [NumberBlue,Three,3]; [NumberBlue,Four,4]; [NumberBlue,Five,5]; [NumberBlue,Six,6]; [NumberBlue,Seven,7]; [NumberBlue,Eight,8]; [NumberBlue,Nine,9]; T Down => ClearText; ENDCASE; One Down => SELECT ENABLE FROM Ctrl Down => PrimaryVisibility; [SHIFT] => PrimaryBlinking; Two Down => SaveCrosshair; ENDCASE; Two Down => SELECT ENABLE FROM Ctrl Down => SecondaryVisibility; [SHIFT] => SecondaryBlinking; One Down => SaveCrosshair; ENDCASE; Three Down => SELECT ENABLE FROM Ctrl Down => TextCaretVisibility; [SHIFT] => TextCaretBlinking; ENDCASE; B Down => ToggleAutoBounds; C Down => SELECT ENABLE FROM Ctrl Down => ShowSelEntityOnPanel; [SHIFT] => RemoveAllCurves; R Down => CleanAndPaint; ENDCASE; D Down => ToggleAutoDiv; R Down => SELECT ENABLE FROM C Down => CleanAndPaint; ENDCASE => Repaint; T Down WHILE Ctrl Down => ShowSelTextOnSpec; X Down => SELECT ENABLE FROM V Down => ToggleTargetX; G Down => ToggleGridX; ENDCASE; Y Down => SELECT ENABLE FROM V Down => ToggleTargetY; G Down => ToggleGridY; ENDCASE; V Down => SELECT ENABLE FROM X Down => ToggleTargetX; Y Down => ToggleTargetY; ENDCASE; G Down => SELECT ENABLE FROM X Down => ToggleGridX; Y Down => ToggleGridY; ENDCASE; ENDCASE. ΦGraph.Tip Last Edited: Sweetsun Chen, November 20, 1985 3:09:43 pm PST C Down => {Coords SelectCurve}; also sets input focus. SELECT ENABLE FROM Blue Down => ClearZoomBox; ENDCASE => {Coords ZoomPoint2}; Κt˜JšΟc ™ ™ Icode™/—J™šΟk˜Jšœ˜Jšœ ˜ —J™Jšœžœžœ$˜.šœžœžœžœž˜-Jšœ ˜ Jšžœ˜!—šœžœžœžœž˜.Jšœ˜Jšžœ˜"—Jšœžœžœžœ ˜2Jšžœ žœ žœžœ ˜7Jšžœ žœ ˜J™šžœžœž˜šœ žœžœž˜šœ žœžœž˜Jšœ˜Jšœ˜Jšœ™Jš œžœžœžœžœ%˜PJšžœ˜—Jšœžœ#˜/Jšžœ˜—J˜šœ žœžœž˜Jšœ˜šœ žœžœž˜Jšœ˜Jšžœ˜—Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜šžœ#˜*Jšœ™——J˜šœž˜!Jšœ˜Jšœ˜Jšžœ ˜—J˜šœ žœ˜-Jšœ™J™Jšžœ™—J˜šœ žœžœž˜Jšœ˜šœ žœžœž˜Jšœ˜Jšžœ˜—Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšžœ˜—J˜šœ ž˜Jšœ˜Jšœžœ˜Jšœ˜Jšžœ˜—šœ ž˜Jšœ!˜!Jšœžœ˜Jšœ˜Jšžœ˜—šœž˜ Jšœ!˜!Jšœžœ˜Jšžœ˜—Jšœ˜šœ žœžœž˜Jšœ"˜"Jšœžœ˜Jšœ˜Jšžœ˜—Jšœ˜šœ žœžœž˜J˜Jšžœ ˜—Jšœžœ ˜,šœ žœžœž˜Jšœ˜J˜Jšžœ˜—šœ žœžœž˜Jšœ˜J˜Jšžœ˜—šœ žœžœž˜Jšœ˜Jšœ˜Jšžœ˜—šœ žœžœž˜Jšœ˜J˜Jšžœ˜—J˜Jšžœ˜——…— κ4