Utility.mesa
Copyright (C) 1983, 1984 Xerox Corporation. All rights reserved.
Author: John Maxwell
Last Edited by: Maxwell, November 22, 1983 10:10 am
Last Edited by: Doug Wyatt, June 18, 1984 12:38:35 pm PDT
DIRECTORY
Imager USING [Context],
MusicDefs USING [ColorType, FontType, PaintMode],
Rope USING [ROPE];
Utility: CEDAR DEFINITIONS
~ BEGIN
ROPE: TYPE ~ Rope.ROPE;
*************************************************************************
graphics
*************************************************************************
these procedures know nothing about the sheet. They assume an x, y plane.
print => the music should be drawn on a press file.
printChar => the music should be drawn using the music font rather than splines
Context: TYPE ~ Imager.Context;
DrawChar: PROC[dc: Context, c: CHAR];
DrawLine: PROC[dc: Context, x1, y1, x2, y2: INTEGER];
DrawCubic: PROC[dc: Context, x1, y1, x2, y2, height: INTEGER];
DrawString: PROC[dc: Context, s: ROPE];
Flash: PROC[dc: Context];
Box: TYPE ~ RECORD[xmin, ymin, xmax, ymax: REAL];
DrawBox: PROC[dc: Context, box: Box];
FontType: TYPE ~ MusicDefs.FontType; -- {text, music};
SetFont: PROC[dc: Context, font: FontType, size: INTEGER];
ColorType: TYPE ~ MusicDefs.ColorType; -- {black, grey, light, white};
SetColor: PROC[dc: Context, color: ColorType];
PaintMode: TYPE ~ MusicDefs.PaintMode; -- {opaque, transparent, invert};
SetBrush: PROC[dc: Context, color: ColorType, mode: PaintMode];
SetCP: PROC[dc: Context, x, y: REAL];
END.