%
% calculate scope picturebox bounds
%
@Micros

_Scope.OffsetW _Scope.OffsetH
_Scope.PhWidth _Scope.PhHeight
_Scope.Width _Scope.Height
*fitswhin dup !Scope.BoxH
dup 2.0 div normint !Scope.DiCtrY
exch dup !Scope.BoxW
dup 2.0 div normint !Scope.DiCtrX
exch
@!Bounds

_ratio
"scopr" log)(
!Scope.Vratio