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


Announcement: End-of-Summer Fundraising Drive In Progress

Our End-Of-Summer Fundraising drive is in progress. If you haven't contributed to the operation of the MMD in the last 12 months, this would be a great time to contribute. There's a PayPal link at the bottom of each page on the website.

If you aren't sure when you last contributed, please send me a note using the contact form at the bottom of this page and I'll look you up in my records.

Thank you for your generous support!
Jody

P.S. While your support is needed and appreciated, you do not need to contribute to be a subscriber. If you have subscribed and aren't receiving your Digest, please use the contact form at the bottom of the page and let me know. Thanks!

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
Loading



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-2017 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

Pay via PayPal

No PayPal account required

                                                       
Translate This Page

. .