File: drum_pan.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 (65 lines) | stat: -rw-r--r-- 1,024 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
# This file demonstrates the use of %pan_all to set the pan values
# of a drum kit.

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

@body {
	@channel 10 "drums" {
		
		# set up pan values, 0 is hard left, 127 is hard right
		# drums not specified get the default which is either
		# the center (64) or the last value set with the $pan
		# keyword in the current track
		%pan_all {
			hh_c 56
			hh_o 56
			hh_p 56
			cym_crash 80
			cym_ride 48
			tom_l 40
			tom_h 80
			tom_hm 48
			tom_lm 72
			ftom_l 80
			ftom_h 56
		}

		$reverb 32

		# play randomly for 16 bars
		%choose 16:1 {
			1 /l8/tom_hm
			1 /l8/tom_lm
			1 /l8/tom_l
			1 /l8/tom_h
			1 /l8/ftom_h
			1 /l8/ftom_l
			1 /l8/cym_crash
			1 /l8/cym_ride
			1 /l8/hh_o
			1 /l8/hh_c
			1 /l8/hh_p
			1 /l8/bd
			1 /l8/sd_ac
			1 /l8/r

			1 /l16/tom_hm
			1 /l16/tom_lm
			1 /l16/tom_l
			1 /l16/tom_h
			1 /l16/ftom_h
			1 /l16/ftom_l
			1 /l16/cym_crash
			1 /l16/cym_ride
			1 /l16/hh_o
			1 /l16/hh_c
			1 /l16/hh_p
			1 /l16/bd
			1 /l16/sd_ac
			1 /l16/r
		}
	}
}