DIRECTORY Imager USING [Context], MusicDefs USING [ColorType, FontType, PaintMode], Rope USING [ROPE]; Utility: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE ~ Rope.ROPE; 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. DUtility.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 ************************************************************************* 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 ʘ™ J™@Jšœ™Jšœ3™3Jšœ9™9—J˜šÏk ˜ Jšœœ ˜Jšœ œ#˜2Jšœœœ˜J˜—Jšœ œ ˜Jšœ˜J˜Jšœœœ˜J˜JšœI™IJšœ™JšœI™IJšœJ™JJšœ3™3JšœO™OJ˜Jšœ œ˜J˜JšÏnœœœ˜%Jšžœœœ˜5Jšž œœ&œ˜>Jšž œœœ˜'Jšžœœ˜J˜Jšœœœœ˜1Jšžœœ˜%J˜Jšœ œÏc˜6Jšžœœ$œ˜:J˜Jšœ œŸ˜FJšžœœ ˜.J˜Jšœ œŸ!˜HJšžœœ1˜?J˜Jšžœœœ˜%J˜Jšœ˜—…—¢¨