FOR page:
INT
IN [1..master.pages]
DO
Operator:
PROC [context: Imager.Context] ~ {
Imager.SetColor[context, Imager.black];
Imager.SetStrokeEnd[context, square];
Imager.SetStrokeWidth[context, 0.0];
Imager.SetAmplifySpace[context, 1.0];
Interpress.DoPage[master, page, context, NIL];
};
b:
SF.Box ← ImagerMaskCapture.CaptureBounds[Operator, m
! ImagerMaskCapture.Cant => RESUME];
r: ImagerBox.Rectangle ← ImagerTransformation.InverseTransformRectangle[
n, ImagerBox.RectangleFromBox[[b.min.s, b.min.f, b.max.s, b.max.f]]];
IF master.pages > 1 THEN IO.PutF[cmd.out, "P %g, ", IO.int[page]];
IO.PutF[cmd.out, "origin: [%5.3f, %5.3f], width: %5.3f, height: %5.3f (inches)\n", IO.real[r.x], IO.real[r.y], IO.real[r.w], IO.real[r.h]];
ENDLOOP;