CDReadInterpress.mesa
Copyright (C) 1985 by Xerox Corporation. All rights reserved.
Created by: Christian Jacobi, March 1, 1985 4:52:57 pm PST
Last edited by: Christian Jacobi, December 29, 1986 6:24:38 pm PST
DIRECTORY
CD USING [Design, Layer, Object, Rect],
Rope USING [ROPE];
CDReadInterpress: CEDAR DEFINITIONS =
BEGIN
CreateIPCell: PROC [design: CD.Design, fileName: Rope.ROPE, layer: CD.Layer, pixelsPerMeter: REAL�, postScale: INT ← 1, pageNo: INT ← 1, deviceBitmap: CD.Rect←[1, 1, 0, 0], stop: REF BOOL←NIL] RETURNS [cell: CD.Object];
--Creates cell from Interpress file
--design: necessary because cell might have structure
--pixelsPerMeter: device bitmap pixels per meter on interpress original
--postScale: cd numbers per device bitmap pixel
--pageNo: page of interpress master
--deviceBitmap: size of bitmap allocated to render interpress file
--stop: to interrupt execution
END.