FreeCalypso > hg > freecalypso-tools

annotate ringtools/fc-imyplay @ 986:676203b4bf33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
pln-ppb-test: implement mode-entry
author Mychaela Falconia <falcon@freecalypso.org>
date Sat, 02 Dec 2023 23:50:07 +0000
parents b8ecdf54a957
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
876
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 #!/bin/sh
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2
880
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
3 if [ $# -lt 1 -o $# -gt 2 ]
876
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4 then
888
b8ecdf54a957 fc-imyplay script
Mychaela Falconia <falcon@freecalypso.org>
parents: 880
diff changeset
5 echo "usage: $0 iMelody_file [volume]" 1>&2
876
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6 exit 1
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 fi
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 tmpfile=/tmp/fc-test-melody.bz
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10
880
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
11 if [ -n "$2" ]
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
12 then
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
13 volume="$2"
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
14 else
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
15 volume=64
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
16 fi
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
17
876
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 set -ex
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19
888
b8ecdf54a957 fc-imyplay script
Mychaela Falconia <falcon@freecalypso.org>
parents: 880
diff changeset
20 fc-imy2pwt "$1" | fc-pwt-comp - $tmpfile
876
9998c015a687 ringtools/fc-meltest-pwt: shell script created, works as expected
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 fc-fsio upload-file $tmpfile /buz/test.bz
880
5b68ba735e98 fc-meltest-pwt: allow optional play volume argument
Mychaela Falconia <falcon@freecalypso.org>
parents: 876
diff changeset
22 fc-shell 'at@buz="/buz/test.bz"'",$volume"