<<>> <> <> <> [DEF,SHIFT,(LeftShift Down | RightShift Down)] [DEF,CTRL,(Ctrl Down | Spare3 Down)] [DEF,IfShift,(SELECT ENABLE FROM [SHIFT] => ~1; ENDCASE => ~2)] [DEF,IfCtrl,(SELECT ENABLE FROM [CTRL] => ~1; ENDCASE => ~2)] [DEF,RedStuff,(WHILE Lock Down => [IfShift,(BSscrollAlongClicks, Coords, )~1,(BSscrollToCenter, Coords, )~1])] [DEF,BlueStuff,(WHILE Lock Down => [IfShift,[BlueMid,~1,BScontractXY,BSexpandXY],[BlueMid,~1,BScontract,BSexpand]])] [DEF,BlueMid,([IfCtrl,{ ~2 Coords ~1},{~3 Coords ~1}])] SELECT TRIGGER FROM Red Down [RedStuff,Idle]; Mouse WHILE Red Down [RedStuff,Idle]; Red Up [RedStuff,Doit]; Yellow Down WHILE Lock Down => BSthumb, Coords, Idle; Mouse WHILE Yellow Down WHILE Lock Down => BSthumb, Coords, Idle; Yellow Up WHILE Lock Down => BSthumb, Coords, Doit; Blue Down [BlueStuff,Idle]; Mouse WHILE Blue Down [BlueStuff,Idle]; Blue Up [BlueStuff,Doit]; ENDCASE .