<> <> <> <> <<>> 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}; < {Coords SelectCurve};>> 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}; <