%
% display scope color segment
%
% stack: color
%
dup 1 left
dup &"on" ^"Scope.ck" _
{
%
% crosshair is locked to movement of axes
%
 dup ^"Scope.ptx1" _
 second ^"Scope.pty1" _
 @!PointA
 dup ^"Scope.ptx2" _
 second ^"Scope.pty2" _
 @!PointB
 pop
 2.0
 @!SegG
}
{
 pop2
} ifelse