%
% get incoming image dimensions and ratio, set Xact dimensions and ratio
%
 *xactninf
%
% reported width and height from xactjpeg analysis
%
 _Camera.Original text_xact
 "Image Width" right$
 dup cr left$ ":" right$ trim !Xact.Width
 "Image Height" right$ cr left$ ":" right$ trim !Xact.Height
%
% determinethat fields are numeric
%
 _Xact.Width numeric _Xact.Height numeric and
 {
%
% properly numeric width and height, calc image w/h ratio
%
  _Xact.Width _Xact.Height normreal div
 }
 {
%
% problem with width or height fields, image width and height not numeric
% substitute a square image dimension, square ratio
%
  1000 !Xact.Width
  1000 !Xact.Height
  1.0
 } ifelse
 !Xact.Ratio