Mechanical Music Digest  Gallery
You Are Not Logged In Login/Get New Account
Please Log In. Accounts are free!
Logged In users are granted additional features including a more current version of the Archives and a simplified process for submitting articles.
Home Archives Calendar Gallery Store Links Info
MMD > Gallery > Tech > vanOost_CAL

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

Home    Archives    Calendar    Gallery    Store    Links    Info   


Enter text below to search the MMD Website with Google



CONTACT FORM: Click HERE to write to the editor, or to post a message about Mechanical Musical Instruments to the MMD

Unless otherwise noted, all opinions are those of the individual authors and may not represent those of the editors. Compilation copyright 1995-2024 by Jody Kravitz.

Please read our Republication Policy before copying information from or creating links to this web site.

Click HERE to contact the webmaster regarding problems with the website.

Please support publication of the MMD by donating online

Please Support Publication of the MMD with your Generous Donation

Pay via PayPal

No PayPal account required

                                     
Translate This Page