% % spur actions for Micros % _SerialA.Enabled %%% _SerialB.Enabled and { _Scope.Formed { _Tsrv.ScopingA %%% _Tsrv.ScopingB and { @SerialA @_Changed dup _Scope.Afocus eq { pop 0 } { dup !Scope.Afocus } ifelse @_ScopeXYZ %%%"scoper" log)( *scopmara dup /* @SerialB @_Changed */ dup _Scope.Bfocus eq { pop 0 } { dup !Scope.Bfocus } ifelse %%% @_Scope _scy *scopmarb max dup zero { % % no change in axis readings % pop } { % % change in axis readings % %%%"chgax z" &_Scope.Zeroed &" t" &_Scope.Trigger log)( !Scope.PreTime _Scope.Zeroed { % % mark as beginning of initial wait for % inaction on axis movement % true !Scope.PreTimed % % cancel any post capture timing % false !Scope.PostTimed "Moving" 0xFF30E0E0 @!Lmode } if } ifelse } if _Scope.Mouing { @_MavgX !Scope.MouAvgX @_MavgY !Scope.MouAvgY *scopmocx *scopmocy } if *scoptrig } if } if