Пример #1
0
function FlushTheGroupingQ()
{
    global $NonNoteQ, $priorNoteObj;
    if ($priorNoteObj) {
        echo $priorNoteObj->ReconstructClipText() . "\n";
    }
    if ($NonNoteQ) {
        echo $NonNoteQ;
    }
    $NonNoteQ = "";
    $priorNoteObj = false;
}
echo $clip->GetClipHeader() . "\n";
//
foreach ($clip->Items as $item) {
    $o = new NWC2ClipItem($item);
    //
    $is_note = in_array($o->GetObjType(), array("Chord", "Note", "Rest"));
    $is_rest = $o->GetObjType() == "Rest";
    $is_grace = isset($o->Opts["Dur"]["Grace"]);
    $is_dotted = isset($o->Opts["Dur"]["Dotted"]);
    $is_dbldotted = isset($o->Opts["Dur"]["DblDotted"]);
    $is_beamed = isset($o->Opts["Opts"]["Beam"]);
    $is_beamstart = $is_beamed && $o->Opts["Opts"]["Beam"] == "First";
    if ($is_note) {
        if (!$priorNoteObj) {
            $starterDuration = array_intersect(array_keys($o->Opts["Dur"]), array_keys($validPairs));
            if (count($starterDuration)) {
                $starterDuration = array_shift($starterDuration);
            } else {
                $starterDuration = false;
Пример #2
0
    }
}
// process other optional arguments, in no particular order
foreach ($argv as $arg) {
    if (preg_match("/^nosingle\$/", $arg)) {
        $single = 0;
    } else {
        abort("Unrecognised parameter '{$arg}'");
    }
}
$clip = new NWC2Clip('php://stdin');
echo $clip->GetClipHeader() . "\n";
$nothingToDo = TRUE;
foreach ($clip->Items as $item) {
    $nothingToDo = FALSE;
    $o = new NWC2ClipItem($item);
    $oType = $o->GetObjType();
    if (!in_array($oType, array("Note", "Chord", "Rest", "RestChord"))) {
        // not an item of interest, pass it thru
        echo $item;
    } elseif ($gobbleTime > 0) {
        // run down the gobble clock, don't print the item
        $gobbleTime -= timeTaken($o);
    } elseif ($passTime > 0) {
        $passTime -= timeTaken($o);
        echo $item;
    } elseif ($oType == "Rest" || !timeTaken($o)) {
        // don't filter on rests or grace notes
        echo $item;
    } else {
        $o =& filterPart($action, $part, $o);
Пример #3
0
    }
    unset($o);
}
// 2. Check if we scanned any notes
if ($maximum == -999) {
    // Bail out if no notes or chords or restchords
    abort("No notes found!");
}
if ($maximum == $minimum) {
    abort("This selection has a range of a single note!");
}
// 3. Commence output...
echo $clip->GetClipHeader() . "\n";
foreach ($clip->Items as $item) {
    if (!$printedRange) {
        $o = new NWC2ClipItem($item);
        if (in_array($o->GetObjType(), array("Note", "Chord", "RestChord"))) {
            $printedRange = 1;
            // ...and then precede it with our range
            if ($writeasseparate) {
                echo "|Note|Dur:Whole|Pos:{$minimum}\n|Note|Dur:Whole|Pos:{$maximum}\n";
            } else {
                echo "|Chord|Dur:Whole|Pos:{$minimum},{$maximum}\n";
            }
            echo "|Bar|Style:Double\n";
        }
        unset($o);
    }
    echo $item;
}
echo NWC2_ENDCLIP . "\n";
Пример #4
0
    }
    $groupingsTable[$timesig] = $groupings;
    // build up a table eg "7/8=3,2,2" gives $groupingsTable["7/8"] = (288,480,672) ;
}
if (!isset($groupingsTable)) {
    abort("Must provide at least one parameter of the form <upper>/<lower>=group1,group2,...");
}
$currentGroup = array();
$bar = 0;
$nothingToDo = TRUE;
// 2. Load and scan the stream... output is group by group
$clip = new NWC2Clip('php://stdin');
echo $clip->GetClipHeader() . "\n";
foreach ($clip->Items as $item) {
    $nothingToDo = FALSE;
    $o = new NWC2ClipItem($item);
    $oType = $o->GetObjType();
    if ($oType == "TimeSig") {
        // better flush anything in the buffer
        while ($go = array_shift($currentGroup)) {
            echo $go->ReconstructClipText() . "\n";
        }
        // now flush the current group
        $timeSig = $o->GetTaggedOpt("Signature");
        if (isset($groupingsTable[$timeSig])) {
            $currentGroupTimes = $groupingsTable[$timeSig];
        } else {
            unset($currentGroupTimes);
        }
        // this isn't
        $groupNum = 0;
Пример #5
0
<?php

require_once "lib/nwc2clips.inc";
$clip = new NWC2Clip('php://stdin');
foreach ($clip->Items as $item) {
    $o = new NWC2ClipItem($item);
    echo "Ref: {$item}";
    echo "New: " . $o->ReconstructClipText() . "\n";
    unset($o);
}
$usermsg = <<<__EOMSG
See the standard output file for a comparison of the library 
output to the input clip.
__EOMSG;
//
fputs(STDERR, $usermsg);
exit(NWC2RC_REPORT);
Пример #6
0
    trigger_error("Clip mode of {$clip->Mode} is not supported", E_USER_ERROR);
}
if ($clip->Version < "2.5") {
    trigger_error("The notation clip uses an unknown format version ({$clip->Version}), so it may not be processed correctly", E_USER_NOTICE);
}
function IsPossibleBarNumber(&$o)
{
    return $o->GetObjType() == "Text" && preg_match('/^Bar [0-9]+$/', $o->GetTaggedOpt('Text', ""));
}
$pendingOutput = array();
$priorBarIndex = -1;
//
echo $clip->GetClipHeader() . "\n";
$PlayContext = new NWC2PlayContext();
foreach ($clip->Items as $item) {
    $o = new NWC2ClipItem($item, true);
    if ($o->IsContextInfo()) {
        $PlayContext->UpdateContext($o);
        continue;
    }
    $flushPending = false;
    if ($o->GetObjType() == "Bar") {
        if ($o->GetTaggedOpt('XBarCnt', 'N') == 'Y') {
            $flushPending = true;
        } else {
            $priorBarIndex = count($pendingOutput);
        }
    } else {
        if (IsPossibleBarNumber($o)) {
            if (count($pendingOutput) && $priorBarIndex == count($pendingOutput) - 1) {
                // Remove this existing bar number. If a new one is needed, it will be added later.
Пример #7
0
        $font = $m[1];
    } else {
        abort("Unknown parameter \"{$arg}\". Use \"help\" for more details.");
    }
}
if (!isset($transposeValue) || $transposeValue < -11 || $transposeValue > 11) {
    abort("Must provide an integer between -11 and 11 as transposition");
}
if ($transposeValue != 0 && !isset($transposeKey)) {
    $transposeKey = "C";
}
$clip = new NWC2Clip('php://stdin');
// 1. Scan each line
echo $clip->GetClipHeader() . "\n";
$nothingToDo = TRUE;
foreach ($clip->Items as $item) {
    $nothingToDo = FALSE;
    $o = new NWC2ClipItem($item);
    if ($o->GetObjType() == "Text" && ($t =& $o->GetTaggedOpt("Text")) && rootChordValue($t) && (isset($font) ? $o->GetTaggedOpt("Font") == $font : true)) {
        transpose($t);
        echo $o->ReconstructClipText() . "\n";
    } else {
        echo $item;
    }
    unset($o);
}
echo NWC2_ENDCLIP . "\n";
if ($nothingToDo) {
    abort("This tool requires a selection.\nPlease select something on the staff before invoking transpose_chords.");
}
exit(NWC2RC_SUCCESS);
Пример #8
0
foreach ($argv as $k => $v) {
    if (!$k) {
        continue;
    }
    if (preg_match('/^\\/([a-z]+)\\=(.*)$/', $v, $m)) {
        $optname = $m[1];
        $optvalue = $m[2];
        $opts[strtolower($optname)] = $optvalue;
    }
}
$opts['skip'] = strtolower($opts['skip']);
$skiplist = explode(',', $opts['skip']);
echo $clip->GetClipHeader() . "\n";
//
foreach ($clip->Items as $item) {
    $o = new NWC2ClipItem($item);
    //
    $skipit = false;
    //
    if ($opts['skip'] == 'all') {
        $skipit = true;
    } else {
        if ($opts['skip'] != 'none') {
            $skipit = in_array(strtolower($o->GetObjType()), $skiplist);
        }
    }
    //
    if ($skipit) {
        echo $item;
        continue;
    }
Пример #9
0
                shuffle($chordnotes);
                break;
        }
        // The last item does not need a tied in grace note
        array_pop($chordnotes);
        foreach ($chordnotes as $i => $notepitchtxt) {
            $notepitchObj = new NWC2NotePitchPos($notepitchtxt);
            $notepitchObj->Tied = '^';
            $new_notepitchtxt = $notepitchObj->ReconstructClipText();
            //
            $beamOpt = $i ? "" : "=First";
            if ($i == count($chordnotes) - 1) {
                $beamOpt = "=End";
            }
            //
            $o = new NWC2ClipItem($item);
            echo "|Note|Dur:{$ARPEGGIO_DURATION},Grace|Opts:Stem=Up,Beam{$beamOpt}|Pos:{$new_notepitchtxt}\n";
        }
    }
    echo $item;
    if (in_array($o->GetObjType(), array('Note', 'Chord', 'Rest', 'RestChord'))) {
        $priorNoteObj = $o;
    } else {
        if ($o->GetObjType() == "Bar") {
            unset($priorNoteObj);
        }
    }
    unset($o);
}
echo NWC2_ENDCLIP . "\n";
exit(NWC2RC_SUCCESS);
Пример #10
0
It counts notes, chords, bar lines, etc. and outputs the counts.

Copyright © 2011 by NoteWorthy Software, Inc.
All Rights Reserved

HISTORY:
================================================================================
[2011-12-19] Version 2.0: Add new NWC 2.5 objects
[2006-05-12] Version 1.01: Code format cleanup
[2004-10-28] Version 1.00: Initial release
*******************************************************************************/
require_once "lib/nwc2clips.inc";
$clip = new NWC2Clip('php://stdin');
$typeCounts = array('Clef' => 0, 'Key' => 0, 'TimeSig' => 0, 'Bar' => 0, 'RestMultiBar' => 0, 'Note' => 0, 'Chord' => 0, 'RestChord' => 0, 'Rest' => 0, 'Dynamic' => 0, 'Spacer' => 0, 'Boundary' => 0);
foreach ($clip->Items as $item) {
    $o = new NWC2ClipItem($item);
    $oType = $o->GetObjType();
    if (!isset($typeCounts[$oType])) {
        $typeCounts[$oType] = 1;
    } else {
        $typeCounts[$oType]++;
    }
    unset($o);
}
echo "Statistics Report:\n\n";
echo sprintf("%5d Total Items\n", count($clip->Items));
foreach ($typeCounts as $k => $v) {
    echo sprintf("%5d {$k}\n", $v);
}
fputs(STDERR, "The STDOUT file contains the report.");
exit(NWC2RC_REPORT);
Пример #11
0
<?php

require_once "lib/nwc2clips.inc";
$clip = new NWC2Clip('php://stdin');
foreach ($clip->Items as $item) {
    $o = new NWC2ClipItem($item);
    if ($o->IsContextInfo()) {
        continue;
    }
    $origLine = trim($item);
    $newLine = $o->ReconstructClipText();
    if ($newLine != $origLine) {
        echo "Ref: {$origLine}\nNew: {$newLine}\n\n";
    }
}
$usermsg = <<<__EOMSG
See the standard output file for a comparison of the library 
output to the input clip.
__EOMSG;
//
fputs(STDERR, $usermsg);
exit(NWC2RC_REPORT);
Пример #12
0
<?php

require_once "lib/nwc2clips.inc";
$do_warning = false;
$numchanges = 0;
$zin = gzopen('php://stdin', 'rb');
$zout = gzopen('php://stdout', 'wb');
while (!gzeof($zin)) {
    $l = gzgets($zin, 32000);
    if (preg_match('/^\\|Spacer/', $l)) {
        $spacer = new NWC2ClipItem($l);
        if (!empty($spacer->Opts["Width"])) {
            if ($spacer->Opts["Width"] > 60) {
                $do_warning = true;
            }
            $spacer->Opts["Width"] *= 25;
            $l = $spacer->ReconstructClipText() . "\r\n";
            $numchanges++;
        }
    }
    gzwrite($zout, $l);
}
gzclose($zout);
gzclose($zin);
if (!$numchanges) {
    fputs(STDERR, "No spacers were found.");
    exit(NWC2RC_ERROR);
}
if ($do_warning) {
    fputs(STDERR, "A spacer larger than 15 note head widths was encountered in this file. This indicates that this file has already been upgraded to " . "the new spacer width resolution and you should not apply the upgrade conversion again.\n\n" . "Is is recommneded that you press the Cancel button now.");
}
Пример #13
0
    $regexList[$regex] = $eval_actions;
    doReport("{$regex}\t-> " . implode(';', $eval_actions) . "\n");
}
doReport("\nProcessing input\n");
$clip = new NWC2Clip('php://stdin');
echo $clip->GetClipHeader() . "\n";
$PlayContext = new NWC2PlayContext();
foreach ($clip->Items as $item) {
    $o = new NWC2ClipItem($item, true);
    if ($o->IsContextInfo()) {
        $PlayContext->UpdateContext($o);
        continue;
    }
    $isChanged = false;
    if (in_array($o->GetObjType(), array('Note', 'Chord', 'RestChord'))) {
        $o_new = new NWC2ClipItem($item, true);
        for ($loop = 0; $loop < 2; $loop++) {
            $Opt_inc = $loop ? "2" : "";
            $OptName_Pos = "Pos" . $Opt_inc;
            $OptName_Dur = "Dur" . $Opt_inc;
            $pitchpos =& $o_new->GetTaggedOpt($OptName_Pos);
            if (is_string($pitchpos)) {
                ProcessNote($pitchpos);
            } else {
                if (is_array($pitchpos)) {
                    foreach ($pitchpos as &$notepitchTxt) {
                        ProcessNote($notepitchTxt);
                    }
                }
            }
        }
Пример #14
0
$ArpeggioAllowedHere = true;
$WarnAboutInboundTie = false;
$PlayContext = new NWC2PlayContext();
foreach ($clip->Items as $item) {
    $o = new NWC2ClipItem($item, true);
    if ($o->IsContextInfo()) {
        $PlayContext->UpdateContext($o);
        continue;
    }
    $baseDur = getBaseDur($o);
    //
    // If this is a non-grace chord and is not preceded by a grace note,
    // and it is larger than an 8th note in duration, then add an arpeggio
    if ($ArpeggioAllowedHere && $o->GetObjType() == "Chord" && !isset($o->Opts["Dur"]["Grace"]) && strpos('_|Whole|Half|4th|8th|16th|', "|{$baseDur}|")) {
        // Create the Arpeggio.ms object, then update its properties as needed
        $userObj = new NWC2ClipItem('|User|Arpeggio.ms|Pos:0|Class:Standard|Dir:up|Rate:16|Color:0|Visibility:Default');
        $chordnotes = $o->GetTaggedOptAsArray("Pos", array());
        $chordnotes2 = $o->GetTaggedOptAsArray("Pos2");
        if ($chordnotes2) {
            $chordnotes = nw_aafield($o->Opts["Opts"], "Stem") == "Up" ? array_merge($chordnotes2, $chordnotes) : array_merge($chordnotes, $chordnotes2);
        }
        foreach ($chordnotes as $i => $notepitchtxt) {
            $notepitchObj = new NWC2NotePitchPos($notepitchtxt);
            if ($i == 0) {
                $userObj->Opts['Pos'] = $notepitchObj->Position;
            }
            if ($PlayContext->IsTieReceiver($notepitchObj)) {
                $WarnAboutInboundTie = true;
            }
        }
        foreach (array('Color', 'Visibility') as $baseprop) {