<> <> <> <> <> DIRECTORY Beam USING [SetStems], Graphics USING [DisplayContext, DrawRectangle, GetTexture, MakeFont, MoveTo, Scale, SetLineWidth, SetPaint, SetTexture, Texture, Vec], InlineDefs USING [LowHalf], MusicDefs, Piece USING [AddSync, RemoveSync], Score USING [BuildCache, cache, cacheLength, DrawKey, Look], Selection USING [AddLine], Sheet USING [default, FindLine, FindSection, Map, NextLine, NormalPitch, OctavaHeight, PriorLine, Reset, SetBegin], StringDefs USING [AppendDecimal], Sync USING [GetScoreIndex, Hidden, SetStave], Utility USING [DrawChar, DrawLine, DrawString, NewSync, SetFont]; SheetImplA: CEDAR PROGRAM IMPORTS Beam, Graphics, InlineDefs, MusicDefs, Piece, Score, Selection, Sheet, StringDefs, Sync, Utility EXPORTS MusicDefs, Sheet = BEGIN OPEN MusicDefs, Score, Sheet; begin: PUBLIC Time; endTime: PUBLIC Time; scale, staffLength: PUBLIC INTEGER; Last: PUBLIC PROC[l: CARDINAL] RETURNS[CARDINAL] = {FOR i: CARDINAL IN [l..sheetLength-1) DO IF sheet[i].time#sheet[i+1].time THEN RETURN[i]; ENDLOOP; RETURN[sheetLength-1]}; LineNumber: PUBLIC PROC[l: CARDINAL] RETURNS[n: CARDINAL _ 1] = {FOR i: CARDINAL IN (0..l] DO IF sheet[i].y#sheet[i-1].y THEN n _ n+1; ENDLOOP}; NextLine: PUBLIC PROC[l: CARDINAL] RETURNS[CARDINAL] = {FOR i: CARDINAL IN (l..sheetLength) DO IF sheet[i].y=sheet[l].y THEN LOOP; RETURN[Last[i]]; ENDLOOP; RETURN[sheetLength-1]}; NextStaff: PUBLIC PROC[s: CARDINAL, t: Time] RETURNS[CARDINAL] = {staves: StavesPTR = sheet[FindSection[t]].staves; FOR i: CARDINAL IN (s..staves.sl] DO IF staves.staff[i].y#staves.staff[s].y THEN RETURN[i]; ENDLOOP; RETURN[s]}; NormalPitch: PUBLIC PROC[staff: CARDINAL] RETURNS[INTEGER] = {RETURN[IF staff IN [0..1] THEN 48 ELSE 27]}; PriorLine: PUBLIC PROC[l: CARDINAL] RETURNS[CARDINAL] = {FOR i: CARDINAL DECREASING IN [0..l) DO IF sheet[i].y#sheet[l].y THEN {l _ i; EXIT}; ENDLOOP; FOR i: CARDINAL DECREASING IN [0..l) DO IF sheet[i].y#sheet[l].y THEN RETURN[Last[i+1]]; ENDLOOP; RETURN[Last[0]]}; PriorStaff: PUBLIC PROC[s: CARDINAL, t: Time] RETURNS[CARDINAL] = {staves: StavesPTR = sheet[FindSection[t]].staves; FOR i: CARDINAL DECREASING IN [0..s) DO IF staves.staff[i].y#staves.staff[s].y THEN RETURN[i]; ENDLOOP; RETURN[s]}; OctavaHeight: PUBLIC PROC[pitch, height: INTEGER] RETURNS[INTEGER] = {IF pitch=60 AND height<40 THEN RETURN[40]; IF pitch=60 AND height>90 THEN RETURN[90]; IF pitch=15 AND height<-40 THEN RETURN[-40]; IF pitch=15 AND height>-8 THEN RETURN[-8]; RETURN[height]}; <<****************************************************************************>> <> <<****************************************************************************>> sheet: PUBLIC ARRAY [0..sheetLength) OF Section; Initialize: PUBLIC PROC[dc: Graphics.DisplayContext] = BEGIN context _ dc; music _ Graphics.MakeFont["music"]; text _ Graphics.MakeFont["TimesRoman"]; Utility.SetFont[context, music, 8]; style _ ALL[[NIL, 0, 0, 0,[[0, 0],[0, 0],[0, 0],[0, 0]]]]; <> style[0] _ [NIL, 0, 60, 3,,]; style[0].staff _[[72,-32],[48,-88],[27,-136],[3,-196]]; <> style[1] _ [NIL, 0, 80, 3,,]; style[1].staff _[[48,-32],[48,-32],[48,-32],[48,-32]]; <> style[2] _ [NIL, 0, 85, 3,,]; style[2].staff _[[48,-32],[48,-32],[27,-125],[27,-125]]; style[12] _ [NIL, 0, 85, 3,,]; style[12].staff _[[48,-32],[48,-32],[27,-150],[27,-150]]; <> style[3] _ [NIL, 0, 75, 3,,]; style[3].staff _[[48,-32],[48,-32],[27,-110],[27,-185]]; style[13] _ [NIL, 0, 75, 3,,]; style[13].staff _[[48,-32],[48,-32],[27,-130],[27,-220]]; <> style[4] _ [NIL, 0, 75, 3,,]; style[4].staff _[[48,-32],[48,-110],[27,-185],[27,-260]]; show _ [, TRUE, TRUE, FALSE, FALSE, TRUE, graphical]; selection _ ALL[NIL]; selectionLength _ 0; begin _ 0; scale _ 1; staffLength _ 550; TF _ 256; Score.Look[sheet,, 2]; Selection.AddLine[0, 0]; END; Reset: PUBLIC PROC= { sync: SyncPTR _ NIL; staves: StavesPTR _ NIL; page, pitch: INTEGER _ 2; v, j, last, next: CARDINAL _ 0; time, break, lastBreak, cacheTime: Time _ 0; top, height, x, sc, lastHeight: INTEGER _ 0; Score.BuildCache[]; IF scale=2 THEN sc _ 3 ELSE sc _ 2*scale; [staves, last, next] _ NextStyle[NIL, 0, 0, 100]; IF staves=NIL THEN RETURN; FOR i: CARDINAL IN [0..cacheLength] DO IF i#cacheLength AND cache[i].type NOT IN SheetSwitch THEN LOOP; IF i=cacheLength THEN cacheTime _ LONG[staffLength]*sheetLength ELSE cacheTime _ cache[i].time; WHILE time=break THEN { -- new line height _ height-lastHeight; x_ MAX[8, ABS[8*(sheet[j].key)]]; lastBreak _ break; break _ lastBreak+staffLength-x; [staves, last, next] _ NextStyle[staves, last, next, break-20]; lastHeight _ -staves.staff[staves.sl].y+staves.offset; IF top-height>(650*sc)/2 THEN { -- new page top _ height; sheet[j].page _ page; page _ page+1}}; sheet[j].x _ x; sheet[j].y _ height; sheet[j].staves _ staves; time _ MIN[break, cacheTime]; j _ j + 1; ENDLOOP; IF i=cacheLength THEN EXIT; IF cache[i].type=staves THEN LOOP; Sync.SetStave[staves, cache[i]]; staves _ LOOPHOLE[@cache[i].event]; IF cache[i].type#clef THEN LOOP; IF Sync.Hidden[0, Sync.GetScoreIndex[cache[i]], lastBreak] THEN time _ lastBreak; ENDLOOP; IF scale=2 THEN Paginate[]; Sheet.SetBegin[begin]; FOR i: CARDINAL IN [0..beamHeapLength) DO IF beamHeap[i].sync2.timemax THEN LOOP; Beam.SetStems[beamHeap[i]]; ENDLOOP; }; NextStyle: PROC[old: StavesPTR, last, next: CARDINAL, break: Time] RETURNS[StavesPTR, CARDINAL, CARDINAL] = { temp, new: StavesPTR; newLast, newNext: CARDINAL _ 0; new _ old; newLast _ last; newNext _ next; FOR i: CARDINAL IN [next..cacheLength) DO IF cache[i].time>=break+40 THEN EXIT; IF cache[i].type#staves THEN LOOP; newNext _ i; IF cache[i].time>=break THEN EXIT; temp _ LOOPHOLE[@cache[i].event]; IF temp=old THEN LOOP; IF new#NIL AND i#next AND new.staff[new.sl].y=time+staffLength THEN EXIT; IF cache[i].type#keySignature THEN LOOP; IF cache[i].time> LayoutPage[count, first, line, limit+count*min-start-height]; sheet[line].page _ page; page _ page+1; <> first _ line; line _ last; count _ 0; height _ -start; ENDLOOP; }; LayoutPage: PROC[lines, first, last, space: CARDINAL] = { oldHeight, height: INTEGER _ sheet[first].y; <> FOR i: CARDINAL IN (first..sheetLength) DO IF sheet[i].y#oldHeight THEN {--new line IF i>last THEN EXIT; oldHeight _ sheet[i].y; height _ sheet[i-1].y+sheet[i-1].staves.staff[3].y; height _ height-space/lines}; sheet[i].y _ height; sheet[i].page _ 0; ENDLOOP; }; FindLine: PUBLIC PROC[t: Time] RETURNS[l: INTEGER] = { start: CARDINAL _ 0; FOR i: CARDINAL IN [0..sheetLength-1) DO IF sheet[i].time#sheet[i+1].time THEN {start _ i; EXIT}; ENDLOOP; l _ start; FOR i: CARDINAL _start, NextLine[i] DO IF sheet[i].time<=t THEN l _ i ELSE RETURN; IF i=sheetLength-1 THEN RETURN; ENDLOOP; }; FindSection: PUBLIC PROC[t: Time] RETURNS[INTEGER] = { IF t>=sheet[current].time THEN { IF current=sheetLength-1 THEN RETURN[current]; WHILE t>=sheet[current+1].time DO current _ current+1; IF current=sheetLength-1 THEN RETURN[current]; ENDLOOP; RETURN[current]; } ELSE { WHILE current#0 AND t> <> <<****************************************************************************>> SetStyle: PUBLIC PROC[index: INTEGER, t1, t2: Time] = { old: INTEGER _ -1; temp, sync: SyncPTR _ NIL; endOfScore: Time=EndOfScore[]; IF index NOT IN [0..20] THEN {flash _ TRUE; RETURN}; IF style[index].sl=0 THEN {flash _ TRUE; RETURN}; SetDirty[begin, endTime]; sync_ NearestMeasure[t1, 10]; temp_ NearestMeasure[t2, 10]; IF sync#NIL THEN t1 _ sync.time+1; IF temp#NIL THEN t2 _ temp.time-1; <> FOR i: CARDINAL IN [0..cacheLength) DO IF cache[i].type#staves THEN LOOP; IF cache[i].time>=t1-1 THEN EXIT; old _ cache[i].value; ENDLOOP; <> FOR i: CARDINAL DECREASING IN [0..cacheLength) DO IF cache[i].time>t2 THEN LOOP; IF cache[i].time> IF old#index THEN { IF sync#NIL THEN Piece.RemoveSync[score, sync]; IF sync=NIL THEN {sync _ Utility.NewSync[]; sync.time _ t1}; sync.type _ staves; sync.value _ index; sync.event _ LOOPHOLE[style[index]]; Piece.AddSync[score, sync]}; IF old#index AND old#-1 AND t2#endOfScore THEN { IF temp#NIL THEN Piece.RemoveSync[score, temp]; IF temp=NIL THEN {temp _ Utility.NewSync[]; temp.time _ t2}; temp.type _ staves; temp.value _ old; temp.event _ LOOPHOLE[style[old]]; Piece.AddSync[score, temp]}; <> Sheet.Reset[]; Sheet.SetBegin[begin]; FOR i: CARDINAL IN [0..beamHeapLength) DO Beam.SetStems[beamHeap[i]]; ENDLOOP; Selection.AddLine[t1, t2]; }; NearestMeasure: PROC[time, delta: Time] RETURNS[SyncPTR] = { s: SyncPTR _ NIL; FOR i: CARDINAL IN [0..scoreLength) DO IF score[i].type#measure AND score[i].type#staves THEN LOOP; IF ABS[score[i].time-time]>delta THEN LOOP; delta _ ABS[score[i].time-time]; s _ score[i]; ENDLOOP; RETURN[s]; }; style: PUBLIC ARRAY [0..20] OF Staves; GetStyle: PUBLIC PROC[time: Time] RETURNS[INTEGER] = { equal: BOOL; staves: StavesPTR = sheet[Sheet.FindLine[time]].staves; IF staves=NIL THEN RETURN[-1]; FOR i: CARDINAL IN [0..20] DO IF style[i].sl#staves.sl THEN LOOP; equal _ TRUE; FOR j: CARDINAL IN [0..style[i].sl] DO IF style[i].staff[j].y#staves.staff[j].y THEN {equal _ FALSE; EXIT}; ENDLOOP; IF equal THEN RETURN[i]; ENDLOOP; RETURN[-1]; }; <<****************************************************************************>> <> <<****************************************************************************>> SetClef: PUBLIC PROC[pitch, staff: INTEGER, time: Time] = { s: SyncPTR _ NIL; staves: StavesPTR; <> s _ Utility.NewSync[]; staves _ LOOPHOLE[@s.event]; staves^ _ sheet[Sheet.FindSection[time]].staves^; staves.staff[staff].pitch _ pitch; s.type _ clef; s.time _ time; s.value _ staff; Piece.AddSync[score, s]; Sheet.Reset[]; }; DrawClef: PUBLIC PROC[pitch, staff: INTEGER, time: Time] = { x, y: INTEGER; l: CARDINAL _ Sheet.FindLine[time]; IF time IN (sheet[l].time..sheet[l].time+15] THEN time _ sheet[l].time; [x, y] _ Sheet.Map[time,, staff]; IF sheet[l].time=time THEN x _ -21; Graphics.MoveTo[context,[x, y+16]]; IF voice THEN Graphics.SetTexture[context, light]; SELECT TRUE FROM x=-21 AND pitch=27 => Utility.DrawChar[context, 121C]; x=-21 AND pitch=48 => Utility.DrawChar[context, 120C]; pitch=27 => Utility.DrawChar[context, 131C]; pitch=48 => Utility.DrawChar[context, 130C]; ENDCASE; }; <<****************************************************************************>> <> <<****************************************************************************>> SetOctava: PUBLIC PROC[pitch, staff, height: INTEGER, t1, t2: Time] = { s: SyncPTR _ NIL; current: INTEGER; section: CARDINAL; staves: StavesPTR; normal: INTEGER = Sheet.NormalPitch[staff]; IF t1>=t2 THEN RETURN; <> FOR i: CARDINAL IN [0..cacheLength) DO IF cache[i].timet2 THEN EXIT; IF cache[i].type NOT IN SheetSwitch THEN LOOP; staves _ LOOPHOLE[@cache[i].event]; current _ staves.staff[staff].pitch; IF current=normal THEN LOOP; flash _ TRUE; RETURN; ENDLOOP; section _ Sheet.FindSection[t1]; IF sheet[section].staves.staff[staff].pitch#normal THEN {flash _ TRUE; RETURN}; <> s _ Utility.NewSync[]; staves _ LOOPHOLE[@s.event]; staves^ _ sheet[section].staves^; staves.staff[staff].pitch _ pitch; staves.height _ Sheet.OctavaHeight[pitch, height]; s.type _ octava1; s.time _ t1; s.value _ staff; Piece.AddSync[score, s]; <> s _ Utility.NewSync[]; staves _ LOOPHOLE[@s.event]; staves^ _ sheet[Sheet.FindSection[t2]].staves^; staves.staff[staff].pitch _ normal; s.type _ octava2; s.time _ t2; s.value _ staff; Piece.AddSync[score, s]; Sheet.Reset[]; }; DrawOctava: PUBLIC PROC[pitch, staff, height: INTEGER, t1, t2: Time] = { x1, x2, y: INTEGER _ 0; section1, section2: CARDINAL; IF t1>t2 THEN RETURN; IF pitch#60 AND pitch#15 THEN RETURN; height _ Sheet.OctavaHeight[pitch, height]; Utility.SetFont[context, text, 12]; section1 _ Sheet.FindSection[t1]; section2 _ Sheet.FindSection[t2]; IF voice THEN Graphics.SetTexture[context, light]; FOR i: CARDINAL IN [section1..section2] DO IF i+1=sheetLength THEN EXIT; IF sheet[i].time=endTime THEN EXIT; IF sheet[i].time=sheet[i+1].time THEN LOOP; [x1,] _ Sheet.Map[MAX[t1, sheet[i].time],, staff]; [x2, y] _ Sheet.Map[MIN[t2, sheet[i+1].time-1],, staff]; IF x1>staffLength-15 AND i=section1 THEN LOOP; x2 _ x2+1; y _ y+height; IF x1<10 OR i=section1 THEN { Graphics.MoveTo[context,[x1, y-8]]; Utility.DrawChar[context,'8]; x1 _ x1+7; }; IF x10 THEN 7 ELSE -7)]; ENDLOOP; Utility.SetFont[context, music, 8]; }; DrawDottedLine: PROC[x1, y, x2, y2: INTEGER] = INLINE { x: INTEGER; IF NOT print THEN { Graphics.SetTexture[context, 146314B]; Utility.DrawLine[x1, y, x2, y]; Graphics.SetTexture[context, black]; RETURN; }; x _ x1; WHILE x> <> <<****************************************************************************>> HiLite: PUBLIC PROC[tex: Graphics.Texture, t1, t2: Time] = { OPEN Graphics; x1, y1, x2, y2, lastY: INTEGER; v1, v2: Graphics.Vec; offset: INTEGER _ IF tex=white THEN 58 ELSE 40; section1, section2, i, j: CARDINAL; IF t1 >= t2 THEN RETURN; <> Graphics.SetPaint[context, IF tex=white THEN replace ELSE invert]; Graphics.SetTexture[context, tex]; i _ Sheet.FindLine[t1]; j _ Sheet.PriorLine[i]; IF i=j THEN lastY _ 100 ELSE lastY _ sheet[j].y; j _ section1 _ FindSection[t1]; section2 _ FindSection[t2]; FOR i IN [section1..section2] DO IF sheet[i].time>endTime THEN EXIT; IF i#section2 AND sheet[i].time=sheet[i+1].time THEN LOOP; IF tex#white AND i#section2 AND sheet[i].y=sheet[i+1].y THEN LOOP; offset _ sheet[i].staves.offset; IF tex=white THEN offset _ offset/2 ELSE offset _ offset/4; [x1, y1] _ Sheet.Map[MAX[t1, sheet[j].time],, 0]; [x2, y2] _ Sheet.Map[MIN[t2, sheet[i+1].time-1],, sheet[i].staves.sl]; y1 _ y1+offset+34; y2 _ y2-offset; IF x2> Graphics.SetPaint[context, paint]; }; Draw: PUBLIC PROC = { x: INTEGER; j: CARDINAL; staves: StavesPTR = sheet[0].staves; sheetHeight: INTEGER = staves.staff[staves.sl].y; IF begin=0 THEN Utility.DrawLine[-23, 0,-23, sheetHeight]; endTime _ begin; IF scale=2 THEN x _ 3 ELSE x _ 2*scale; FOR j _ Sheet.FindLine[begin], Sheet.NextLine[j] DO IF sheet[j].y-top<(-650*x)/2 THEN {endTime _ sheet[j].time; EXIT}; DrawStaves[sheet[j],-25, staffLength]; ENDLOOP; }; DrawStaves: PROC[l: Section, start, length: INTEGER] = { sheetHeight: INTEGER _ l.staves.staff[l.staves.sl].y; i: CARDINAL; y: INTEGER _ l.y-top; oldStaff _ [0, 0]; Graphics.SetTexture[context, black]; IF start=-25 THEN Utility.DrawLine[start, y, start, y+sheetHeight]; IF start=-25 AND show.accidental THEN Score.DrawKey[l.key, l.time]; IF l.page>1 THEN { s: STRING _ [5]; StringDefs.AppendDecimal[s, l.page]; Graphics.MoveTo[context,[staffLength+10, y+30]]; Utility.SetFont[context, text, 12]; Utility.DrawString[context, s]; Utility.SetFont[context, music, 8]; }; IF scale>3 THEN { Graphics.SetLineWidth[context, 8]; IF length=staffLength THEN Utility.DrawLine[length, y, length, y+sheetHeight]; IF NOT show.notehead THEN Graphics.SetTexture[context, grey]; Utility.DrawLine[start, y, length, y]; Utility.DrawLine[start, y+sheetHeight, length, y+sheetHeight]; Graphics.SetTexture[context, black]; Graphics.SetLineWidth[context, 4]; } ELSE FOR i IN [0..l.staves.sl] DO DrawStaff[l.staves.staff[i], y, start, length] ENDLOOP; }; DrawStaff: PROC[s: Staff, y, start, length: INTEGER] = { w: REAL _ 1; ll, ur: Graphics.Vec; i: CARDINAL; tex: Graphics.Texture _ Graphics.GetTexture[context]; IF s=oldStaff THEN RETURN; oldStaff _ s; y _ y + s.y; Graphics.SetTexture[context, IF show.notehead THEN black ELSE grey]; IF print THEN w _ w/2; ll _ [start, y-w]; ur _[length, y+w]; FOR i IN [0..5) DO Graphics.DrawRectangle[context, ll, ur]; ll.y _ ll.y+8; ur.y _ ur.y+8; ENDLOOP; Graphics.SetTexture[context, black]; IF start<0 THEN Graphics.SetPaint[context, paint]; IF (s.pitch=27 OR s.pitch=15) AND start<0 THEN { Graphics.MoveTo[context,[-21, y+16]]; Utility.DrawChar[context, 121C]}; IF (s.pitch=48 OR s.pitch=60) AND start<0 THEN { Graphics.MoveTo[context,[-21, y+16]]; Utility.DrawChar[context, 120C]}; Graphics.SetTexture[context, tex]; }; oldStaff: Staff; d: CARDINAL = 8; <<****************************************************************************>> <> <<****************************************************************************>> top: PUBLIC INTEGER _ 0; SetBegin: PUBLIC PROC[now: Time] = { l: Section _ sheet[Sheet.FindLine[now]]; begin _ l.time; top _ l.y; }; Scroll: PUBLIC PROC[lines: INTEGER] = { section: CARDINAL _ Sheet.FindLine[begin]; IF lines<0 THEN FOR i: CARDINAL IN [0..ABS[lines]) DO IF section=0 THEN EXIT; section _ Sheet.PriorLine[section]; ENDLOOP ELSE FOR i: CARDINAL IN [0..ABS[lines]) DO section _ Sheet.NextLine[section]; IF section=sheetLength THEN RETURN; ENDLOOP; Sheet.SetBegin[sheet[section].time]; min _ 0; max _ EndOfScore[]; }; Scale: PUBLIC PROC[newScale: INTEGER] = { one: REAL = 1; two: REAL = 2; IF scale=newScale THEN RETURN; <> SELECT scale FROM 2 => Graphics.Scale[context,[3/two, 3/two]]; 4 => Graphics.Scale[context,[4, 4]]; ENDCASE; staffLength _ 550; <> SELECT newScale FROM 1 => {scale _ 1; staffLength _ staffLength; Graphics.SetLineWidth[context, 1]}; 2 => {scale _ 2; --actually 3/2 staffLength _ (3*staffLength)/2; Graphics.Scale[context,[two/3, two/3]]; Graphics.SetLineWidth[context, 2]}; 4 => {scale _ 4; staffLength _ 4*staffLength; Graphics.Scale[context,[one/4, one/4]]; Graphics.SetLineWidth[context, 4]}; ENDCASE; Sheet.Reset[]; Sheet.SetBegin[begin]; min _ 0; max _ EndOfScore[]; }; END.