File: changer.help.tcl

package info (click to toggle)
din 5.2.1-6
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 2,200 kB
  • sloc: cpp: 9,369; sh: 6,563; ansic: 2,977; tcl: 1,770; makefile: 283
file content (46 lines) | stat: -rw-r--r-- 1,162 bytes parent folder | download | duplicates (3)
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
set changer(name) N/A
set changer(short) N/A
set changer(purpose) {
	Automagically change the key of din every n seconds. 
	
	scale remains the same.
	
	When you load this patch, by default, the key will shift up a 5th and 
	down a 5th (ie back to starting key) every 5 seconds forever.
	
}
set changer(invoke) {
  load-patch changer ;# loads this patch
  
  set variable changes to the changes you would like to do:
  
  set changes {+5 -5} ;# up a 5th, down a 5th
  
  + means key goes up. - means key goes down.  + or - is compulsory.
  
  set variable duration to the number of seconds after which you want a
  change:
  
  set duration 5 ;#  change key every 5 seconds
  
  After performing all changes, din starts again with the first change.
  
}
set changer(help) {}
set changer(examples) {
	
	;# default 
	set changes {+5 -5} ;#  up a 5th, then down a 5th
	set duration 5 ;# change once every 5 seconds
	
	;# circle of fifths forever
	set changes +5
	set changes -5
	
	;# up an octave forever
	set changes {+5 +4} ;# up a 5th then a 4th
	
	;# up major 3rd, minor 3rd ; down minor 3rd, major 3rd.
	;# ie up 5th, down 5th 
	
	set changes {+3 +3b -3b -3}}