NoteWorthy Composer Forum

!NoteWorthyComposerClip(2.5,Single)
|Note|Dur:4th|Pos:0
|Note|Dur:4th|Pos:0!1
|Note|Dur:4th|Pos:0!1
|Note|Dur:4th|Pos:0!1
!NoteWorthyComposerClip-End

• Save the file.
• Create a "good" object (i.e., note or rest) in front of those you need to change.
• Cut your model and the things you need to change to the clipboard.
• Start your editor (if necessary) and paste the clipboard into the workspace.
• Make your changes with that editor's "search and replace" function.
• Remove your model object if need be.
• Select everything in the editor and cut it back to the clipboard.
• Return to NWC (Alt/Tab).  Doing it this way won't change the cursor position.
• Paste it back into NWC (CntlV).

/*
 unShape.js  by Warren Porter


                                  Un-shape Tool
 This tool will remove the shape attribute 

 This tool can operate on ONLY a selected part of a staff, or, if nothing has been selected, the entire staff.

 To install:
 1) Save this file with the name unShape.js on your computer and remember its location.
 2) Start NWC and press Alt/F8.  Pick new
 3) After choosing a name and group, browse for this file and click "Open".
 4) Insert "wscript " at the beginning of the command.
 5) Clip text should be selected and check no options.
 */

rc=0, errMsg="";

