--Author: John Maxwell
--last modified: November 24, 1981  9:10 AM

DIRECTORY
	Device USING [Handle],
	Graphics USING [DisplayContext, FontId],
	MusicDefs: FROM "MusicDefs";

Utility: DEFINITIONS
	IMPORTS MusicDefs =
BEGIN
OPEN Graphics, MusicDefs;

--*************************************************************************
--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

ClosePressDevice:PROCEDURE[device:POINTER TO Device.Handle];
DrawChar:PROC[dc:DisplayContext,c:CHARACTER];
DrawLine:PROC[x1,y1,x2,y2:INTEGER];
DrawCubic:PROC[x1,y1,x2,y2,height:INTEGER];
DrawString:PROC[dc:DisplayContext,s:STRING];
Flash:PROCEDURE;
OpenPressDevice:PROCEDURE[splines:BOOLEAN] RETURNS[Device.Handle];
SetFont:PROC[dc:DisplayContext,font:FontId,size:INTEGER];

--*************************************************************************
--storage
--*************************************************************************

FreeBeam:PROC[b:LONG POINTER TO BeamPTR];
FreeChord:PROC[c:LONG POINTER TO ChordPTR];
FreeNote:PROC[n:LONG POINTER TO NotePTR,p:PiecePTR_MusicDefs.score];
FreePiece:PROC[p:POINTER TO PiecePTR];
FreeSync:PROC[s:LONG POINTER TO SyncPTR];
InitStorage:PROC;
NewBeam:PROC RETURNS[p:BeamPTR];
NewChord:PROC RETURNS[p:ChordPTR];
NewNote:PROC RETURNS[p:NotePTR];
NewPiece:PROC[length:CARDINAL_maxPieceLength] RETURNS[p:PiecePTR];
NewSync:PROC RETURNS[p:SyncPTR];

END..(1792)\328i8I290b16B45b8B38b8B28b9B35b10B35b5B12b15B52b7B130i7I78b8B34b9B35b8B61b9B30b8B34b11B7b7B26b8B27b7B26b8B59b7B