%
% start or stop the microscope process
%
% stack: micro-process
%
{
%
% initialize the microscope operation page
%
 @@
 (@

 "Micros" "StdScope" newsub
 .01 .01 .98 .98 App.PerSub
 .005 .005 .995 .995 *panelspa

 142 0 !Scope.OffsetH !Scope.OffsetW
 "'Red' 'Green' 'Blue' 'Yellow' 'Magenta' 'Cyan' 'White'" !Scope.Colors

%
% establish size of microscope capture
%
 3584 2736
 2 copy
 !Scope.PhHeight !Scope.PhWidth
 2 div normint !Scope.PhCtrY 2 div normint !Scope.PhCtrX
%
% approximate values
%
 31.10927835051546 !Scope.MicPix 
 39.37007874015748 !Scope.InchMeter
 9200 9200 !Scope.LarY !Scope.LarX

"Exit|
_App.EvFam !@
 false !Tsrv.ScopingA
 false !Tsrv.ScopingB
 false *xlsrmetl
" Mep.Can

"Track|
 *scoptrak
" Mep.Can

"Reset|
_App.EvFam !@
 *scoprest
" Mep.Can

"Seg|
_App.EvFam !@
 *scopmseg
" Mep.Can

"Clear|
_App.EvFam !@
 *scopcler
" Mep.Can

"Scop|
_App.EvFam !@
 *scopshap
" Mep.Can

"Imdown|
_App.EvFam !@
 *scopmodn
" Mep.Can

"Imup|
_App.EvFam !@
 *scopmoup
" Mep.Can

"Iclick|
_App.EvFam !@
 *scopmclk
" Mep.Can

"Idclick|
_App.EvFam !@
 *scopdclk
" Mep.Can

"Imwheel|
_App.EvFam !@
 *scopmwhl
" Mep.Can

"Ron|
_App.EvFam !@
 'Ron' *scopchek
" Mep.Can false !Scope.ckRon

"Rv|
_App.EvFam !@
 'Rv' *scopchek
" Mep.Can false !Scope.ckRv

"Rsel|
_App.EvFam !@
 'Rsel' *scopsele
" Mep.Can false !Scope.ckRsel

"Gon|
_App.EvFam !@
 'Gon' *scopchek
" Mep.Can false !Scope.ckGon

"Gv|
_App.EvFam !@
 'Gv' *scopchek
" Mep.Can false !Scope.ckGv

"Gsel|
_App.EvFam !@
 'Rsel' *scopsele
" Mep.Can false !Scope.ckRsel

"Bon|
_App.EvFam !@
 'Bon' *scopchek
" Mep.Can false !Scope.ckBon

"Bv|
_App.EvFam !@
 'Bv' *scopchek
" Mep.Can false !Scope.ckBv

"Bsel|
_App.EvFam !@
 'Bsel' *scopsele
" Mep.Can false !Scope.ckBsel

"Con|
_App.EvFam !@
 'Con' *scopchek
" Mep.Can false !Scope.ckCon

"Cv|
_App.EvFam !@
 'Cv' *scopchek
" Mep.Can false !Scope.ckCv

"Csel|
_App.EvFam !@
 'Csel' *scopsele
" Mep.Can false !Scope.ckCsel

"Mon|
_App.EvFam !@
 'Mon' *scopchek
" Mep.Can false !Scope.ckMon

"Mv|
_App.EvFam !@
 'Mv' *scopchek
" Mep.Can false !Scope.ckMv

"Msel|
_App.EvFam !@
 'Msel' *scopsele
" Mep.Can false !Scope.ckMsel

"Yon|
_App.EvFam !@
 'Yon' *scopchek
" Mep.Can false !Scope.ckYon

"Yv|
_App.EvFam !@
 'Yv' *scopchek
" Mep.Can false !Scope.ckYv

"Ysel|
_App.EvFam !@
 'Ysel' *scopsele
" Mep.Can false !Scope.ckYsel

"Won|
_App.EvFam !@
 'Won' *scopchek
" Mep.Can false !Scope.ckWon


"Wv|
_App.EvFam !@
 'Wv' *scopchek
" Mep.Can false !Scope.ckWv

"Wsel|
_App.EvFam !@
 'Wsel' *scopsele
" Mep.Can false !Scope.ckWsel
"scopc" log#

 *scoprest
 *scopinit
 true !Tsrv.ScopingA
 true !Tsrv.ScopingB
 true !Scope.Formed
 )@

}
{
 *scopstop
 false *scopmous
 true !Scope.ExitA
 true !Scope.ExitB
 _Tsrv.BypassA
 {
  false !Scope.ExitA
  _Tsrv.BypassB
  {
   false !Scope.ExitB
   *scopends(
  }
  {
   @SerialB
   show
  } ifelse
 }
 {
  @SerialA
  show
 } ifelse
 @@

} ifelse