<?php
/*******************************************************************************
pjgFluteRange.php Version 1.00 based on nwsw_VarDump 1.5

This script will lower/raise notes by an octave until within a defined range
for the amateur flautists this is middle c to four leger lines above the treble clef

HISTORY:
================================================================================
[2010-03-11] Version 1.00: Write new values back to nwc2 taking account of all note
             attributes 
*******************************************************************************/

require_once("lib/nwc2clips.inc");
$final_exit_value = NWC2RC_SUCCESS ;
$clip = new NWC2Clip('php://stdin');

echo $clip->GetClipHeader()."\n";

foreach ($clip->Items as $item) {	
	$o = new NWC2ClipItem($item,true);
	if ($o->GetObjType() == "Note" && ($t =& $o->GetTaggedOpt("Pos"))) {
        // parse the pos option string
		if (preg_match('/^([\#bnxv]{0,1})(\-{0,1}[0-9]+)([oxXz]{0,1})(\^{0,1})(\!{0,1}[0-9]{0,1})/',$t,$m)) {
			//modify the note positions
			while ($m[2]>13) {
			$m[2]=$m[2]-7;  //reduce by 7s until crtieria reached
			}
			while ($m[2]<-6) {
			$m[2]=$m[2]+7;  //increase by 7s until crtieria reached
			}
		}  // end or pregmatch
          $t=$m;
          } 
          echo $o->ReconstructClipText()."\n";        
          unset($o);
         }
 echo NWC2_ENDCLIP."\n";
exit ($final_exit_value) ;
?>