Nama - multitrack recorder and digital audio workstation
See `man nama` for details.
@@ commands_yml --- help: type: help what: Display help on Nama commands. short: h parameters: [ <integer:help_topic_index> | <string:help_topic_name> | <string:command_name> ] example: | help marks # display the help category marks and all commands containing marks help 6 # display help on the effects category help mfx # display help on modify-effect - shortcut mfx help_effect: type: help what: Display detailed help on LADSPA or LV2 effects. short: hfx he parameters: <string:label> | <integer:unique_id> example: | help-effect 1970 ! display help on Fons Adriaensen's parametric EQ (LADSPA) help-effect etd ! prints a short message to consult Ecasound manpage, ! where the etd chain operator is documented. hfx lv2-vocProc ! display detailed help on the LV2 VocProc effect find_effect: type: help what: Display one-line help for effects matching the search string(s). short: ffx fe parameters: <string:keyword1> [ <string:keyword2>... ] example: | find-effect compressor ! List all effects containing "compressor" in their name or parameters fe feedback ! List all effects matching "feedback" ! (for example a delay with a feedback parameter) exit: type: general what: Exit Nama, saving settings (the current project). short: quit q parameters: none memoize: type: general what: Cache WAV directory contents (default) parameters: none unmemoize: type: general what: Disable WAV directory caching. parameters: none stop: type: transport what: Stop transport. Stop the engine, when recording or playing back. short: s parameters: none start: type: transport what: Start the transport rolling short: t parameters: none example: | rec # prepare the curent track to be recorded. start # Start the engine/transport rolling (play now!) stop # Stop the engine, cleanup, prepare to review getpos: type: transport what: Get the current playhead position (in seconds). short: gp parameters: none example: | start # Start the engine. gp # Get the current position of the playhead. Where am I? setpos: type: transport what: Set current playhead position (in seconds). short: sp parameters: <float:position_seconds> example: setpos 65.5 # set current position to 65.5 seconds. forward: type: transport what: Move playback position forwards (in seconds). short: fw parameters: <float:increment_seconds> example: fw 23.7 # forward 23.7 seconds from the current position. rewind: type: transport what: Move playback position backwards (in seconds). short: rw parameters: <float:decrement_seconds> example: rewind 6.5 # Move backwards 6.5 seconds from the current position. jump_to_start: type: transport what: Set the playback head to the start. A synonym for setpos 0. short: beg parameters: none jump_to_end: type: transport what: Set the playback head to end minus 10 seconds. short: end parameters: none ecasound_start: type: transport what: | Ecasound-only start. Nama will not monitor the transport. For diagnostic use. parameters: none ecasound_stop: type: transport what: | Ecasound-only stop. Nama will not monitor the transport. For diagnostic use. parameters: none restart_ecasound: type: transport what: | Restart the Ecasound process. May help if Ecasound has crashed or is behaving oddly. parameters: none preview: type: transport what: | Enter the preview mode. Configure Nama for playback and passthru of live inputs without recording (for mic test, rehearsal, etc.) short: song parameters: none example: | rec # Set the current track to record from its source. preview # Enter the preview mode. start # Playback begins. You can play live, adjust effects, ! # forward, rewind, etc. stop # Stop processing audio. arm # Restore to normal recording/playback mode. doodle: type: transport short: live what: | Enter doodle mode. Passthru of live inputs without recording. No playback. Intended for rehearsing and adjusting effects. parameters: none example: | doodle # Switch into doodle mode. start # start the audio engine. (fool around) stop # Stop processing audio. arm # Return to normal mode, allowing playback and record to disk mixdown: type: mix what: | Enter mixdown mode for subsequent engine runs. You will record a new mix each time you use the start command until you leave the mixdown mode using "mixoff". short: mxd parameters: none example: | mixdown # Enter mixdown mode start # Start the transport. The mix will be recorded by the ! # Mixdown track. The engine will run until the ! # longest track ends. (After mixdown Nama places ! # a symlink to the WAV file and possibly ogg/mp3 ! # encoded versions in the project directory.) mixoff # Return to the normal mode. mixplay: type: mix what: | Enter Mixdown play mode, setting user tracks to OFF and only playing the Mixdown track. Use "mixoff" to leave this mode. short: mxp parameters: none example: | mixplay # Enter the Mixdown play mode. start # Play the Mixdown track. stop # Stop playback. mixoff # Return to normal mode. mixoff: type: mix what: | Leave the mixdown or mixplay mode. Sets Mixdown track to OFF, user tracks to MON. short: mxo parameters: none automix: type: mix what: Normalize track volume levels and fix DC-offsets, then mixdown. parameters: none master_on: type: mix what: | Turn on the mastering mode, adding tracks Eq, Low, Mid, High and Boost, if necessary. The mastering setup allows for one EQ and a three-band multiband compression and a final boosting stage. Using "master-off" to leave the mastering mode. short: mr parameters: none example: | mr # Turn on master mode. start # Start the playback. ! # Now you can adjust the Boost or global EQ. stop # Stop the engine. master_off: type: mix what: Leave mastering mode. The mastering network is disabled. short: mro parameters: none add_track: type: track what: Create a new audio track. short: add new parameters: <string:name> example: | add-track clarinet ! create a mono track called clarinet with input ! from soundcard channel 1. add_midi_track: type: track what: Create a new midi track. short: amt parameters: <string:name> example: | add-midi-track clarinet add_tracks: type: track what: Create one or more new tracks in one go. parameters: <string:name1> [ <string:name2>... ] example: add-tracks violin viola contra_bass link_track: type: track what: Create a read-only track, that uses audio files from another track. short: link parameters: [<string:project-name>] <string:track_name> <string:link_name> example: | link my_song_part1 Mixdown part_1 ! Create a read-only track "part_1" in the current project ! using files from track "Mixdown" in project "my_song_part_1". ! link-track compressed_piano piano ! Create a read-only track "compressed_piano" using files from ! track "piano". This is one way to provide wet and dry ! (processed and unprocessed) versions of same source. ! Another way would be to use inserts. import_audio: type: track what: | Import a sound file (wav, ogg, mp3, etc.) to the current track, resampling it if necessary. The imported file is set as current version. short: import parameters: <string:full_path_to_file> [ <integer:frequency> ] example: | import /home/samples/bells.flac ! import the file bells.flac to the current track import /home/music/song.mp3 44100 ! import song.mp3, specifying the frequency import_midi: type: midi what: Import a MIDI song file (MIDI tracks only) short: im parameters: <string:full_path_to_file> route_track: type: track short: route rt what: set source and send for a track (see 'source' and 'send' commands) parameters: <string:source_id> <string:send_id> set_track: type: track what: Directly set current track parameters (use with care!). parameters: <string:track_field> <value> record: type: track what: | Set the current track to record its source. Creates the monitoring route if necessary. Recording to disk will begin on the next engine start. Use the "mon" or "off" commands to disable recording. short: rec parameters: none example: | rec ! Set the current track to record. start ! A new version (take) will be written to disk, ! creating a file such as sax_1.wav. Other tracks ! may be recording or playing back as well. stop ! Stop the recording/playback, automatically enter playback mode play: type: track what: | Set the current track to playback the currently selected version. Creates the monitoring route if necessary. The selected audio file will play the next time the engine starts. parameters: none mon: type: track what: | Create a monitoring route for the current track at the next opportunity. parameters: none off: type: track what: | Remove the monitoring route for the current track and all track I/O at the next opportunity. You can re-include it using "mon", "play" or "rec" commands. parameters: none source: type: track what: | Set the current track's input (source), for example to a soundcard channel, or JACK client name short: src r parameters: | <integer:soundcard_channel> | <string:jack_client_name> | <string:jack_port_name> <string:jack_ports_list> | | <string:track_name> | <string:loop_id> | 'jack' | 'null' example: | source 3 ! Take input from soundcard channel 3 (3/4 if track is stereo) ! source null ! Track's input is silence. This is useful for when an effect such ! as a metronome or signal generator provides a source. ! source bus Strings ! set the Strings bus as source ! source track trumpet ! set the track trumpet as source ! source LinuxSampler ! set the JACK client named LinuxSampler as source ! source synth:output_3 ! use the signal from the JACK client synth, using the ! port output_3 (see the jackd and jack_lsp manpages ! for more information). ! source jack ! This leaves the track input exposed as JACK ports ! such as Nama:sax_in_1 for manual connection. ! source kit.ports ! The JACK ports listed in the file kit.ports (if it exists) ! will be connected to the track input. ! ! Ports are listed pairwise in the .ports files for stereo tracks. ! This is convenient for use with the Hydrogen drumkit, ! whose outputs use one JACK port per voice. send: type: track what: Set an aux send for the current track. Remove sends with remove-send . short: aux parameters: <integer:soundcard_channel> | <string:jack_client_name> | <string:loop_id> example: | send 3 # Send the track output to soundcard channel 3. send jconvolver # Send the track output to the jconvolver JACK client. remove_send: type: track what: Remove aux send from the current track. short: nosend noaux parameters: none stereo: type: track what: Configure the current track to record two channels of audio parameters: none mono: type: track what: Configure the current track to record one channel of audio parameters: none set_version: type: track what: | Select a WAV file, by version number, for current track playback (Overrides a bus-level version setting) short: version ver parameters: <integer:version_number> example: | piano # Select the piano track. version 2 # Select the second recorded version sh # Display information about the current track destroy_current_wav: type: track what: | Remove the currently selected recording version from the current track after confirming user intent. This DESTRUCTIVE command removes the underlying audio file from your disk. Use with caution. parameters: none list_versions: type: track what: | List WAV versions of the current track. This will print the numbers. short: lver parameters: none example: | list-versions # May print something like: 1 2 5 7 9 ! # The other versions might have been deleted earlier by you. vol: type: track what: Change or show the current track's volume. short: v parameters: [ [ + | - | / | * ] <float:volume> ] example: | vol * 1.5 # Multiply the current volume by 1.5 vol 75 # Set the current volume to 75 ! # Depending on your namarc configuration, this means ! # either 75% of full volume (-ea) or 75 dB (-eadb). vol - 5.7 # Decrease current volume by 5.7 (percent or dB) vol # Display the volume setting of the current track. mute: type: track what: | Mute the current track by reducing the volume parameter. Use "unmute" to restore the former volume level. short: c cut parameters: none unmute: type: track what: Restore previous volume level. It can be used after mute or solo. short: nomute C uncut parameters: none unity: type: track what: Set the current track's volume to unity. This will change the volume to the default value (100% or 0 dB). parameters: none example: | vol 55 # Set volume to 55 unity # Set volume to the unity value. vol # Display the current volume (should be 100 or 0, ! # depending on your settings in namarc.) solo: type: track what: | Mute all tracks but the current track or the tracks or bunches specified. You can reverse this with nosolo. short: sl parameters: [ <strack_name_1> | <string:bunch_name_1> ] [ <string:track_name_2 | <string:bunch_name_2> ] ... example: | solo # Mute all tracks but the current track. nosolo # Unmute all tracks, restoring prior state. solo piano bass Drums # Mute everything but piano, bass and Drums. nosolo: type: track what: | Unmute all tracks which have been muted by a solo command. Tracks that had been muted before the solo command stay muted. short: nsl parameters: none all: type: track what: | Unmute all tracks that are currently muted parameters: none example: | piano # Select track piano mute # Mute the piano track. sax # Select the track sax. solo # Mute other tracks nosolo # Unmute other tracks (piano is still muted) all # all tracks play pan: type: track what: | Change or display the current panning position of the current track. Panning is moving the audio in the stereo panorama between right and left. Position is given in percent. 0 is hard left and 100 hard right, 50% is dead centre. short: p parameters: [ <float:pan_position_in_percent> ] example: | pan 75 # Pan the track to a position between centre and hard right p 50 # Move the current track to the centre. pan # Show the current position of the track in the stereo panorama. pan_right: type: track what: | Pan the current track hard right. this is a synonym for pan 100. Can be reversed with pan-back. short: pr parameters: none pan_left: type: track what: | Pan the current track hard left. This is a synonym for pan 0. Can be reversed with pan-back. short: pl parameters: none pan_center: type: track what: | Pan the current track to the centre. This is a synonym for pan 50. Can be reversed with pan-back. short: pc parameters: none pan_back: type: track what: | Restore the current track's pan position prior to pan-left, pan-right or pan-center commands. short: pb parameters: none show_tracks: type: track what: | Show a list of tracks, including their index number, volume, pan position, recording status and source. short: lt show parameters: none show_tracks_all: type: track what: Like show-tracks, but includes hidden tracks as well. Useful for debugging. short: sha showa parameters: none show_bus: type: bus what: list tracks in current or named bus short: shb parameters: [ <string:busname> ] show_track: type: track what: | Display full information about the current track: index, recording status, effects and controllers, inserts, the selected WAV version, and signal width (channel count). short: sh -fart parameters: none show_mode: type: setup what: | Display the current record/playback mode. this will indicate the mode (doodle, preview, etc.) and possible record/playback settings. short: shm parameters: none show_track_latency: type: track what: display the latency information for the current track. short: shl parameters: none show_latency_all: type: diagnostics what: Dump all latency data. short: shla parameters: none set_region: type: track what: | Specify a playback region for the current track using marks or time positions Can be reversed with remove-region. short: srg parameters: <string:start-mark-name|decimal:time> <string:end-mark-name|decimal:time> example: | sax # Select "sax" as the current track. set_region 2.5 120.5 # Play the audio from 2.5 to 120.5 seconds. **Must be decimal notation** ! or you can use marks: setpos 2.5 # Move the playhead to 2.5 seconds. mark sax_start # Create a mark sp 120.5 # Move playhead to 120.5 seconds. mark sax_end # Create another mark set-region sax_start sax_end add_region: type: track what: | Make a copy of the current track using the supplied a region definition. The original track is untouched. parameters: <string:start_mark_name> | <float:start_time> <string:end_mark_name> | <float:end_time> [ <string:region_name> ] example: | sax # Select "sax" as the current track. add-region 24.4 66.7 solo ! Clone the "sax" track as "solo" ! selecting the region from 24.4 to 66.7 seconds. ! Decimals are required, integers are interpreted as mark indices add-region solo-start solo-end ! Clone track, selecting the region defined from solo-start ! mark to solo-end mark. remove_region: type: track what: | Remove the region definition from the current track. Remove the current track if it is an auxiliary track. short: rrg parameters: none shift_track: type: track what: | Choose an initial delay before playing a track or region. Can be reversed by unshift-track. short: shift playat pat parameters: <string:start_mark_name> | <integer:start_mark_index | <float:start_seconds> example: | piano # Select "piano" as current track. shift 6.7 # Move the start of track to 6.7 seconds. unshift_track: type: track what: Restore the playback start time of a track or region to 0. short: unshift parameters: none modifiers: type: track what: | Add/show modifiers for the current track (man ecasound for details). This provides direct control over Ecasound track modifiers It is not needed for normal work. short: mods mod parameters: [ Audio file sequencing parameters ] example: | modifiers select 5 15.2 ! Apply Ecasound's select modifier to the current track. ! The usual way to accomplish this is with a region definition. nomodifiers: type: track what: Remove modifiers from the current track. short: nomods nomod parameters: none normalize: type: track what: | Apply ecanormalize to the current track version. This will raise the gain/volume of the current track as far as possible without clipping and store it that way on disk. Note: this will permanently change the file. short: ecanormalize parameters: none fixdc: type: track what: | Fix the DC-offset of the current track using ecafixdc. Note: This will permanently change the file. short: ecafixdc parameters: none autofix_tracks: type: track what: Apply ecafixdc and ecanormalize to all current versions of all tracks, set to playback (MON). short: autofix parameters: none remove_track: type: track what: | Remove the current track with its effects, inserts, etc. Audio files are unchanged. parameters: none bus_version: type: group what: Set the default monitoring version for tracks in the current bus. short: bver gver parameters: none bus_on: type: group what: restore tracks belonging to bus after bus-off bus_off: type: group what: turn off tracks belonging to current bus add_bunch: type: group what: short: abn parameters: <string:bunch_name> [ <string:track_name_1> | <integer:track_index_1> ] ... example: | add-bunch strings violin cello bass ! Create a bunch "strings" with tracks violin, cello and bass. for strings; mute # Mute all tracks in the strings bunch. for strings; vol * 0.8 ! Lower the volume of all tracks in bunch "strings" by a ! a factor of 0.8. list_bunches: type: group what: Display a list of all bunches and their tracks. short: lbn parameters: none remove_bunch: type: group what: | Remove the specified bunches. This does not remove the tracks, only the grouping. short: rbn parameters: <string:bunch_name> [ <string:bunch_name> ] ... add_to_bunch: type: group what: Add track(s) to an existing bunch. short: atbn parameters: <string:bunch_name> <string:track1> [ <string:track2> ] ... example: | add-to-bunch woodwind oboe sax flute commit: type: project what: commit Nama's current state short: cm parameters: <string:message> tag: type: project what: git tag the current branch HEAD commit parameters: <string:tag_name> [<string:message>] branch: type: project what: change to named branch short: br parameters: <string:branch_name> list_branches: type: project what: list branches short: lb lbr new_branch: type: project what: create a new branch short: nbr parameters: <string:new-branch_name> [<string:existing_branch_name>] save_state: type: project what: Save the project settings as file or git snapshot short: save parameters: [ <string:settings_target> [ <string:message> ] ] get_state: type: project what: Retrieve project settings from file or snapshot short: get recall retrieve parameters: <string:settings_target> list_projects: type: project what: List all projects. This will list all Nama projects, which are stored in the Nama project root directory. short: lp parameters: none new_project: type: project what: Create or open a new empty Nama project. short: create parameters: <string:new-project-name> example: | create jam # creates empty project call "jam". # Now you can start adding your tracks, editing them and mixing them. load_project: type: project what: Load an existing project. This will load the project from the default project state file. If you wish to load a project state saved to a user specific file, load the project and then use get-state. short: load parameters: <string:existing_project-name> example: load my_old_song # Will load my_old_song just as you left it. project_name: type: project what: Display the name of the current project. short: project name parameters: none new_project_template: type: project what: Make a project template based on the current project. This will include tracks and busses. short: npt parameters: <string:template_name> [ <string:template_description> ] example: | new-project_template my_band_setup "tracks and busses for bass, drums and me" use_project_template: type: project what: Use a template to create tracks in a newly created, empty project. short: upt apt parameters: <string:template_name> example: | apt my_band_setup # Will add all the tracks for your basic band setup. list_project_templates: type: project what: List all project templates. short: lpt parameters: none destroy_project_template: type: project what: Remove one or more project templates. parameters: <string:template_name1> [ <string:template_name2> ] ... generate: type: setup what: Generate an Ecasound chain setup for audio processing manually. Mainly useful for diagnostics and debugging. short: gen parameters: none arm: type: setup what: Generate and connect a setup to record or playback. If you are in dodle or preview mode, this will bring you back to normal mode. parameters: none arm_start: type: setup what: Generate and connect the setup and then start. This means, that you can directly record or listen to your tracks. short: arms parameters: none connect: type: setup what: Connect the setup, so everything is ready to run. Ifusing JACK, this means, that Nama will connect to all the necessary JACK ports. short: con parameters: none disconnect: type: setup what: Disconnect the setup. If running with JACK, this will disconnect from all JACK ports. short: dcon parameters: none show_chain_setup: type: setup what: Show the underlying Ecasound chain setup for the current working condition. Mainly useful for diagnostics and debugging. short: chains parameters: none loop: type: setup what: Loop the playback between two points. Can be stopped with loop_disable short: l parameters: <string:start_mark_name> | <integer:start_mark_index> | <float:start_time_in_secs> <string:end_mark_name> | <integer:end_mark_index> | <float:end_time_in_secs> example: | loop 1.5 10.0 # Loop between 1.5 and 10.0 seconds. loop 1 5 # Loop between marks with indices 1 and 5, see list-marks. loop sax_start 12.6 # Loop between mark sax_start and 12.6 seconds. noloop: type: setup what: Disable looping. short: nl parameters: none add_controller: type: effect what: Add a controller to an effect (current effect, by default). Controllers can be modified by using mfx and removed using rfx. short: acl parameters: [ <string:operator_id> ] <string:effect_code> [ <float:param1> <float:param2> ] ... example: | add-effect etd 100 2 2 50 50 # Add a stero delay of 100ms. ! the delay will get the effect ID E . ! Now we want to slowly change the delay to 200ms. acl E klg 1 100 200 2 0 100 15 200 # Change the delay time linearly (klg) # from 100ms at the start (0 seconds) to 200ms at 15 seconds. See # help for -klg in the Ecasound manpage. add_effect: type: effect what: Add an effect short: afx parameters: | [ (before <fx_alias> | first | last ) ] <fx_alias> [ <float:param1> <float:param2>... ] "before", "first" and "last" can be abbreviated "b", "f" and "l", respectively. example: | We want to add the decimator effect (a LADSPA plugin). help-effect decimator # Print help about its paramters/controls. ! # We see two input controls: bitrate and samplerate afx decimator 12 22050 # prints "Added GO (Decimator)" ! We have added the decimator with 12bits and a sample rate of 22050Hz. ! GO is the effect ID, which you will need to modify it. add_effect_last: type: effect what: same as add-effect last short: afxl parameters: <fx_alias> [ <float:param1> <float:param2>... ] add_effect_first: type: effect what: same as add-effect first short: afxf parameters: <fx_alias> [ <float:param1> <float:param2>... ] add_effect_before: type: effect what: same as add-effect before short: afxb insert_effect ifx parameters: <fx_alias> <fx_alias> [ <float:param1> <float:param2>... ] modify_effect: type: effect what: Modify effect parameter(s). short: mfx parameters: | [ <fx_alias> ] <integer:parameter> [ + | - | * | / ] <float:value> fx_alias can be: a position, effect ID, nickname or effect code example: | To change the roomsize of our reverb effect to 62 lfx ! We see that reverb has unique effect ID AF and roomsize is the ! first parameter. mfx AF 1 62 ! mfx AF,BG 1 75 ! Change the first parameter of both AF and BG to 75. ! mfx CE 6,10 -3 ! Change parameters 6 and 10 of effect CE to -3 ! mfx D 4 + 10 ! Increase the fourth parameter of effect D by 10. ! mfx A,B,C 3,6 * 5 ! Adjust parameters 3 and 6 of effect A, B and C by a factor of 5. remove_effect: type: effect what: Remove effects. They don't have to be on the current track. short: rfx parameters: <fx_alias1> [ <fx_alias2> ] ... position_effect: type: effect what: Position an effect before another effect (use 'ZZZ' for end). short: pfx parameters: <string:id_to_move> <string:position_id> example: | position-effect G F # Move effect with unique ID G immediately before effect F show_effect: type: effect what: Show information about an effect, defaulting to current effect short: sfx parameters: [ <string:effect_id1> ] [ <string:effect_id2> ] ... example: | sfx # Display name, unique ID and parameters/controls of the current effect. sfx H # Display info on effect with unique ID H. H becomes the current effect. dump_effect: type: effect what: Dump all data of current effect object short: dfx list_effects: type: effect what: Print a short list of all effects on the current track, only including unique ID and effect name. short: lfx parameters: none hotkeys_param: type: general what: Enable hotkeys for adjusting effect parameters short: hkp parameters: none hotkeys_jump: type: general what: Enable hotkeys for changing the playback position (default) short: hkj parameters: none hotkeys_bump: type: general what: Enable hotkeys for re-positioning marks short: hkb parameters: none hotkeys_off: type: general what: restore default key bindings short: hko parameters: none hotkeys_on: type: general what: restore hotkey mode short: hk parameters: none toggle_hotkeys: type: general what: flipflop hotkey mode short: th hotkeys_list: type: general what: list hotkey bindings short: hkl lhk parameters: none add_insert: type: effect what: Add an external send/return insert to current track. short: ain parameters: | External: ( pre | post ) <string:send_id> [ <string:return_id> ] Local wet/dry: local example: | add-insert pre jconvolver ! Add a prefader insert. The current track signal is sent ! to jconvolver and returned to the vol/pan controls. add-insert post jconvolver csound ! Send the current track postfader signal (after vol/pan ! controls) to jconvolver, getting the return from csound. guitar # Select the guitar track ain local # Create a local insert guitar-1-wet # Select the wet arm afx G2reverb 50 5.0 0.6 0.5 0 -16 -20 # add a reverb afx etc 6 100 45 2.5 # add a chorus effect on the reverbed signal guitar # Change back to the main guitar track wet 25 # Set the balance between wet/dry track to 25% wet, 75% dry. set_insert_wetness: type: effect what: Set wet/dry balance of the insert for the current track. The balance is given in percent, 0 meaning dry and 100 wet signal only. short: wet parameters: [ pre | post ] <n_wetness> example: | wet pre 50 # Set the prefader insert to be balanced 50/50 wet/dry. wet 100 # Simpler if there's only one insert remove_insert: type: effect what: Remove an insert from the current track. short: rin parameters: [ pre | post ] example: | rin # If there is only one insert on the current track, remove it. remove-insert post # Remove the postfader insert from the current track. ctrl_register: type: effect what: List all Ecasound controllers. Controllers include linear controllers and oscillators. short: crg parameters: none preset_register: type: effect what: List all Ecasound effect presets. See the Ecasound manpage for more detail on effect_presets. short: prg parameters: none ladspa_register: type: effect what: List all LADSPA plugins, that Ecasound/Nama can find. short: lrg parameters: none list_marks: type: mark what: List all marks with index, name and their respective positions in time. short: lmk lm parameters: none to_mark: type: mark what: Move the playhead to the named mark or mark index. short: tmk tom parameters: <string:mark_name> | <integer:mark_index> example: | to-mark sax_start # Jump to the position marked by sax_mark. tmk 2 # Move to the mark with the index 2. add_mark: type: mark what: Drop a new mark at the current playback position. This will fail, if a mark is already placed on that exact position. short: mark amk k parameters: [ <string:mark_id> ] [<string:attr>]... example: | mark start # create a mark named "start" at the current position. remove_mark: type: mark what: Remove a mark short: rmk parameters: [ <string:mark_name> | <integer:mark_index> ] example: | remove-mark start # remove the mark named start rmk 16 # Remove the mark with the index 16. rmk # Remove the current mark next_mark: type: mark what: Move the playhead to the next mark. short: nmk parameters: none previous_mark: type: mark what: Move the playhead to the previous mark. short: pmk parameters: none name_mark: type: mark what: Give a name to the current mark. parameters: <string:mark_name> modify_mark: type: mark what: Change the position (time) of the current mark. short: move_mark mmk parameters: [ + | - ] <float:seconds> example: | move_mark + 2.3 # Move the current mark 2.3 seconds forward from its # current position. mmk 16.8 # Move the current mark to 16.8 seconds, no matter, where it is now. engine_status: type: diagnostics what: Display the Ecasound audio processing engine status. short: egs parameters: none dump_track: type: diagnostics what: Dump current track data. short: dump parameters: none dump_group: type: diagnostics what: Dump group settings for user tracks. short: dumpg parameters: none dump_all: type: diagnostics what: Dump most internal state data. short: dumpa parameters: none dump_io: type: diagnostics what: Show chain inputs and outputs. parameters: none list_history: type: help what: List the command history. Every project stores its own command history. short: lh parameters: none add_submix_cooked: type: bus what: Create a submix using all tracks in bus "Main" short: parameters: <string:name> <destination> example: | add-submix-cooked front_of_house 7 ! send a custom mix named "front_of_house" ! to soundcard channels 7/8 add_submix_raw: type: bus what: Add a submix using tracks in Main bus (unprocessed signals, lower latency) short: asr parameters: <string:name> <destination> example: | asbr Reverb jconv # Add a raw send bus called Reverb, with its output # going to the JACK client jconv . add_bus: type: bus what: Add a sub bus. This is a bus, as known from other DAWs. The default output goes to a mix track and that is routed to the mixer (the Main track). All busses begin with a capital letter! short: abs parameters: <string:name> [ <string:track_name> | <string:jack_client> | <integer:soundcard_channel> ] example: | abs Brass # Add a bus, "Brass", routed to the Main bus (e.g. mixer) abs special csound # Add a bus, "special" routed to JACK client "csound" update_submix: type: bus what: Include tracks added since the submix was created. short: usm parameters: <string:name> example: update-submix Reverb # Include new tracks in the Reverb submix remove_bus: type: bus what: Remove a bus or submix parameters: <string:bus_name> list_buses: type: bus what: List buses and their parameters (TODO). short: lbs parameters: none set_bus: type: bus what: Set bus parameters. This command is intended for advanced users. short: sbs parameters: <string:busname> <key> <value> overwrite_effect_chain: type: effect what: | Create a new effect chain, overwriting an existing one of the same name. short: oec parameters: Same as for new-effect-chain new_effect_chain: type: effect what: | Create an effect chain, a named list of effects with all parameter settings. Useful for storing effect setups for particular instruments. short: nec parameters: <string:name> [ <effect_id_1> <effect_id_2>... ] example: | new-effect-chain my_piano ! Create a new effect chain, "my_piano", storing all ! effects and their settings from the current track ! except the fader (vol/pan) settings. nec my_guitar A C F G H ! Create a new effect chain, "my_guitar", ! storing the effects with IDs A, C, F, G, H and ! their respective settings. delete_effect_chain: type: effect what: | Delete an effect chain definition. Does not affect the project state. This command is not reversible by undo. short: dec destroy_effect_chain parameters: <string:effect_chain_name> find_effect_chains: type: effect what: Dump effect chains, filtering on key pairs (if provided) short: fec lec parameters: [ <string:key_1> <string:value_1> ] ... example: | fec # List all effect chains with their effects. find_user_effect_chains: type: effect what: List all *user* created effect chains, matching key/value pairs, if provided. short: fuec leca parameters: [ <string:key_1> <string:value_1> ] ... bypass_effects: type: effect what: Bypass effects on the current track. With no parameters default to bypassing the current effect. short: bypass bfx parameters: [ <string:effect_id_1> <string:effect_id_2>... | 'all' ] example: | bypass all # Bypass all effects on the current track, except vol and pan. bypass AF # Only bypass the effect with the unique ID AF. bring_back_effects: type: effect what: Restore effects. If no parameter is given, the default is to restore the current effect. short: restore_effects bbfx parameters: [ <string:effect_id_1> <string:effect_id_2> ... | 'all' ] example: | bbfx # Restore the current effect. restore_effect AF # Restore the effect with the unique ID AF. bring-back-effects all # Restore all effects. new_effect_profile: type: effect what: Create a new effect profile. An effect profile is a named group of effect chains for multiple tracks. Useful for storing a basic template of standard effects for a group of instruments, like a drum kit. short: nep parameters: <string:bunch_name> [ <string:effect_profile_name> ] example: | add-bunch Drums snare toms kick # Create a buch called Drums. nep Drums my_drum_effects # Create an effect profile, call my_drum_effects # containing all effects from snare toms and kick. apply_effect_profile: type: effect what: Apply an effect profile. this will add all the effects in it to the list of tracks stored in the effect profile. Note: You must give the tracks the same names as in the original project, where you created the effect profile. short: aep parameters: <string:effect_profile_name> destroy_effect_profile: type: effect what: Delete an effect profile. This will delete the effect profile definition from your disk. All projects, which use this effect profile will NOT be affected. parameters: <string:effect_profile_name> list_effect_profiles: type: effect what: List all effect profiles. short: lep parameters: none show_effect_profiles: type: effect what: List effect profile. short: sepr parameters: none full_effect_profiles: type: effect what: Dump effect profile data structure. short: fep parameters: none cache_track: type: track what: | Cache the current track. Same as freezing or bouncing. This is useful for larger projects or low-power CPUs, since effects do not have to be recomputed for subsequent engine runs.
Cache_track stores the effects-processed output of the current track as a new version (WAV file) which becomes the current version. The current effects, inserts and region definition are removed and stored. To go back to the original track state, use the uncache-track command. The show-track display appends a "c" to version numbers created by cache-track (and therefore reversible by uncache) short: cache ct bounce freeze parameters: [ <float:additional_processing_time> ] example: | cache 10 # Cache the curent track and append 10 seconds extra time, # to allow a reverb or delay to fade away without being cut. uncache_track: type: effect what: Select the uncached track version. This restores effects, but not inserts. short: uncache unc parameters: none do_script: type: general what: Execute Nama commands from a file in the main project's directory or in the Nama project root directory. A script is a list of Nama commands, just as you would type them on the Nama prompt. short: do parameters: <string:filename> example: | do prepare_my_drums # Execute the script prepare_my_drums. scan: type: general what: Re-read the project's .wav directory. Mainly useful for troubleshooting. parameters: none add_fade: type: effect what: Add a fade-in or fade-out to the current track. short: afd fade parameters: ( in | out ) marks/times (see examples) example: | fade in mark1 # Fade in,starting at mark1 and using the ! # default fade time of 0.5 seconds. fade out mark2 2 # Fade out over 2 seconds, starting at mark2 . fade out 2 mark2 # Fade out over 2 seconds, ending at mark2 . fade in mark1 mark2 # Fade in starting at mark1, ending at mark2 . remove_fade: type: effect what: Remove a fade from the current track. short: rfd parameters: <integer:fade_index_1> [ <integer:fade_index_2> ] ... example: | list-fade # Print a list of all fades and their tracks. rfd 2 # Remove the fade with the index (n) 2. list_fade: type: effect what: List all fades. short: lfd parameters: none add_comment: type: track what: Add a comment to the current track (replacing any previous comment). A comment maybe a short discription, notes on instrument settings, etc. short: comment ac parameters: <string:comment> example: ac "Guitar, treble on 50%" remove_comment: type: track what: Remove a comment from the current track. short: rc parameters: none show_comment: type: track what: Show the comment for the current track. short: sc parameters: none show_comments: type: track what: Show all track comments. short: sca parameters: none add_version_comment: type: track what: Add a version comment (replacing any previous user comment). This will add a comment for the current version of the current track. short: avc parameters: <string:comment> example: avc "The good take with the clear 6/8" remove_version_comment: type: track what: Remove version comment(s) from the current track. short: rvc parameters: none show_version_comment: type: track what: Show version comment(s) of the curent track. short: svc parameters: none show_version_comments_all: type: track what: Show all version comments for the current track. short: svca parameters: none add_system_version_comment: type: track what: Set a system version comment. Useful for testing and diagnostics. short: asvc parameters: <string:comment> new_edit: type: edit what: Create an edit for the current track and version. short: ned parameters: none set_edit_points: type: edit what: Mark play-start, record-start and record-end positions for the current edit. short: sep parameters: none list_edits: type: edit what: List all edits for current track and version. short: led parameters: none select_edit: type: edit what: Select an edit to modify or delete. After selection it is the current edit. short: sed parameters: <integer:edit_index> end_edit_mode: type: edit what: Switch back to normal playback/record mode. The track will play full length again. Edits are managed via a sub- bus. short: eem parameters: none destroy_edit: type: edit what: Remove an edit and all associated audio files. If no parameter is given, the default is to destroy the current edit. Note: The data will be lost permanently. Use with care! parameters: [ <integer:edit_index> ] preview_edit_in: type: edit what: Play the track region without the edit segment. short: pei parameters: none preview_edit_out: type: edit what: Play the removed edit segment. short: peo parameters: none play_edit: type: edit what: Play a completed edit. short: ped parameters: none record_edit: type: edit what: Record an audio file for the current edit. short: red parameters: none edit_track: type: edit what: set the edit track as the current track. short: et parameters: none host_track_alias: type: edit what: Set the host track alias as the current track. short: hta parameters: none host_track: type: edit what: Set the host track (edit sub-bus mix track) as the current track. short: ht parameters: none version_mix_track: type: edit what: Set the version mix track as the current track. short: vmt parameters: none play_start_mark: type: edit what: Select (and move to) play start mark of the current edit. short: psm parameters: none rec_start_mark: type: edit what: Select (and move to) rec start mark of the current edit. short: rsm parameters: none rec_end_mark: type: edit what: Select (and move to) rec end mark of the current edit. short: rem parameters: none set_play_start_mark: type: edit what: Set play-start-mark to the current playback position. short: spsm parameters: none set_rec_start_mark: type: edit what: Set rec-start-mark to the current playback position. short: srsm parameters: none set_rec_end_mark: type: edit what: Set rec-end-mark to current playback position. short: srem parameters: none disable_edits: type: edit what: | Turn off the edits for the current track and playback the original WAV file. This will remove the edit bus. short: ded parameters: none merge_edits: type: edit what: Mix edits and original into a new host-track. this will write a new audio file to disk and the host track will have a new version for this. short: med parameters: none explode_track: type: track what: Make the current track into a sub bus, with one track for each version. parameters: none move_to_bus: type: track what: Move the current track to another bus. A new track is always in the Main bus. So to reverse this action use move-to-bus Main . short: mtb parameters: <string:bus_name> example: | asub Drums # Create a new sub bus, called Drums. snare # Make snare the current track. mtb Drums # Move the snare track into the sub bus Drums. promote_version_to_track: type: track what: Create a read-only track using the specified version of the current track. short: pvt parameters: <integer:version_number> read_user_customizations: type: general what: Re-read the user customizations file 'custom.pl'. short: ruc parameters: none limit_run_time: type: setup what: Stop recording after the last audio file finishes playing. Can be turned off with limit-run-time_off. short: lr parameters: [ <float:additional_seconds> ] limit_run_time_off: type: setup what: Disable the recording stop timer. short: lro parameters: none offset_run: type: setup what: Record/play from a mark, rather than from the start, i.e. 0.0 seconds. short: ofr parameters: <string:mark_name> offset_run_off: type: setup what: Turn back to starting from 0. short: ofro parameters: none view_waveform: type: general what: Launch mhwavedit to view/edit waveform of the current track and version. This requires to start Nama on a graphical terminal, like xterm or gterm or from GNOME via alt+F2 . short: wview parameters: none edit_waveform: type: general what: Launch audacity to view/edit the waveform of the current track and version. This requires starting Nama on a graphical terminal like xterm or gterm or from GNOME starting Nama using alt+F2 . short: wedit parameters: none rerecord: type: setup what: Record as before. This will set all the tracks to record, which have been recorded just before you listened back. short: rerec parameters: none example: | for piano guitar;rec # Set piano and guitar track to record. ! do your recording and ilstening. ! You want to record another version of both piano and guitar: rerec # Sets piano and guitar to record again. analyze_level: type: track what: Print Ecasound amplitude analysis for current track. This will show highest volume and statistics. short: anl parameters: none for: type: general what: Execute command(s) for several tracks. parameters: <string:track_name_1> [ <string:track_name_2>} ... ; <string:commands> example: | for piano guitar; vol - 3; pan 75 # reduce volume and pan right for snare kick toms cymbals; mtb Drums # move tracks to bus Drums git: type: project what: execute git command in the project directory parameters: <string:command_name> [arguments] edit_rec_setup_hook: type: track what: edit the REC hook script for current track short: ersh parameters: none edit_rec_cleanup_hook: type: track what: edit the REC cleanup hook script for current track short: erch parameters: none remove_fader_effect: type: track short: rffx what: remove vol pan or fader on current track parameters: vol | pan | fader rename_track: type: track what: rename a track and its WAV files parameters: <string:old_track> <string:new_track> new_sequence: type: sequence short: nsq what: define a new sequence parameters: <string:name> <track1, track2,...> select_sequence: type: sequence short: slsq what: select named sequence as current sequence parameter: <string:name> list_sequences: type: sequence short: lsq what: list all user sequences show_sequence: type: sequence short: ssq what: display clips making up current sequence parameters: none append_to_sequence: type: sequence short: asq what: append items to sequence parameters: [<string:name1>,...] example: | asq chorus # append chorus track to current sequence asq # append current track to current sequence insert_in_sequence: type: sequence short: isq what: insert items into sequence before index i parameters: <string:name1> [<string:name2>,...] <integer:index> remove_from_sequence: type: sequence short: rsq what: remove items from sequence parameters: <integer:index1> [<integer:index2>,...] delete_sequence: type: sequence short: dsq what: delete entire sequence parameters: <string:sequence> add_spacer: type: sequence short: asp what: add a spacer to the current sequence, in specified position, or appending (if no position is given) parameters: <float:duration> [<integer:position>] convert_to_sequence: type: sequence short: csq what: convert the current track to a sequence parameters: none merge_sequence: type: sequence short: msq what: cache the current sequence mix track, and set it to PLAY parameters: none snip: type: sequence what: | create a sequence from the current track by removing the region(s) defined by mark pair(s). Not supported if the current track is already a sequence. example: | snip cut1-start cut1-end cut2-start cut2-end This removes cut1 and cut2 regions from the current track by creating a sequence. parameters: <mark_pair1> [<mark_pair2>...] retain: type: mark short: clip-start cls keep what: Use current position to mark start of a clip discard: type: mark short: clip-end cle skip what: Use current position to mark end of a clip gather: short: gth type: sequence what: compose a sequence from the current track clip marks toggle_snip: type: sequence short: tgs what: | drop clip mark at the current position to toggle snip state from 'skip' to 'keep' and vice versa compose: type: sequence short: compose_sequence compose_into_sequence what: | compose a new sequence using the region(s) of the named track defined by mark pair(s). If the sequence of that name exists, append the regions to that sequence (compose_into_sequence). parameters: <string:sequence_name> <string:trackname> <mark_pair1> [<mark_pair2>...] example: | compose speeches conference-audio speaker1-start speaker1-end speaker2-start speaker2-end This creates a "speeches" sequence with two clips for speaker1 and speaker2. undo: type: general what: | roll back last commit (use "git log" to see specific commands) Note: redo is not supported yet redo: type: general what: restore the last undone commit (TODO) show_head_commit: type: general short: show_head last_command last what: | show the last commit, which undo will roll back. A commit may contain multiple commands. eager: type: mode what: set eager mode parameters: on | off new_engine: type: engine what: Start a named Ecasound engine, or bind to an existing engine short: neg parameters: <string:engine_name> <integer:port> select_engine: type: engine what: Select an ecasound engine (advanced users only!) short: seg parameters: <string:engine_name> set_track_engine_group: type: track what: set the current track's engine affiliation short: steg parameters: <string:engine_name> set_bus_engine_group: type: bus what: set the current bus's engine affiliation short: sbeg parameters: <string:engine_name> select_submix: type: bus short: ssm what: Set the target for the trim command parameters: <string:submix_name> trim_submix: type: bus what: control a submix fader short: trim tsm example: | ! reduce vol of current track in in_ear_monitor by 3dB select-submix in_ear_monitor trim vol - 3 nickname_effect: type: effect short: nfx nick what: Add a nickname to the current effect (and create an alias) parameters: <lower_case_string:nickname> example: | add-track guitar afx Plate nick reverb # current effect gets name "reverb1" # "reverb" becomes an alias for "Plate" mfx reverb1 1 0.05 # modify first reverb effect on current track mfx reverb 1 2 # works, because current track has one effect named "reverb" afx reverb # add another Plate effect, gets name "reverb2" rfx reverb # Error, multiple reverb effects are present on this ! # track. Please use a numerical suffix. mfx reverb2 1 3 # modify second reverb effect rfx reverb1 # removes reverb1 ifx reverb2 reverb # insert another reverb effect (reverb3) before reverb2 rfx reverb3 # remove reverb3 rfx reverb # removes reverb2, as it is the sole remain reverb effect delete_nickname_definition: type: effect short: dnd what: delete a nickname definition. Previously named effects keep their names. example: | afx Plate # add Plate effect nick reverb # name it "reverb", and create a nickname for Plate dnd reverb # removes nickname definition afx reverb # error remove_nickname: type: effect what: remove the "name" attribute of the current effect short: rnick example: | afx Plate nick reverb mfx reverb 1 3 rnick mfx reverb 1 3 # Error: effect named "reverb" not found on current track list_nickname_definitions: type: effect what: list defined nicknames short: lnd parameters: none set_effect_name: type: effect what: set a nickname only (don't creating an alias) short: sen parameters: <string:name> set_effect_surname: type: effect what: set an effect surname short: ses parameters: <string:surname> remove_effect_name: type: effect what: remove current effect name short: ren remove_effect_surname: type: effect what: remove current effect surname short: res select_track: type: track what: | set a particular track as the current, or default track against which track-related commands are executed. parameters: <string:track-name> | <integer:track-number> edit_tempo_map: short: etm what: edit tempo map file parameters: none set_tempo: short: tempo tp type: midi what: set MIDI tempo (bpm) parameters: <integer:tempo-setting> set_sample_rate: type: general short: ssr what: configure the sample rate for the current project or report sample rate if no parameter parameters: <integer:sample-rate> set_playback_jump: type: transport short: spj j= what: Set the jump size for transport hotkeys parameters: <float:seconds> set_mark_bump: type: mark short: smb b= what: Set the size of the mark bump parameters: <float:seconds> set_mark_replay: type: mark short: smr what: Set how far to rewind playhead for review after setting or bumping a mark parameters: <float:seconds> set_param_increment: type: effect short: spi m= what: Set the parameter increment as a value, e.g. "m=0.2" parameters: <float:time> set_param_exp: type: effect short: spe m x= what: Set the parameter increment as an exponent, e.g. "x=-2" sets 0.01 parameters: <integer:exponent>
...
@@ grammar
command: _a_test { print "aaa-test" } _a_test: /something_else\b/ | /a-test\b/ meta: midi_cmd midi_cmd: /[a-z]+/ predicate { return unless $Audio::Nama::this_track->engine_group =~ /midi/ and $Audio::Nama::text->{midi_cmd}->{$item[1]}; my $line = "$item[1] $item{predicate}"; $line =~ s/^m//; Audio::Nama::pager(Audio::Nama::midish_cmd($line)); 1; } meta: bang shellcode stopper { Audio::Nama::logit(__LINE__,'Audio::Nama::Grammar','debug',"Evaluating shell commands!"); my $shellcode = $item{shellcode}; $shellcode =~ s/\$thiswav/$Audio::Nama::this_track->full_path/e; my $olddir = Audio::Nama::getcwd(); my $prefix = "chdir ". Audio::Nama::project_dir().";"; $shellcode = "$prefix $shellcode" if $shellcode =~ /^\s*git /; Audio::Nama::pager( "executing this shell code: $shellcode" ) if $shellcode ne $item{shellcode}; my $output = qx( $shellcode ); chdir $olddir; Audio::Nama::pager($output) if $output; 1; } meta: eval perlcode stopper { Audio::Nama::logit(__LINE__,'Audio::Nama::Grammar','debug',"Evaluating perl code"); Audio::Nama::eval_perl($item{perlcode}); 1 } meta: 'for' 'track' ';' namacode stopper { Audio::Nama::logit(__LINE__,'Grammar','debug',"for track, namacode: $item{namacode}"); my @tracks = grep{ ! $_->is_mixer } $Audio::Nama::bn{$Audio::Nama::this_bus}->track_o; for my $t(@tracks) { $t->select_track; $Audio::Nama::text->{parser}->meta($item{namacode}); } 1; } meta: for 'bus' ';' namacode stopper { Audio::Nama::logit(__LINE__,'Grammar','debug',"for bus, namacode: $item{namacode}"); my @tracks = grep{ $_->is_mixer } $Audio::Nama::bn{$Audio::Nama::this_bus}->track_o; for my $t(@tracks) { $t->select_track; $Audio::Nama::text->{parser}->meta($item{namacode}); } 1; } meta: for bunch_spec ';' namacode stopper { Audio::Nama::logit(__LINE__,'Grammar','debug',"namacode: $item{namacode}"); my @tracks = Audio::Nama::bunch_tracks($item{bunch_spec}); for my $t(@tracks) { Audio::Nama::set_current_track($t); $Audio::Nama::text->{parser}->meta($item{namacode}); } 1; } bunch_spec: text meta: nosemi(s /\s*;\s*/) semicolon(?) nosemi: text { $Audio::Nama::text->{parser}->do_part($item{text}) } text: /[^;]+/ semicolon: ';' do_part: command end do_part: track_spec command end do_part: track_spec end predicate: nonsemi end { $item{nonsemi}} predicate: /$/ iam_cmd: ident { $item{ident} if $Audio::Nama::text->{iam}->{$item{ident}} } track_spec: ident { Audio::Nama::set_current_track($item{ident}) } bang: '!' eval: 'eval' for: 'for' stopper: ';;' | /$/ shellcode: somecode perlcode: somecode namacode: somecode somecode: /.+?(?=;;|$)/ nonsemi: /[^;]+/ semistop: /;|$/ command: iam_cmd predicate { my $user_input = "$item{iam_cmd} $item{predicate}"; Audio::Nama::logit(__LINE__,'Audio::Nama::Grammar','debug',"Found Ecasound IAM command: $user_input"); my $result = Audio::Nama::ecasound_iam($user_input); Audio::Nama::pager( "$result\n" ); 1 } command: user_command predicate { Audio::Nama::do_user_command(split " ",$item{predicate}); 1; } command: user_alias predicate { $Audio::Nama::text->{parser}->do_part("$item{user_alias} $item{predicate}"); 1 } user_alias: ident { $Audio::Nama::config->{alias}->{command}->{$item{ident}} } user_command: ident { return $item{ident} if $Audio::Nama::text->{user_command}->{$item{ident}} } key: /\w+/ someval: /[\w.+-]+/ sign: '+' | '-' | '*' | '/' parameter_value: '*' | value value: /[+-]?([\d_]+(\.\d*)?|\.\d+)([eE][+-]?\d+)?/ float: /\d+\.\d+/ op_id: /[A-Z]+/ existing_op_id: op_id { my $FX; $FX = Audio::Nama::fxn($item[-1]) and $FX->id } parameter: /\d+/ dd: /\d+/ shellish: /"(.+)"/ { $1 } shellish: /'(.+)'/ { $1 } shellish: anytag | <error> jack_port: shellish effect: /\w[^, ]+/ project_id: ident slash(?) { $item{ident} } slash: '/' anytag: /\S+/ ident: /[-\w]+/ save_target: /[-:\w.]+/ decimal_seconds: /\d+(\.\d+)?/ marktime: /\d+\.\d+/ markname: alphafirst { Audio::Nama::throw("$item[1]: non-existent mark name. Skipping"), return undef unless $Audio::Nama::Mark::by_name{$item[1]}; $item[1]; } alphafirst: /[A-Za-z][\w_-]*/ path: shellish modifier: 'audioloop' | 'select' | 'reverse' | 'playat' | value end: /[;\s]*$/ help_effect: _help_effect effect { Audio::Nama::help_effect($item{effect}) ; 1} find_effect: _find_effect anytag(s) { Audio::Nama::find_effect(@{$item{"anytag(s)"}}); 1} help: _help anytag { Audio::Nama::help($item{anytag}) ; 1} help: _help { print( $Audio::Nama::help->{screen} ); 1} project_name: _project_name { Audio::Nama::pager( "project name: ", $Audio::Nama::project->{name}); 1} new_project: _new_project project_id { Audio::Nama::t_create_project $item{project_id} ; 1} list_projects: _list_projects { Audio::Nama::list_projects() ; 1} load_project: _load_project project_id { Audio::Nama::t_load_project $item{project_id} ; 1} new_project_template: _new_project_template key text(?) { Audio::Nama::new_project_template($item{key}, $item{text}); 1; } use_project_template: _use_project_template key { Audio::Nama::use_project_template($item{key}); 1; } list_project_templates: _list_project_templates { Audio::Nama::list_project_templates(); 1; } destroy_project_template: _destroy_project_template key(s) { Audio::Nama::remove_project_template(@{$item{'key(s)'}}); 1; } tag: _tag tagname message(?) { Audio::Nama::project_snapshot(); my @args = ('tag', $item{tagname}); push @args, '-m', "@{$item{'message(?)'}}" if @{$item{'message(?)'}}; Audio::Nama::git(@args); 1; } commit: _commit message(?) { Audio::Nama::project_snapshot(@{$item{'message(?)'}}); 1; } branch: _branch branchname { Audio::Nama::throw("$item{branchname}: branch does not exist. Skipping."), return 1 if ! Audio::Nama::git_branch_exists($item{branchname}); if(Audio::Nama::git_checkout($item{branchname})){ Audio::Nama::load_project(name => $Audio::Nama::project->{name}) } else { } 1; } branch: _branch { Audio::Nama::list_branches(); 1} list_branches: _list_branches end { Audio::Nama::list_branches(); 1} new_branch: _new_branch branchname branchfrom(?) { my $name = $item{branchname}; my $from = "@{$item{'branchfrom(?)'}}"; Audio::Nama::throw("$name: branch already exists. Doing nothing."), return 1 if Audio::Nama::git_branch_exists($name); Audio::Nama::git_create_branch($name, $from); 1 } tagname: ident branchname: ident branchfrom: ident message: /.+/ save_state: _save_state save_target message(?) { my $name = $item{save_target}; my $default_msg = "user save - $name"; my $message = "@{$item{'message(?)'}}" || $default_msg; Audio::Nama::pager("save target name: $name\n"); Audio::Nama::pager("commit message: $message\n") if $message; if( ! $Audio::Nama::config->{use_git} or $name =~ /\.json$/ ) { Audio::Nama::pager("saving as file\n"), Audio::Nama::save_state( $name) } else { Audio::Nama::project_snapshot(); my @args = ('tag', $name); push @args, '-m', $message if $message; Audio::Nama::git(@args); Audio::Nama::pager_newline(qq/tagged HEAD commit as "$name"/, qq/type "get $name" to return to this commit./) } 1 } save_state: _save_state { Audio::Nama::project_snapshot('user save'); 1} get_state: _get_state save_target { Audio::Nama::load_project( name => $Audio::Nama::project->{name}, settings => $item{save_target} ); 1} getpos: _getpos { Audio::Nama::pager( Audio::Nama::d1( Audio::Nama::ecasound_iam('getpos'))); 1} setpos: _setpos timevalue { Audio::Nama::set_position($item{timevalue}); 1} forward: _forward timevalue { Audio::Nama::forward( $item{timevalue} ); 1} rewind: _rewind timevalue { Audio::Nama::rewind( $item{timevalue} ); 1} timevalue: min_sec | decimal_seconds seconds: samples seconds: /\d+/ samples: /\d+sa/ { my ($samples) = $item[1] =~ /(\d+)/; $return = $samples/$Audio::Nama::project->{sample_rate} } min_sec: /\d+/ ':' /\d+/ { $item[1] * 60 + $item[3] } jump_to_start: _jump_to_start { Audio::Nama::jump_to_start(); 1 } jump_to_end: _jump_to_end { Audio::Nama::jump_to_end(); 1 } add_track: _add_track new_track_name { Audio::Nama::add_track($item{new_track_name}); 1 } add_midi_track: _add_midi_track new_track_name { Audio::Nama::add_midi_track($item{new_track_name}); Audio::Nama::pager_newline(qq(creating MIDI track "$item{new_track_name}")); 1 } arg: anytag add_tracks: _add_tracks track_name(s) { map{ Audio::Nama::add_track($_) } @{$item{'track_name(s)'}}; 1} new_track_name: anytag { my $proposed = $item{anytag}; Audio::Nama::throw( qq(Track name "$proposed" needs to start with a letter)), return undef if $proposed !~ /^[A-Za-z]/; Audio::Nama::throw( qq(Track name "$proposed" cannot contain a colon.)), return undef if $proposed =~ /:/; Audio::Nama::throw( qq(A track named "$proposed" already exists.)), return undef if $Audio::Nama::Track::by_name{$proposed}; Audio::Nama::throw( qq(Track name "$proposed" conflicts with Ecasound command keyword.)), return undef if $Audio::Nama::text->{iam}->{$proposed}; Audio::Nama::throw( qq(Track name "$proposed" conflicts with user command.)), return undef if $Audio::Nama::text->{user_command}->{$proposed}; Audio::Nama::throw( qq(Track name "$proposed" conflicts with Nama command or shortcut.)), return undef if $Audio::Nama::text->{commands}->{$proposed} or $Audio::Nama::text->{command_shortcuts}->{$proposed}; ; $proposed } track_name: alphafirst bus_name: alphafirst existing_track_name: track_name { my $track_name = $item{track_name}; if ($Audio::Nama::tn{$track_name}){ $track_name; } else { Audio::Nama::throw("$track_name: track does not exist.\n"); undef } } existing_bus_name: bus_name { my $bus_name = $item{bus_name}; if ($Audio::Nama::bn{$bus_name}){ $bus_name; } else { Audio::Nama::throw("$bus_name: bus does not exist.\n"); undef } } move_to_bus: _move_to_bus existing_bus_name { $Audio::Nama::this_track->set( group => $item{existing_bus_name}); 1 } set_track: _set_track key someval { $Audio::Nama::this_track->set( $item{key}, $item{someval} ); 1} dump_track: _dump_track { Audio::Nama::pager($Audio::Nama::this_track->dump); 1} dump_group: _dump_group { Audio::Nama::pager($Audio::Nama::bn{Main}->dump); 1} dump_all: _dump_all { Audio::Nama::dump_all(); 1} remove_track: _remove_track quiet end { local $Audio::Nama::quiet = 1; Audio::Nama::remove_track_cmd($Audio::Nama::this_track); 1 } remove_track: _remove_track existing_track_name { Audio::Nama::remove_track_cmd($Audio::Nama::tn{$item{existing_track_name}}); 1 } remove_track: _remove_track end { Audio::Nama::remove_track_cmd($Audio::Nama::this_track) ; 1 } quiet: 'quiet' link_track: _link_track existing_project_name track_name new_track_name end { Audio::Nama::add_track_alias_project( $item{new_track_name}, $item{track_name}, $item{existing_project_name} ); 1 } link_track: _link_track target track_name end { Audio::Nama::add_track_alias($item{track_name}, $item{target}); 1 } target: existing_track_name existing_project_name: ident { $item{ident} if -d Audio::Nama::join_path(Audio::Nama::project_root(),$item{ident}) } project: ident set_region: _set_region beginning ending { Audio::Nama::set_region( @item{ qw( beginning ending ) } ); 1; } set_region: _set_region beginning { Audio::Nama::set_region( $item{beginning}, 'END' ); 1; } remove_region: _remove_region { Audio::Nama::remove_region(); 1; } add_region: _add_region beginning ending track_name(?) { my $name = $item{'track_name(?)'}->[0]; Audio::Nama::new_region(@item{qw(beginning ending)}, $name); 1 } shift_track: _shift_track start_position { my $pos = $item{start_position}; if ( $pos =~ /\d+\.\d+/ ){ Audio::Nama::pager($Audio::Nama::this_track->name. ": Shifting start time to $pos seconds"); $Audio::Nama::this_track->set(playat => $pos); 1; } elsif ( $Audio::Nama::Mark::by_name{$pos} ){ my $time = Audio::Nama::Mark::mark_time( $pos ); Audio::Nama::pager($Audio::Nama::this_track->name. qq(: Shifting start time to mark "$pos", $time seconds)); $Audio::Nama::this_track->set(playat => $pos); 1; } else { Audio::Nama::throw( "Shift value is neither decimal nor mark name. Skipping."); 0; } } start_position: float | samples | markname unshift_track: _unshift_track { $Audio::Nama::this_track->set(playat => undef) } beginning: marktime | markname ending: 'END' | marktime | markname generate: _generate { Audio::Nama::generate_setup(); 1} arm: _arm { Audio::Nama::arm(); 1} arm_start: _arm_start { Audio::Nama::arm(); Audio::Nama::start_transport(); 1 } connect: _connect { Audio::Nama::connect_transport(); 1} disconnect: _disconnect { Audio::Nama::disconnect_transport(); 1} engine_status: _engine_status { Audio::Nama::pager(Audio::Nama::ecasound_iam('engine-status')); 1} start: _start { Audio::Nama::start_transport(); 1} stop: _stop { Audio::Nama::stop_transport(); 1} ecasound_start: _ecasound_start { Audio::Nama::ecasound_iam('start'); 1} ecasound_stop: _ecasound_stop { Audio::Nama::ecasound_iam('stop'); 1} restart_ecasound: _restart_ecasound { Audio::Nama::restart_ecasound(); 1 } show_tracks: _show_tracks { Audio::Nama::pager( Audio::Nama::show_tracks(Audio::Nama::showlist())); 1; } show_tracks_all: _show_tracks_all { my $list = [undef, undef, sort{$a->n <=> $b->n} Audio::Nama::all_tracks()]; Audio::Nama::pager(Audio::Nama::show_tracks($list)); 1; } show_bus: _show_bus existing_bus_name { my $bus = $Audio::Nama::bn{$item{existing_bus_name}}; my $list = $bus->trackslist; Audio::Nama::pager(Audio::Nama::show_tracks($list)); 1; } show_bus: _show_bus { my $bus = $Audio::Nama::bn{$Audio::Nama::this_bus}; my $list = $bus->trackslist; Audio::Nama::pager(Audio::Nama::show_tracks($list)); 1; } modifiers: _modifiers modifier(s) { $Audio::Nama::this_track->set(modifiers => (join q(,), @{$item{"modifier(s)"}}, q() )); 1;} modifiers: _modifiers { Audio::Nama::pager( $Audio::Nama::this_track->modifiers); 1} nomodifiers: _nomodifiers { $Audio::Nama::this_track->set(modifiers => ""); 1} show_chain_setup: _show_chain_setup { Audio::Nama::pager(Audio::Nama::ChainSetup::ecasound_chain_setup); 1} dump_io: _dump_io { Audio::Nama::ChainSetup::show_io(); 1} show_track: _show_track { my $output = $Audio::Nama::text->{format_top}; $output .= Audio::Nama::show_tracks_section($Audio::Nama::this_track); $output .= Audio::Nama::show_track_comment_brief($Audio::Nama::this_track); $output .= Audio::Nama::show_region(); $output .= Audio::Nama::show_versions(); $output .= Audio::Nama::show_version_comment_brief($Audio::Nama::this_track, $_) for @{$Audio::Nama::this_track->versions}; $output .= Audio::Nama::show_send(); $output .= Audio::Nama::show_bus(); $output .= Audio::Nama::show_modifiers(); $output .= join "", "Signal width: ", Audio::Nama::width($Audio::Nama::this_track->width), "\n"; $output .= Audio::Nama::show_inserts(); $output .= Audio::Nama::show_effects(); Audio::Nama::pager( $output ); 1;} show_track: _show_track track_name { Audio::Nama::pager( Audio::Nama::show_tracks( $Audio::Nama::tn{$item{track_name}} )) if $Audio::Nama::tn{$item{track_name}}; 1;} show_track: _show_track dd { Audio::Nama::pager( Audio::Nama::show_tracks( $Audio::Nama::ti{$item{dd}} )) if $Audio::Nama::ti{$item{dd}}; 1;} show_mode: _show_mode { Audio::Nama::pager( Audio::Nama::show_status()); 1} bus_version: _bus_version dd { my $n = $item{dd}; Audio::Nama::nama_cmd("for $Audio::Nama::this_bus; version $n"); } mixdown: _mixdown additional_time { $Audio::Nama::setup->{extra_run_time} = $item{additional_time}; Audio::Nama::mixdown(); 1} mixdown: _mixdown { Audio::Nama::mixdown(); 1} mixplay: _mixplay { Audio::Nama::mixplay(); 1} mixoff: _mixoff { Audio::Nama::mixoff(); 1} automix: _automix { Audio::Nama::automix(); 1 } autofix_tracks: _autofix_tracks { Audio::Nama::nama_cmd("for mon; fixdc; normalize"); 1 } master_on: _master_on { Audio::Nama::master_on(); 1 } master_off: _master_off { Audio::Nama::master_off(); 1 } exit: _exit { Audio::Nama::cleanup_exit(); CORE::exit; } source: _source ('track'|'t') trackname { $Audio::Nama::this_track->set_source($item{trackname}, 'track'); 1 } trackname: existing_track_name source: _source 'bus' existing_bus_name { $Audio::Nama::this_track->set(source_id => $item{existing_bus_name}, source_type => 'bus') } source: _source source_id { $Audio::Nama::this_track->set_source($item{source_id}); 1 } source_id: shellish source: _source { my $status = $Audio::Nama::this_track->rec_status; my $source = join ": input set to ",$Audio::Nama::this_track->name, $Audio::Nama::this_track->input_object_text; $source .= " however track is $status" if $status ne Audio::Nama::REC and $status ne Audio::Nama::MON; Audio::Nama::pager_newline($source); } send: _send ('track'|'t') trackname { $Audio::Nama::this_track->set_send($item{trackname}, 'track'); 1 } send: _send send_id { $Audio::Nama::this_track->set_send($item{send_id}); 1} send: _send { $Audio::Nama::this_track->set_send(); 1} send_id: shellish remove_send: _remove_send { $Audio::Nama::this_track->set(send_type => undef); $Audio::Nama::this_track->set(send_id => undef); 1 } stereo: _stereo { $Audio::Nama::this_track->set(width => 2); Audio::Nama::pager($Audio::Nama::this_track->name, ": setting to stereo\n"); 1; } mono: _mono { $Audio::Nama::this_track->set(width => 1); Audio::Nama::pager($Audio::Nama::this_track->name, ": setting to mono\n"); 1; } off: 'dummy' record: 'dummy' mon: 'dummy' play: 'dummy' command: mono command: rw rw_setting: 'REC ' | 'rec' | 'PLAY' | 'play' | 'MON' | 'mon' | 'OFF' | 'off' { $return = $item[1] } rw: rw_setting { $Audio::Nama::this_track->set(rw => uc $item{rw_setting}) ; 1 } set_version: _set_version dd { $Audio::Nama::this_track->set_version($item{dd}); 1} vol: _vol value { $Audio::Nama::this_track->vol or Audio::Nama::throw(( $Audio::Nama::this_track->name . ": no volume control available")), return; Audio::Nama::modify_effect( $Audio::Nama::this_track->vol, 1, undef, $item{value}); 1; } vol: _vol sign(?) value { $Audio::Nama::this_track->vol or Audio::Nama::throw( $Audio::Nama::this_track->name . ": no volume control available"), return; Audio::Nama::modify_effect( $Audio::Nama::this_track->vol, 1, $item{'sign(?)'}->[0], $item{value}); 1; } vol: _vol { Audio::Nama::pager( $Audio::Nama::this_track->vol_level); 1} mute: _mute { $Audio::Nama::this_track->mute; 1} unmute: _unmute { $Audio::Nama::this_track->unmute; 1} solo: _solo ident(s) { Audio::Nama::solo(@{$item{'ident(s)'}}); 1 } solo: _solo { Audio::Nama::solo($Audio::Nama::this_track->name); 1} all: _all { Audio::Nama::all() ; 1} nosolo: _nosolo { Audio::Nama::nosolo() ; 1} unity: _unity { Audio::Nama::unity($Audio::Nama::this_track); 1} pan: _pan panval { Audio::Nama::update_effect( $Audio::Nama::this_track->pan, 0, $item{panval}); 1;} pan: _pan sign panval { Audio::Nama::modify_effect( $Audio::Nama::this_track->pan, 1, $item{sign}, $item{panval} ); 1;} panval: float | dd pan: _pan { Audio::Nama::pager( $Audio::Nama::this_track->pan_level); 1} pan_right: _pan_right { Audio::Nama::pan_set($Audio::Nama::this_track, 100 ); 1} pan_left: _pan_left { Audio::Nama::pan_set($Audio::Nama::this_track, 0 ); 1} pan_center: _pan_center { Audio::Nama::pan_set($Audio::Nama::this_track, 50 ); 1} pan_back: _pan_back { Audio::Nama::pan_back($Audio::Nama::this_track); 1;} remove_mark: _remove_mark dd { my @marks = Audio::Nama::Mark::all(); $marks[$item{dd}]->remove if defined $marks[$item{dd}]; 1;} remove_mark: _remove_mark ident { my $mark = $Audio::Nama::Mark::by_name{$item{ident}}; $mark->remove if defined $mark; 1;} remove_mark: _remove_mark { return unless (ref $Audio::Nama::this_mark) =~ /Mark/; $Audio::Nama::this_mark->remove; 1;} discard: _discard { Audio::Nama::discard() } retain: _retain { Audio::Nama::retain() } gather: _gather { Audio::Nama::gather() } add_mark: _add_mark ident { Audio::Nama::drop_mark $item{ident}; 1} add_mark: _add_mark { Audio::Nama::drop_mark(); 1} next_mark: _next_mark { Audio::Nama::next_mark(); 1} previous_mark: _previous_mark { Audio::Nama::previous_mark(); 1} loop: _loop someval(s) { my @new_endpoints = @{ $item{"someval(s)"}}; $Audio::Nama::mode->{loop_enable} = 1; @{$Audio::Nama::setup->{loop_endpoints}} = (@new_endpoints, @{$Audio::Nama::setup->{loop_endpoints}}); @{$Audio::Nama::setup->{loop_endpoints}} = @{$Audio::Nama::setup->{loop_endpoints}}[0,1]; 1;} noloop: _noloop { $Audio::Nama::mode->{loop_enable} = 0; 1} name_mark: _name_mark ident {$Audio::Nama::this_mark->set_name( $item{ident}); 1} list_marks: _list_marks { my $i = 0; my @lines = map{ my $pre = $_->{time} == $Audio::Nama::this_mark->{time} ? q(*) : q(); $pre . join " ", $i++, sprintf("%.1f", $_->{time}), $_->name, "\n" } @Audio::Nama::Mark::all; my $start = my $end = "undefined"; push @lines, "now at ". sprintf("%.1f\n", Audio::Nama::ecasound_iam("getpos")); Audio::Nama::pager(@lines); 1;} to_mark: _to_mark dd { my @marks = Audio::Nama::Mark::all(); $marks[$item{dd}]->jump_here; 1;} to_mark: _to_mark ident { my $mark = $Audio::Nama::Mark::by_name{$item{ident}}; $mark->jump_here if defined $mark; 1;} modify_mark: _modify_mark sign value { my $newtime = eval($Audio::Nama::this_mark->{time} . $item{sign} . $item{value}); Audio::Nama::modify_mark($Audio::Nama::this_mark, $newtime); 1 } modify_mark: _modify_mark value { Audio::Nama::modify_mark($Audio::Nama::this_mark, $item{value} ); 1 } remove_effect: _remove_effect remove_target(s) { Audio::Nama::mute(); map{ my $id = $_; my ($use) = grep{ $id eq $Audio::Nama::this_track->$_ } qw(vol pan fader); if($use){ Audio::Nama::throw("Effect $id is used as $use by track",$Audio::Nama::this_track->name, ".\nSee 'remove_fader_effect to remove it'\n") } else { my $FX = Audio::Nama::fxn($id); Audio::Nama::pager_newline("removing effect ".$FX->nameline); $FX->_remove_effect(); } } grep { $_ } map{ split ' ', $_} @{ $item{"remove_target(s)"}} ; Audio::Nama::sleeper(0.5); Audio::Nama::unmute(); 1;} add_controller: _add_controller parent effect value(s?) { my $code = $item{effect}; my $parent = $item{parent}; my $parent_o = Audio::Nama::fxn($parent); print "parent: ", $parent_o, " chain: ", $parent_o->chain; my $values = $item{"value(s?)"}; my $id = Audio::Nama::add_effect({ parent => $parent, chain => $parent_o->chain, type => $code, params => $values, }); if($id) { my $iname = Audio::Nama::fxn($id)->fxname; my $pname = Audio::Nama::fxn($parent)->fxname; Audio::Nama::pager("\nAdded $id, $iname to $parent, $pname\n\n"); } 1; } add_controller: _add_controller effect value(s?) { Audio::Nama::throw("current effect is undefined, skipping\n"), return 1 if ! Audio::Nama::this_op(); my $code = $item{effect}; my $parent = Audio::Nama::this_op(); my $values = $item{"value(s?)"}; my $cmd = "add_controller $parent $code @$values"; print "command: $cmd\n"; Audio::Nama::nama_cmd($cmd); 1 } existing_effect_chain: ident { $item{ident} if Audio::Nama::is_effect_chain($item{ident}) } add_target: fx_nick | existing_effect_chain | known_effect_type nickname_effect: _nickname_effect ident { my $ident = $item{ident}; Audio::Nama::this_op_o()->set_name($ident); Audio::Nama::throw("$ident: no such nickname. Skipping."), return unless defined Audio::Nama::this_op_o(); my $type = Audio::Nama::this_op_o()->type; my $fxname = Audio::Nama::this_op_o()->fxname; $Audio::Nama::fx->{alias}->{$ident} = $type; Audio::Nama::pager_newline("$ident: nickname created for $type ($fxname)"); 1 } remove_nickname: _remove_nickname { Audio::Nama::this_op_o()->remove_name() } delete_nickname_definition: _delete_nickname_definition ident { my $was = delete $Audio::Nama::fx->{alias}->{$item{ident}}; $was or Audio::Nama::throw("$item{ident}: no such nickname"), return 0; Audio::Nama::pager_newline("$item{ident}: effect nickname deleted"); } list_nickname_definitions: _list_nickname_definitions { my @lines; while( my($nick,$code) = each %{ $Audio::Nama::fx->{alias} } ) { push @lines, join " ", "$nick:", $Audio::Nama::fx_cache->{registry}->[Audio::Nama::effect_index($code)]->{name}, "($code)\n"; } Audio::Nama::pager(@lines); 1 } known_effect_type: effect { Audio::Nama::full_effect_code($item{effect}) } before: fx_alias fx_name: ident { $Audio::Nama::this_track->effect_id_by_name($item{ident}) } fx_surname: ident { $Audio::Nama::this_track->with_surname($item{ident}) } add_effect: _add_effect add_target parameter_value(s?) before(?) { my ($code, $effect_chain); my $values = $item{'parameter_value(s?)'}; my $args = { track => $Audio::Nama::this_track, params => $values }; if( my $fxc = Audio::Nama::is_effect_chain($item{add_target}) ) { $args->{effect_chain} = $fxc } else{ $args->{type} = $item{add_target} } my $fader = Audio::Nama::fxn($Audio::Nama::this_track->pan) && $Audio::Nama::this_track->pan || Audio::Nama::fxn($Audio::Nama::this_track->vol) && $Audio::Nama::this_track->vol; { no warnings 'uninitialized'; Audio::Nama::logpkg(__FILE__,__LINE__,'debug',$Audio::Nama::this_track->name,": effect insert point is $fader", Audio::Nama::Dumper($args)); } my $predecessor = $item{'before(?)'}->[0] || $fader; $args->{before} = $predecessor if $predecessor; my $added = Audio::Nama::_add_effect($args); for my $FX(@$added) { my $iname = $FX->fxname; my $id = $FX->id; Audio::Nama::pager_newline("Added $id, $iname"); Audio::Nama::set_current_op($id); } } add_effect: _add_effect ('first' | 'f') add_target value(s?) { my $command = join " ", qw(add_effect), $item{add_target}, @{$item{'value(s?)'}}, $Audio::Nama::this_track->{ops}->[0]; Audio::Nama::nama_cmd($command) } add_effect: _add_effect ('last' | 'l') add_target value(s?) { my $command = join " ", qw(add_effect), $item{add_target}, @{$item{'value(s?)'}}, qw(ZZZ); Audio::Nama::nama_cmd($command) } add_effect: _add_effect ('before' | 'b') before add_target value(s?) { my $command = join " ", qw(add_effect), $item{add_target}, @{$item{'value(s?)'}}, $item{before}; Audio::Nama::nama_cmd($command) } add_effect_first: _add_effect_first add_target value(s?) { my $command = join " ", qw(add_effect), "last", $item{add_target}, @{$item{'value(s?)'}}; Audio::Nama::nama_cmd($command) } add_effect_last: _add_effect_last add_target value(s?) { my $command = join " ", qw(add_effect), "last", $item{add_target}, @{$item{'value(s?)'}}; Audio::Nama::nama_cmd($command) } add_effect_before: _add_effect_before before add_target value(s?) { my $command = join " ", qw(add_effect), "before", $item{before}, $item{add_target}, @{$item{'value(s?)'}}; Audio::Nama::nama_cmd($command) } parent: op_id modify_effect: _modify_effect fx_alias(s /,/) parameter(s /,/) value { Audio::Nama::modify_multiple_effects( @item{qw(fx_alias(s) parameter(s) sign value)}); Audio::Nama::pager(Audio::Nama::show_effect(@{ $item{'fx_alias(s)'} })); 1 } modify_effect: _modify_effect fx_alias(s /,/) parameter(s /,/) sign value { Audio::Nama::modify_multiple_effects( @item{qw(fx_alias(s) parameter(s) sign value)}); Audio::Nama::pager(Audio::Nama::show_effect(@{ $item{'fx_alias(s)'} })); 1 } modify_effect: _modify_effect parameter(s /,/) value { Audio::Nama::throw("current effect is undefined, skipping"), return 1 if ! Audio::Nama::this_op(); Audio::Nama::modify_multiple_effects( [Audio::Nama::this_op()], $item{'parameter(s)'}, undef, $item{value}); Audio::Nama::pager( Audio::Nama::show_effect(Audio::Nama::this_op(), "with track affiliation")); 1 } modify_effect: _modify_effect parameter(s /,/) sign value { Audio::Nama::throw("current effect is undefined, skipping"), return 1 if ! Audio::Nama::this_op(); Audio::Nama::modify_multiple_effects( [Audio::Nama::this_op()], @item{qw(parameter(s) sign value)}); Audio::Nama::pager( Audio::Nama::show_effect(Audio::Nama::this_op())); 1 } fx_alias3: ident { join " ", map{ $_->id } grep { $_->surname eq $item{ident} } $Audio::Nama::this_track->user_ops_o; } remove_target: existing_op_id | fx_pos | fx_surname | fx_name { $item[-1] or print("no effect object found\n"), return 0} fx_alias: fx_alias2 | fx_alias1 fx_nick: ident { $Audio::Nama::fx->{alias}->{$item{ident}} } fx_alias1: op_id fx_alias1: fx_pos fx_alias1: fx_name fx_alias2: fx_type fx_pos: dd { $Audio::Nama::this_track->{ops}->[$item{dd} - 1] } fx_type: effect { my $FX = $Audio::Nama::this_track->first_effect_of_type($item{effect}); $FX ? $FX->id : undef } position_effect: _position_effect op_to_move new_following_op { my $op = $item{op_to_move}; my $pos = $item{new_following_op}; my $FX = Audio::Nama::fxn($op); $FX->position_effect($pos); Audio::Nama::set_current_op($op); 1; } op_to_move: op_id new_following_op: op_id show_effect: _show_effect fx_alias(s) { my @fx = @{ $item{'fx_alias(s)'}}; @fx = Audio::Nama::Effect::expanded_ops_list(@fx); my @lines = map{ Audio::Nama::show_effect($_, "with track affiliation") } grep{ Audio::Nama::fxn($_) } @fx; Audio::Nama::set_current_op($item{'fx_alias(s)'}->[-1]); Audio::Nama::pager(@lines); 1 } show_effect: _show_effect { Audio::Nama::throw("current effect is undefined, skipping"), return 1 if ! Audio::Nama::this_op(); Audio::Nama::pager( Audio::Nama::show_effect(Audio::Nama::this_op(), "with track affiliation")); 1; } dump_effect: _dump_effect fx_alias { Audio::Nama::pager( Audio::Nama::json_out(Audio::Nama::fxn($item{fx_alias})->as_hash) ); 1} dump_effect: _dump_effect { Audio::Nama::pager( Audio::Nama::json_out(Audio::Nama::this_op_o()->as_hash) ); 1} list_effects: _list_effects { Audio::Nama::pager(Audio::Nama::list_effects()); 1} add_bunch: _add_bunch ident(s) { Audio::Nama::bunch( @{$item{'ident(s)'}}); 1} list_bunches: _list_bunches { Audio::Nama::bunch(); 1} remove_bunch: _remove_bunch ident(s) { map{ delete $Audio::Nama::project->{bunch}->{$_} } @{$item{'ident(s)'}}; 1} add_to_bunch: _add_to_bunch ident(s) { Audio::Nama::add_to_bunch( @{$item{'ident(s)'}});1 } list_versions: _list_versions { Audio::Nama::pagers( join " ", @{$Audio::Nama::this_track->versions}); 1} ladspa_register: _ladspa_register { Audio::Nama::pager( Audio::Nama::ecasound_iam("ladspa-register")); 1} preset_register: _preset_register { Audio::Nama::pagers( Audio::Nama::ecasound_iam("preset-register")); 1} ctrl_register: _ctrl_register { Audio::Nama::pager( Audio::Nama::ecasound_iam("ctrl-register")); 1} preview: _preview { Audio::Nama::set_preview_mode(); 1} doodle: _doodle { Audio::Nama::set_doodle_mode(); 1 } normalize: _normalize { $Audio::Nama::this_track->normalize; 1} fixdc: _fixdc { $Audio::Nama::this_track->fixdc; 1} destroy_current_wav: _destroy_current_wav { Audio::Nama::destroy_current_wav(); 1 } memoize: _memoize { package Audio::Nama::Wav; $Audio::Nama::config->{memoize} = 1; memoize('candidates'); 1 } unmemoize: _unmemoize { package Audio::Nama::Wav; $Audio::Nama::config->{memoize} = 0; unmemoize('candidates'); 1 } import_audio: _import_audio path frequency { Audio::Nama::import_audio($Audio::Nama::this_track, $item{path}, $item{frequency}); 1; } import_midi: _import_midi path { my $fname = $item{path}; $fname = qq("$fname") unless $fname =~ /"/; Audio::Nama::midish_cmd("import $fname"); 1 } import_audio: _import_audio path { Audio::Nama::import_audio($Audio::Nama::this_track, $item{path}); 1; } frequency: value list_history: _list_history { my @history = $Audio::Nama::term->GetHistory; my %seen; Audio::Nama::pager( grep{ ! $seen{$_} and $seen{$_}++ } @history ); } add_submix_cooked: _add_submix_cooked bus_name destination { Audio::Nama::add_submix( $item{bus_name}, $item{destination}, 'cooked' ); 1; } add_submix_raw: _add_submix_raw bus_name destination { Audio::Nama::add_submix( $item{bus_name}, $item{destination}, 'raw' ); 1; } add_bus: _add_bus bus_name { Audio::Nama::add_bus( $item{bus_name}); 1 } existing_bus_name: bus_name { if ( $Audio::Nama::bn{$item{bus_name}} ){ $item{bus_name} } else { Audio::Nama::throw("$item{bus_name}: no such bus"); undef } } bus_name: ident user_bus_name: ident { if($item[1] =~ /^[A-Z]/){ $item[1] } else { Audio::Nama::throw("Bus name must begin with capital letter."); undef} } destination: jack_port remove_bus: _remove_bus existing_bus_name { $Audio::Nama::bn{$item{existing_bus_name}}->remove; 1; } update_submix: _update_submix existing_bus_name { Audio::Nama::update_submix( $item{existing_bus_name} ); 1; } set_bus: _set_bus key someval { $Audio::Nama::bn{$Audio::Nama::this_bus}->set($item{key} => $item{someval}); 1 } list_buses: _list_buses { Audio::Nama::list_buses() ; 1} add_insert: _add_insert 'local' { Audio::Nama::Insert::add_insert( $Audio::Nama::this_track,'postfader_insert'); 1; } add_insert: _add_insert prepost send_id return_id(?) { my $return_id = $item{'return_id(?)'}->[0]; my $send_id = $item{send_id}; Audio::Nama::Insert::add_insert($Audio::Nama::this_track, "$item{prepost}fader_insert",$send_id, $return_id); 1; } prepost: 'pre' | 'post' send_id: jack_port return_id: jack_port set_insert_wetness: _set_insert_wetness prepost(?) parameter { my $prepost = $item{'prepost(?)'}->[0]; my $p = $item{parameter}; my $id = Audio::Nama::Insert::get_id($Audio::Nama::this_track,$prepost); Audio::Nama::throw($Audio::Nama::this_track->name. ": Missing or ambiguous insert. Skipping"), return 1 unless $id; Audio::Nama::throw("wetness parameter must be an integer between 0 and 100"), return 1 unless ($p <= 100 and $p >= 0); my $i = $Audio::Nama::Insert::by_index{$id}; Audio::Nama::throw("track '",$Audio::Nama::this_track->n, "' has no insert. Skipping."), return 1 unless $i; $i->set_wetness($p); Audio::Nama::pager( "The insert is ", $i->wetness, "% wet, ", (100 - $i->wetness), "% dry."); } set_insert_wetness: _set_insert_wetness prepost(?) { my $prepost = $item{'prepost(?)'}->[0]; my $id = Audio::Nama::Insert::get_id($Audio::Nama::this_track,$prepost); $id or Audio::Nama::throw($Audio::Nama::this_track->name. ": Missing or ambiguous insert. Skipping"), return 1 ; my $i = $Audio::Nama::Insert::by_index{$id}; Audio::Nama::pager( "The insert is ", $i->wetness, "% wet, ", (100 - $i->wetness), "% dry."); } remove_insert: _remove_insert prepost(?) { my $prepost = $item{'prepost(?)'}->[0]; my $id = Audio::Nama::Insert::get_id($Audio::Nama::this_track,$prepost); $id or Audio::Nama::throw($Audio::Nama::this_track->name. ": Missing or ambiguous insert. Skipping"), return 1 ; Audio::Nama::pager( $Audio::Nama::this_track->name.": removing ". $prepost ? "$prepost fader insert" : "insert"); $Audio::Nama::Insert::by_index{$id}->remove; 1; } cache_track: _cache_track additional_time(?) { my $time = $item{'additional_time(?)'}->[0]; Audio::Nama::cache_track($Audio::Nama::this_track, $time); 1 } additional_time: float | dd uncache_track: _uncache_track { Audio::Nama::uncache_track($Audio::Nama::this_track); 1 } overwrite_effect_chain: 'dummy' new_effect_chain: (_new_effect_chain | _overwrite_effect_chain ) ident op_id(s?) end { my $name = $item{ident}; my @existing = Audio::Nama::EffectChain::find(user => 1, name => $name); if ( scalar @existing ){ $item[1] eq 'overwrite_effect_chain' ? Audio::Nama::nama_cmd("delete_effect_chain $name") : Audio::Nama::throw(qq/$name: effect chain with this name is already defined. Use a different name, or use "overwrite_effect_chain"/) && return; } my $ops = scalar @{$item{'op_id(s?)'}} ? $item{'op_id(s?)'} : [ $Audio::Nama::this_track->user_ops ]; my @options; Audio::Nama::EffectChain->new( user => 1, global => 1, name => $item{ident}, ops_list => $ops, inserts_data => $Audio::Nama::this_track->inserts, @options, ); 1; } delete_effect_chain: _delete_effect_chain ident(s) { map { map{$_->destroy()} Audio::Nama::EffectChain::find( user => 1, name => $_); } @{ $item{'ident(s)'} }; 1; } find_effect_chains: _find_effect_chains ident(s?) { my @args; push @args, @{ $item{'ident(s?)'} } if $item{'ident(s?)'}; Audio::Nama::pager(map{$_->dump} Audio::Nama::EffectChain::find(@args)); 1 } find_user_effect_chains: _find_user_effect_chains ident(s?) { my @args = ('user' , 1); push @args, @{ $item{'ident(s)'} } if $item{'ident(s)'}; (scalar @args) % 2 == 0 or Audio::Nama::throw("odd number of arguments\n@args\n"), return 0; Audio::Nama::pager( map{ $_->summary} Audio::Nama::EffectChain::find(@args) ); 1; } bypass_effects: _bypass_effects op_id(s) { my $arr_ref = $item{'op_id(s)'}; return unless (ref $arr_ref) =~ /ARRAY/ and scalar @{$arr_ref}; my @illegal = grep { ! Audio::Nama::fxn($_) } @$arr_ref; Audio::Nama::throw("@illegal: non-existing effect(s), skipping."), return 0 if @illegal; Audio::Nama::pager( "track ",$Audio::Nama::this_track->name,", bypassing effects:"); Audio::Nama::pager( Audio::Nama::named_effects_list(@$arr_ref)); Audio::Nama::bypass_effects($Audio::Nama::this_track,@$arr_ref); Audio::Nama::set_current_op($arr_ref->[0]) if scalar @$arr_ref == 1; } bypass_effects: _bypass_effects 'all' { Audio::Nama::pager( "track ",$Audio::Nama::this_track->name,", bypassing all effects (except vol/pan)"); Audio::Nama::bypass_effects($Audio::Nama::this_track, $Audio::Nama::this_track->user_ops) if $Audio::Nama::this_track->user_ops; 1; } bypass_effects: _bypass_effects { Audio::Nama::throw("current effect is undefined, skipping"), return 1 if ! Audio::Nama::this_op(); Audio::Nama::pager( "track ",$Audio::Nama::this_track->name,", bypassing effects:"); Audio::Nama::pager( Audio::Nama::named_effects_list(Audio::Nama::this_op())); Audio::Nama::bypass_effects($Audio::Nama::this_track, Audio::Nama::this_op()); 1; } bring_back_effects: _bring_back_effects end { Audio::Nama::pager("current effect is undefined, skipping"), return 1 if ! Audio::Nama::this_op(); Audio::Nama::pager( "restoring effects:"); Audio::Nama::pager( Audio::Nama::named_effects_list(Audio::Nama::this_op())); Audio::Nama::restore_effects( $Audio::Nama::this_track, Audio::Nama::this_op()); } bring_back_effects: _bring_back_effects op_id(s) { my $arr_ref = $item{'op_id(s)'}; return unless (ref $arr_ref) =~ /ARRAY/ and scalar @{$arr_ref}; my @illegal = grep { ! Audio::Nama::fxn($_) } @$arr_ref; Audio::Nama::throw("@illegal: non-existing effect(s), aborting."), return 0 if @illegal; Audio::Nama::pager( "restoring effects:"); Audio::Nama::pager( Audio::Nama::named_effects_list(@$arr_ref)); Audio::Nama::restore_effects($Audio::Nama::this_track,@$arr_ref); Audio::Nama::set_current_op($arr_ref->[0]) if scalar @$arr_ref == 1; } bring_back_effects: _bring_back_effects 'all' { Audio::Nama::pager( "restoring all effects"); Audio::Nama::restore_effects( $Audio::Nama::this_track, $Audio::Nama::this_track->user_ops); } fxc_val: shellish this_track_op_id: op_id(s) { my %ops = map{ $_ => 1 } @{$Audio::Nama::this_track->ops}; my @ids = @{$item{'op_id(s)'}}; my @belonging = grep { $ops{$_} } @ids; my @alien = grep { ! $ops{$_} } @ids; @alien and Audio::Nama::pager("@alien: don't belong to track ",$Audio::Nama::this_track->name, "skipping."); @belonging } bunch_name: ident { Audio::Nama::is_bunch($item{ident}) or Audio::Nama::bunch_tracks($item{ident}) or Audio::Nama::throw("$item{ident}: no such bunch name."), return; $item{ident}; } effect_profile_name: ident existing_effect_profile_name: ident { Audio::Nama::pager("$item{ident}: no such effect profile"), return unless Audio::Nama::EffectChain::find(profile => $item{ident}); $item{ident} } new_effect_profile: _new_effect_profile bunch_name effect_profile_name { Audio::Nama::new_effect_profile($item{bunch_name}, $item{effect_profile_name}); 1 } destroy_effect_profile: _destroy_effect_profile existing_effect_profile_name { Audio::Nama::delete_effect_profile($item{existing_effect_profile_name}); 1 } apply_effect_profile: _apply_effect_profile existing_effect_profile_name { Audio::Nama::apply_effect_profile($item{effect_profile_name}); 1 } list_effect_profiles: _list_effect_profiles { my %profiles; map{ $profiles{$_->profile}++ } Audio::Nama::EffectChain::find(profile => 1); my @output = keys %profiles; if( @output ) { Audio::Nama::pager( join " ","Effect Profiles available:", @output) } else { Audio::Nama::throw("no match") } 1; } show_effect_profiles: _show_effect_profiles ident(?) { my $name; $name = $item{'ident(?)'}->[-1] if $item{'ident(?)'}; $name ||= 1; my %profiles; map{ $profiles{$_->profile}++ } Audio::Nama::EffectChain::find(profile => $name); my @names = keys %profiles; my @output; for $name (@names) { push @output, "\nprofile name: $name\n"; map { push @output, $_->summary } Audio::Nama::EffectChain::find(profile => $name) } if( @output ) { Audio::Nama::pager( @output); } else { Audio::Nama::throw("no match") } 1; } full_effect_profiles: _full_effect_profiles ident(?) { my $name; $name = $item{'ident(?)'}->[-1] if $item{'ident(?)'}; $name ||= 1; my @output = map{ $_->dump } Audio::Nama::EffectChain::find(profile => $name ) ; if( @output ) { Audio::Nama::pager( @output); } else { Audio::Nama::throw("no match") } 1; } do_script: _do_script shellish { Audio::Nama::do_script($item{shellish});1} scan: _scan { Audio::Nama::pager( "scanning ", Audio::Nama::this_wav_dir()); Audio::Nama::refresh_wav_cache() } add_fade: _add_fade in_or_out mark1 duration(?) { Audio::Nama::Fade->new( type => $item{in_or_out}, mark1 => $item{mark1}, duration => $item{'duration(?)'}->[0] || $Audio::Nama::config->{engine_fade_default_length}, relation => 'fade_from_mark', track => $Audio::Nama::this_track->name, ); Audio::Nama::request_setup(); } add_fade: _add_fade in_or_out duration(?) mark1 { Audio::Nama::Fade->new( type => $item{in_or_out}, mark1 => $item{mark1}, duration => $item{'duration(?)'}->[0] || $Audio::Nama::config->{engine_fade_default_length}, track => $Audio::Nama::this_track->name, relation => 'fade_to_mark', ); Audio::Nama::request_setup(); } add_fade: _add_fade in_or_out mark1 mark2 { Audio::Nama::Fade->new( type => $item{in_or_out}, mark1 => $item{mark1}, mark2 => $item{mark2}, track => $Audio::Nama::this_track->name, ); Audio::Nama::request_setup(); } add_fade: _add_fade in_or_out time1 time2 { my $mark1 = Audio::Nama::Mark->new( name => join('_',$Audio::Nama::this_track->name, 'fade', Audio::Nama::Mark::next_id()), time => $item{time1} ); my $mark2 = Audio::Nama::Mark->new( name => join('_',$Audio::Nama::this_track->name, 'fade', Audio::Nama::Mark::next_id()), time => $item{time2} ); Audio::Nama::Fade->new( type => $item{in_or_out}, mark1 => $mark1->name, mark2 => $mark2->name, track => $Audio::Nama::this_track->name, ); Audio::Nama::request_setup(); } time1: value time2: value in_or_out: 'in' | 'out' duration: value mark1: markname mark2: markname remove_fade: _remove_fade fade_index(s) { my @i = @{ $item{'fade_index(s)'} }; Audio::Nama::remove_fade($_) for (@i); Audio::Nama::request_setup(); 1 } fade_index: dd list_fade: _list_fade { Audio::Nama::pager(join "\n", map{ s/^---//; s/...\s$//; $_} map{$_->dump} sort{$a->n <=> $b->n} values %Audio::Nama::Fade::by_index); 1 } add_comment: _add_comment text { Audio::Nama::pagers( $Audio::Nama::this_track->name. ": comment: $item{text}"); $Audio::Nama::project->{track_comments}->{$Audio::Nama::this_track->name} = $item{text}; 1; } remove_comment: _remove_comment { Audio::Nama::pager( $Audio::Nama::this_track->name, ": comment removed"); delete $Audio::Nama::project->{track_comments}->{$Audio::Nama::this_track->name}; 1; } show_comment: _show_comment { Audio::Nama::pager( map{ $_->name. ": ". $_->comment } $Audio::Nama::this_track ); 1; } show_comments: _show_comments { Audio::Nama::pager( map{ $_->name. ": ". $_->comment } grep{ $_->comment } Audio::Nama::all_tracks() ); 1; } add_version_comment: _add_version_comment dd(?) text { my $t = $Audio::Nama::this_track; my $v = $item{'dd(?)'}->[0] // $t->playback_version // return 1; Audio::Nama::pager( $t->add_version_comment($v,$item{text})); } remove_version_comment: _remove_version_comment dd { my $t = $Audio::Nama::this_track; Audio::Nama::pager( $t->remove_version_comment($item{dd})); 1 } remove_version_comment: _remove_version_comment { my $t = $Audio::Nama::this_track; Audio::Nama::pager( $t->remove_version_comment($t->version)); 1 } show_version_comment: _show_version_comment dd(s) { my $t = $Audio::Nama::this_track; my @v = @{$item{'dd(s)'}}; if(!@v){ @v = $t->playback_version} @v or return 1; $t->show_version_comments(@v); 1; } show_version_comment: _show_version_comment { my $t = $Audio::Nama::this_track; my @v = @{$t->versions}; $t->show_version_comments(@v); 1; } show_version_comments_all: _show_version_comments_all { map { my $t = $_; my @v = @{$t->versions}; $t->show_version_comments(@v); } Audio::Nama::all_tracks(); 1; } add_system_version_comment: _add_system_version_comment dd text { Audio::Nama::pagers( $Audio::Nama::this_track->add_system_version_comment(@item{qw(dd text)}));1; } new_edit: _new_edit { Audio::Nama::new_edit(); 1; } set_edit_points: _set_edit_points { Audio::Nama::set_edit_points(); 1 } list_edits: _list_edits { Audio::Nama::list_edits(); 1} destroy_edit: _destroy_edit { Audio::Nama::destroy_edit(); 1} select_edit: _select_edit dd { Audio::Nama::select_edit($item{dd}); 1} preview_edit_in: _preview_edit_in { Audio::Nama::edit_action($item[0]); 1} preview_edit_out: _preview_edit_out { Audio::Nama::edit_action($item[0]); 1} play_edit: _play_edit { Audio::Nama::edit_action($item[0]); 1} record_edit: _record_edit { Audio::Nama::edit_action($item[0]); 1} edit_track: _edit_track { Audio::Nama::select_edit_track('edit_track'); 1} host_track_alias: _host_track_alias { Audio::Nama::select_edit_track('host_alias_track'); 1} host_track: _host_track { Audio::Nama::select_edit_track('host'); 1} version_mix_track: _version_mix_track { Audio::Nama::select_edit_track('version_mix'); 1} play_start_mark: _play_start_mark { my $mark = $Audio::Nama::this_edit->play_start_mark; $mark->jump_here; 1; } rec_start_mark: _rec_start_mark { $Audio::Nama::this_edit->rec_start_mark->jump_here; 1; } rec_end_mark: _rec_end_mark { $Audio::Nama::this_edit->rec_end_mark->jump_here; 1; } set_play_start_mark: _set_play_start_mark { $Audio::Nama::setup->{edit_points}->[0] = Audio::Nama::ecasound_iam('getpos'); 1} set_rec_start_mark: _set_rec_start_mark { $Audio::Nama::setup->{edit_points}->[1] = Audio::Nama::ecasound_iam('getpos'); 1} set_rec_end_mark: _set_rec_end_mark { $Audio::Nama::setup->{edit_points}->[2] = Audio::Nama::ecasound_iam('getpos'); 1} end_edit_mode: _end_edit_mode { Audio::Nama::end_edit_mode(); 1;} disable_edits: _disable_edits { Audio::Nama::disable_edits();1 } merge_edits: _merge_edits { Audio::Nama::merge_edits(); 1; } explode_track: _explode_track { Audio::Nama::explode_track($Audio::Nama::this_track) } promote_version_to_track: _promote_version_to_track version { my $v = $item{version}; my $t = $Audio::Nama::this_track; $t->versions->[$v] or Audio::Nama::pager($t->name,": version $v does not exist."), return; Audio::Nama::VersionTrack->new( name => $t->name.":$v", version => $v, target => $t->name, rw => Audio::Nama::PLAY, group => $t->group, ); } version: dd read_user_customizations: _read_user_customizations { Audio::Nama::setup_user_customization(); 1 } limit_run_time: _limit_run_time sign(?) dd { my $sign = $item{'sign(?)'}->[-1]; $Audio::Nama::setup->{runtime_limit} = $sign ? eval "$Audio::Nama::setup->{audio_length} $sign $item{dd}" : $item{dd}; Audio::Nama::pager( "Run time limit: ", Audio::Nama::heuristic_time($Audio::Nama::setup->{runtime_limit})); 1; } limit_run_time_off: _limit_run_time_off { Audio::Nama::pager( "Run timer disabled"); Audio::Nama::disable_length_timer(); 1; } offset_run: _offset_run markname { Audio::Nama::set_offset_run_mark( $item{markname} ); 1 } offset_run_off: _offset_run_off { Audio::Nama::pager( "no run offset."); Audio::Nama::disable_offset_run_mode(); } view_waveform: _view_waveform { my $viewer = 'mhwaveedit'; if( `which $viewer` =~ m/\S/){ my $cmd = join " ", $viewer, "--driver", $Audio::Nama::jack->{jackd_running} ? "jack" : "alsa", $Audio::Nama::this_track->full_path, "&"; system($cmd) } else { Audio::Nama::throw("Mhwaveedit not found. No waveform viewer is available.") } } edit_waveform: _edit_waveform { if ( `which audacity` =~ m/\S/ ){ my $cmd = join " ", 'audacity', $Audio::Nama::this_track->full_path, "&"; my $old_pwd = Audio::Nama::getcwd(); chdir Audio::Nama::this_wav_dir(); system($cmd); chdir $old_pwd; } else { Audio::Nama::throw("Audacity not found. No waveform editor available.") } 1; } rerecord: _rerecord { Audio::Nama::pager( scalar @{$Audio::Nama::setup->{_last_rec_tracks}} ? "Toggling previous recording tracks to REC" : "No tracks in REC list. Skipping." ); map{ $_->set(rw => Audio::Nama::REC) } @{$Audio::Nama::setup->{_last_rec_tracks}}; Audio::Nama::restore_preview_mode(); 1; } show_track_latency: _show_track_latency { my $node = $Audio::Nama::setup->{latency}->{track}->{$Audio::Nama::this_track->name}; Audio::Nama::pager( Audio::Nama::json_out($node)) if $node; 1; } show_latency_all: _show_latency_all { Audio::Nama::pager( Audio::Nama::json_out($Audio::Nama::setup->{latency})) if $Audio::Nama::setup->{latency}; 1; } analyze_level: _analyze_level { Audio::Nama::check_level($Audio::Nama::this_track);1 } something: /\S.+/ git: _git something { my @result = map{ $_ .= "\n" } $Audio::Nama::project->{repo}->run( split " ", $item{something}); Audio::Nama::pager(@result); 1; } edit_rec_setup_hook: _edit_rec_setup_hook { system("$ENV{EDITOR} ".$Audio::Nama::this_track->rec_setup_script() ); chmod 0755, $Audio::Nama::this_track->rec_setup_script(); 1 } edit_rec_cleanup_hook: _edit_rec_cleanup_hook { system("$ENV{EDITOR} ".$Audio::Nama::this_track->rec_cleanup_script() ); chmod 0755, $Audio::Nama::this_track->rec_cleanup_script(); 1 } remove_fader_effect: _remove_fader_effect fader_role { Audio::Nama::remove_fader_effect($Audio::Nama::this_track, $item{fader_role}); 1 } fader_role: 'vol'|'pan'|'fader' hotkeys_bump: _hotkeys_bump { Audio::Nama::setup_hotkeys('bump' ); 1} hotkeys_jump: _hotkeys_jump { Audio::Nama::setup_hotkeys('jump' ); 1} hotkeys_param: _hotkeys_param { Audio::Nama::setup_hotkeys('param'); 1} hotkeys_list: _hotkeys_list { Audio::Nama::list_hotkeys() ; 1 } hotkeys_off: _hotkeys_off { Audio::Nama::exit_hotkey_mode(); } hotkeys_on: _hotkeys_on { Audio::Nama::setup_hotkeys(); 1 } toggle_hotkeys: _toggle_hotkeys { Audio::Nama::toggle_hotkeys(); 1 } select_sequence: _select_sequence existing_sequence_name { $Audio::Nama::this_sequence = $Audio::Nama::bn{$item{existing_sequence_name}} } existing_sequence_name: ident { my $buslike = $Audio::Nama::bn{$item{ident}}; $return = $item{ident} if (ref $buslike) =~ /Sequence/ } convert_to_sequence: _convert_to_sequence { my $sequence_name = $Audio::Nama::this_track->name; Audio::Nama::nama_cmd("nsq $sequence_name"); $Audio::Nama::this_sequence->new_clip($Audio::Nama::this_track); 1 } merge_sequence: _merge_sequence { cache_track($Audio::Nama::tn{$Audio::Nama::this_sequence->name}); 1 } new_sequence: _new_sequence new_sequence_name track_identifier(s?) { Audio::Nama::new_sequence( name => $item{new_sequence_name}, tracks => $item{'track_identifier(s?)'} || [] ); 1 } new_sequence_name: ident { $return = $Audio::Nama::bn{$item{ident}} ? do { Audio::Nama::pager("$item{ident}: name already in use\n"), undef} : $item{ident} } track_identifier: tid { my $tid = $Audio::Nama::tn{$item{tid}} || $Audio::Nama::ti{$item{tid}} ; if ($tid) { $tid } else { Audio::Nama::throw("$item{tid}: track name or index not found.\n"); undef } } tid: ident list_sequences: _list_sequences { Audio::Nama::pager( map {Audio::Nama::json_out($_->as_hash)} grep {$_->{class} =~ /Sequence/} Audio::Nama::Bus::all() ); 1 } show_sequence: _show_sequence { Audio::Nama::pager($Audio::Nama::this_sequence->list_output) } append_to_sequence: _append_to_sequence track_identifier(s?) { my $seq = $Audio::Nama::this_sequence; my $items = $item{'track_identifier(s?)'} || [$Audio::Nama::this_track]; map { my $clip = $seq->new_clip($_); $seq->append_item($clip) } @$items; 1; } insert_in_sequence: _insert_in_sequence position track_identifier(s) { my $seq = $Audio::Nama::this_sequence; my $items = $item{'track_identifier(s)'}; my $position = $item{position}; for ( reverse map{ $seq->new_clip($_) } @$items ){ $seq->insert_item($_,$position) } } remove_from_sequence: _remove_from_sequence position(s) { my $seq = $Audio::Nama::this_sequence; my @positions = sort { $a <=> $b } @{ $item{'position(s)'}}; $seq->verify_item($_) ? $seq->delete_item($_) : Audio::Nama::throw("skipping index $_: out of bounds") for reverse @positions } delete_sequence: _delete_sequence existing_sequence_name { Audio::Nama::delete_sequence($item{existing_sequence_name}) } position: dd { $Audio::Nama::this_sequence->verify_item($item{dd}) and $item{dd} } add_spacer: _add_spacer value position { $Audio::Nama::this_sequence->new_spacer( duration => $item{value}, position => $item{position}, hidden => 1, ); Audio::Nama::request_setup(); 1 } add_spacer: _add_spacer value { $Audio::Nama::this_sequence->new_spacer( duration => $item{value}, hidden => 1, ); Audio::Nama::request_setup(); 1 } toggle_snip: _toggle_snip {Audio::Nama::toggle_snip } snip: _snip track_identifier mark_pair(s) { my $track = $item{track_identifier}; my @pairs = $item{'mark_pair(s)'}; my @list = map{ @$_ } @pairs; @list = (0, @list, $track->length); @pairs = (); while ( scalar @list ){ push @pairs, [splice( @list, 0, 2)] } Audio::Nama::compose_sequence($track->name, $track, \@pairs); } compose: _compose ident track_identifier mark_pair(s) { Audio::Nama::compose_sequence(@item{qw/ident track_identifier mark_pair(s)/}); } mark_pair: mark1 mark2 { my @marks = map{ $Audio::Nama::mn{$_}} @item{qw(mark1 mark2)}; Audio::Nama::throw(join" ",(map{$_->name} @marks), ": pair must be ascending in time"), return undef if not( $marks[0]->time < $marks[1]->time ); \@marks } mark1: ident { $Audio::Nama::mn{$item{ident}} } mark2: mark1 snip: _snip new_sequence_name mark_pair(s) {} rename_track: _rename_track existing_track_name new_track_name { Audio::Nama::rename_track( @item{qw(existing_track_name new_track_name)}, $Audio::Nama::file->state_store, Audio::Nama::this_wav_dir() ); } undo: _undo { Audio::Nama::undo() } redo: _redo { Audio::Nama::redo() } show_head_commit: _show_head_commit { Audio::Nama::show_head_commit() } eager: _eager on_or_off { $Audio::Nama::mode->{eager} = $item{on_or_off} =~ /[1n]/ ? 1 : 0 } on_or_off: 'on' | '1' | 'off' | '0' new_engine: _new_engine ident port { Audio::Nama::Engine->new(name => $item{ident}, port => $item{port}) } port: dd select_engine: _select_engine ident { my $new_choice = $Audio::Nama::Engine::by_name{$item{ident}}; $Audio::Nama::this_engine = $new_choice if defined $new_choice; Audio::Nama::pager("Current engine is ".$Audio::Nama::this_engine->name) } set_track_engine_group: _set_track_engine_group ident { $Audio::Nama::this_track->set(engine_group => $item{ident}); Audio::Nama::pager($Audio::Nama::this_track->name. ": engine group set to $item{ident}"); } set_bus_engine_group: _set_bus_engine_group ident { $Audio::Nama::bn{$Audio::Nama::this_bus}->set(engine_group => $item{ident}); Audio::Nama::pager("$Audio::Nama::this_bus: bus engine group set to $item{ident}"); } select_submix: _select_submix existing_bus_name { $Audio::Nama::this_user = $Audio::Nama::bn{$item{existing_bus_name}} } trim_submix: _trim_submix effect parameter sign(?) value { my $real_track = join '_', $Audio::Nama::this_user->name, $Audio::Nama::this_track->name; Audio::Nama::pager("real track: $real_track\n"); my $FX = $Audio::Nama::tn{$real_track}->first_effect_of_type(Audio::Nama::full_effect_code($item{effect})); Audio::Nama::modify_effect($FX->id, $item{parameter}, @{$item{'sign(?)'}}, $item{value}); } set_effect_name: _set_effect_name ident { Audio::Nama::this_op_o->set_name($item{ident}); 1} remove_effect_name: _remove_effect_name { Audio::Nama::this_op_o->set_name(); 1 } set_effect_surname: _set_effect_surname ident { Audio::Nama::this_op_o->set_surname($item{ident}); 1} remove_effect_surname: _remove_effect_surname { Audio::Nama::this_op_o()->set_surname(); 1} select_track: _select_track track_spec set_tempo: _set_tempo dd {Audio::Nama::midish_cmd("t $item{dd}")} edit_tempo_map: _edit_tempo_map { system("$ENV{EDITOR} ".$Audio::Nama::file->tempo_map); 1 } route_track: _route_track source_id send_id { Audio::Nama::nama_cmd("source $item{source_id}"); Audio::Nama::nama_cmd("send $item{send_id}"); 1 } set_sample_rate: _set_sample_rate dd {Audio::Nama::set_sample_rate($item{dd})} set_sample_rate: _set_sample_rate {Audio::Nama::get_sample_rate()} bus_on: _bus_on { Audio::Nama::pagers('turning bus on'); my $bus_name = $Audio::Nama::this_track->source_type eq 'bus' ? $Audio::Nama::this_track->source_id : $Audio::Nama::this_bus; print "bus_name: $bus_name\n"; $Audio::Nama::bn{$bus_name}->tracks_on } bus_off: _bus_off { Audio::Nama::pagers('turning bus off'); my $bus_name = $Audio::Nama::this_track->source_type eq 'bus' ? $Audio::Nama::this_track->source_id : $Audio::Nama::this_bus; print "bus_name: $bus_name\n"; $Audio::Nama::bn{$bus_name}->tracks_off } set_param_increment: _set_param_increment value {Audio::Nama::set_param_stepsize($item{value} )} set_param_exp: _set_param_exp exp {Audio::Nama::set_param_stepsize(10**$item{exp});1} set_playback_jump: _set_playback_jump seconds {Audio::Nama::set_playback_jump($item{seconds})} set_mark_bump: _set_mark_bump seconds { Audio::Nama::set_mark_bump( $item{seconds})} seconds: value exp: /[-+]?\d/ set_mark_replay: _set_mark_replay seconds { Audio::Nama::set_mark_replay($item{seconds})}
command: help command: help_effect command: find_effect command: exit command: memoize command: unmemoize command: stop command: start command: getpos command: setpos command: forward command: rewind command: jump_to_start command: jump_to_end command: ecasound_start command: ecasound_stop command: restart_ecasound command: preview command: doodle command: mixdown command: mixplay command: mixoff command: automix command: master_on command: master_off command: add_track command: add_midi_track command: add_tracks command: link_track command: import_audio command: import_midi command: route_track command: set_track command: record command: play command: mon command: off command: source command: send command: remove_send command: stereo command: mono command: set_version command: destroy_current_wav command: list_versions command: vol command: mute command: unmute command: unity command: solo command: nosolo command: all command: pan command: pan_right command: pan_left command: pan_center command: pan_back command: show_tracks command: show_tracks_all command: show_bus command: show_track command: show_mode command: show_track_latency command: show_latency_all command: set_region command: add_region command: remove_region command: shift_track command: unshift_track command: modifiers command: nomodifiers command: normalize command: fixdc command: autofix_tracks command: remove_track command: bus_version command: bus_on command: bus_off command: add_bunch command: list_bunches command: remove_bunch command: add_to_bunch command: commit command: tag command: branch command: list_branches command: new_branch command: save_state command: get_state command: list_projects command: new_project command: load_project command: project_name command: new_project_template command: use_project_template command: list_project_templates command: destroy_project_template command: generate command: arm command: arm_start command: connect command: disconnect command: show_chain_setup command: loop command: noloop command: add_controller command: add_effect command: add_effect_last command: add_effect_first command: add_effect_before command: modify_effect command: remove_effect command: position_effect command: show_effect command: dump_effect command: list_effects command: hotkeys_param command: hotkeys_jump command: hotkeys_bump command: hotkeys_off command: hotkeys_on command: toggle_hotkeys command: hotkeys_list command: add_insert command: set_insert_wetness command: remove_insert command: ctrl_register command: preset_register command: ladspa_register command: list_marks command: to_mark command: add_mark command: remove_mark command: next_mark command: previous_mark command: name_mark command: modify_mark command: engine_status command: dump_track command: dump_group command: dump_all command: dump_io command: list_history command: add_submix_cooked command: add_submix_raw command: add_bus command: update_submix command: remove_bus command: list_buses command: set_bus command: overwrite_effect_chain command: new_effect_chain command: delete_effect_chain command: find_effect_chains command: find_user_effect_chains command: bypass_effects command: bring_back_effects command: new_effect_profile command: apply_effect_profile command: destroy_effect_profile command: list_effect_profiles command: show_effect_profiles command: full_effect_profiles command: cache_track command: uncache_track command: do_script command: scan command: add_fade command: remove_fade command: list_fade command: add_comment command: remove_comment command: show_comment command: show_comments command: add_version_comment command: remove_version_comment command: show_version_comment command: show_version_comments_all command: add_system_version_comment command: new_edit command: set_edit_points command: list_edits command: select_edit command: end_edit_mode command: destroy_edit command: preview_edit_in command: preview_edit_out command: play_edit command: record_edit command: edit_track command: host_track_alias command: host_track command: version_mix_track command: play_start_mark command: rec_start_mark command: rec_end_mark command: set_play_start_mark command: set_rec_start_mark command: set_rec_end_mark command: disable_edits command: merge_edits command: explode_track command: move_to_bus command: promote_version_to_track command: read_user_customizations command: limit_run_time command: limit_run_time_off command: offset_run command: offset_run_off command: view_waveform command: edit_waveform command: rerecord command: analyze_level command: for command: git command: edit_rec_setup_hook command: edit_rec_cleanup_hook command: remove_fader_effect command: rename_track command: new_sequence command: select_sequence command: list_sequences command: show_sequence command: append_to_sequence command: insert_in_sequence command: remove_from_sequence command: delete_sequence command: add_spacer command: convert_to_sequence command: merge_sequence command: snip command: retain command: discard command: gather command: toggle_snip command: compose command: undo command: redo command: show_head_commit command: eager command: new_engine command: select_engine command: set_track_engine_group command: set_bus_engine_group command: select_submix command: trim_submix command: nickname_effect command: delete_nickname_definition command: remove_nickname command: list_nickname_definitions command: set_effect_name command: set_effect_surname command: remove_effect_name command: remove_effect_surname command: select_track command: edit_tempo_map command: set_tempo command: set_sample_rate command: set_playback_jump command: set_mark_bump command: set_mark_replay command: set_param_increment command: set_param_exp _help: /help\b/ | /h\b/ { "help" } _help_effect: /help_effect\b/ | /hfx\b/ | /he\b/ { "help_effect" } _find_effect: /find_effect\b/ | /ffx\b/ | /fe\b/ { "find_effect" } _exit: /exit\b/ | /quit\b/ | /q\b/ { "exit" } _memoize: /memoize\b/ { "memoize" } _unmemoize: /unmemoize\b/ { "unmemoize" } _stop: /stop\b/ | /s\b/ { "stop" } _start: /start\b/ | /t\b/ { "start" } _getpos: /getpos\b/ | /gp\b/ { "getpos" } _setpos: /setpos\b/ | /sp\b/ { "setpos" } _forward: /forward\b/ | /fw\b/ { "forward" } _rewind: /rewind\b/ | /rw\b/ { "rewind" } _jump_to_start: /jump_to_start\b/ | /beg\b/ { "jump_to_start" } _jump_to_end: /jump_to_end\b/ | /end\b/ { "jump_to_end" } _ecasound_start: /ecasound_start\b/ { "ecasound_start" } _ecasound_stop: /ecasound_stop\b/ { "ecasound_stop" } _restart_ecasound: /restart_ecasound\b/ { "restart_ecasound" } _preview: /preview\b/ | /song\b/ { "preview" } _doodle: /doodle\b/ | /live\b/ { "doodle" } _mixdown: /mixdown\b/ | /mxd\b/ { "mixdown" } _mixplay: /mixplay\b/ | /mxp\b/ { "mixplay" } _mixoff: /mixoff\b/ | /mxo\b/ { "mixoff" } _automix: /automix\b/ { "automix" } _master_on: /master_on\b/ | /mr\b/ { "master_on" } _master_off: /master_off\b/ | /mro\b/ { "master_off" } _add_track: /add_track\b/ | /add\b/ | /new\b/ { "add_track" } _add_midi_track: /add_midi_track\b/ | /amt\b/ { "add_midi_track" } _add_tracks: /add_tracks\b/ { "add_tracks" } _link_track: /link_track\b/ | /link\b/ { "link_track" } _import_audio: /import_audio\b/ | /import\b/ { "import_audio" } _import_midi: /import_midi\b/ | /im\b/ { "import_midi" } _route_track: /route_track\b/ | /route\b/ | /rt\b/ { "route_track" } _set_track: /set_track\b/ { "set_track" } _record: /record\b/ | /rec\b/ { "record" } _play: /play\b/ { "play" } _mon: /mon\b/ { "mon" } _off: /off\b/ { "off" } _source: /source\b/ | /src\b/ | /r\b/ { "source" } _send: /send\b/ | /aux\b/ { "send" } _remove_send: /remove_send\b/ | /nosend\b/ | /noaux\b/ { "remove_send" } _stereo: /stereo\b/ { "stereo" } _mono: /mono\b/ { "mono" } _set_version: /set_version\b/ | /version\b/ | /ver\b/ { "set_version" } _destroy_current_wav: /destroy_current_wav\b/ { "destroy_current_wav" } _list_versions: /list_versions\b/ | /lver\b/ { "list_versions" } _vol: /vol\b/ | /v\b/ { "vol" } _mute: /mute\b/ | /c\b/ | /cut\b/ { "mute" } _unmute: /unmute\b/ | /nomute\b/ | /C\b/ | /uncut\b/ { "unmute" } _unity: /unity\b/ { "unity" } _solo: /solo\b/ | /sl\b/ { "solo" } _nosolo: /nosolo\b/ | /nsl\b/ { "nosolo" } _all: /all\b/ { "all" } _pan: /pan\b/ | /p\b/ { "pan" } _pan_right: /pan_right\b/ | /pr\b/ { "pan_right" } _pan_left: /pan_left\b/ | /pl\b/ { "pan_left" } _pan_center: /pan_center\b/ | /pc\b/ { "pan_center" } _pan_back: /pan_back\b/ | /pb\b/ { "pan_back" } _show_tracks: /show_tracks\b/ | /lt\b/ | /show\b/ { "show_tracks" } _show_tracks_all: /show_tracks_all\b/ | /sha\b/ | /showa\b/ { "show_tracks_all" } _show_bus: /show_bus\b/ | /shb\b/ { "show_bus" } _show_track: /show_track\b/ | /sh\b/ | /-fart\b/ { "show_track" } _show_mode: /show_mode\b/ | /shm\b/ { "show_mode" } _show_track_latency: /show_track_latency\b/ | /shl\b/ { "show_track_latency" } _show_latency_all: /show_latency_all\b/ | /shla\b/ { "show_latency_all" } _set_region: /set_region\b/ | /srg\b/ { "set_region" } _add_region: /add_region\b/ { "add_region" } _remove_region: /remove_region\b/ | /rrg\b/ { "remove_region" } _shift_track: /shift_track\b/ | /shift\b/ | /playat\b/ | /pat\b/ { "shift_track" } _unshift_track: /unshift_track\b/ | /unshift\b/ { "unshift_track" } _modifiers: /modifiers\b/ | /mods\b/ | /mod\b/ { "modifiers" } _nomodifiers: /nomodifiers\b/ | /nomods\b/ | /nomod\b/ { "nomodifiers" } _normalize: /normalize\b/ | /ecanormalize\b/ { "normalize" } _fixdc: /fixdc\b/ | /ecafixdc\b/ { "fixdc" } _autofix_tracks: /autofix_tracks\b/ | /autofix\b/ { "autofix_tracks" } _remove_track: /remove_track\b/ { "remove_track" } _bus_version: /bus_version\b/ | /bver\b/ | /gver\b/ { "bus_version" } _bus_on: /bus_on\b/ { "bus_on" } _bus_off: /bus_off\b/ { "bus_off" } _add_bunch: /add_bunch\b/ | /abn\b/ { "add_bunch" } _list_bunches: /list_bunches\b/ | /lbn\b/ { "list_bunches" } _remove_bunch: /remove_bunch\b/ | /rbn\b/ { "remove_bunch" } _add_to_bunch: /add_to_bunch\b/ | /atbn\b/ { "add_to_bunch" } _commit: /commit\b/ | /cm\b/ { "commit" } _tag: /tag\b/ { "tag" } _branch: /branch\b/ | /br\b/ { "branch" } _list_branches: /list_branches\b/ | /lb\b/ | /lbr\b/ { "list_branches" } _new_branch: /new_branch\b/ | /nbr\b/ { "new_branch" } _save_state: /save_state\b/ | /save\b/ { "save_state" } _get_state: /get_state\b/ | /get\b/ | /recall\b/ | /retrieve\b/ { "get_state" } _list_projects: /list_projects\b/ | /lp\b/ { "list_projects" } _new_project: /new_project\b/ | /create\b/ { "new_project" } _load_project: /load_project\b/ | /load\b/ { "load_project" } _project_name: /project_name\b/ | /project\b/ | /name\b/ { "project_name" } _new_project_template: /new_project_template\b/ | /npt\b/ { "new_project_template" } _use_project_template: /use_project_template\b/ | /upt\b/ | /apt\b/ { "use_project_template" } _list_project_templates: /list_project_templates\b/ | /lpt\b/ { "list_project_templates" } _destroy_project_template: /destroy_project_template\b/ { "destroy_project_template" } _generate: /generate\b/ | /gen\b/ { "generate" } _arm: /arm\b/ { "arm" } _arm_start: /arm_start\b/ | /arms\b/ { "arm_start" } _connect: /connect\b/ | /con\b/ { "connect" } _disconnect: /disconnect\b/ | /dcon\b/ { "disconnect" } _show_chain_setup: /show_chain_setup\b/ | /chains\b/ { "show_chain_setup" } _loop: /loop\b/ | /l\b/ { "loop" } _noloop: /noloop\b/ | /nl\b/ { "noloop" } _add_controller: /add_controller\b/ | /acl\b/ { "add_controller" } _add_effect: /add_effect\b/ | /afx\b/ { "add_effect" } _add_effect_last: /add_effect_last\b/ | /afxl\b/ { "add_effect_last" } _add_effect_first: /add_effect_first\b/ | /afxf\b/ { "add_effect_first" } _add_effect_before: /add_effect_before\b/ | /afxb\b/ | /insert_effect\b/ | /ifx\b/ { "add_effect_before" } _modify_effect: /modify_effect\b/ | /mfx\b/ { "modify_effect" } _remove_effect: /remove_effect\b/ | /rfx\b/ { "remove_effect" } _position_effect: /position_effect\b/ | /pfx\b/ { "position_effect" } _show_effect: /show_effect\b/ | /sfx\b/ { "show_effect" } _dump_effect: /dump_effect\b/ | /dfx\b/ { "dump_effect" } _list_effects: /list_effects\b/ | /lfx\b/ { "list_effects" } _hotkeys_param: /hotkeys_param\b/ | /hkp\b/ { "hotkeys_param" } _hotkeys_jump: /hotkeys_jump\b/ | /hkj\b/ { "hotkeys_jump" } _hotkeys_bump: /hotkeys_bump\b/ | /hkb\b/ { "hotkeys_bump" } _hotkeys_off: /hotkeys_off\b/ | /hko\b/ { "hotkeys_off" } _hotkeys_on: /hotkeys_on\b/ | /hk\b/ { "hotkeys_on" } _toggle_hotkeys: /toggle_hotkeys\b/ | /th\b/ { "toggle_hotkeys" } _hotkeys_list: /hotkeys_list\b/ | /hkl\b/ | /lhk\b/ { "hotkeys_list" } _add_insert: /add_insert\b/ | /ain\b/ { "add_insert" } _set_insert_wetness: /set_insert_wetness\b/ | /wet\b/ { "set_insert_wetness" } _remove_insert: /remove_insert\b/ | /rin\b/ { "remove_insert" } _ctrl_register: /ctrl_register\b/ | /crg\b/ { "ctrl_register" } _preset_register: /preset_register\b/ | /prg\b/ { "preset_register" } _ladspa_register: /ladspa_register\b/ | /lrg\b/ { "ladspa_register" } _list_marks: /list_marks\b/ | /lmk\b/ | /lm\b/ { "list_marks" } _to_mark: /to_mark\b/ | /tmk\b/ | /tom\b/ { "to_mark" } _add_mark: /add_mark\b/ | /mark\b/ | /amk\b/ | /k\b/ { "add_mark" } _remove_mark: /remove_mark\b/ | /rmk\b/ { "remove_mark" } _next_mark: /next_mark\b/ | /nmk\b/ { "next_mark" } _previous_mark: /previous_mark\b/ | /pmk\b/ { "previous_mark" } _name_mark: /name_mark\b/ { "name_mark" } _modify_mark: /modify_mark\b/ | /move_mark\b/ | /mmk\b/ { "modify_mark" } _engine_status: /engine_status\b/ | /egs\b/ { "engine_status" } _dump_track: /dump_track\b/ | /dump\b/ { "dump_track" } _dump_group: /dump_group\b/ | /dumpg\b/ { "dump_group" } _dump_all: /dump_all\b/ | /dumpa\b/ { "dump_all" } _dump_io: /dump_io\b/ { "dump_io" } _list_history: /list_history\b/ | /lh\b/ { "list_history" } _add_submix_cooked: /add_submix_cooked\b/ { "add_submix_cooked" } _add_submix_raw: /add_submix_raw\b/ | /asr\b/ { "add_submix_raw" } _add_bus: /add_bus\b/ | /abs\b/ { "add_bus" } _update_submix: /update_submix\b/ | /usm\b/ { "update_submix" } _remove_bus: /remove_bus\b/ { "remove_bus" } _list_buses: /list_buses\b/ | /lbs\b/ { "list_buses" } _set_bus: /set_bus\b/ | /sbs\b/ { "set_bus" } _overwrite_effect_chain: /overwrite_effect_chain\b/ | /oec\b/ { "overwrite_effect_chain" } _new_effect_chain: /new_effect_chain\b/ | /nec\b/ { "new_effect_chain" } _delete_effect_chain: /delete_effect_chain\b/ | /dec\b/ | /destroy_effect_chain\b/ { "delete_effect_chain" } _find_effect_chains: /find_effect_chains\b/ | /fec\b/ | /lec\b/ { "find_effect_chains" } _find_user_effect_chains: /find_user_effect_chains\b/ | /fuec\b/ | /leca\b/ { "find_user_effect_chains" } _bypass_effects: /bypass_effects\b/ | /bypass\b/ | /bfx\b/ { "bypass_effects" } _bring_back_effects: /bring_back_effects\b/ | /restore_effects\b/ | /bbfx\b/ { "bring_back_effects" } _new_effect_profile: /new_effect_profile\b/ | /nep\b/ { "new_effect_profile" } _apply_effect_profile: /apply_effect_profile\b/ | /aep\b/ { "apply_effect_profile" } _destroy_effect_profile: /destroy_effect_profile\b/ { "destroy_effect_profile" } _list_effect_profiles: /list_effect_profiles\b/ | /lep\b/ { "list_effect_profiles" } _show_effect_profiles: /show_effect_profiles\b/ | /sepr\b/ { "show_effect_profiles" } _full_effect_profiles: /full_effect_profiles\b/ | /fep\b/ { "full_effect_profiles" } _cache_track: /cache_track\b/ | /cache\b/ | /ct\b/ | /bounce\b/ | /freeze\b/ { "cache_track" } _uncache_track: /uncache_track\b/ | /uncache\b/ | /unc\b/ { "uncache_track" } _do_script: /do_script\b/ | /do\b/ { "do_script" } _scan: /scan\b/ { "scan" } _add_fade: /add_fade\b/ | /afd\b/ | /fade\b/ { "add_fade" } _remove_fade: /remove_fade\b/ | /rfd\b/ { "remove_fade" } _list_fade: /list_fade\b/ | /lfd\b/ { "list_fade" } _add_comment: /add_comment\b/ | /comment\b/ | /ac\b/ { "add_comment" } _remove_comment: /remove_comment\b/ | /rc\b/ { "remove_comment" } _show_comment: /show_comment\b/ | /sc\b/ { "show_comment" } _show_comments: /show_comments\b/ | /sca\b/ { "show_comments" } _add_version_comment: /add_version_comment\b/ | /avc\b/ { "add_version_comment" } _remove_version_comment: /remove_version_comment\b/ | /rvc\b/ { "remove_version_comment" } _show_version_comment: /show_version_comment\b/ | /svc\b/ { "show_version_comment" } _show_version_comments_all: /show_version_comments_all\b/ | /svca\b/ { "show_version_comments_all" } _add_system_version_comment: /add_system_version_comment\b/ | /asvc\b/ { "add_system_version_comment" } _new_edit: /new_edit\b/ | /ned\b/ { "new_edit" } _set_edit_points: /set_edit_points\b/ | /sep\b/ { "set_edit_points" } _list_edits: /list_edits\b/ | /led\b/ { "list_edits" } _select_edit: /select_edit\b/ | /sed\b/ { "select_edit" } _end_edit_mode: /end_edit_mode\b/ | /eem\b/ { "end_edit_mode" } _destroy_edit: /destroy_edit\b/ { "destroy_edit" } _preview_edit_in: /preview_edit_in\b/ | /pei\b/ { "preview_edit_in" } _preview_edit_out: /preview_edit_out\b/ | /peo\b/ { "preview_edit_out" } _play_edit: /play_edit\b/ | /ped\b/ { "play_edit" } _record_edit: /record_edit\b/ | /red\b/ { "record_edit" } _edit_track: /edit_track\b/ | /et\b/ { "edit_track" } _host_track_alias: /host_track_alias\b/ | /hta\b/ { "host_track_alias" } _host_track: /host_track\b/ | /ht\b/ { "host_track" } _version_mix_track: /version_mix_track\b/ | /vmt\b/ { "version_mix_track" } _play_start_mark: /play_start_mark\b/ | /psm\b/ { "play_start_mark" } _rec_start_mark: /rec_start_mark\b/ | /rsm\b/ { "rec_start_mark" } _rec_end_mark: /rec_end_mark\b/ | /rem\b/ { "rec_end_mark" } _set_play_start_mark: /set_play_start_mark\b/ | /spsm\b/ { "set_play_start_mark" } _set_rec_start_mark: /set_rec_start_mark\b/ | /srsm\b/ { "set_rec_start_mark" } _set_rec_end_mark: /set_rec_end_mark\b/ | /srem\b/ { "set_rec_end_mark" } _disable_edits: /disable_edits\b/ | /ded\b/ { "disable_edits" } _merge_edits: /merge_edits\b/ | /med\b/ { "merge_edits" } _explode_track: /explode_track\b/ { "explode_track" } _move_to_bus: /move_to_bus\b/ | /mtb\b/ { "move_to_bus" } _promote_version_to_track: /promote_version_to_track\b/ | /pvt\b/ { "promote_version_to_track" } _read_user_customizations: /read_user_customizations\b/ | /ruc\b/ { "read_user_customizations" } _limit_run_time: /limit_run_time\b/ | /lr\b/ { "limit_run_time" } _limit_run_time_off: /limit_run_time_off\b/ | /lro\b/ { "limit_run_time_off" } _offset_run: /offset_run\b/ | /ofr\b/ { "offset_run" } _offset_run_off: /offset_run_off\b/ | /ofro\b/ { "offset_run_off" } _view_waveform: /view_waveform\b/ | /wview\b/ { "view_waveform" } _edit_waveform: /edit_waveform\b/ | /wedit\b/ { "edit_waveform" } _rerecord: /rerecord\b/ | /rerec\b/ { "rerecord" } _analyze_level: /analyze_level\b/ | /anl\b/ { "analyze_level" } _for: /for\b/ { "for" } _git: /git\b/ { "git" } _edit_rec_setup_hook: /edit_rec_setup_hook\b/ | /ersh\b/ { "edit_rec_setup_hook" } _edit_rec_cleanup_hook: /edit_rec_cleanup_hook\b/ | /erch\b/ { "edit_rec_cleanup_hook" } _remove_fader_effect: /remove_fader_effect\b/ | /rffx\b/ { "remove_fader_effect" } _rename_track: /rename_track\b/ { "rename_track" } _new_sequence: /new_sequence\b/ | /nsq\b/ { "new_sequence" } _select_sequence: /select_sequence\b/ | /slsq\b/ { "select_sequence" } _list_sequences: /list_sequences\b/ | /lsq\b/ { "list_sequences" } _show_sequence: /show_sequence\b/ | /ssq\b/ { "show_sequence" } _append_to_sequence: /append_to_sequence\b/ | /asq\b/ { "append_to_sequence" } _insert_in_sequence: /insert_in_sequence\b/ | /isq\b/ { "insert_in_sequence" } _remove_from_sequence: /remove_from_sequence\b/ | /rsq\b/ { "remove_from_sequence" } _delete_sequence: /delete_sequence\b/ | /dsq\b/ { "delete_sequence" } _add_spacer: /add_spacer\b/ | /asp\b/ { "add_spacer" } _convert_to_sequence: /convert_to_sequence\b/ | /csq\b/ { "convert_to_sequence" } _merge_sequence: /merge_sequence\b/ | /msq\b/ { "merge_sequence" } _snip: /snip\b/ { "snip" } _retain: /retain\b/ | /clip-start\b/ | /cls\b/ | /keep\b/ { "retain" } _discard: /discard\b/ | /clip-end\b/ | /cle\b/ | /skip\b/ { "discard" } _gather: /gather\b/ | /gth\b/ { "gather" } _toggle_snip: /toggle_snip\b/ | /tgs\b/ { "toggle_snip" } _compose: /compose\b/ | /compose_sequence\b/ | /compose_into_sequence\b/ { "compose" } _undo: /undo\b/ { "undo" } _redo: /redo\b/ { "redo" } _show_head_commit: /show_head_commit\b/ | /show_head\b/ | /last_command\b/ | /last\b/ { "show_head_commit" } _eager: /eager\b/ { "eager" } _new_engine: /new_engine\b/ | /neg\b/ { "new_engine" } _select_engine: /select_engine\b/ | /seg\b/ { "select_engine" } _set_track_engine_group: /set_track_engine_group\b/ | /steg\b/ { "set_track_engine_group" } _set_bus_engine_group: /set_bus_engine_group\b/ | /sbeg\b/ { "set_bus_engine_group" } _select_submix: /select_submix\b/ | /ssm\b/ { "select_submix" } _trim_submix: /trim_submix\b/ | /trim\b/ | /tsm\b/ { "trim_submix" } _nickname_effect: /nickname_effect\b/ | /nfx\b/ | /nick\b/ { "nickname_effect" } _delete_nickname_definition: /delete_nickname_definition\b/ | /dnd\b/ { "delete_nickname_definition" } _remove_nickname: /remove_nickname\b/ | /rnick\b/ { "remove_nickname" } _list_nickname_definitions: /list_nickname_definitions\b/ | /lnd\b/ { "list_nickname_definitions" } _set_effect_name: /set_effect_name\b/ | /sen\b/ { "set_effect_name" } _set_effect_surname: /set_effect_surname\b/ | /ses\b/ { "set_effect_surname" } _remove_effect_name: /remove_effect_name\b/ | /ren\b/ { "remove_effect_name" } _remove_effect_surname: /remove_effect_surname\b/ | /res\b/ { "remove_effect_surname" } _select_track: /select_track\b/ { "select_track" } _edit_tempo_map: /edit_tempo_map\b/ | /etm\b/ { "edit_tempo_map" } _set_tempo: /set_tempo\b/ | /tempo\b/ | /tp\b/ { "set_tempo" } _set_sample_rate: /set_sample_rate\b/ | /ssr\b/ { "set_sample_rate" } _set_playback_jump: /set_playback_jump\b/ | /spj\b/ | /j=\b/ { "set_playback_jump" } _set_mark_bump: /set_mark_bump\b/ | /smb\b/ | /b=\b/ { "set_mark_bump" } _set_mark_replay: /set_mark_replay\b/ | /smr\b/ { "set_mark_replay" } _set_param_increment: /set_param_increment\b/ | /spi\b/ | /m=\b/ { "set_param_increment" } _set_param_exp: /set_param_exp\b/ | /spe\b/ | /m\b/ | /x=\b/ { "set_param_exp" } @@ ecasound_chain_operator_hints_yml --- - code: ea count: 1 display: scale name: Volume params: - begin: 0 default: 100 end: 600 name: "Level %" resolution: 0 - code: eadb count: 1 display: scale name: Volume params: - begin: -40 default: 0 end: 60 name: "Level db" resolution: 0.5 - code: epp count: 1 display: scale name: Pan params: - begin: 0 default: 50 end: 100 name: "Level %" resolution: 0 - code: eal count: 1 display: scale name: Limiter params: - begin: 0 default: 100 end: 100 name: "Limit %" resolution: 0 - code: ec count: 2 display: scale name: Compressor params: - begin: 0 default: 1 end: 1 name: "Compression Rate (Db)" resolution: 0 - begin: 0 default: 50 end: 100 name: "Threshold %" resolution: 0 - code: eca count: 4 display: scale name: "Advanced Compressor" params: - begin: 0 default: 69 end: 100 name: "Peak Level %" resolution: 0 - begin: 0 default: 2 end: 5 name: "Release Time (Seconds)" resolution: 0 - begin: 0 default: 0.5 end: 1 name: "Fast Compressor Rate" resolution: 0 - begin: 0 default: 1 end: 1 name: "Compressor Rate (Db)" resolution: 0 - code: enm count: 5 display: scale name: "Noise Gate" params: - begin: 0 default: 100 end: 100 name: "Threshold Level %" resolution: 0 - begin: 0 default: 200 end: 2000 name: "Pre Hold Time (ms)" resolution: 0 - begin: 0 default: 200 end: 2000 name: "Attack Time (ms)" resolution: 0 - begin: 0 default: 200 end: 2000 name: "Post Hold Time (ms)" resolution: 0 - begin: 0 default: 200 end: 2000 name: "Release Time (ms)" resolution: 0 - code: ef1 count: 2 display: scale name: "Resonant Bandpass Filter" params: - begin: 0 default: 0 end: 20000 name: "Center Frequency (Hz)" resolution: 0 - begin: 0 default: 0 end: 2000 name: "Width (Hz)" resolution: 0 - code: ef3 count: 3 display: scale name: "Resonant Lowpass Filter" params: - begin: 0 default: 0 end: 5000 name: "Cutoff Frequency (Hz)" resolution: 0 - begin: 0 default: 0 end: 2 name: Resonance resolution: 0 - begin: 0 default: 0 end: 1 name: Gain resolution: 0 - code: efa count: 2 display: scale name: "Allpass Filter" params: - begin: 0 default: 0 end: 10000 name: "Delay Samples" resolution: 0 - begin: 0 default: 50 end: 100 name: "Feedback %" resolution: 0 - code: efb count: 2 display: scale name: "Bandpass Filter" params: - begin: 0 default: 11000 end: 11000 name: "Center Frequency (Hz)" resolution: 0 - begin: 0 default: 22000 end: 22000 name: "Width (Hz)" resolution: 0 - code: efh count: 1 display: scale name: "Highpass Filter" params: - begin: 10000 default: 10000 end: 22000 name: "Cutoff Frequency (Hz)" resolution: 0 - code: efl count: 1 display: scale name: "Lowpass Filter" params: - begin: 0 default: 0 end: 10000 name: "Cutoff Frequency (Hz)" resolution: 0 - code: efr count: 2 display: scale name: "Bandreject Filter" params: - begin: 0 default: 11000 end: 11000 name: "Center Frequency (Hz)" resolution: 0 - begin: 0 default: 22000 end: 22000 name: "Width (Hz)" resolution: 0 - code: efs count: 2 display: scale name: "Resonator Filter" params: - begin: 0 default: 11000 end: 11000 name: "Center Frequency (Hz)" resolution: 0 - begin: 0 default: 22000 end: 22000 name: "Width (Hz)" resolution: 0 - code: etd count: 5 display: scale name: Delay params: - begin: 0 default: 200 end: 2000 name: "Delay Time (ms)" resolution: 0 - begin: 0 default: 0 end: 2 name: "Surround Mode (Normal, Surround St., Spread)" resolution: 1 - begin: 0 default: 50 end: 100 name: "Number of Delays" resolution: 0 - begin: 0 default: 50 end: 100 name: "Mix %" resolution: 0 - begin: 0 default: 0 end: 100 name: "Feedback %" resolution: 0 - code: etc count: 4 display: scale name: Chorus params: - begin: 0 default: 200 end: 2000 name: "Delay Time (ms)" resolution: 0 - begin: 0 default: 500 end: 10000 name: "Variance Time Samples" resolution: 0 - begin: 0 default: 50 end: 100 name: "Feedback %" resolution: 0 - begin: 0 default: 50 end: 100 name: "LFO Frequency (Hz)" resolution: 0 - code: etr count: 3 display: scale name: Reverb params: - begin: 0 default: 200 end: 2000 name: "Delay Time (ms)" resolution: 0 - begin: 0 default: 0 end: 1 name: "Surround Mode (0=Normal, 1=Surround)" resolution: 1 - begin: 0 default: 50 end: 100 name: "Feedback %" resolution: 0 - code: ete count: 3 display: scale name: "Advanced Reverb" params: - begin: 0 default: 10 end: 100 name: "Room Size (Meters)" resolution: 0 - begin: 0 default: 50 end: 100 name: "Feedback %" resolution: 0 - begin: 0 default: 50 end: 100 name: "Wet %" resolution: 0 - code: etf count: 1 display: scale name: "Fake Stereo" params: - begin: 0 default: 40 end: 500 name: "Delay Time (ms)" resolution: 0 - code: etl count: 4 display: scale name: Flanger params: - begin: 0 default: 200 end: 1000 name: "Delay Time (ms)" resolution: 0 - begin: 0 default: 200 end: 10000 name: "Variance Time Samples" resolution: 0 - begin: 0 default: 50 end: 100 name: "Feedback %" resolution: 0 - begin: 0 default: 50 end: 100 name: "LFO Frequency (Hz)" resolution: 0 - code: etm count: 3 display: scale name: "Multitap Delay" params: - begin: 0 default: 200 end: 2000 name: "Delay Time (ms)" resolution: 0 - begin: 0 default: 20 end: 100 name: "Number of Delays" resolution: 0 - begin: 0 default: 50 end: 100 name: "Mix %" resolution: 0 - code: etp count: 4 display: scale name: Phaser params: - begin: 0 default: 200 end: 2000 name: "Delay Time (ms)" resolution: 0 - begin: 0 default: 100 end: 10000 name: "Variance Time Samples" resolution: 0 - begin: 0 default: 50 end: 100 name: "Feedback %" resolution: 0 - begin: 0 default: 50 end: 100 name: "LFO Frequency (Hz)" resolution: 0 - code: pn:metronome count: 1 display: scale name: Metronome params: - begin: 30 default: 120 end: 300 name: BPM resolution: 1 ... ; @@ default_namarc # # Nama Configuration file # # This file has been auto-generated by Nama # It will not be overwritten, so edit it as you like. # # Notes # # - The format of this file is YAML, preprocessed to allow # comments. Note: TAB characters are not allowed, # and will cause a fatal error. # # - A value _must_ be supplied for each 'leaf' field. # For example "mixer_out_format: cd-stereo" # # - A value must _not_ be supplied for nodes, i.e. # 'device:'. The value for 'device' is the entire indented # data structure that follows in subsequent lines. # # - white space *is* significant. Two spaces indent is # required for each sublevel. # # - You may use the tilde symbol '~' to represent a null (undef) value # For example "execute_on_project_load: ~" # # - This file is distinct from .ecasoundrc (not used by Nama.)
# project root directory, all project files stored here
project_root: ~ # replaced during first run
# [ audio devices ]
alsa_capture_device: consumer # 'consumer' is defined below alsa_playback_device: consumer
# Naming ALSA audio devices, reference for "device" section below
# syntax: alsa,pcm_device_name # example: alsa,default # pcm_device_name can be 'default' or any virtual devices you # have defined in .asoundrc. (see https://alsa.opensrc.org/Asoundrc)
# syntax: alsaplugin,card_number,device_number[,subdevice_number] (sample rate conversion) # syntax: alsahw,card_number,device_number[,subdevice_number] (no sample rate conversion) # example: alsaplugin,1,0 (second soundcard, device 0)
# Specifying audio format for recording and soundcard input/output
# syntax: bit_configuration,channel_count,frequency # example: s16_le,2,44100 (16-bits little-endian, two channels, 44.1 kHz) # example: s16_le,2,frequency # You may use the 'frequency' token, defined in the "abbreviations" section below. # Set 'frequency' to specify the sample rate for your project.
# onboard soundcard, card number 0
devices: consumer: ecasound_id: alsa,default input_format: 16-bit-stereo output_format: 16-bit-stereo
# multi-channel soundcard, card number 1, with 12 input and 10 output channels
multi: ecasound_id: alsaplugin,1,0 # second card input_format: s32_le,12,frequency output_format: s32_le,10,frequency
# other device settings (don't change them)
jack: signal_format: f32_le,N,frequency null: ecasound_id: null output_format: ~
# audio formats
# If your card allow, you'll get most boom-for-buck in # raising channel bandwidth to 24 bits
mix_to_disk_format: 16-bit-n-channel mixer_out_format: 16-bit-stereo raw_to_disk_format: 16-bit-n-channel cache_to_disk_format: 16-bit-n-channel
abbreviations: frequency: 44100 24-bit-mono: s24_le,1,frequency 24-bit-stereo: s24_le,2,frequency,i 24-bit-n-channel: s24_le,N,frequency,i 16-bit-mono: s16_le,1,frequency 16-bit-stereo: s16_le,2,frequency,i 16-bit-n-channel: s16_le,N,frequency,i cd-mono: s16_le,1,44100 cd-stereo: s16_le,2,44100,i
mixdown_encodings: mp3 ogg # files are automatically generated on mixdown # lame required for mp3 # oggenc required for ogg
sample_rate: frequency
realtime_profile: nonrealtime # other choices: realtime or auto
use_metronome: 0
# The following buffer sizes apply only with ALSA (not when using JACK)
ecasound_buffersize: realtime: default: 256 nonrealtime: default: 1024
ecasound_globals: # best not to change these common: -z:mixmode,sum realtime: -z:db,100000 -z:nointbuf nonrealtime: -z:nodb -z:intbuf
waveform_height: 200 # gui display
# ecasound_tcp_port: 2868
# effects for use in mastering mode, you may have to install them
eq: Parametric1 1 0 0 40 1 0 0 200 1 0 0 600 1 0 0 3300 1 0
low_pass: lowpass_iir 106 2
mid_pass: bandpass_iir 520 800 2
high_pass: highpass_iir 1030 2
compressor: sc4 0 3 16 0 1 3.25 0
spatialiser: matrixSpatialiser 0
limiter: tap_limiter 0 0
mark_replay_seconds: 2.5
playback_jump_seconds: 10
beep: command: beep # or ecasound # percent volume is for ecasound only # Hz sec vol % clip_start: 880 0.1 5 clip_end: 440 0.1 5 end_of_list: 250 0.2 5 command_error: 350 0.7 5
hotkeys: common: Space: toggle_transport Backspace: backspace F1: clip_here Insert: previous_track Delete: next_track Keypad0: replay [: back(30) ]: forward(30) {: back(120) }: forward(120) (: backward(300) ): forward(300) jump: Home: jump_to_start End: jump_to_end PageUp: previous_mark PageDown: next_mark Right: jump_forward_1 Up: jump_forward_10 Left: jump_back_1 Down: jump_back_10
bump: Home: jump_to_start End: jump_to_end PageUp: previous_mark PageDown: next_mark Right: bump_mark_forward_1 Up: bump_mark_forward_10 Left: bump_mark_back_1 Down: bump_mark_back_10 param: Home: previous_effect End: next_effect PageUp: previous_param PageDown: next_param Left: decrement_param_1 Right: increment_param_1 Up: increment_param_10 Down: decrement_param_10
alias: command: mbs: move_to_bus pcv: promote_current_version djp: disable_jack_polling effect: reverb: gverb # now superseded by nicknames, see 'h nick'
# end
@@ custom_pl ### customize.pl - user code
# test this by typing: # # perl customize.pl # # or, if you are running from your build directory, e.g. # # perl -I ~/build/nama/lib customize.pl
use Modern::Perl '2020'; use Audio::Nama::Globals qw(:all);
my @user_customization = (
prompt => sub { no warnings 'uninitialized'; join ' ', 'nama', git_branch_display(), bus_track_display(), '> ' },
## user defined commands
commands => { # usage: greet <name> <adjective> greet => sub { my ($name,$adjective) = @_; pager("Hello $name! You look $adjective today!!"); }, disable_jack_polling => sub{ $project->{events}->{poll_jack} = undef },
promote_current_version => sub { my $v = $this_track->playback_version; promote_version_to_track($this_track, $v); }, },
);
@@ fake_jack_lsp system:capture_1 alsa_pcm:capture_1 properties: output,can-monitor,physical,terminal, system:capture_2 alsa_pcm:capture_2 properties: output,can-monitor,physical,terminal, system:capture_3 alsa_pcm:capture_3 properties: output,can-monitor,physical,terminal, system:capture_4 alsa_pcm:capture_4 properties: output,can-monitor,physical,terminal, system:capture_5 alsa_pcm:capture_5 properties: output,can-monitor,physical,terminal, system:capture_6 alsa_pcm:capture_6 properties: output,can-monitor,physical,terminal, system:capture_7 alsa_pcm:capture_7 properties: output,can-monitor,physical,terminal, system:capture_8 alsa_pcm:capture_8 properties: output,can-monitor,physical,terminal, system:capture_9 alsa_pcm:capture_9 properties: output,can-monitor,physical,terminal, system:capture_10 alsa_pcm:capture_10 properties: output,can-monitor,physical,terminal, system:capture_11 alsa_pcm:capture_11 properties: output,can-monitor,physical,terminal, system:capture_12 alsa_pcm:capture_12 properties: output,can-monitor,physical,terminal, system:playback_1 alsa_pcm:playback_1 properties: input,physical,terminal, system:playback_2 alsa_pcm:playback_2 properties: input,physical,terminal, system:playback_3 alsa_pcm:playback_3 properties: input,physical,terminal, system:playback_4 alsa_pcm:playback_4 properties: input,physical,terminal, system:playback_5 alsa_pcm:playback_5 properties: input,physical,terminal, system:playback_6 alsa_pcm:playback_6 properties: input,physical,terminal, system:playback_7 alsa_pcm:playback_7 properties: input,physical,terminal, system:playback_8 alsa_pcm:playback_8 properties: input,physical,terminal, system:playback_9 alsa_pcm:playback_9 properties: input,physical,terminal, system:playback_10 alsa_pcm:playback_10 properties: input,physical,terminal, Horgand:out_1 properties: output,terminal, Horgand:out_2 properties: output,terminal, fluidsynth:left properties: output, fluidsynth:right properties: output, NamaEcasound:out_1 properties: output, NamaEcasound:out_2 properties: output, jconvolver:out_1 properties: output, jconvolver:out_2 properties: output, jconvolver:in_1 properties: input, jconvolver:in_2 properties: input, LinuxSampler:0 properties: output, LinuxSampler:1 properties: output, beatrix-0:output-0 properties: output, beatrix-0:output-1 properties: output,
@@ fake_lv2_register 1. Calf Compressor -elv2:http://calf.sourceforge.net/plugins/Compressor,'Threshold','Ratio',' ... Attack','Release','Makeup Gain','Knee','Detection','Stereo ... Link','A-weighting','Compression','Peak Output','0dB','Bypass' 2. Calf Filter -elv2:http://calf.sourceforge.net/plugins/Filter,'Frequency','Resonance',' ... Mode','Inertia' 3. Calf Filterclavier -elv2:http://calf.sourceforge.net/plugins/Filterclavier,'Transpose','Detun ... e','Max. Resonance','Mode','Portamento time' 4. Calf Flanger -elv2:http://calf.sourceforge.net/plugins/Flanger,'Minimum ... delay','Modulation depth','Modulation rate','Feedback','Stereo ... phase','Reset','Amount','Dry Amount' 5. Calf Monosynth -elv2:http://calf.sourceforge.net/plugins/Monosynth,'Osc1 Wave','Osc2 ... Wave','O1<>2 Detune','Osc 2 transpose','Phase mode','O1<>2 ... Mix','Filter','Cutoff','Resonance','Separation','Env->Cutoff','Env->Res' ... ,'Env->Amp','Attack','Decay','Sustain','Release','Key Follow','Legato ... Mode','Portamento','Vel->Filter','Vel->Amp','Volume','PBend Range' 6. Calf MultiChorus -elv2:http://calf.sourceforge.net/plugins/MultiChorus,'Minimum ... delay','Modulation depth','Modulation rate','Stereo ... phase','Voices','Inter-voice phase','Amount','Dry Amount','Center Frq ... 1','Center Frq 2','Q' 7. Calf Phaser -elv2:http://calf.sourceforge.net/plugins/Phaser,'Center ... Freq','Modulation depth','Modulation rate','Feedback','# ... Stages','Stereo phase','Reset','Amount','Dry Amount' 8. Calf Reverb -elv2:http://calf.sourceforge.net/plugins/Reverb,'Decay time','High Frq ... Damp','Room size','Diffusion','Wet Amount','Dry Amount','Pre ... Delay','Bass Cut','Treble Cut' 9. Calf Rotary Speaker -elv2:http://calf.sourceforge.net/plugins/RotarySpeaker,'Speed Mode','Tap ... Spacing','Tap Offset','Mod Depth','Treble Motor','Bass Motor','Mic ... Distance','Reflection' 10. Calf Vintage Delay -elv2:http://calf.sourceforge.net/plugins/VintageDelay,'Tempo','Subdivide' ... ,'Time L','Time R','Feedback','Amount','Mix mode','Medium','Dry Amount' 11. IR -elv2:http://factorial.hu/plugins/lv2/ir,'Reverse ... IR','Predelay','Attack','Attack ... time','Envelope','Length','Stretch','Stereo width in','Stereo width ... IR','Autogain','Dry','Dry gain','Wet','Wet ... gain','FileHash0','FileHash1','FileHash2','Dry L meter','Dry R ... meter','Wet L meter','Wet R meter','Latency' 12. Aliasing -elv2:http://plugin.org.uk/swh-plugins/alias,'Aliasing level' 13. Allpass delay line, cubic spline interpolation -elv2:http://plugin.org.uk/swh-plugins/allpass_c,'Max Delay (s)','Delay ... Time (s)','Decay Time (s)' 14. Allpass delay line, linear interpolation -elv2:http://plugin.org.uk/swh-plugins/allpass_l,'Max Delay (s)','Delay ... Time (s)','Decay Time (s)' 15. Allpass delay line, noninterpolating -elv2:http://plugin.org.uk/swh-plugins/allpass_n,'Max Delay (s)','Delay ... Time (s)','Decay Time (s)' 16. AM pitchshifter -elv2:http://plugin.org.uk/swh-plugins/amPitchshift,'Pitch shift','Buffer ... size','latency' 17. Simple amplifier -elv2:http://plugin.org.uk/swh-plugins/amp,'Amps gain (dB)' 18. Analogue Oscillator -elv2:http://plugin.org.uk/swh-plugins/analogueOsc,'Waveform (1=sin, ... 2=tri, 3=squ, 4=saw)','Frequency (Hz)','Warmth','Instability' 19. Artificial latency -elv2:http://plugin.org.uk/swh-plugins/artificialLatency,'Delay ... (ms)','latency' 20. Auto phaser -elv2:http://plugin.org.uk/swh-plugins/autoPhaser,'Attack time ... (s)','Decay time (s)','Modulation depth','Feedback','Spread (octaves)' 21. Glame Bandpass Analog Filter -elv2:http://plugin.org.uk/swh-plugins/bandpass_a_iir,'Center Frequency ... (Hz)','Bandwidth (Hz)' 22. Glame Bandpass Filter -elv2:http://plugin.org.uk/swh-plugins/bandpass_iir,'Center Frequency ... (Hz)','Bandwidth (Hz)','Stages(2 poles per stage)' 23. Bode frequency shifter -elv2:http://plugin.org.uk/swh-plugins/bodeShifter,'Frequency ... shift','latency' 24. Bode frequency shifter (CV) -elv2:http://plugin.org.uk/swh-plugins/bodeShifterCV,'Base shift','Mix ... (-1=down, +1=up)','CV Attenuation','latency' 25. GLAME Butterworth Highpass -elv2:http://plugin.org.uk/swh-plugins/butthigh_iir,'Cutoff Frequency ... (Hz)','Resonance' 26. GLAME Butterworth Lowpass -elv2:http://plugin.org.uk/swh-plugins/buttlow_iir,'Cutoff Frequency ... (Hz)','Resonance' 27. Glame Butterworth X-over Filter -elv2:http://plugin.org.uk/swh-plugins/bwxover_iir,'Cutoff Frequency ... (Hz)','Resonance' 28. Chebyshev distortion -elv2:http://plugin.org.uk/swh-plugins/chebstortion,'Distortion' 29. Comb Filter -elv2:http://plugin.org.uk/swh-plugins/comb,'Band separation ... (Hz)','Feedback' 30. Comb Splitter -elv2:http://plugin.org.uk/swh-plugins/combSplitter,'Band separation (Hz)' 31. Comb delay line, cubic spline interpolation -elv2:http://plugin.org.uk/swh-plugins/comb_c,'Max Delay (s)','Delay Time ... (s)','Decay Time (s)' 32. Comb delay line, linear interpolation -elv2:http://plugin.org.uk/swh-plugins/comb_l,'Max Delay (s)','Delay Time ... (s)','Decay Time (s)' 33. Comb delay line, noninterpolating -elv2:http://plugin.org.uk/swh-plugins/comb_n,'Max Delay (s)','Delay Time ... (s)','Decay Time (s)' 34. Constant Signal Generator -elv2:http://plugin.org.uk/swh-plugins/const,'Signal amplitude' 35. Crossover distortion -elv2:http://plugin.org.uk/swh-plugins/crossoverDist,'Crossover ... amplitude','Smoothing' 36. DC Offset Remover -elv2:http://plugin.org.uk/swh-plugins/dcRemove, 37. Exponential signal decay -elv2:http://plugin.org.uk/swh-plugins/decay,'Decay Time (s)' 38. Decimator -elv2:http://plugin.org.uk/swh-plugins/decimator,'Bit depth','Sample rate ... (Hz)' 39. Declipper -elv2:http://plugin.org.uk/swh-plugins/declip, 40. Simple delay line, cubic spline interpolation -elv2:http://plugin.org.uk/swh-plugins/delay_c,'Max Delay (s)','Delay ... Time (s)' 41. Simple delay line, linear interpolation -elv2:http://plugin.org.uk/swh-plugins/delay_l,'Max Delay (s)','Delay ... Time (s)' 42. Simple delay line, noninterpolating -elv2:http://plugin.org.uk/swh-plugins/delay_n,'Max Delay (s)','Delay ... Time (s)' 43. Delayorama -elv2:http://plugin.org.uk/swh-plugins/delayorama,'Random seed','Input ... gain (dB)','Feedback (%)','Number of taps','First delay (s)','Delay ... range (s)','Delay change','Delay random (%)','Amplitude ... change','Amplitude random (%)','Dry/wet mix' 44. Diode Processor -elv2:http://plugin.org.uk/swh-plugins/diode,'Mode (0 for none, 1 for ... half wave, 2 for full wave)' 45. Audio Divider (Suboctave Generator) -elv2:http://plugin.org.uk/swh-plugins/divider,'Denominator' 46. DJ flanger -elv2:http://plugin.org.uk/swh-plugins/djFlanger,'LFO sync','LFO period ... (s)','LFO depth (ms)','Feedback (%)' 47. DJ EQ -elv2:http://plugin.org.uk/swh-plugins/dj_eq,'Lo gain (dB)','Mid gain ... (dB)','Hi gain (dB)','latency' 48. DJ EQ (mono) -elv2:http://plugin.org.uk/swh-plugins/dj_eq_mono,'Lo gain (dB)','Mid ... gain (dB)','Hi gain (dB)','latency' 49. Dyson compressor -elv2:http://plugin.org.uk/swh-plugins/dysonCompress,'Peak limit ... (dB)','Release time (s)','Fast compression ratio','Compression ratio' 50. Fractionally Addressed Delay Line -elv2:http://plugin.org.uk/swh-plugins/fadDelay,'Delay ... (seconds)','Feedback (dB)' 51. Fast Lookahead limiter -elv2:http://plugin.org.uk/swh-plugins/fastLookaheadLimiter,'Input gain ... (dB)','Limit (dB)','Release time (s)','Attenuation (dB)','latency' 52. Flanger -elv2:http://plugin.org.uk/swh-plugins/flanger,'Delay base (ms)','Max ... slowdown (ms)','LFO frequency (Hz)','Feedback' 53. FM Oscillator -elv2:http://plugin.org.uk/swh-plugins/fmOsc,'Waveform (1=sin, 2=tri, ... 3=squ, 4=saw)' 54. Foldover distortion -elv2:http://plugin.org.uk/swh-plugins/foldover,'Drive','Skew' 55. 4 x 4 pole allpass -elv2:http://plugin.org.uk/swh-plugins/fourByFourPole,'Frequency ... 1','Feedback 1','Frequency 2','Feedback 2','Frequency 3','Feedback ... 3','Frequency 4','Feedback 4' 56. Fast overdrive -elv2:http://plugin.org.uk/swh-plugins/foverdrive,'Drive level' 57. Frequency tracker -elv2:http://plugin.org.uk/swh-plugins/freqTracker,'Tracking speed' 58. Gate -elv2:http://plugin.org.uk/swh-plugins/gate,'LF key filter (Hz)','HF key ... filter (Hz)','Threshold (dB)','Attack (ms)','Hold (ms)','Decay ... (ms)','Range (dB)','Output select (-1 = key listen, 0 = gate, 1 = ... bypass)','Key level (dB)','Gate state' 59. Giant flange -elv2:http://plugin.org.uk/swh-plugins/giantFlange,'Double delay','LFO ... frequency 1 (Hz)','Delay 1 range (s)','LFO frequency 2 (Hz)','Delay 2 ... range (s)','Feedback','Dry/Wet level' 60. Gong model -elv2:http://plugin.org.uk/swh-plugins/gong,'Inner damping','Outer ... damping','Mic position','Inner size 1','Inner stiffness 1 +','Inner ... stiffness 1 -','Inner size 2','Inner stiffness 2 +','Inner stiffness 2 ... -','Inner size 3','Inner stiffness 3 +','Inner stiffness 3 -','Inner ... size 4','Inner stiffness 4 +','Inner stiffness 4 -','Outer size ... 1','Outer stiffness 1 +','Outer stiffness 1 -','Outer size 2','Outer ... stiffness 2 +','Outer stiffness 2 -','Outer size 3','Outer stiffness 3 ... +','Outer stiffness 3 -','Outer size 4','Outer stiffness 4 +','Outer ... stiffness 4 -' 61. Gong beater -elv2:http://plugin.org.uk/swh-plugins/gongBeater,'Impulse gain ... (dB)','Strike gain (dB)','Strike duration (s)' 62. GVerb -elv2:http://plugin.org.uk/swh-plugins/gverb,'Roomsize (m)','Reverb time ... (s)','Damping','Input bandwidth','Dry signal level (dB)','Early ... reflection level (dB)','Tail level (dB)' 63. Hard Limiter -elv2:http://plugin.org.uk/swh-plugins/hardLimiter,'dB limit','Wet ... level','Residue level' 64. Harmonic generator -elv2:http://plugin.org.uk/swh-plugins/harmonicGen,'Fundamental ... magnitude','2nd harmonic magnitude','3rd harmonic magnitude','4th ... harmonic magnitude','5th harmonic magnitude','6th harmonic ... magnitude','7th harmonic magnitude','8th harmonic magnitude','9th ... harmonic magnitude','10th harmonic magnitude' 65. Hermes Filter -elv2:http://plugin.org.uk/swh-plugins/hermesFilter,'LFO1 freq ... (Hz)','LFO1 wave (0 = sin, 1 = tri, 2 = saw, 3 = squ, 4 = s&h)','LFO2 ... freq (Hz)','LFO2 wave (0 = sin, 1 = tri, 2 = saw, 3 = squ, 4 = ... s&h)','Osc1 freq (Hz)','Osc1 wave (0 = sin, 1 = tri, 2 = saw, 3 = squ, ... 4 = noise)','Osc2 freq (Hz)','Osc2 wave (0 = sin, 1 = tri, 2 = saw, 3 = ... squ, 4 = noise)','Ringmod 1 depth (0=none, 1=AM, 2=RM)','Ringmod 2 ... depth (0=none, 1=AM, 2=RM)','Ringmod 3 depth (0=none, 1=AM, ... 2=RM)','Osc1 gain (dB)','RM1 gain (dB)','Osc2 gain (dB)','RM2 gain ... (dB)','Input gain (dB)','RM3 gain (dB)','Xover lower freq','Xover upper ... freq','Dist1 drive','Dist2 drive','Dist3 drive','Filt1 type (0=none, ... 1=LP, 2=HP, 3=BP, 4=BR, 5=AP)','Filt1 freq','Filt1 q','Filt1 ... resonance','Filt1 LFO1 level','Filt1 LFO2 level','Filt2 type (0=none, ... 1=LP, 2=HP, 3=BP, 4=BR, 5=AP)','Filt2 freq','Filt2 q','Filt2 ... resonance','Filt2 LFO1 level','Filt2 LFO2 level','Filt3 type (0=none, ... 1=LP, 2=HP, 3=BP, 4=BR, 5=AP)','Filt3 freq','Filt3 q','Filt3 ... resonance','Filt3 LFO1 level','Filt3 LFO2 level','Delay1 length ... (s)','Delay1 feedback','Delay1 wetness','Delay2 length (s)','Delay2 ... feedback','Delay2 wetness','Delay3 length (s)','Delay3 ... feedback','Delay3 wetness','Band 1 gain (dB)','Band 2 gain (dB)','Band ... 3 gain (dB)' 66. Glame Highpass Filter -elv2:http://plugin.org.uk/swh-plugins/highpass_iir,'Cutoff ... Frequency','Stages(2 poles per stage)' 67. Hilbert transformer -elv2:http://plugin.org.uk/swh-plugins/hilbert,'latency' 68. Non-bandlimited single-sample impulses -elv2:http://plugin.org.uk/swh-plugins/impulse_fc,'Frequency (Hz)' 69. Inverter -elv2:http://plugin.org.uk/swh-plugins/inv, 70. Karaoke -elv2:http://plugin.org.uk/swh-plugins/karaoke,'Vocal volume (dB)' 71. L/C/R Delay -elv2:http://plugin.org.uk/swh-plugins/lcrDelay,'L delay (ms)','L ... level','C delay (ms)','C level','R delay (ms)','R ... level','Feedback','High damp (%)','Low damp (%)','Spread','Dry/Wet ... level' 72. LFO Phaser -elv2:http://plugin.org.uk/swh-plugins/lfoPhaser,'LFO rate (Hz)','LFO ... depth','Feedback','Spread (octaves)' 73. Lookahead limiter -elv2:http://plugin.org.uk/swh-plugins/lookaheadLimiter,'Limit ... (dB)','Lookahead delay','Attenuation (dB)','latency' 74. Lookahead limiter (fixed latency) -elv2:http://plugin.org.uk/swh-plugins/lookaheadLimiterConst,'Limit ... (dB)','Lookahead time (s)','Attenuation (dB)','latency' 75. Glame Lowpass Filter -elv2:http://plugin.org.uk/swh-plugins/lowpass_iir,'Cutoff ... Frequency','Stages(2 poles per stage)' 76. LS Filter -elv2:http://plugin.org.uk/swh-plugins/lsFilter,'Filter type (0=LP, 1=BP, ... 2=HP)','Cutoff frequency (Hz)','Resonance' 77. Matrix: MS to Stereo -elv2:http://plugin.org.uk/swh-plugins/matrixMSSt,'Width' 78. Matrix Spatialiser -elv2:http://plugin.org.uk/swh-plugins/matrixSpatialiser,'Width' 79. Matrix: Stereo to MS -elv2:http://plugin.org.uk/swh-plugins/matrixStMS, 80. Multiband EQ -elv2:http://plugin.org.uk/swh-plugins/mbeq,'50Hz gain (low ... shelving)','100Hz gain','156Hz gain','220Hz gain','311Hz gain','440Hz ... gain','622Hz gain','880Hz gain','1250Hz gain','1750Hz gain','2500Hz ... gain','3500Hz gain','5000Hz gain','10000Hz gain','20000Hz ... gain','latency' 81. Modulatable delay -elv2:http://plugin.org.uk/swh-plugins/modDelay,'Base delay (s)' 82. Multivoice Chorus -elv2:http://plugin.org.uk/swh-plugins/multivoiceChorus,'Number of ... voices','Delay base (ms)','Voice separation (ms)','Detune (%)','LFO ... frequency (Hz)','Output attenuation (dB)' 83. Higher Quality Pitch Scaler -elv2:http://plugin.org.uk/swh-plugins/pitchScaleHQ,'Pitch ... co-efficient','latency' 84. Plate reverb -elv2:http://plugin.org.uk/swh-plugins/plate,'Reverb ... time','Damping','Dry/wet mix' 85. Pointer cast distortion -elv2:http://plugin.org.uk/swh-plugins/pointerCastDistortion,'Effect ... cutoff freq (Hz)','Dry/wet mix' 86. Rate shifter -elv2:http://plugin.org.uk/swh-plugins/rateShifter,'Rate' 87. Retro Flanger -elv2:http://plugin.org.uk/swh-plugins/retroFlange,'Average stall ... (ms)','Flange frequency (Hz)' 88. Reverse Delay (5s max) -elv2:http://plugin.org.uk/swh-plugins/revdelay,'Delay Time (s)','Dry ... Level (dB)','Wet Level (dB)','Feedback','Crossfade samples' 89. Ringmod with LFO -elv2:http://plugin.org.uk/swh-plugins/ringmod_1i1o1l,'Modulation depth ... (0=none, 1=AM, 2=RM)','Frequency (Hz)','Sine level','Triangle ... level','Sawtooth level','Square level' 90. Ringmod with two inputs -elv2:http://plugin.org.uk/swh-plugins/ringmod_2i1o,'Modulation depth ... (0=none, 1=AM, 2=RM)' 91. Barry's Satan Maximiser -elv2:http://plugin.org.uk/swh-plugins/satanMaximiser,'Decay time ... (samples)','Knee point (dB)' 92. SC1 -elv2:http://plugin.org.uk/swh-plugins/sc1,'Attack time (ms)','Release ... time (ms)','Threshold level (dB)','Ratio (1:n)','Knee radius ... (dB)','Makeup gain (dB)' 93. SC2 -elv2:http://plugin.org.uk/swh-plugins/sc2,'Attack time (ms)','Release ... time (ms)','Threshold level (dB)','Ratio (1:n)','Knee radius ... (dB)','Makeup gain (dB)' 94. SC3 -elv2:http://plugin.org.uk/swh-plugins/sc3,'Attack time (ms)','Release ... time (ms)','Threshold level (dB)','Ratio (1:n)','Knee radius ... (dB)','Makeup gain (dB)','Chain balance' 95. SC4 -elv2:http://plugin.org.uk/swh-plugins/sc4,'RMS/peak','Attack time ... (ms)','Release time (ms)','Threshold level (dB)','Ratio (1:n)','Knee ... radius (dB)','Makeup gain (dB)','Amplitude (dB)','Gain reduction (dB)' 96. SE4 -elv2:http://plugin.org.uk/swh-plugins/se4,'RMS/peak','Attack time ... (ms)','Release time (ms)','Threshold level (dB)','Ratio (1:n)','Knee ... radius (dB)','Attenuation (dB)','Amplitude (dB)','Gain expansion (dB)' 97. Wave shaper -elv2:http://plugin.org.uk/swh-plugins/shaper,'Waveshape' 98. Signal sifter -elv2:http://plugin.org.uk/swh-plugins/sifter,'Sift size' 99. Sine + cosine oscillator -elv2:http://plugin.org.uk/swh-plugins/sinCos,'Base frequency ... (Hz)','Pitch offset' 100. Single band parametric -elv2:http://plugin.org.uk/swh-plugins/singlePara,'Gain (dB)','Frequency ... (Hz)','Bandwidth (octaves)' 101. Sinus wavewrapper -elv2:http://plugin.org.uk/swh-plugins/sinusWavewrapper,'Wrap degree' 102. Smooth Decimator -elv2:http://plugin.org.uk/swh-plugins/smoothDecimate,'Resample ... rate','Smoothing' 103. Mono to Stereo splitter -elv2:http://plugin.org.uk/swh-plugins/split, 104. Surround matrix encoder -elv2:http://plugin.org.uk/swh-plugins/surroundEncoder, 105. State Variable Filter -elv2:http://plugin.org.uk/swh-plugins/svf,'Filter type (0=none, 1=LP, ... 2=HP, 3=BP, 4=BR, 5=AP)','Filter freq','Filter Q','Filter resonance' 106. Tape Delay Simulation -elv2:http://plugin.org.uk/swh-plugins/tapeDelay,'Tape speed (inches/sec, ... 1=normal)','Dry level (dB)','Tap 1 distance (inches)','Tap 1 level ... (dB)','Tap 2 distance (inches)','Tap 2 level (dB)','Tap 3 distance ... (inches)','Tap 3 level (dB)','Tap 4 distance (inches)','Tap 4 level ... (dB)' 107. Transient mangler -elv2:http://plugin.org.uk/swh-plugins/transient,'Attack speed','Sustain ... time' 108. Triple band parametric with shelves -elv2:http://plugin.org.uk/swh-plugins/triplePara,'Low-shelving gain ... (dB)','Low-shelving frequency (Hz)','Low-shelving slope','Band 1 gain ... (dB)','Band 1 frequency (Hz)','Band 1 bandwidth (octaves)','Band 2 gain ... (dB)','Band 2 frequency (Hz)','Band 2 bandwidth (octaves)','Band 3 gain ... (dB)','Band 3 frequency (Hz)','Band 3 bandwidth ... (octaves)','High-shelving gain (dB)','High-shelving frequency ... (Hz)','High-shelving slope' 109. Valve saturation -elv2:http://plugin.org.uk/swh-plugins/valve,'Distortion ... level','Distortion character' 110. Valve rectifier -elv2:http://plugin.org.uk/swh-plugins/valveRect,'Sag level','Distortion' 111. VyNil (Vinyl Effect) -elv2:http://plugin.org.uk/swh-plugins/vynil,'Year','RPM','Surface ... warping','Crackle','Wear' 112. Wave Terrain Oscillator -elv2:http://plugin.org.uk/swh-plugins/waveTerrain, 113. Crossfade -elv2:http://plugin.org.uk/swh-plugins/xfade,'Crossfade' 114. Crossfade (4 outs) -elv2:http://plugin.org.uk/swh-plugins/xfade4,'Crossfade' 115. z-1 -elv2:http://plugin.org.uk/swh-plugins/zm1, 116. TalentedHack -elv2:urn:jeremy.salwen:plugins:talentedhack,'Mix','Pull To In ... Tune','Smooth Pitch','Formant Correction','Formant Warp','Jump To Midi ... Input','Pitch Correct Midi Out','Quantize LFO','LFO Amplitude','LFO ... Rate (Hz)','LFO Shape','LFO Symmetry','Concert A (Hz)','Detect ... A','Detect A#','Detect B','Detect C','Detect C#','Detect D','Detect ... D#','Detect E','Detect F','Detect F#','Detect G','Detect G#','Output ... A','Output A#','Output B','Output C','Output C#','Output D','Output ... D#','Output E','Output F','Output F#','Output G','Output G#','Latency'
@@ fake_jack_latency system:capture_1 port latency = 1024 frames port playback latency = [ 0 0 ] frames port capture latency = [ 1024 1024 ] frames system:capture_2 port latency = 1024 frames port playback latency = [ 0 0 ] frames port capture latency = [ 1024 1024 ] frames system:playback_1 port latency = 2048 frames port playback latency = [ 2048 2048 ] frames port capture latency = [ 0 0 ] frames system:playback_2 port latency = 2048 frames port playback latency = [ 2048 2048 ] frames port capture latency = [ 0 0 ] frames LinuxSampler:capture_1 port latency = 1024 frames port playback latency = [ 256 256 ] frames port capture latency = [ 512 1024 ] frames LinuxSampler:capture_2 port latency = 1024 frames port playback latency = [ 256 256 ] frames port capture latency = [ 256 1024 ] frames LinuxSampler:playback_1 port latency = 2048 frames port playback latency = [ 2048 2048 ] frames port capture latency = [ 512 512 ] frames LinuxSampler:playback_2 port latency = 2048 frames port playback latency = [ 2048 2048 ] frames port capture latency = [ 512 512 ] frames
@@ midi_commands print err h exec debug panic info getunit setunit getfac fac getpos g getlen sel getq setq ev gett getf cf getx cx geti ci geto co mute unmute getmute ls save load reset export import i p r s t mins mcut mdup minfo mtempo msig mend ctlconf ctlconfx ctlunconf ctlinfo m metrocf tlist # ct # tnew # tdel # tren texists taddev tsetf tgetf tcheck tcut tclr tpaste tcopy tins tmerge tquant ttransp tevmap tclist tinfo ilist iexists iset inew idel iren iinfo igetc igetd iaddev irmev olist oexists oset onew odel oren oinfo ogetc ogetd oaddev ormev flist fexists fnew fdel fren finfo freset fmap funmap ftransp fvcurve fchgin fchgout fswapin fswapout xlist xexists xnew xdel xren xinfo xrm xsetd xadd shut proclist builtinlist dnew ddel dmtcrx dmmctx dclktx dclkrx dclkrate dinfo dixctl doxctl
@@ default_palette_json { "gui" : { "_nama_palette" : { "Capture" : "#f22c92f088d3", "ClockBackground" : "#998ca489b438", "ClockForeground" : "#000000000000", "GroupBackground" : "#998ca489b438", "GroupForeground" : "#000000000000", "MarkArmed" : "#d74a811f443f", "Mixdown" : "#bf67c5a1491f", "MonBackground" : "#9420a9aec871", "MonForeground" : "Black", "Mute" : "#a5a183828382", "OffBackground" : "#998ca489b438", "OffForeground" : "Black", "Play" : "#68d7aabf755c", "RecBackground" : "#d9156e866335", "RecForeground" : "Black", "SendBackground" : "#9ba79cbbcc8a", "SendForeground" : "Black", "SourceBackground" : "#f22c92f088d3", "SourceForeground" : "Black" }, "_palette" : { "ew" : { "background" : "#d915cc1bc3cf", "foreground" : "black" }, "mw" : { "activeBackground" : "#4e097822b438", "background" : "#c2c5d0b5e49a", "foreground" : "black" } } } }
@@ banner //////////////////////////////////////////////////////////////////// / / / Nama multitrack recorder v. $VERSION (c)2008-2023 Joel Roth / / / / Audio processing by Ecasound, courtesy of Kai Vehmanen / / / ////////////////////////////////////////////////////////////////////
Type 'h' for help.
Starting...
@@ midi_help tlist return the list of names of the tracks in the song example: print [tlist] tnew trackname create an empty track named ``trackname'' tdel delete the current track. tren newname change the name of the current track to ``newname'' texists trackname return 1 if ``trackname'' is a track, 0 otherwise taddev measure beat tick ev put the event ``ev'' on the current track at the position given by ``measure'', ``beat'' and ``tick'' tsetf filtname set the default filter (for recording) of the current track to ``filtname''. It will be used in performace mode if there is no current filter. tgetf return the default filter (for recording) of the current track, returns ``nil'' if none tcheck check the current track for orphaned notes, nested notes and other anomalies; also removes multiple controllers in the same tick tcut cut the current selection of the current track. tclr clear the current selection of the current track. only events matching the current event selection (see ev function) are removed. tins amount insert ``amount'' empty measures in the current track, at the current position. tpaste copy the hidden temporary track (filled by tcopy) on the current position of the current track. the current event selection (see ev function) are copied tcopy copy the current selection of the current track into a hidden temporary track. Only events matching the current event selection (see ev function) are copied tquant rate quantize the current selection of the current track using the current quantization step (see setq function). Note positions are rounded to the nearest tick multiple of the quantization step; Rate must be between 0 and 100: 0 means no quantization and 100 means full quantization. ttransp halftones transpose note events of current selection of the current track, by ``halftones'' half tones. Only events matching the current event selection (see ev function) are transposed. tevmap evspec1 evspec2 convert events matching evspec1 (source) into events matching evspec2 (destination) in the current selection of the current track. Both evspec1 and evspec2 must have the same number of devices, channels, notes, controllers etc.. trackmerge sourcetrack merge the ``sourcetrack'' into the current track mute trackname Mute the given track, i.e. events from ``trackname'' will not be played during record/playback. unmute trackname Unmute the given track, i.e. events from ``trackname'' will be played during record/playback. getmute trackname Return 1 if the given track is muted and 0 otherwise. tclist Return the list of channels used by events stored in the current track. tinfo scan the current selection of the current track, an for each measure display the number of events that match the current event selection inew channelname {dev midichan} create an new channel named ``channelname'' and assigned the given device and MIDI channel. iset {dev midichan} set the device/channel pair of the current channel. All filters are updated to use the new channel setting as if the appropriate fchin function was invoked for each filter. idel delete current channel. iren newname rename the current channel to ``newname'' iexists channelname return 1 if ``channelname'' is a channel, 0 otherwise igetc return the MIDI channel number of the current channel igetd channelname return the device number of the current channel iaddev event add the event to the configuration of the current channel, it's not used yet. irmev evspec remove all events matching ``evspec'' (see event ranges) from the configuration of the current channel iinfo print all events on the config of the current channel. onew channelname {dev midichan} create an new channel named ``channelname'' and assigned the given device and MIDI channel. Output channels contain a built-in filter having the same name; by defaut it maps all inputs to the newly created output channel. oset {dev midichan} set the device/channel pair of the current channel. All filters are updated to use the new channel setting as if the appropriate fchout function was invoked for each filter. odel delete current channel. oren newname rename the current channel to ``newname'' iexists channelname return 1 if ``channelname'' is a channel, 0 otherwise ogetc return the MIDI channel number of the current channel ogetd channelname return the device number of the current channel oaddev event add the event to the configuration of the current channel, it's not used yet. ormev evspec remove all events matching ``evspec'' (see event ranges) from the configuration of the current channel oinfo print all events on the config of the current channel. fnew filtname create an new filter named ``filtname'' fdel filtname delete the current filter. fren newname rename the current filter to ``newname'' fexists filtname return 1 if ``filtname'' is a filter, 0 otherwise freset remove all rules from the current filter. finfo list all fitering rules of the current filter fchgin old_evspec new_evspec rewrite all filtering rules of the current filter to consume ``new_evspec'' events instead of ``old_evspec'' events. This means that each rule that would consume ``old_evspec'' on the input will start consuming ``new_evspec'' instead. fswapin evspec1 evspec2 Similar to fchgin but swap ``evspec1'' and ``evspec2'' in the source events set of each rule. fchgout old_evspec new_evspec rewrite all filtering rules of the current filter to produce ``new_evspec'' events instead of ``old_evspec'' events. This means that each rule that would produce ``old_evspec'' on the output will start producing ``new_evspec'' instead. fswapout evspec1 evspec2 Similar to fchgout but swap ``evspec1'' and ``evspec2'' in the destination events set of each rule. fmap evspec1 evspec2 add a new rule to the current filter, to make it convert events matching evspec1 (source) into events matching evspec2 (destination). Both evspec1 and evspec2 must have the same number of devices, channels, notes, controllers etc.. funmap evspec1 evspec2 remove event maps from the current filter. Any mapping with source included in evspec1 and destination inluded in evspec2 is deleted. ftransp evspec halftones transpose events generated by the filter and matching ``evspec'' by the give number of halftones fvcurve evspec weight adjusts velocity of note events produced by the filter, using the given ``weight'' in the -63..63 range. If ``weight'' is:
negative - sensitivity is decreased positive - sensitivity is increased zero - the velocity is unchanged xnew sysexname create a new bank of sysex messages named ``sysexname'' xdel delete the current bank of sysex messages. xren newname rename the current sysex bank to ``newname'' xexists sysexname return 1 if ``sysexname'' is a sysex bank, 0 otherwise xrm pattern remove all sysex messages starting with ``pattern'' from the current sysex bank. The given pattern is a list of bytes; an empty pattern matches any sysex message. xsetd newdev pattern set device number to ``newdev'' on all sysex messages starting with ``pattern'' in the current sysex bank. The given pattern is a list of bytes; an empty pattern matches any sysex message. xadd devnum data add to the current sysex bank a new sysex message. ``data'' is a list containing the MIDI system exclusive message and ``devname'' is the device number to which the message will be sent when performance mode is entered xinfo print all sysex messages of the current sysex bank. Messages that are too long to be desplayed on a single line are truncated and the ``...'' string is displayed. ximport devnum path replace contents of the current sysex bank by contents of the given .syx file; messages are assigned to ``devnum'' device number. xexport path store contents of the current sysex bank in the given .syx file enter ``idle'' performance mode. Start processing MIDI input and generating MIDI output. data passes through the current filter (if any) or through the current track's filter (if any). p play the song from the current position. Input passes through the current filter (if any) or through the current track's filter (if any). r play the song and record the input. Input passes through the current filter (if any) or through the current track's filter (if any). On startup, this function play one measure of countdown before the data start being recorded. s stop performance and release MIDI devices. I.e. stop the effect ``i'', ``p'' or ``r'' functions; sendraw device arrayofbytes send raw MIDI data to device number ``device'', for debugging purposes only. ev evspec set the current event selection. Most track editing functions will act only on events matching "evspec", ignoring all other events. setq step set the current quantization step to the given note value, as follow: 4 - quarter note 6 - quarter note triplet 8 - eighth note 12 - eighth note triplet 16 - sixteenth note 24 - sixteenth note triplet etc... The quantization step will be used by tquant function and also by all editing functions to optimize event selection. If the special ``nil'' value is specified as quantization step, then quatization is disabled. getq return the current quatization step g measure set the current song position pointer to the given measure number. Record and playback will start a that position. This also defines the beginning of the current selection used by most track editing functions. getpos return the current song position pointer which is also the start position of the current selection. sel length set the length of the current selection to ``length'' measures. The current selection start at the current position set with the ``g'' function. getlen return the length (in measures) of the current selection. ct trackname set the current track. The current track is the one that will be recorded. Most track editing functions act on it. gett return the current track (if any) or ``nil'' cf filtname set the current filter to ``filtname''. The current filter is the one used to process input MIDI events in performance mode. It's also the one affected by all filter editing functions. getf return the current filter or ``nil'' if none cx sysexname set the current sysex bank, i.e. the one that will be recorded. The current sysex back is the one affected by all sysex editing functions. getx return the current sysex bank or ``nil'' if none ci channame set the current (named) input channel. All input channel editing functions will act on it. geti return the name of the current input channel or ``nil'' if none co channame set the current (named) output channel. All output channel editing functions will act on it. geto return the name of the current output channel or ``nil'' if none setunit ticks_per_unit set the time resolution of the sequencer to ``tpu'' ticks in a whole note (1 unit note = 4 quarter notes). The default is 96 ticks, which is the default of the MIDI standard. getunit return the number of ticks in a whole note fac tempo_factor set the tempo factor for play and record to the given integer value. The tempo factor must be between 50 (play half of the real tempo) and 200 (play at twice the real tempo). getfac return the current tempo factor t beats_per_minute set the tempo at the current song position mins amount {num denom} insert ``amount'' blank measures at the current song position. The time signature used is num/denom. If the time signature is an empty list (i.e. ``{}'') then the time signature at the current position is used. mcut cut the current selection of all tracks, including the time structure. mdup where duplicate the current selection inserting a copy of it at the position given by the ``where'' parameter. The target position is a measure number relative to the current selection to be copied. If ``where'' is positive it's relative to the end of the current selection; if it's negative it's relative to the beginning of the current selection. minfo print the meta-track (tempo changes, time signature changes. mtempo Return the tempo at the current song position. The unit is beats per minute. msig Return the time signature at the current song position. The result is a two number list: numerator and denominator. mend Return the ending measure of the song (i.e. its size in measures). ls list all tracks, channels, filters and various default values save filename save the song into the given file. The ``filename'' is a quoted string. load filename load the song from a file named ``filename''. the current song is destroyed, even if the load command fails. reset destroy completely the song, useful to start a new song without restarting the program export filename save the song into a standard MIDI file, ``filename'' is a quoted string. import filename load the song from a standard MIDI file, ``filename'' is a quoted string. Only MIDI file ``type 1'' and ``type 0'' are supported. dlist return the list of attached devices (list of numbers) dnew devnum filename mode attach MIDI device ``filename'' as device number ``devnum''; ``filename'' is a quoted string. The ``mode'' argument is the name of the mode, it can be on if the following: ``ro'' - read-only, for input only devices ``wo'' - write-only, for output only devices ``rw'' - read and write. If midish is configured to use ALSA (default on Linux systems) then ``filename'' should contain the ALSA sequencer port, as listed by ``aseqdump -l'', (eg. ``28:0'', ``FLUID Synth (qsynth)''). If ``nil'' is given instead of the path, then the port is not connected to any existing port; this allows other ALSA sequencer clients to subscribe to it and to provide events to midish or to consume events midish sends to it. ddel devnum detach device number ``devnum'' dmtcrx devnum use device number ``devnum'' as MTC source. In this case, midish will relocate, start and stop according to incoming MTC messages. Midish will generate its clock ticks from MTC, meaning that it will run at the same speed as the MTC device. This is useful to synchronize midish to an audio multi-tracker or any MTC capable audio application. If ``devnum'' is ``nil'', then MTC messages are ignored and the internal timer will be used instead. dmmctx { devnum1 devnum2 ... } Configure the given devices to transmit MMC start, stop and relocate messages. Useful to control MMC-capable audio applications from midish. By default, devices transmit MMC. dclktx { devnum1 devnum2 ... } Configure the given devices to transmit MIDI clock information (MIDI ticks, MIDI start and MIDI stop events). Useful to synchronize an external sequencer to midish. dclkrx devnum set device number ``devnum'' to be the master MIDI clock source. It will give midish MIDI ticks, MIDI start and MIDI stop events. This useful to synchronize midish to an external sequencer. If ``devnum'' is ``nil'', then the internal clock will be used and midish will act as master device. dclkrate devnum ticrate set the number of ticks in a whole note that are transmitted to the MIDI device (if dclktx was called for it). Default value is 96 ticks. This is the standard MIDI value and its not recommended to change it. dinfo devnum Print some information about the MIDI device. dixctl devnum list Setup the list of controllers that are expected to be received as 14-bit numbers (i.e. both coarse and fine MIDI controller messages will be expected). By default only coarse values are used, if unsure let this list empty. devoxctl devnum list Setup the list of controllers that will be transmitted as 14-bit numbers (both coarse and fine MIDI controller messages). diev devnum list Configure the device to process as a single event the following patterns of input MIDI messages. ``xpc'' - group bank select controllers (0 and 32) with program changes into a signle ``xpc'' event. ``nrpn'' - group NRPN controllers (98 and 99) with data entry controllers (6 and 38) into a single ``nrpn'' event. ``rpn'' - same as ``nrpn'', but for RPN controllers (100 and 101). By default all of the above are enabled, which allows banks, NRPNs and RPNs to be handled by midish the standard way. It makes sense to disable grouping of above messages on rare hardware that maps above-mentioned controller numbers (0, 6, 32, 38, 98, 99, 100, 101) to other parameters than bank number and NRPN/RPN. doev devnum list Same as diev but for output MIDI messages. ctlconf ctlname ctlnumber defval Configure controller number ``ctlnumber'' with name ``ctlname'', and default value ``defval''. If defval is ``nil'' then there is no default value and corresponding controller events are not grouped into frames. See sec. Controller frames. ctlconfx ctlname ctlnumber defval Same as ctlconf function, but for 14-bit controllers. Thus defval is in the range 0..16383. ctlconf ctlname Unconfigure the given controller. ``ctlname'' is the identifier that was used with ctlconf ctlinfo Print the list of configured controllers evpat name sysex_pattern Define a new event type corresponding to the given system exclusive message pattern. The pattern is a list of bytes or event parameter identifiers (aka atoms). The following atoms are supported: v0, v0_lo, v0_hi, v1, v1_lo, v1_hi. They correspond to the full 7-bit value (coarse parameter), the low 7-bit nibble and the high 7-bit nibble (fine grained parameters) of the first and second parameters respectively. Example: evpat master {0xf0 0x7f 0x7f 0x04 0x01 v0_lo v0_hi 0xf7} defines a new event type for the standard master volume system exclusive message. evinfo Print the list of event patterns. m mode Set the mode of the metronome. The following modes are available: ``on'' - turned on for both playback and record ``rec'' - turned on for record only ``off'' - turned off
metrocf eventhi eventlo select the notes that the metronome plays. The pair of events must be note-ons info display the list of built-in and user-defined procedures and global variables print expression display the value of the expression err string display the given string and abort the statement being executed. h funcname display list of arguments function ``funcname'' exec filename read and executes the script from a file, ``filename'' is a quoted string. The execution of the script is aborted on error. If the script executes an exit statement, only the script is terminated. debug flag val set debug-flag ``flag'' to (integer) value ``val''. It's a developer knob. If ``val=0'' the corresponding debug-info are turned off. ``flag'' can be:
``filt'' - show events passing through the current filter ``mididev'' - show raw MIDI traffic on stderr ``mixout'' - show conflicts in the output MIDI merger ``norm'' - show events in the input normalizer ``pool'' - show pool usage on exit ``song'' - show start/stop events ``timo'' - show timer internal errors ``mem'' - show memory usage
version Display midish version. panic Cause the sequencer to core-dump, useful to developpers. proclist Return the list of all user defined procs. builtinlist Return a list of all builtin commands.
@@ aux_midi_commands # This is a Midish configuration file written by F. Silvain. # Get Midish from: # http://www.midish.org/ # This file is GPL version 3 or later. # These commands should help you in your sequencing and editing workflow. #---------------------------------------
# If appropriate commands return a positive number on success and 0 or nil # otherwise. In case of errors commands will also print an error message. # To get the most out of these commands define name input and output channels # for your devices.
# List of Midish commands: # fw measures # Forward measures from curent position. # rw measures # Rewind measures from current position or if new position would be less than # 0, go to 0. # show # Display all tracks with additional information. # sh # Display information about the current track. # cclrm start_position clear_measures # Remove clear_measure from the current track, starting at start_position. # cclr start_position end_position # Remove everything between start_position and end_position from current track. # clrm track start_position clear_measures # Remove clear_measures from track, starting at start_position. # clr track start_position end_position # Remove everything from track starting at start_position and ending at # end_position. # cmute # Mute the current track # cunmute # Unmute the current track. # csolo # Mute all but the current track. # solo track # Mute all tracks, with the exception of track. # nosolo # Unmute all tracks. # cquantm start_position quantise_measures quantise_note precision # Quantise the current track. # cquant start_position end_position quantise_note precision # Quantise the current track. # quantm track start_position quantise_measures quantise_note precision # Quantise another track. # quant track start_position end_position quantise_note precision # Quantise another track. # ccopym start_position copy_measures dest_track dest_position # copy copy_measures from current track at start_position to dest_track # at dest_position. # icopym start_position copy_measures dest_position # Copy copy_measures from current track at start_position to dest_position # on the current track. No overlap between copy intervals is allowed. # ccopy start_position end_position dest_track dest_position # Copy from current track between start_position and end_position to # dest_track at dest_position. # icopy start_position end_position dest_position # Copy from current track between start_position and end_position to # dest_position on the current track. No overlaps of copy intervals is allowed. # copym src-track start_position copy_measures dest_track dest_position # Copy copy_measures from src_track starting at start_position to dest_track # at dest_position. # copy src_track start_position end_position dest_track dest_position # Copy from src_track between start_position and end_position to dest_track # at dest_position. # chmap source_track start_position end_position dest_track # map/copy all events from source track default channel, from start_position # to end_position, to dest_track on its default channel. # chmapm source_track start_position copy_measures dest_track # (see chmap and copy commands above) # cchmap start_position end_position dest_track # (see chmap and copy commands above) # cchmapm start_position copy_measures dest_track # (see chmap and copy commands above) # rnew intputchannel outputchannel # Route inputchannel to outputchannel for the current track and create # a filter of the same name as the current track. # radd intput output # Add a routing from intput to output on the current track. # rsplit input left right splitpoint # Create a split for the current track, splitting input to left and right # with splitpoint the highest note of left region. # cchdup source_channel dest_track # Copy everything recorded on current track on source_channel to dest_track. # chdup source_track source_channel dest_track # Copy everything from source_track on source_channel to dest_track # gnew # print the command to create a group # gshow group # Display all tracks from group with additional information. # gmute group # Mute all tracks in group. # gunmute group # Unmute all tracks in group. # gsolo group # Mute all tracks, with the exception of those in group. # gclrm group start_position clear_measures # Remove clear_measures, starting at start_position from all tracks in group. # gclr group start_position end_position # Remove everything from start_position to end_position in all tracks # from group. # gquantm group start_position quantise_measures quantise_note precision # Quantise all tracks in a group. # gquant group start_position end_position quantise_note precision # Quantise all tracks in a group. # gcopym group start_position copy_measures dest_position # copy everything starting at start_position for copy_measures measures # from every group track to every group track at dest_position. # gcopy group start_position end_position dest_position # copy everything from start_position to end_position from every group track # to every group track at dest_position # pgrid denomination # Set the step size of the pattern/step sequencing grid # plen note_length # set note length for the pattern/step sequencing commands (legato). # ppenv bar step denomination note velocity # add MIDI note "note" to the current track on the current output channel # at bar, at step on a grid of denomination notes with velocity. # ppen bar step denomination note # add MIDI note "note" to the current track on teh current output channel # at step position on a grid of denomination notes at full velocity (127). # pstepv bar step note velocity # add MIDI-note note to bar at grid position step with velocity. # pstep bar step note # add MIDI-note note to bar at grid position step. # prepeatv bar step note velocity repeat_count note_length # Add repeat_count MIDI-notes "note" at velocity and note_length to bar at # grid position step. # prepeatv bar step note velocity repeat_count note_length # Add repeat_count MIDI-notes "note" of note_length to bar at grid position # step at velocity. # prepeat bar step note repeat_count note_length # add repeat_count MIDI-notes "note" to bar at grid position step and of length # note_length. # snew synth name # Add new softsynth with portname synth and midish name name. # sdel my_name # Delete softsynth with midish name name. # hnew synth name # Add new hardware synth with portname synth and midish name name. # hdel name # Delete hardware synth with midish name name. # ionew name new_name channelnumber # Add new input and output channels for synth with midish name name and # channel number channelnumber. The new channels will be called new_name.
#--------------------------------------- ## Auxiliary procedures
# subscription operator, indexing starts at 0 proc lsub my_list my_index { let tmp_ind = 0; for i in $my_list { if $tmp_ind != $my_index { let tmp_ind = $tmp_ind + 1; } else { return $i; } } print {"The list doesn't have" ($my_index+1) "elements."}; return nil; }
# Count the number of elements in a list. proc lcount my_list { let cur_count = 0; for i in $my_list { let cur_count = $cur_count + 1; } return $cur_count; }
# Test if input channel exists and print an error message otherwise. proc eval_inc my_name { if ![iexists $my_name] { print {"Input channel" $my_name "des not exists. Check your spelling."}; return 0; } else { return 1; } }
# Test if output channel exists, print an error message otherwise. proc eval_outc my_name { if ![oexists $my_name] { print {"Output channel" $my_name "does exists. Check your spelling."}; return 0; } else { return 1; } }
# Evaluate the mute status of the current track proc eval_mute_status { if [gett] != nil { let mute_status = "Play"; if [getmute [gett]] { let mute_status = "Off"; } return $mute_status; } else { return nil; } }
# Print the header for the show procedures proc show_header { print "Trackname Mute-status Filter Channels"; }
# Print the show output for one track proc tshow my_track { if [texists $my_track] { ct $my_track; let mute_status = [eval_mute_status]; print {[gett] $mute_status [tgetf] [tclist]}; } }
# Evaluate position from keyword or number proc eval_pos my_pos { if $my_pos == start { return 0; } if $my_pos == end { return [mend]; } if $my_pos == now { return [getpos]; } return $my_pos; }
# Evaluate if second argument is greater than first argument # (for position ranges) proc eval_positive my_start my_end { if $my_start >= $my_end { print "Start must be less or equal to end."; print {"start is:" $my_start}; print {"End is:" $my_end}; return 0; } else { return 1; } }
# Check if a track is currently selected and return it. # If no track is selected return nil and print an error message. proc eval_cur_track { if [gett] { return 1; } else { print "No track selected." return 0; } }
# Check if a trackname corresponds to a valid track. proc eval_track my_track { if ![texists $my_track] { print {$my_track "is not a track. Check your spelling."}; return 0; } else { return 1; } }
# Call ct with check to prevent error messages. proc sec_ct my_track { if $my_track != nil { ct $my_track; return 1; } else { print "A trackname must be specified for this command."; return 0; } }
# Check if track exists and create it, if it doesn't. proc eval_dest_track my_track { if ![texists $my_track] { let cur_track = [gett]; tnew $my_track; ct $cur_track; } }
#--------------------------------------- # User commands #--------------------------------------- ## Transport functions
# Forward forward_measures from the current position # Example: # fw 8 proc fw forward_measures { let new_pos = [getpos] + $forward_measures; g $new_pos; }
# Rewind rewind_measures from current position or go to 0 if resulting # position would be below 0. # Example: # g 8 # rw 3 # now position 5 # rw 8 # now position 0, because 5 - 8 = -3 proc rw rewind_measures { let new_pos = [getpos] - $rewind_measures; if $new_pos < 0 { let new_pos = 0; print {"Unable to rewind" $rewind_measures "from" [getpos] "going to 0."}; return 0; } g $new_pos; return 1; }
#--------------------------------------- ## Track commands
# Print a list of all tracks with additional information proc show { let cur_track = [gett]; show_header; for i in [tlist] { tshow $i; } sec_ct $cur_track; }
# Print information about the current track proc sh { if [eval_cur_track] { let mute_status = [eval_mute_status]; print {"Current track:" [gett]}; print {"Used channels:" [tclist]}; print {"Used filter:" [tgetf]}; print {"Play status:" $mute_status}; return 1; } else { print "No track selected."; return 0; } }
# Clear clear_measures of current track starting at start_position # Example: # cclr 2 8 # clear 8 measures starting at measure 2 proc cclrm start_position clear_measures { if [eval_cur_track] { let cur_pos = [getpos]; let start_pos = [eval_pos $start_position]; g $start_pos; sel $clear_measures; tclr; g $cur_pos; return 1; } else { return 0; } }
# Clear clear_measures from the track starting at start_position. # Exampe: # clr piano now 8 # remove 8 measures starting at current position proc clrm my_track start_position clear_measures { if [eval_track $my_track] { let cur_track = [gett]; ct $my_track; cclrm $start_position $clear_measures; sec_ct $cur_track; return 1; } else { return 0; } }
# Clear current track starting at start_position upto end_position # Example: # cclr 6 end # clear from measure 6 to the end of the song proc cclr start_position end_position { let start_pos = [eval_pos $start_position]; let end_pos = [eval_pos $end_position]; if [eval_positive $start_pos $end_pos] { let clear_measures = $end_pos - $start_pos; return [cclrm $start_pos $clear_measures]; } else { return 0; } }
# Clear a track starting at start_position upto end_position. # Example: # clr piano 0 end 16 100 proc clr my_track start_position end_position { if [eval_track $my_track] { let cur_track = [gett]; ct $my_track; return [cclr $start_position $end_position]; sec_ct $cur_track; } else { return 0; } }
# Mute the current track proc cmute { if [eval_cur_track] { mute [gett]; return 1; } else { return 0; } }
# Unmute the current track proc cunmute { if [eval_cur_track] { unmute [gett]; return 1; } else { return 0; } }
# Mute all tracks but the current. proc csolo { if [eval_cur_track] { let cur_track = [gett]; for i in [tlist] { mute $i; } unmute $cur_track; return 1; } else { return 0; } }
# Mute all tracks, except the given one. proc solo my_track { if [eval_track $my_track] { let cur_track = [gett]; ct $my_track; let cur_return_value = [csolo]; sec_ct $cur_track; return $cur_return_value; } else { return 0; } }
# Unmute all tracks proc nosolo { for i in [tlist] { unmute $i; } }
# Quantise current track to the nearest quantise_note denomination with a # precision of precision percent starting at start_position for # quantise_measures measures. # Example: # cquantm now 12 16 100 # quantise the next 8 measures to 16th notes with # # 100% precision proc cquantm start_position quantise_measures quantise_note precision { if [eval_cur_track] { let cur_pos = [getpos]; let start_pos = [eval_pos $start_position]; g $start_pos; if [getq] { let cur_quant = [getq]; } else { let cur_quant = 8; } setq $quantise_note; sel $quantise_measures; tquant $precision; g $cur_pos; setq $cur_quant; return 1; } else { return 0; } }
# Quantise a track to the nearest quantise_note denomination with a # precision of precision percent starting at start_position for # quantise_measures measures. # Example: # quantm piano 0 10 8 75 # quantise piano from beginning to 10 measures # # to 8th notes with 75% precision proc quantm my_track start_position quantise_measures quantise_note precision { if [eval_track $my_track] { let cur_track = [gett]; ct $my_track; let cur_return_value = [cquant $start_position $quantise_measures $quantise_note $precision]; sec_ct $cur_track; return $cur_return_value; } else { return 0; } }
# Quantise the current track to the nearest quantise_note with a # precision of precision percent starting at start_position upto # end_position. # Example: # cquant 0 end 16 95 proc cquant start_position end_position quantise_note precision { let start_pos = [eval_pos $start_position]; let end_pos = [eval_pos $end_position]; if [eval_positive $start_pos $end_pos] { let quantise_measures = $end_pos - $start_pos; return [cquantm $start_pos $quantise_measures $quantise_note $precision]; } else { return 0; } }
# Quantise the track to the nearest quantise_note denomination with a # precision of precision percent starting at start_position upto # end_position. # Example: # quant piano 2 end 16 100 proc quant my_track start_position end_position quantise_note precision { let start_pos = [eval_pos $start_position]; let end_pos = [eval_pos $end_position]; if [eval_positive $start_pos $end_pos] { let quantise_measures = $end_pos - $start_pos; return [quantm $my_track $start_pos $quantise_measures $quantise_note $precision]; } else { return 0; } }
# Copy copy_measures from current track starting at start_position to # dest_track at dest_position # example: # ccopym now 8 piano 16 # copy 8 measures starting now to piano at # # measure 16 proc ccopym start_position copy_measures dest_track dest_position { if [eval_cur_track] { eval_dest_track $dest_track; let cur_track = [gett]; let cur_pos = [getpos]; let start_pos = [eval_pos $start_position]; g $start_pos sel $copy_measures; tcopy; ct $dest_track; g $dest_position; tpaste; ct $cur_track; g $cur_pos; return 1; } else { return 0; } }
# Copy copy_measures from start_position on the current track to dest_position # on the current track. # No action is taken if the two areas overlap. # example: # icopym now 8 52 # copy 16 measures from current position to measure 52 proc icopym start_position copy_measures dest_position { if [eval_cur_track] { let cur_track = [gett]; let start_pos = [eval_pos $start_position]; let end_pos = $start_pos + $copy_measures; if [eval_positive $end_pos $dest_position] { return [ccopym $start_position $copy_measures $cur_track $dest_position]; } else { print "Copy interval will overlap."; print "Too many measures to copy or destination position too early."; return 0; } } else { return 0; } }
# Copy everything between start_position and end_position from current track # to dest_track at measure dest_position. # Example: # ccopy 2 end piano 17 # copy from measure 2 to end of song to piano # # at measure 17 proc ccopy start_position end_position dest_track dest_position { let start_pos = [eval_pos $start_position]; let end_pos = [eval_pos $end_position]; if [eval_positive $start_pos $end_pos] { let copy_measures = $end_pos - $start_pos; return [ccopym $start_pos $copy_measures $dest_track $dest_position]; } else { return 0; } }
# Copy everything from start_position to end_position on the current track to # destination position on the current track. # If the intervals overlap, nothing will happen. # example: # icopy 2 10 24 # copy measures 2 to 10 to measure 24 on the current track proc icopy start_position end_position dest_position { if [eval_cur_track] { let cur_track = [gett]; let end_pos = [eval_pos $end_position]; if [eval_positive $end_position $dest_position] { return [ccopy $start_position $end_position $cur_track $dest_position]; } else { print "Copy intervals overlap."; print "Copy interval is too long or"; print "destination position is too early."; return 0; } } else { return 0; } } # Copy copy_measures from src_track starting at start_position to # dest_track at dest_position. # Example: # copym piano now 8 clav 16 proc copym src_track start_position copy_measures dest_track dest_position { if [eval_track $src_track] { let cur_track = [gett]; ct $src_track; let cur_return_value = [ccopym $start_position $copy_measures $dest_track $dest_position]; sec_ct $cur_track; return $cur_return_value; } else { return 0; } }
# Copy everything between start_position and end_position from src_track to # dest_track at dest_position. # Example: # copy piano 6 end clav now proc copy src_track start_position end_position dest_track dest_position { if [eval_track $src_track] { let cur_track = [gett]; ct $src_track; let cur_return_value = [ccopy $start_position $end_position $dest_track $dest_position]; sec_ct $cur_track; return $cur_return_value; } else { return 0; } }
# Copy everything recorded on the current track on channel channelnumber to # dest_track # Example: # tnew manual # tnew pedals # tnew organ # r # record on organ # s # cchdup 0 manual # cchdup 1 pedals proc cchdup channelnumber dest_track { if [eval_cur_track] { eval_dest_track $dest_track; let cur_track = [gett]; let cur_pos = [getpos]; g 0; ev {any $channelnumber}; sel [mend]; tcopy; ct $dest_track; tpaste; ct $cur_track; g $cur_pos; ev {any}; return 1; } else { return 0; } }
# Copy everything recorded on track on channel channelnumber to dest_track. # Example: # chdup organ 2 pedals proc chdup my_track channelnumber dest_track { if [eval_track $my_track] { if [eval_cur_track] { let cur_track = [gett]; } else { let cur_track = $my_track; } ct $my_track; let cur_return_value = [cchdup $channelnumber $dest_track]; ct $cur_track; return $cur_return_value; } else { return 0; } }
# Copy all events from measure start_position to endPosition from source_track # and its default output channel to the same start_position on dest_track # and its default output channel. # example: # chmap synth1 0 8 synth2 # copy all events from track synth1 and its # # output channel to the track synth2 and # # its output channel, from measure 0 to 8. proc chmap source_track start_position end_position dest_track { if [eval_track $source_track] { let src_track = $source_track; } else { print {"The source track" $source_track "does not exist."}; return 0; } if [eval_track $dest_track] { let d_track = $dest_track; } else { print {"The destination track" $dest_track "does not exist."}; return 0; } if [eval_cur_track] { let cur_track = [gett]; } else { let cur_track = $src_track; } ct $src_track; let ichan = [tclist]; let ichan_count = [lcount $ichan]; ct $dest_track; let ochan = [tclist]; let ochan_count = [lcount $ochan]; if $ichan_count > 1 { print "Too many source channels."; print "Will only copy tracks with one channel."; return 0; } if $ochan_count > 1 { print "Too many destination channels."; print "Will only copy to tracks with one channel."; return 0; } let start_pos = [eval_pos $start_position]; let end_pos = [eval_pos $end_position]; let cur_return = [copy $src_track $start_position $end_position $dest_track $start_position]; if $cur_return == 0 { return 0; } ct $dest_track; let cur_pos = [getpos]; let cur_ochan = [lsub $ochan 0]; let cur_ichan = [lsub $ichan 0]; let map_measures = $end_pos - $start_pos; g $start_pos; sel $map_measures; tevmap {any $cur_ichan} {any $cur_ochan}; ct $cur_track; g $cur_pos; ct $cur_track; return $cur_return; }
# Copy all events from source track starting at measure start_position for # copy_measures and the default output channel to dest_track at the same # start_position and its default output channel. # example: # chmapm piano 2 8 bass # Copy 8 measures from track piano, starting at # # measure 2, on the default output channel to # # track bass at measure 2 and its default output # # channel. proc chmapm source_track start_position copy_measures dest_track { let start_pos = [eval_pos $start_position]; let end_pos = $start_pos + $copy_measures; return [chmap $source_track $start_pos $end_pos $dest_track]; }
# Copy all events between start_position and end_position from the current # track and its default output channel to dest_track and on its default # output channel at the same start_position. # example: # ct piano # cchamp now end bass # copy everything from the current track's output # # channel, between now and the end to the track # # bass on its default output channel. proc cchmap start_position end_position dest_track { if [eval_cur_track] { let src_track = [gett]; return [chmap $src_track $start_position $end_position $dest_track]; } else { return 0; } }
# Copy all events, starting at measure start_position for copy_measures # measures from the current track and its default output channel to dest_track # on its default output channel. # example: # ct piano # cchmapm 7 12 bass # Copy 12 measures, starting at measure 7 from the # # current track - piano - and its default output # # channel to track bass at measure 7 on its default # # output channel proc cchmapm start_position copy_measures dest_track { if [eval_cur_track] { let src_track = [gett]; return [chmapm $src_track $start_position $copy_measures $dest_track]; } else { return 0; } }
# Set input and output channel for the current track. # Example: # rnew keyboard module # accept input from keyboard and pass to module proc rnew inputchannel outputchannel { if [eval_cur_track] { let cur_track = [gett]; if [eval_inc $inputchannel] { if [eval_outc $outputchannel] { let fname = [gett]; if [fexists $fname] { print "A routing filter of that name already exists, stopping..."; return 0; } else { fnew $fname; fmap {any $inputchannel} {any $outputchannel}; taddev 0 0 0 {kat $outputchannel 0 0}; tsetf $fname; } } else { return 0; } } else { return 0; } } else { return 0; } return 1; }
# Add more channel routing to a track # Examle: # radd keyboard module2 proc radd inputchannel outputchannel { if [eval_cur_track] { let fname = [gett]; if [fexists $fname] { if [eval_inc $inputchannel] { if [eval_outc $outputchannel] { cf $fname; fmap {any $inputchannel} {any $outputchannel}; } else { return 0; } } else { return 0; } } else { print "Routing filter doesn't exist. Use rnew. Stopping..."; return 0; } } else { return 0; } return 1; }
# Create a split on the current track. # Example: # rsplit keyboard bass_module lead_synth 60 # split keyboard into two # # regions, note 0-60 for the bass module and 61-127 for the lead synth. proc rsplit inputchannel leftout rightout splitpoint { if [eval_cur_track] { let fname = [gett]; if [fexists $fname] { fmap {any $inputchannel} {any $leftout}; fmap {any $inputchannel} {any $rightout}; fmap {note $inputchannel 0..$splitpoint} {note $leftout 0..$splitpoint}; fmap {note $inputchannel ($splitpoint+1)..127} {note $rightout ($splitpoint+1)..127}; } else { print "The current track has no filter yet. Use rnew to create one, stopping..."; return 0; } } else { return 0; } return 1; }
#--------------------------------------- ## Group commands
# Explain how to create a group proc gnew { print "A group is simply a list of tracks. Create it like this:"; print "tnew cello"; print "tnew violin"; print "tnew viola"; print "let strings = {violin cello viola}"; }
# Mute a group of tracks # Example: # tnew piano # tnew bass # let band = {piano bass} # gmute $band proc gmute my_group { for i in $my_group { mute $i; } return 1; }
# Unmute a group of tracks # Example: # tnew piano # tnew bass # let band = {piano bass} # gunmute $band proc gunmute my_group { for i in $my_group { unmute $i; } return 1; }
# Solo a group of tracks (mute everything but the group) # Example: # tnew piano # tnew bass # let band = {piano bass} # gsolo $band proc gsolo my_group { for i in [tlist] { mute $i; } for i in $my_group { unmute $i; } return 1; }
# Show list of tracks in my_group with additional information # Example: # tnew piano # tnew bass # let band = {piano bass} # gshow $band proc gshow my_group { let cur_track = [gett]; show_header; for i in $my_group { tshow $i; } sec_ct $cur_track; }
# Clear clear_measures from all tracks in the group starting at start_position # Example: # tnew piano # tnew bass # let band = {piano bass} # gclrm $band now 8 # clear 8 measures, starting at measure 6 proc gclrm my_group start_position clear_measures { let cur_return_value = 1; for i in $my_group { let tmp_return_value = [clrm $i]; if ($tmp_return_value == 0) { let cur_return_value = 0; } } return $cur_return_value; }
# Clear all tracks in the group starting at start_position to end_position # Example: # tnew piano # tnew bass # let band = {piano bass} # gclr $band 2 end proc gclr my_group start_position end_position { let start_pos = [eval_pos $start_position]; let end_pos = [eval_pos $end_position]; if [eval_positive $start_pos $end_pos] { let cur_return_value = 1; let clear_measures = $end_pos - $start_pos; for i in $my_group { let tmp_return_value = [clrm $i $start_pos $clear_measures]; if ($tmp_return_value == 0) { let cur_return_value = 0; } } return $cur_return_value; } else { return 0; } }
# Quantise all track in the group to the nearest quantise_notes with a # precision of precision percent, starting at start_position for # quantise_measures measures. # example: # tnew piano # tnew bass # let band = {piano bass} # gquantm $band now 10 16 100 proc gquantm my_group start_position quantise_measures quantise_note precision { let cur_return_value = 1; for i in $my_group { let tmp_return_value = [quantm $i $start_position $quantise_measures $quantise_note $precision]; if ($tmp_return_value == 0) { let cur_return_value = 0; } } return $cur_return_value; }
# Quantise all tracks in the group to the nearest quantise_note with a # precision of precision percent starting at start_position upto # end_position. # Example: # tnew piano # tnew bass # let band = {piano bass} # gquant $band 0 now 8 75 # quantise from start to current position to 8th # # with 100% precision proc gquant my_group start_position end_position quantise_note precision { let start_pos = [eval_pos $start_position]; let end_pos = [eval_pos $end_position]; if [eval_positive $start_pos $end_pos] { let quantise_measures = $end_pos - $start_pos; return [gquantm $my_group $start_pos $quantise_measures $quantise_note $precision]; } else { return 0; } }
# Copy each track from the group to itself starting at start_position for # copy_measure measures and put it all at dest_position. proc gcopym my_group start_position copy_measures dest_position { let my_return_value = 1; for i in $my_group { let cur_return_value = [copym $i $start_position $copy_measures $i $dest_position]; if ($cur_return_value == 0) { let my_return_value = 0; } } return $my_return_value; }
# Copy the contents of each track in the group from start_position to # end_position to itself at dest_position # Example: # gcopy $mystrings 2 9 10 # copy the group mystrings from measure 2 to measure # # to measure 9 to measure 10 proc gcopy my_group start_position end_position dest_position { let start_pos = [eval_pos $start_position]; let end_pos = [eval_pos $end_position]; if [eval_positive $start_pos $end_pos] { let copy_measures = $end_pos - $start_pos; return [gcopym $my_group $start_pos $copy_measures $dest_position]; } else { return 0; } }
#--------------------------------------- ## Device commands # Add new synthesizers to your Midish setup
# Create new soft synthesizer with portname my_synth and midish name my_name # Example: # snew "LinuxSampler" ls proc snew my_synth my_name { if ![oexists $my_name] { let cur_ochan = [geto]; let index = 0 for i in [dlist] { let index=$index+1; } if ($index == 6) { let index=$index+1; } dnew $index $my_synth wo onew $my_name {$index 0} dclktx [dlist] co $cur_ochan; return $index; } else { print {$my_name "is already the name of an output channel."}; return nil; } }
# Delete soft synthesizer my_name from midish # Example: # sdel ls # remove ls with its channel and midish device. proc sdel my_name { if [eval_outc $my_name] { let cur_ochan = [geto]; co $my_name; let devnum = [ogetd $my_name]; odel; ddel $devnum; dclktx [dlist]; co $cur_ochan; return $devnum; } else { return nil; } }
# Create a hardware syntheiszer with portname my_synth and midish name my_name # Example: # hnew "MIDI Cable" xv50 proc hnew my_synth my_name { if ![iexists $my_name] { let cur_ichan = [geti]; let devnum = [snew $my_synth $my_name]; if $devnum != nil { inew $my_name {$devnum 0}; ci $cur_ichan; return 1; } else { print "The device number must be between 0 and 15."; return 0; } } else { print {$my_name "is already the name of an input channel."}; return 0; } }
# Delete a hardware synth with its name and channel # Example: # hdel ls proc hdel my_name { if [eval_inc $my_name] { let devnum = [sdel $my_name]; if $devnum != nil { let cur_ichan = [geti]; ci $my_name; iddel; ci $cur_i_chan; return 1; } else { print "The device number must be between 0 and 15."; return 0; } } else { return 0; } }
# Add new i/o channel channelnumber for synth with midish name my_name and call # them new_name. # Example: # hnew "MIDI Cable" roland_xv # ionew roland_xv xv_drums 10 proc ionew my_name new_name channelnumber { if [eval_inc $my_name] { if ![iexists $new_name] && ![oexists $new_name] { let cur_ichan = [geti]; let cur_ochan = [geto]; ci $my_name; let devnum = [igetd]; inew $new_name {$devnum $channelnumber }; onew $new_name {$devnum $channelnumber }; ci $cur_ichan; co $cur_ochan; return 1; } else { print {$new_name "is already used for an input or output channel."}; return 0; } } else { return 0; } }
#--------------------------------------- ## Pattern/Step sequencer commands.
# Pattern note length (how much legato/staccato) let pattern_note_length = 16; # Patter grid, the length of a step let pattern_grid = 16;
# Set pattern note length # Example: # plen 16 # set pattern note length to 16th. proc plen my_note_length { if ([eval_denom $my_note_length] && $my_note_length >=2) { let pattern_note_length = $my_note_length; return 1; } else { return 0; } }
# Set pattern grid, the length of a step # Example: # pgrid 8 # set the grid to 8th notes proc pgrid my_grid { if [eval_denom $my_grid] { let pattern_grid = $my_grid; return 1; } else { return 0; } }
# Check if the denomination for the pattern/step sequencer is valid. proc eval_denom my_denom { if ($my_denom == 0) { print "The note denomination may not be 0..."; return 0; } else { if ([getunit] % $my_denom) { print "The note denomination must be compatible to the ticks per bar."; return 0; } else { return 1; } } }
# Get basic info for the pattern/step sequencer commands. Return a list of # beats per bar, denomination of beats, ticks per bar and ticks per beat. proc get_step_info { let cur_beats = ([lsub [msig] 0]); let cur_denom = ([lsub [msig] 1]); let cur_ticks_per_bar = ([getunit] * $cur_beats / $cur_denom); let cur_ticks_per_beat = $cur_ticks_per_bar / $cur_denom; return {$cur_beats $cur_denom $cur_ticks_per_bar $cur_ticks_per_beat}; }
# Check if a step position is inside the current bar. proc eval_step_in_bar my_step my_denom my_ticks_per_bar { if ([getunit] * $my_step / $my_denom) > $my_ticks_per_bar { print "The position you have specified is outside this bar."; return 0; } else { return 1; } }
# Convert a step position to start and stop position in taddev format. proc step_to_addev my_bar my_step my_denom my_step_info { let cur_beats = [lsub $my_step_info 0]; let cur_denom = [lsub $my_step_info 1]; let cur_ticks_per_bar = [lsub $my_step_info 2]; let cur_ticks_per_beat = [lsub $my_step_info 3]; let my_beat = (([getunit] * $my_step / $my_denom) / $cur_ticks_per_beat); let my_tick = (([getunit] * $my_step / $my_denom) % $cur_ticks_per_beat); let my_length = ([step_to_ticks 1 $pattern_note_length] -1); let my_stop = [add_note_position_addev $my_bar $my_step $my_denom $my_length 96]; return {$my_beat $my_tick [lsub $my_stop 0] [lsub $my_stop 1] [lsub $my_stop 2]}; }
# Convert a note length and position to ticks. proc step_to_ticks my_step my_denom { return ([getunit] * $my_step / $my_denom); }
# Convert ticks to bar_shift step denomination. proc ticks_to_step my_bar my_ticks my_step_info { let cur_beats = [lsub $my_step_info 0]; let cur_denom = [lsub $my_step_info 1]; let cur_ticks_per_bar = [lsub $my_step_info 2]; let cur_ticks_per_beat = [lsub $my_step_info 3]; let out_bar = $my_bar; if ($my_ticks > $cur_ticks_per_bar) { let my_ticks = $my_ticks - $cur_ticks_per_bar; let out_bar = $out_bar + 1; let cur_pos = [getpos]; g $out_bar; let new_step_info = [get_step_info]; g $cur_pos; return [ticks_to_step $out_bar $my_ticks $new_step_info]; } else { return {$out_bar $my_ticks 96}; } }
# Convert ticks to a position in taddev format. proc ticks_to_addev my_bar my_ticks my_step_info { let cur_beats = [lsub $my_step_info 0]; let cur_denom = [lsub $my_step_info 1]; let cur_ticks_per_bar = [lsub $my_step_info 2]; let cur_ticks_per_beat = [lsub $my_step_info 3]; let out_bar = $my_bar; if ($my_ticks > $cur_ticks_per_bar) { let my_ticks = $my_ticks - $cur_ticks_per_bar; let out_bar = $out_bar + 1; let cur_pos = [getpos]; g $out_bar; let new_step_info = [get_step_info]; g $cur_pos; return [ticks_to_step $out_bar $my_ticks $new_step_info]; } else { let out_beat = ($my_ticks / $cur_ticks_per_beat); let out_tick = ($my_ticks % $cur_ticks_per_beat); return {$out_bar $out_beat $out_tick}; } }
# Add a note value to a position in format bar step denom and # return a position in bar step denom format. proc add_note_position my_lhs_bar my_lhs_step my_lhs_denom my_rhs_step my_rhs_denom { let full_ticks = [step_to_ticks $my_lhs_step $my_lhs_denom] + [step_to_ticks $my_rhs_step $my_rhs_denom]; let cur_pos = [getpos]; g $my_lhs_bar; let my_step_info = [get_step_info]; g $cur_pos; return [ticks_to_step $my_lhs_bar $full_ticks $my_step_info]; }
# Add a note value to a position in format bar step denom and return a position # in format bar beat ticks proc add_note_position_addev my_lhs_bar my_lhs_step my_lhs_denom my_rhs_step my_rhs_denom { let full_ticks = [step_to_ticks $my_lhs_step $my_lhs_denom] + [step_to_ticks $my_rhs_step $my_rhs_denom]; let cur_pos = [getpos]; g $my_lhs_bar; let my_step_info = [get_step_info]; g $cur_pos; return [ticks_to_addev $my_lhs_bar $full_ticks $my_step_info]; }
# Add MIDI-note "note" to the current track, on the current output channel, at # measure my_bar and position my_step on a grid of my_denom notes, with # my_velocity. # Example: # ppenv 1 3 8 60 100 # add MIDI-note 60 at velocity 100 to bar 1 (second bar), # # on the fourth eighth note (we count from 0)! proc ppenv my_bar my_step my_denom my_note my_velocity { if [eval_cur_track] { if [eval_denom $my_denom] { if ([eval_denom $pattern_note_length]) { let cur_pos = [getpos]; g $my_bar; let my_step_info = [get_step_info]; let cur_beats = [lsub $my_step_info 0]; let cur_denom = [lsub $my_step_info 1]; let cur_ticks_per_bar = [lsub $my_step_info 2]; let cur_ticks_per_beat = [lsub $my_step_info 3]; if [eval_step_in_bar $my_step $my_denom $cur_ticks_per_bar] { let my_notes = [step_to_addev $my_bar $my_step $my_denom $my_step_info]; for i in [tclist] { taddev $my_bar [lsub $my_notes 0] [lsub $my_notes 1] {non $i $my_note $my_velocity}; taddev [lsub $my_notes 2] [lsub $my_notes 3] [lsub $my_notes 4] {noff $i $my_note $my_velocity}; } g $cur_pos;; return 1; } else { g $cur_pos; return 0; } } else { g $cur_pos; return 0; } } else { return 0; } } else { return 0; } }
# Add MIDI-note "note" to the current track, on the current output channel, at # measure my_bar and position my_step on a grid of my_denomination notes. # Velocity is fixed to 127. proc ppen my_bar my_step my_denom my_note { return [ppenv $my_bar $my_step $my_denom $my_note 127]; }
# Add MIDI-note "note" to the bar my_bar at grid position my_step with velocity # my_velocity. # Example: # pstepv 1 5 60 100 # add MIDI-note 60 at velocity 100 to bar 1 (second bar) # # at step 5 (6th step) on the current grid proc pstepv my_bar my_step my_note my_velocity { return [ppenv $my_bar $my_step $pattern_grid $my_note $my_velocity]; }
# Add MIDI-note "note" at full velocity (127) to my_bar at grid position my_step proc pstep my_bar my_step my_note { return [ppenv $my_bar $my_step $pattern_grid $my_note 127]; }
# Add MIDI-note note at velocity my_velocity to bar my_bar starting at position # my_step on the grid repeated my_repeat times as my_denom note values. # Example: # prepeat 2 6 60 100 8 16 # repeat MIDI-note 60 at velocity 100 8 times as # # 16th notes to bar 2 step 6 on the grid proc prepeatv my_bar my_step my_note my_velocity my_repeat my_denom { # Notes must be at least 48th or they will have 0 length if ($my_denom >=2) { let cur_note_length = $pattern_note_length; if ($pattern_note_length < $my_denom) { plen $my_denom; } let cur_count = $my_repeat; let cur_note = {$my_bar $my_step $my_denom}; for i in [builtinlist] { ppenv [lsub $cur_note 0] [lsub $cur_note 1] [lsub $cur_note 2] $my_note $my_velocity; let cur_note = [add_note_position [lsub $cur_note 0] [lsub $cur_note 1] [lsub $cur_note 2] 1 $my_denom]; let cur_count = $cur_count -1; if !($cur_count) { plen $cur_note_length; return 1; } } } else { print "Notes must be at least 48th notes."; return 0; } print "You wanted too many repetitions."; return 0; }
# Add MIDI-note note at velocity 127 to bar my_bar starting on position my_step # on the grid, repeated my_repeat times as my_denom note length. # Example: # prepeat 1 2 60 12 6 # put in 6 12th MIDI-notes 60 starting on bar 1 at # # position 2 on the grid. proc prepeat my_bar my_step my_note my_repeat my_denom { return [prepeatv $my_bar $my_step $my_note 127 $my_repeat $my_denom]; }
print "FS Midish Extram Commands, version 1.5"; print "For patterns to work correctly use the rnew function for your tracks"; print {"The current pattern grid size is" $pattern_grid}; print {"The current note length (denomination) for pattern commands is" $pattern_note_length};
@@ test_tempo_map intro: 8 120 # play 8 measures at 120 bpm (4/4) verse1: 12 120 X.x. # 12 measures at 120 bpm, playing only the 1st and 3rd beat 4 120-140 X.x. # gradually increase tempo to 140 bpm chorus1: 16 140 bridge: 8 3/4 140 0.5 # change to 3/4 time, reduce volume 8 3/4 140 # normal volume again verse2: 12 120 # back to 4/4 (implied) chorus2: 16 140 # jump to 140 bpm outro: 6 140 2 140-80 # ritardando over the last 2 bars
@@ hotkey_grammar command: set_current_effect command: set_stepsize command: set_jumpsize command: set_parameter command: cancel cancel: /.+Escape/ foo: /./ set_current_effect: 'f' effect_id 'Enter' {Audio::Nama::set_current_op($item{effect_id}) } set_hotkey_mode: 'o' hotkey_mode { $Audio::Nama::mode->{hotkey_mode} = $item{hotkey_mode} } hotkey_mode: /[jmp]/ effect_id: lower_case_effect_id { $return = uc $item{lower_case_effect_id} } lower_case_effect_id: /[a-z]+/ set_stepsize: 'm' digit { Audio::Nama::set_stepsize( $item{digit}) } set_stepsize: 'm-' digit { Audio::Nama::set_stepsize(-$item{digit}) } set_parameter: '=' value 'Enter' { Audio::Nama::set_stepsize( $item{value}) } set_jumpsize: 't' value 'Enter' {$Audio::Nama::config->{hotkey_playback_jumpsize_seconds} = $item{value}} digit: /\d/ value: /[+-]?([\d_]+(\.\d*)?|\.\d+)([eE][+-]?\d+)?/
To install Audio::Nama, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Audio::Nama
CPAN shell
perl -MCPAN -e shell install Audio::Nama
For more information on module installation, please visit the detailed CPAN module installation guide.