NoteWorthy Composer Forum

• copy the lua files in a folder on your own computer and memorize the location
• in NoteWorthyComposer, with a score open, go to menu Tools \ User Tools
• click on the NEW button
• Fill out the information as in the example in the attached image: user_tool_description.png

• Group and Name can be chosen freely
• Command should point to the lua-file (memorized location)
• Be sure to select File Text as Input Type
• Be sure to select Returns File Text as Option

• in NoteWorthyComposer, with a score open, go to menu Tools \ User Tools
• navigate to the usertool by selecting the correct item in Group and Available Commands
• click on the RUN button
• change or use the default value (N) (see attached file user_prompt.png)
• click OK
• Since the unmute script can undo the mute script and vice versa, the "Save Recommendation" may be denied

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

if WinExist("ahk_exe NWC2.exe") 
   WinActivate, ahk_exe NWC2.exe

f12::
 send, {alt down}t{alt up}e
Return

-- $NWCUT$CONFIG: FileText $
nwcut.setlevel(2)
nwcut.status = nwcut.const.rc_Succes
--nwcut.status = nwcut.const.rc_Report

local progname = 'Sibling'
local ASI   = 0              -- Active  Staff Parameters 
local ASN   = "UnDefined";
local CSI   = 0              -- Current Staff Parameters 
local CSN   = "UnDefined";
local DSG  = "SIBLINGS"
local DSPN = "SiblingInstrument"
local HelpMsg = [[
This tool mutes the active staff and adds 2 copies all its relevant information into 2 new sibling staves.
The active staff is slightly modified if it is not already in this state: the instrument is explicitely specified [line 33] and the staff is muted [line 34].
If staves with sibling name <original_name>_Sibling1 or <original_name>_Sibling1 already exist, they will be removed [line 36].
2 (hidden) sibling staves are added at the end of the score based on the ActiveStaff (named : <original_name>_sibling<i>) [line 67 and line 68].
The midi channels used for sibling staves are 15 and 16 [line 48] and since they are at the end of the score, they will override midi definitions for staves that were assigned earlier to these channels.
The sibling staves are made invisible to avoid sibling them again [line 52].
The sibling staves receive Instrument Patches 00 (piano) and 89 (Pad 2 warm) [line 56].
Instrument changes in the ActiveStaff are skipped in the sibling [line 58].
]]

--------------------------------------
-- Main processing -------------------
--------------------------------------
assert(nwcut.getprop('Mode')       == nwcut.const.mode_FileText, "Input type must be 'File Text'")
assert(nwcut.getprop('ReturnMode') == nwcut.const.mode_FileText, "Under 'Options', check 'Returns File Text'")
mt = {} ; mt[0]={}
for item in nwcut.items() do
    if item:Is('Editor')          then  ASI = item.Opts.ActiveStaff + 0 ; end--if
	if item:Is('AddStaff')        then  CSI = CSI + 1 ; mt[CSI] = {} ; CSN = item.Opts.Name.Text ; CSOGN = item.Opts.Group.Text ; if CSI == ASI then ASN = CSN end ; end--if
	if item:Is('StaffInstrument') then  if not item.Opts.Patch then item.Opts.Patch=0 end ; if not item.Opts.Name  then item.Opts.Name="\"NN\"" end ; end--if 
    if item:Is('StaffProperties') and ( CSI == ASI ) and ( item.Opts.Muted ) then item.Opts.Muted="Y" end--if 

	if not ( string.gsub(CSN,'%-','_') == string.gsub(ASN,'%-','_').."_sibling1" or string.gsub(CSN,'%-','_') == string.gsub(ASN,'%-','_').."_sibling2" ) then table.insert(mt[CSI],tostring(item)) end--if

	if CSI == ASI then
       SS1 = nwcItem.new(tostring(item)) ; SS2 = nwcItem.new(tostring(item)) 
       if item:Is('AddStaff')  then 
          SS1.Opts.Name = CSN .. "_sibling1" ; SS2.Opts.Name = CSN .. "_sibling2" ; 
          SS1.Opts.Group = DSG ; SS2.Opts.Group = DSG   
          ST1 = {} ; ST2 = {} ;
       end--if
       if item:Is('StaffProperties') then 
          if ( item.Opts.Muted or item.Opts.Channel or item.Opts.Volume or item.Opts.StereoPan)  then 
            SS1.Opts.Muted = "N"    ; SS2.Opts.Muted = "N"                
            SS1.Opts.Channel = 15   ; SS2.Opts.Channel = 16           
            SS1.Opts.Volume = 100   ; SS2.Opts.Volume = 100   
            SS1.Opts.StereoPan = 64 ; SS2.Opts.StereoPan = 64 
          elseif item.Opts.Visible then 
            SS1.Opts.Visible = "N"  ; SS2.Opts.Visible = "N"
          end--if
       end--if
       if item:Is('StaffInstrument') then 
          SS1.Opts.Patch = 89    ; SS2.Opts.Patch = 0 ;  
          SS1.Opts.Name  = DSPN  ;  SS2.Opts.Name  = DSPN              
        end--if
       if item:Is('TempoVariance') and item.Opts.Pause then SS1.Opts.Pause = 0 ; SS2.Opts.Pause = 0 ; end--if
       if not item:Is('Instrument') then table.insert(ST1,tostring(SS1)) ; table.insert(ST2,tostring(SS2)) ; end--if
    end--if
