User:Natasa Siencnik/prototyping/notation: Difference between revisions

From XPUB & Lens-Based wiki
Line 71: Line 71:


<source lang="php">
<source lang="php">
cat << END


@head {
    \$time_sig 4/4
    \$tempo 120
}
@body {
    @channel 1 {
        \$patch 1
        \$octave 4
        \$length 16
END
for ((i=0; i<13; i++))
do
ursonate_part.rtf | sed -f notes.sed | bash wrap.sh | midge -o ursonate_part.mid
done
cat << END
    }
}
END
</source>
</source>

Revision as of 23:00, 18 October 2010

Ursonate

Homage to Kurt Schwitters

Description


Input example


Output example


Code

ursonate.txt

rakete rinnzekete
rakete rinnzekete
rakete rinnzekete
rakete rinnzekete
rakete rinnzekete
rakete rinnzekete
Beeeee
 	üdrei
dreia

         böwö
fümmsbö
         böwörö
fümmsböwö
         böwörötää
fümmsböwötää
         böwörötääzää
fümmsböwötääzää
         böwörötääzääUu
fümmsböwötääzääUu
         böwörötääzääUu 
fümmsböwötääzääUu 
         böwörötääzääUu pögö
fümmsböwötääzääUu pögö
         böwörötääzääUu pögiff
fümmsböwötääzääUu pögiff
         kwiiEe

notes.sed

s/[a-b]/c /g
s/[c-d]/c+ /g
s/[e-f]/d /g
s/[g-h]/d+ /g
s/[i-j]/e /g
s/[k-l]/f /g
s/[m-n]/f+ /g
s/[o-p]/g /g
s/[q-r]/g+ /g
s/[s-t]/a /g
s/[u-v]/a+ /g
s/[w-z]/h /g

s/ä/f+ /g
s/ö/g+ /g
s/ü/d+ /g

wrap.sh

cat << END

@head {
    \$time_sig 4/4
    \$tempo 120
}
@body {
    @channel 1 {
        \$patch 1
        \$octave 4
        \$length 16

END

for ((i=0; i<13; i++))
do
ursonate_part.rtf | sed -f notes.sed | bash wrap.sh | midge -o ursonate_part.mid
done


 
cat << END

    }
}

END