function doProcess(clip) {
var displ=0, upDispl=0;
var result = new Array();
var lines = clip.split("\r\n");
  for (i = 1; i < lines.length; i++) {           // Main processing loop
	  if (/Fake/.test(lines[i]))
	    lines[i] = "#";
	  else {
    result = lines[i].match(/(\|Note.*Pos:)([n#bvx]?)(-?\d+)([a-h])(\^?)(.*)$/) // 1. Note thru Pos 2. Accidental 3. Position 4. Shape 5. Ties 6. To end of line
	if (result != null) {
	  lines[i] = result[1] + result[2] + result[3] + result[5] + result[6] }
   } }    // End main loop
  return lines;
}

var myLines;
myLines=doProcess(WScript.StdIn.ReadAll()).join("\r\n");

if (rc == 0)
  WScript.StdOut.Write(myLines);
else
  WScript.StdErr.Write(errMsg);
WScript.quit(rc);

!NoteWorthyComposerClip(2.5,Single)
|Clef|Type:Treble
|Text|Text:"Am7"|Font:StaffBold|Pos:10
|Note|Dur:16th,Grace|Pos:-8^|Opts:Stem=Up,Beam=First
|Note|Dur:16th,Grace|Pos:-4^|Opts:Stem=Up,Beam
|Note|Dur:16th,Grace|Pos:-2^|Opts:Stem=Up,Beam
|Note|Dur:16th,Grace|Pos:1^|Opts:Stem=Up,Beam=End
|Chord|Dur:Half|Pos:-8,-4,-2,1,3
!NoteWorthyComposerClip-End

!NoteWorthyComposerClip(2.5,Single)
|Rest|Dur:16th,Dotted
|Note|Dur:16th,Dotted|Pos:-2|Opts:Stem=Up,Beam=First
|Note|Dur:16th|Pos:-1|Opts:Stem=Up,Beam=End
|Note|Dur:16th,Dotted|Pos:0|Opts:Stem=Down,Beam=First
|Note|Dur:16th,Dotted|Pos:2|Opts:Stem=Down,Beam
|Note|Dur:16th|Pos:1|Opts:Stem=Down,Beam=End
|Note|Dur:16th,Dotted|Pos:1|Opts:Stem=Down,Beam=First
|Note|Dur:16th,Dotted|Pos:3|Opts:Stem=Down,Beam
|Note|Dur:16th|Pos:2|Opts:Stem=Down,Beam=End
!NoteWorthyComposerClip-End

/* Midi triplet conversion by Warren Porter "MidiTriplets.js"
   After downloading this file, when setting it up in NWC User Tools create this command line:
   
   wscript "'Browse can insert the path for you' \MidiTriplets.js" 
   
   This can convert "midi triplets" (16th, dotted; 16th, dotted; 16th) into a set of 8th, triplets
 */
var rc=0, errMsg=""
function calculate(clip) {
  var i, j=0, dsi;
  var lines = new Array(), result = new Array(), mt=0, measureTab = new Array, beatletCount=0, targetMeasure = 768;
  var thisDur, thisNote, durSplit;
  lines = clip.split("\r\n");
  var lineLength3 = lines.length - 3;
  for (i=0; i < lineLength3; i++) {   
    if (/Dur:16th,Dotted/.test(lines[i]) && !/Dur2/.test(lines[i]) && /Dur:16th,Dotted/.test(lines[i+1]) && !/Dur2/.test(lines[i+1]) && 
	      !/Dur2/.test(lines[i+2]) && /Dur:16th/.test(lines[i+2]) && !/Dotted/.test(lines[i+2])) {
	  lines[i] = lines[i].replace("Dur:16th,Dotted","Dur:8th,Triplet=First");
	  lines[i+1]= lines[i+1].replace("Dur:16th,Dotted","Dur:8th,Triplet");
	  lines[i+2]=lines[i+2].replace("Dur:16th","Dur:8th,Triplet=End");
	  i+=2; }
  }  //End main processing loop	  
  return lines;
}

var myLines=calculate(WScript.StdIn.ReadAll()).join("\r\n")
  
if (rc == 0)
  WScript.StdOut.Write(myLines);
else
  WScript.StdErr.Write(errMsg);
WScript.quit(rc);
 

!NoteWorthyComposerClip(2.5,Single)
|Clef|Type:Treble
|TimeSig|Signature:6/4
|Dynamic|Style:ff|Pos:-8
|Tempo|Tempo:84|Pos:7
|Note|Dur:4th|Pos:1
|Note|Dur:4th|Pos:1
|Tempo|Tempo:105|Pos:7|Visibility:Never
|Note|Dur:16th,Accent|Pos:1|Opts:Stem=Down,Beam=First
|Dynamic|Style:p|Pos:-8
|Note|Dur:16th|Pos:1|Opts:Stem=Down,Beam
|Text|Text:"5"|Font:StaffItalic|Pos:-12
|Tempo|Tempo:70|Pos:12|Visibility:Never
|Note|Dur:16th,Triplet=First|Pos:1|Opts:Stem=Down,Beam
|Note|Dur:16th,Triplet|Pos:1|Opts:Stem=Down,Beam
|Note|Dur:16th,Triplet=End|Pos:1|Opts:Stem=Down,Beam=End
|Tempo|Tempo:84|Pos:7|Visibility:Never
|Dynamic|Style:ff|Pos:-8
|Note|Dur:4th,Accent|Pos:1
|Note|Dur:4th|Pos:1
|Note|Dur:4th|Pos:1
!NoteWorthyComposerClip-End

/*
 doOctave.js  by Warren Porter

 <PROMPT:Dir?:=|Up|Down>
                                  Octave Tool
 This tool will convert a note to an octave chord, replicating accidentals and tie status.  The new note will be higher or lower
 than the original note depending on the prompt.

 This tool can operate on ONLY a selected part of a staff, or, if nothing has been selected, the entire staff.

 To install:
 1) Save this file with the name doOctave.js on your computer and remember its location.
 2) Start NWC and press Alt/F8.  Pick new
 3) After choosing a name and group, browse for this file and click "Open".
 4) Insert "wscript " at the beginning of the command and " <PROMPT:Dir?:=|Up|Down>" at the end.
 5) Clip text should be selected and check no options.
 */

rc=0, errMsg="";

function doUp(clip) {
var displ=0, upDispl=0;
var result = new Array();
var lines = clip.split("\r\n");
  for (i = 1; i < lines.length; i++) {           // Main processing loop
	  if (/Fake/.test(lines[i]))
	    lines[i] = "#";
	  else {
    result = lines[i].match(/(\|Note.*Pos:)([n#bvx]?)(-?\d+)(\^?)(.*)$/) // 1. Note thru Pos 2. Accidental 3. Position 4. Ties 5. To end of line
	if (result != null) {
	  var note_lit = result[1];
	  var acc_lit = result[2]
	  displ = parseInt(result[3]);
	  var a_tie = result[4]
	  var eol = result[5]
	  note_lit = note_lit.replace("Note","Chord")
	  upDispl = displ + 7;
	  lines[i] = note_lit + acc_lit + displ + a_tie + "," + acc_lit + upDispl + a_tie + eol; }
   } }    // End main loop
  return lines;
}
function doDown(clip) {
var displ=0, dnDispl=0;
var result = new Array();
var lines = clip.split("\r\n");
  for (i = 1; i < lines.length; i++) {           // Main processing loop
	  if (/Fake/.test(lines[i]))
	    lines[i] = "#";
	  else {
    result = lines[i].match(/(\|Note.*Pos:)([n#bvx]?)(-?\d+)(\^?)(.*)$/) // 1. Note thru Pos 2. Accidental 3. Position 4. Ties 5. To end of line
	if (result != null) {
	  var note_lit = result[1];
	  var acc_lit = result[2]
	  displ = parseInt(result[3]);
	  var a_tie = result[4]
	  var eol = result[5]
	  note_lit = note_lit.replace("Note","Chord")
	  dnDispl = displ - 7;
	  lines[i] = note_lit + acc_lit + dnDispl + a_tie + "," + acc_lit + displ + a_tie + eol; }
   }  }   // End main loop
  return lines;
}

var myLines;
  if (WScript.Arguments.length != 1) {
    errMsg="NO Prompt read.";
	rc=1; }
  else {
    if (WScript.Arguments.Item(0).slice(0,2) == "Up")
	  myLines=doUp(WScript.StdIn.ReadAll()).join("\r\n");
	else
	  myLines=doDown(WScript.StdIn.ReadAll()).join("\r\n"); }

if (rc == 0)
  WScript.StdOut.Write(myLines);
else
  WScript.StdErr.Write(errMsg);
WScript.quit(rc);

X:1
T:Speed the Plough
M:4/4
C:Trad.
Q: "Allegro" 1/4=132
K:G
|:GABc de(dB)|de(dB) djoker(dB)|c2ec B2(dB)|c2A2 A2(BA)|
  GABc de(dB)|de(dB) de(dB)|c2(ec) B2(dB)|(A2F2) G4:|
|:g2(gf) gdBd|g2f2 (e2d2)|c2ec B2dB|c2A2iii (A2df)|
  g2(gf) g2(Bd)|g2f2 (e2d2)|c2ec B2dB|A2F2 G4:|

!NoteWorthyComposerClip(2.5,Single)
|Note|Dur:8th|Pos:2|Opts:Stem=Down,Beam=First
|Note|Dur:8th|Pos:3|Opts:Stem=Down,Beam
|Note|Dur:8th,Slur|Pos:2|Opts:Stem=Down,Beam
|Note|Dur:8th|Pos:0|Opts:Stem=Down,Beam=End
|Note|Dur:8th|Pos:2|Opts:Stem=Down,Beam=First
|Text|Text:"jok"|Font:StaffBold|Pos:-8|Wide:Y|Color:3
|Note|Dur:8th|Pos:3|Opts:Stem=Down,Beam
|Text|Text:"r"|Font:StaffBold|Pos:-8|Wide:Y|Color:3
|Note|Dur:8th,Slur|Pos:2|Opts:Stem=Down,Beam
|Note|Dur:8th|Pos:0|Opts:Stem=Down,Beam=End
!NoteWorthyComposerClip-End

!NoteWorthyComposerClip(2.5,Single)
|Note|Dur:16th,Triplet=First,Slur|Pos:-5|Opts:Stem=Up,Beam=First
|Note|Dur:16th,Triplet,Slur|Pos:-1|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=End|Pos:4|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=First,Slur|Pos:4|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet,Slur|Pos:-1|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=End|Pos:-5|Opts:Stem=Up,Beam=End
|Text|Text:"4"|Font:PageText|Pos:-8|Placement:AtNextNote
|Note|Dur:16th,Triplet=First,Slur|Pos:-5|Opts:Stem=Up,Beam=First
|Note|Dur:16th,Triplet,Slur|Pos:-3|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=End|Pos:0|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=First,Slur|Pos:0|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet,Slur|Pos:-3|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=End|Pos:-5|Opts:Stem=Up,Beam=End
|Note|Dur:16th,Triplet=First,Slur|Pos:-6|Opts:Stem=Up,Beam=First
|Note|Dur:16th,Triplet,Slur|Pos:-4|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=End|Pos:0|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=First,Slur|Pos:0|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet,Slur|Pos:-4|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=End|Pos:-6|Opts:Stem=Up,Beam=End
|Text|Text:"3"|Font:PageText|Pos:13|Placement:AtNextNote
|Note|Dur:16th,Triplet=First,Slur|Pos:-6|Opts:Stem=Up,Beam=First
|Text|Text:"4"|Font:PageText|Pos:13|Placement:AtNextNote
|Rest|Dur:16th,Triplet,Slur|Visibility:Never
|Text|Text:"O"|Font:PageText|Pos:13|Placement:AtNextNote
|Note|Dur:16th,Triplet=End,Staccato|Pos:-1|Opts:Stem=Up,Beam
|Note|Dur:16th,Triplet=First,Staccato,Slur|Pos:-1|Opts:Stem=Up,Beam
|Rest|Dur:16th,Triplet,Slur|Opts:VertOffset=-1|Visibility:Never
|Note|Dur:16th,Triplet=End|Pos:-6|Opts:Stem=Up,Beam=End
!NoteWorthyComposerClip-End

!NoteWorthyComposerClip(2.5,Single)
|Rest|Dur:Half,Dotted|Visibility:Never
|Rest|Dur:16th,Triplet=First|Opts:Stem=Down,VertOffset=-180|Visibility:Never
|Note|Dur:16th,Triplet|Pos:-1|Opts:Stem=Down
|Rest|Dur:16th,Triplet=End|Opts:Stem=Down|Visibility:Never
|Rest|Dur:16th,Triplet=First|Opts:Stem=Down,VertOffset=-180|Visibility:Never
|Note|Dur:16th,Triplet|Pos:-1|Opts:Stem=Down
|Rest|Dur:16th,Triplet=End|Opts:Stem=Down|Visibility:Never
!NoteWorthyComposerClip-End

     1068.25	Standard   Treble Clef
     1068.25	Standard   Bass Clef
     1068.25	Hidden     _Treble Clef
     1068.25	Hidden     _Bass Clef
 0.844 seconds.

• Create your new staff.
• Copy the original staff to the new one.
• Run this tool: "Resting Staff".  The new staff will have all notes, chords, and rests replaced with whole notes rests! except for pickups.
• Replace appropriate measures when necessary to layer parts from the original staff.
• Be sure the instrument and dynamic level match the original staff.
• Run the MMR tool with the "LayerHide" option.

/* Notes to Rests by Warren Porter "restStaff.js"
   After downloading this file, when setting it up in NWC User Tools create this command line:

   wscript "'Browse can insert the path for you' \restStaff.js" 

   This can help create a new staff when one is needed for layering.  First, copy an entire staff to the clipboard, create a new staff,
   then cut the clipboard to the new staff.  Run this command on that new staff.  Clefs, time signatures, and key signatures will be
   left alone on the new staff, but all notes, chords, and restchords will be replaced by rests.  Bars with "full measures" (the norm,
   it has as many beats as the time signature dictates) will be replaced with whole rests, a measure with more or fewer (like a pickup)
   will be replaced with rests of the same durations (and order if necessary) or the original notes, rests, chords, or restchords.

   The new staff may then be used for layered notes for the original staff.  It can be run through the MMR tool with the "LayerHide"
   option so unneeded parts won't display.
   
   This is not suited to creating a "tempo" or "conductor" staff.  To create a tempo staff which could be layered into all other parts
   to print parts, the clef or keys should not be copied while tempos or tempo variences should be.
 */

var rc=0, errMsg=""
function getNoteLength(notelet) {  // Returns duration of note , whole = 768
var NoteLengths = { "16th":48, "32nd":24, "4th":192, "64th":12, "8th":96, "Half":384, "Whole":768 }
parts = notelet.split(",");
var  noteLength= -1;
noteLength = NoteLengths[parts[0]];
var noteLength = ( NoteLengths[parts[0]] === undefined ) ? -1 : NoteLengths[parts[0]];
  if (noteLength == -1)
    return -1;

  for (var i = 1; i < parts.length; i++) {
    if (parts[i].substr(0,9) == "DblDotted") {
	  noteLength = noteLength * 7 / 4; }
	else
      if (parts[i].substr(0,6) == "Dotted") {
	    noteLength = noteLength * 3 / 2; }
	  else
	    if (parts[i].substr(0,7) == "Triplet") {
	      noteLength = noteLength * 2 / 3; } }
  return noteLength;
}
function calculate(clip) {
  var i, j=0, dsi;
  var lines = new Array(), result = new Array(), nlines = new Array, mt=0, measureTab = new Array, beatletCount=0, targetMeasure = 768;
  var thisDur, thisNote, durSplit;
  lines = clip.split("\r\n");
  for (i=0; i < lines.length; i++) {
	if (lines[i].slice(1,5) == "Text" || lines[i].slice(1,14) == "TempoVariance")
	  continue;
    if (lines[i].slice(1,5) == "Fake" || lines[i].slice(1,8) == "Context" ) {  // For these items, pass them thru and ignore them.
	  nlines[j++] = lines[i]; continue; }
	if (lines[i].slice(1,8) == "TimeSig") {	
	  if (beatletCount == targetMeasure)  // Measure exactly full
	    nlines[j++] = "|Rest|Dur:Whole|Visibility:Never";  // Insert whole rest
	  else {
	    for (mt = 0; mt < measureTab.length; mt++)
		  nlines[j++] = "|Rest|Dur:" + measureTab[mt] + "|Visibility:Never";}
	  beatletCount = 0, measureTab.length = 0; mt=0;
	  result = lines[i].match(/ture:(\d+)\/(\d+)/);  // Read the time signature
	  if (result == null)  //In case it is C or cut time
	    targetMeasure = 768;
	  else
	    targetMeasure = 768 * result[1] / result[2];    // Calculate length of measure	  
	  nlines[j++] = lines[i]; continue; }	  
	if (/Grace/.test(lines[i]))
	  continue;
	result = lines[i].match(/Dur:([^\|\r\n]+)/)   // Looking for anything with a duration
	if (result != null) {  // Duration loop
	  thisDur = result[1];
	  thisNote = getNoteLength(thisDur);
	  if (thisNote == -1) {
	    errMsg += "Invalid duration of " + lines[i] + "\r\n";
		rc=1;
		continue; }
	  durSplit = thisDur.split(",");
	  for (dsi=1; dsi < durSplit.length; dsi++)
	    if (!(durSplit[dsi].substr(0,9) == "DblDotted" || durSplit[dsi].substr(0,6) == "Dotted" || durSplit[dsi].substr(0,7) == "Triplet")) {
		  durSplit.length = dsi; break; }
	  measureTab[mt++] = durSplit.join(",");
	  if (lines[i].slice(1,15) == "Rest|Dur:Whole")  //So existing whole rest in , e.g., 3/4 time won't be treated as having 4 beats.
	    thisNote = targetMeasure;
	  beatletCount += thisNote;
	  continue; }   // End duration loop
	if (lines[i].slice(1,4) == "Bar" || lines[i].slice(1,5) == "Flow" || lines[i].slice(1,7) == "Ending"  || lines[i].slice(0,1) == "!"|| 
	      lines[i].slice(1,13) == "RestMultiBar" || lines[i].slice(1,9) == "Boundary" || lines[i].slice(1,11) == "Instrument" ||
		  lines[i].slice(1,4) == "MPC" || lines[i].slice(1,5) == "Clef" || lines[i].slice(1,4) == "Key" ) {  //Bar loop, flow, & spec. endings
	  if (beatletCount == targetMeasure)  // Measure exactly full
	    nlines[j++] = "|Rest|Dur:Whole|Visibility:Never";  // Insert whole rest
	  else {
	    for (mt = 0; mt < measureTab.length; mt++)
		  nlines[j++] = "|Rest|Dur:" + measureTab[mt] + "|Visibility:Never";}
	  beatletCount = 0, measureTab.length = 0; mt=0;  // Get set up for next measure
	  if (lines[i].slice(1,6) != "Tempo")
	    nlines[j++] = lines[i]; }  //End bar loop
  }  //End main processing loop
  return nlines;
}

var myLines=calculate(WScript.StdIn.ReadAll()).join("\r\n");
if (rc == 0)
  WScript.StdOut.Write(myLines);
else
  WScript.StdErr.Write(errMsg);
WScript.quit(rc);

!NoteWorthyComposerClip(2.5,Single)
|Clef|Type:Treble
|Key|Signature:Bb,Eb,Ab|Tonic:C
|Note|Dur:32nd|Pos:1|Opts:Stem=Down,Beam=First
|Note|Dur:32nd|Pos:2|Opts:Stem=Down,Beam
|Note|Dur:32nd|Pos:1|Opts:Stem=Down,Beam=End
|Bar
|Note|Dur:Half|Pos:n0
|Rest|Dur:4th
|Bar
|Note|Dur:8th|Pos:n3|Opts:Stem=Down,Beam=First
|Note|Dur:8th|Pos:5|Opts:Stem=Down,Beam=End
|Note|Dur:8th|Pos:5|Opts:Stem=Down,Beam=First
|Note|Dur:8th|Pos:3|Opts:Stem=Down,Beam=End
|Text|Text:"f"|Font:StaffSymbols|Pos:6|Placement:AtNextNote
|Note|Dur:16th|Pos:0|Opts:Stem=Down,Beam=First
|Note|Dur:16th|Pos:5|Opts:Stem=Down,Beam
|Note|Dur:16th|Pos:3|Opts:Stem=Down,Beam
|Note|Dur:16th|Pos:0|Opts:Stem=Down,Beam=End
!NoteWorthyComposerClip-End