end--for

for j=0,CSI do 
   for i=1,#mt[j] do nwcut.writeline (mt[j][i]) end--for
end--for
for i=1,#ST1 do nwcut.writeline (ST1[i]) end--for
for i=1,#ST2 do nwcut.writeline (ST2[i]) end--for

!NoteWorthyComposerClip(2.5,Single)
|Clef|Type:Treble
|Instrument|Name:"String Ensemble 1"|Patch:48|Trans:0|DynVel:10,30,45,60,75,92,108,127|Pos:8
|Chord|Dur:Half|Pos:-6^,-3^,-1^
|Chord|Dur:Half|Pos:-7,-5,-2
|Chord|Dur:Half|Pos:-6,-4,-2
!NoteWorthyComposerClip-End

!NoteWorthyComposerClip(2.0,Single)
|Clef|Type:Treble
|SustainPedal|Pos:-8|Wide:Y
|Instrument|Name:"Acoustic Grand Piano"|Patch:0|Trans:0|DynVel:10,30,45,60,75,92,108,127|Pos:7|Wide:Y
|Note|Dur:4th|Pos:-6
|Note|Dur:4th|Pos:-4
|Note|Dur:Half|Pos:-2
|Bar
|Text|Text:"ACTIVE SCORE STOPPED"|Font:StaffItalic|Pos:-10
|Text|Text:"NEW SCORE STARTED"|Font:StaffItalic|Pos:-17
|Rest|Dur:Whole
|Bar
|Instrument|Name:"Church Organ"|Patch:19|Trans:0|DynVel:10,30,45,60,75,92,108,127|Pos:7|Wide:Y
|Note|Dur:4th|Pos:-1
|Note|Dur:4th|Pos:-3
|Note|Dur:Half|Pos:-4
|Bar
|Rest|Dur:Whole
|Bar
|SustainPedal|Status:Released|Pos:-8|Wide:Y
|Text|Text:"WANTED BEHAVIOR"|Font:StaffItalic|Pos:-16
|Rest|Dur:Whole
|Bar
|Instrument|Name:"Church Organ"|Patch:19|Trans:0|DynVel:10,30,45,60,75,92,108,127|Pos:7|Wide:Y
|Note|Dur:4th|Pos:-1
|Note|Dur:4th|Pos:-3
|Note|Dur:Half|Pos:-4
|Bar
!NoteWorthyComposerClip-End