;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;M2D_SYNTH.CAL - by Constantine Peters (c)copyright 1989 NOT FOR SALE
;                but for use of/by the AUTHOR &/or the public domain
;                for use with Cakewalk Professional 3.0
; routine written to translate MT32 synth/sound effects patches
;                to D110 equivalents
;;; Prolog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(do (message "convertng MT32 SYNTH/EFFECT patchs to D110 equivalents")
)
;;; Body ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(do (if (== Event.Kind PATCH)
       (switch Patch.Num
       ;;; MT32                   D110         name   (partial)
           32         (= Patch.Num 64)     ;   Fantasy      (4)
           33         (= Patch.Num 65)     ;   Harmo Pan    (4)
           34         (= Patch.Num 66)     ;   Chorale      (3)
           35         (= Patch.Num 67)     ;   Glasses      (3)
           36         (= Patch.Num 68)     ;   Soundtrack   (4)
           37         (= Patch.Num 69)     ;   Atmosphere   (4)
           38         (= Patch.Num 70)     ;   Bell, Warm   (4)
           39         (= Patch.Num 71)     ;   Horn, Space  (4)
           40         (= Patch.Num 72)     ;   Bell, Echo   (3)
           41         (= Patch.Num 73)     ;   Ice Rains    (4)
           42         (= Patch.Num 74)     ;   Oboe 2002    (2)
           43         (= Patch.Num 75)     ;   Echo Pan     (2)
           44         (= Patch.Num 76)     ;   Bell, Swing  (2)
           45         (= Patch.Num 77)     ;   Synth, Reso  (2)
           46         (= Patch.Num 78)     ;   Steam Pad    (3)
           47         (= Patch.Num 79)     ;   Vibe String  (4)
       )
)NIL )
;;; Epilog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NIL
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; If you find this routine useful, here are some charities that can
; use your immediate help for HURRICANE HUGO VICTOMS :
;     > American Red Cross/Hurricane Hugo Relief (they need cash)
;     > Heritage Baptist Church, 1740 Forrest Drive;Annapolis MD;21401
;       (blankets, clothing,cash,diapers etc... they will be sending
;       all of it down via a truck convoy Nov 13).
;     > Screven Baptist Association;105 Holiday Inn Drive;Summerville,
;       South Carolina, 29483 (again, clothing, blankets, cash etc...)
; While it's been a few months, there are still people without homes,
; jobs, clothes and any visible means of support. Winter is a tough
; time of year to be without.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; please report any bugs, improvements etc ... to either the
; ENIAC/IEMUG  BBS (301)460-9134, Constantine Peters SYSOP .or.
; MidWest MIDI BBS (407)733-3102, John Fordenbacher  SYSOP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;