NoteWorthy Composer Forum

!NoteWorthyComposerClip(2.0,Single)
|Note|Dur:8th,Dotted|Pos:-6|Opts:Stem=Up,Beam=First
|Note|Dur:16th|Pos:-3|Opts:Stem=Up,Beam=End
|Note|Dur:8th,Dotted|Pos:-1|Opts:Stem=Up,Beam=First
|Note|Dur:16th|Pos:0|Opts:Stem=Up,Beam=End
!NoteWorthyComposerClip-End

$	get := read infile /end=EOI
$	put := write outfile 
$!
$	open /read infile 'P1'
$	open /write outfile 'P2'
$ LOOP:
$	have_rec2 = 0
$	get rec
$	if F$element(1,"|",rec).nes."Note" then goto PUT
$	if F$element(2,"|",rec).nes."Dur:8th,Dotted" then goto PUT
$!
$! Now we have a dotted 8th, read the next record...
$!
$	get rec2
$	have_rec2 = 1
$	if F$element(1,"|",rec2).nes."Note" then goto PUT
$	if F$element(2,"|",rec2).nes."Dur:16th" then goto PUT
$!
$! Now we have a pair of [dotted 8th,16th], modify the records...
$!
$	fr = "8th,Dotted"
$	to = "8th"
$	di = F$len(fr)-F$len(to)
$	ifrom = F$loc(fr,rec)
$	rec = F$ext(0,ifrom,rec)+to+F$ext(ifrom+F$len(to)+di,255,rec)
$!
$	fr = "16th"
$	to = "8th"
$	di = F$len(fr)-F$len(to)
$	ifrom = F$loc(fr,rec2)
$	rec2 = F$ext(0,ifrom,rec2)+to+F$ext(ifrom+F$len(to)+di,255,rec2)
$ PUT:
$	put rec
$	if .NOT.have_rec2 then goto LOOP
$	put rec2
$	goto LOOP
$ EOI:
$	close infile
$	close outfile

• "Collapse" the flow control
• Listen to a recording and do the dynamics
• Ask Eric -politely- for an extension to his UnJazzify.php. Note the piano score with in the RH pairs of (Dotted 8th rest,16th note) and in the LH pairs of (Dotted 8th note, 16th rest). For this to work with the tempo controllers, each staff must have straight eighths