%
% make color segment a crosshair
%
% stack: color
%
1 left
_Scope.DiCtrX _counter add normreal
_Scope.DiCtrY _counter add normreal
second fourth ^"Scope.ptx1" !
dup fourth ^"Scope.pty1" !
exch third ^"Scope.ptx2" !
exch ^"Scope.pty2" !
+:counter