CAL program
Using Cakewalk to Adapt Music
for Street Organ
by Hans
van Oost (030419 MMDigest)
I have attached a prepared CAL [Cakewalk Application Language] program
which is used by Dutch arrangers to make their own adjustments in a MIDI
file. It is necessary if you want to print the music onto paper rolls
for hand punching, or for feeding an automatic punch machine. The
purpose is to edit the prepared program: note A (from 0 till 127) will
play note X. This has to be done for all notes on the organ scale.
The program then can be saved under another name, so you may use the standard
over and over again.
Then, select all music on the track, and run the CAL program.
I must warn that you cannot play it on your computer afterwards.
There is a way to do that, but it would take too long to describe here.
Regards from the Netherlands,
Hans van Oost
19 Apr 2003 13:18:07 +0200
--------------------
;This will convert a template or MIDI scale to (fill in)
;copyright: Kring van Draaiorgelvrienden, Netherlands
;only notes, registers and drums
; prolog
(do
(= From 0)
(= Thru End)
)
; body
(do
(if (== Event.Kind NOTE)
(do
(switch Note.Key
0 (= Note.Key 0 ); means that note 0 (C0) will play from nr. 0)
1 (= Note.Key );
2 (= Note.Key );
3 (= Note.Key );
4 (= Note.Key );
5 (= Note.Key )
6 (= Note.Key )
7 (= Note.Key );
8 (= Note.Key );
9 (= Note.Key );
10 (= Note.Key );
11 (= Note.Key );
12 (= Note.Key );
13 (= Note.Key );
14 (= Note.Key );
15 (= Note.Key );
16 (= Note.Key );
17 (= Note.Key );
18 (= Note.Key );
19 (= Note.Key );
20 (= Note.Key );
21 (= Note.Key );
22 (= Note.Key );
23 (= Note.Key );
24 (= Note.Key );
25 (= Note.Key );
26 (= Note.Key );
27 (= Note.Key );
28 (= Note.Key );
29 (= Note.Key );
30 (= Note.Key );
31 (= Note.Key );
32 (= Note.Key );
33 (= Note.Key );
34 (= Note.Key );
35 (= Note.Key );
36 (= Note.Key );
37 (= Note.Key );
38 (= Note.Key );
39 (= Note.Key );
40 (= Note.Key );
41 (= Note.Key );
42 (= Note.Key );
43 (= Note.Key );
44 (= Note.Key );
45 (= Note.Key );
46 (= Note.Key );
47 (= Note.Key );
48 (= Note.Key );
49 (= Note.Key );
50 (= Note.Key );
51 (= Note.Key );
52 (= Note.Key );
53 (= Note.Key );
54 (= Note.Key );
55 (= Note.Key );
56 (= Note.Key );
57 (= Note.Key );
58 (= Note.Key );
59 (= Note.Key );
60 (= Note.Key );
61 (= Note.Key );
62 (= Note.Key );
63 (= Note.Key );
64 (= Note.Key );
65 (= Note.Key );
66 (= Note.Key );
67 (= Note.Key );
68 (= Note.Key );
69 (= Note.Key );
70 (= Note.Key );
71 (= Note.Key );
72 (= Note.Key );
73 (= Note.Key );
74 (= Note.Key );
75 (= Note.Key );
76 (= Note.Key );
77 (= Note.Key );
78 (= Note.Key );
79 (= Note.Key );
80 (= Note.Key );
81 (= Note.Key );
82 (= Note.Key );
83 (= Note.Key );
84 (= Note.Key );
85 (= Note.Key );
86 (= Note.Key );
87 (= Note.Key );
88 (= Note.Key );
89 (= Note.Key );
90 (= Note.Key );
91 (= Note.Key );
92 (= Note.Key );
93 (= Note.Key );
94 (= Note.Key );
95 (= Note.Key );
96 (= Note.Key );
97 (= Note.Key );
98 (= Note.Key );
99 (= Note.Key );
100 (= Note.Key );
101 (= Note.Key );
102 (= Note.Key );
103 (= Note.Key );
104 (= Note.Key );
105 (= Note.Key );
106 (= Note.Key );
107 (= Note.Key );
108 (= Note.Key );
109 (= Note.Key );
110 (= Note.Key );
111 (= Note.Key );
112 (= Note.Key );
113 (= Note.Key );
114 (= Note.Key );
115 (= Note.Key );
116 (= Note.Key );
117 (= Note.Key );
118 (= Note.Key );
119 (= Note.Key );
120 (= Note.Key )
121 (= Note.Key )
122 (= Note.Key )
123 (= Note.Key )
124 (= Note.Key )
)
)
NIL
)
)
; epilog
NIL
--------------------
19 April 2003
|