CDCreateLabels.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, October 22, 1986 4:44:58 pm PDT
DIRECTORY
CD,
Imager,
Rope;
CDCreateLabels: CEDAR DEFINITIONS =
BEGIN
FindOrCreateCharCell: PROC [design: CD.Design, font: Imager.Font, char: CHAR, scale: INT ← -1, layer: CD.Layer] RETURNS [cell: CD.Object];
CreateTextCell: PROC [design: CD.Design, text: Rope.ROPE, font: Imager.Font, scale: INT ← -1, layer: CD.Layer] RETURNS [cell: CD.Object];