File: bank.mg

package info (click to toggle)
midge 0.2.41%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 556 kB
  • sloc: perl: 5,508; modula3: 1,204; lisp: 869; makefile: 36; sh: 20
file content (29 lines) | stat: -rw-r--r-- 451 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
# This file shows how to use a bank select, if your hardware supports it.

@head {
	$tempo 100
	$time_sig 4/4
}

@body {
	@channel 1 {
		$length 4
		$octave 3

		$marker "patch 4; no bank (should use bank 1)"
		$patch 4 /r4/e r

		$marker "patch 4; bank 2"
		$patch 2,4 /r4/e r

		$marker "patch 5; no bank (should stay on bank 2)"
		$patch 5 /r4/e r

		$marker "patch 5; bank 1"
		$bank 1 /r4/e r

		$marker "patch 5; bank 2"
		$bank 2 /r4/e r
	}

}