home *** CD-ROM | disk | FTP | other *** search
/ Audio 4.94 - Over 11,000 Files / audio-11000.iso / amiga / utils / gmdmmacr.lha / numpatch.dmcs < prev    next >
Text File  |  1993-11-09  |  5KB  |  93 lines
  1. /* Arexx macro to insert the preset number for a given GM instrument */
  2. /* by Keith Barkley   10/93 */
  3.  
  4. /* Set up number/name array.  Names from GM document off of the internet. */
  5. /* Well, some names are from my Dr Synth... 8^)                         */
  6. /* Change it if you want to. */
  7.  
  8.  
  9. name.       = "NULL"
  10.  
  11. name.1           = "GRAND PIANO"   ;  name.2           = "BRIGHT PIANO"  
  12. name.3  = "ELECTRIC GRAND PIANO"   ;  name.4       = "HONKY-TONK PIANO" 
  13. name.5      = "ELECTRIC PIANO 1"   ;  name.6       = "ELECTRIC PIANO 2"  
  14. name.7           = "HARPSICHORD"   ;  name.8             = "CLAVICHORD"
  15. name.9               = "CELESTA"   ;  name.10          = "GLOCKENSPIEL"  
  16. name.11            = "MUSIC BOX"   ;  name.12            = "VIBRAPHONE" 
  17. name.13              = "MARIMBA"   ;  name.14             = "XYLOPHONE" 
  18. name.15        = "TUBULAR BELLS"   ;  name.16              = "DULCIMER"
  19. name.17        = "DRAWBAR ORGAN"   ;  name.18      = "PERCUSSIVE ORGAN" 
  20. name.19           = "ROCK ORGAN"   ;  name.20          = "CHURCH ORGAN" 
  21. name.21           = "REED ORGAN"   ;  name.22             = "ACCORDION" 
  22. name.23            = "HARMONICA"   ;  name.24             = "BANDONEON"
  23. name.25     = "NYLON STR GUITAR"   ;  name.26     = "STEEL STR GUITAR" 
  24. name.27          = "JAZZ GUITAR"   ;  name.28         = "CLEAN GUITAR"  
  25. name.29         = "MUTED GUITAR"   ;  name.30    = "OVERDRIVEN GUITAR" 
  26. name.31    = "DISTORTION GUITAR"   ;  name.32     = "GUITAR HARMONICS" 
  27. name.33        = "ACOUSTIC BASS"   ;  name.34         = "FINGERED BASS" 
  28. name.35          = "PICKED BASS"   ;  name.36         = "FRETLESS BASS" 
  29. name.37          = "SLAP BASS 1"   ;  name.38           = "SLAP BASS 2"  
  30. name.39         = "SYNTH BASS 1"   ;  name.40          = "SYNTH BASS 2"
  31. name.41               = "VIOLIN"   ;  name.42                 = "VIOLA"  
  32. name.43                = "CELLO"   ;  name.44            = "CONTRABASS" 
  33. name.45      = "TREMOLO STRINGS"   ;  name.46     = "PIZZICATO STRINGS" 
  34. name.47                 = "HARP"   ;  name.48               = "TIMPANI"
  35. name.49              = "STRINGS"   ;  name.50          = "SLOW STRINGS" 
  36. name.51      = "SYNTH STRINGS 1"   ;  name.52       = "SYNTH STRINGS 2" 
  37. name.53           = "CHOIR AAHS"   ;  name.54            = "VOICE OOHS"
  38. name.55          = "SYNTH VOICE"   ;  name.56         = "ORCHESTRA HIT" 
  39. name.57              = "TRUMPET"   ;  name.58              = "TROMBONE"  
  40. name.59                 = "TUBA"   ;  name.60         = "MUTED TRUMPET" 
  41. name.61          = "FRENCH HORN"   ;  name.62               = "BRASS 1"
  42. name.63        = "SYNTH BRASS 1"   ;  name.64         = "SYNTH BRASS 2" 
  43. name.65          = "SOPRANO SAX"   ;  name.66              = "ALTO SAX" 
  44. name.67            = "TENOR SAX"   ;  name.68          = "BARITONE SAX"  
  45. name.69                 = "OBOE"   ;  name.70          = "ENGLISH HORN"
  46. name.71              = "BASSOON"   ;  name.72              = "CLARINET" 
  47. name.73              = "PICCOLO"   ;  name.74                 = "FLUTE" 
  48. name.75             = "RECORDER"   ;  name.76             = "PAN FLUTE" 
  49. name.77         = "BLOWN BOTTLE"   ;  name.78            = "SHAKUHACHI"
  50. name.79              = "WHISTLE"   ;  name.80               = "OCARINA" 
  51. name.81          = "SQUARE WAVE"   ;  name.82         = "SAWTOOTH WAVE" 
  52. name.83       = "SYNTH CALLIOPE"   ;  name.84               = "CHIFFER"
  53. name.85              = "CHARANG"   ;  name.86              = "SOLO VOX" 
  54. name.87      =  "FIFTH SAW WAVE"   ;  name.88         = "BASS AND LEAD" 
  55. name.89              = "FANTASIA"   ;  name.90                 = "WARM" 
  56. name.91             = "POLYSYNTH"   ;  name.92          = "SPACE VOICE" 
  57. name.93           = "BOWED GLASS"   ;  name.94                = "METAL" 
  58. name.95                  = "HALO"   ;  name.96                = "SWEEP" 
  59. name.97              = "ICE RAIN"   ;  name.98           = "SOUNDTRACK"  
  60. name.99               = "CRYSTAL"   ;  name.100          = "ATMOSPHERE"
  61. name.101           = "BRIGHTNESS"   ;  name.102              = "GOBLIN"  
  62. name.103           = "ECHO DROPS"   ;  name.104          = "STAR THEME" 
  63. name.105                = "SITAR"   ;  name.106               = "BANJO" 
  64. name.107             = "SHAMISEN"   ;  name.108                = "KOTO"
  65. name.109              = "KALIMBA"   ;  name.110             = "BAGPIPE" 
  66. name.111               = "FIDDLE"   ;  name.112              = "SHANAI"
  67. name.113          = "TINKLE BELL"   ;  name.114              = "AGOGO"
  68. name.115          = "STEEL DRUMS"   ;  name.116          = "WOODBLOCK" 
  69. name.117                = "TAIKO"   ;  name.118        = "MELODIC TOM"  
  70. name.119           = "SYNTH DRUM"   ;  name.120     = "REVERSE CYMBAL" 
  71. name.121    = "GUITAR FRET NOISE"   ;  name.122       = "BREATH NOISE" 
  72. name.123             = "SEASHORE"   ;  name.124         = "BIRD TWEET" 
  73. name.125            = "TELEPHONE"   ;  name.126         = "HELICOPTER" 
  74. name.127             = "APPLAUSE"   ;  name.128            = "GUNSHOT"  
  75.  
  76. T= ' TITLE "GM Instrument Request"'
  77.  
  78.  
  79. /* Get name or help request */
  80. OPTIONS RESULTS
  81. P = ' PROMPT "Type in the number of the patch."'
  82. B = ' BUTTONS "_OK|_Quit"'
  83.  
  84. RequestNum T || P || B 
  85.  
  86. IF ( RC = 5 ) THEN EXIT 0 
  87.  
  88. IF ((RESULT  < 1) | (RESULT > 128) ) THEN EXIT 0
  89. p = 'PROMPT  "Preset # ' || RESULT || ' is ' || name.RESULT || '"'
  90. RequestNotify T || p
  91.  
  92. EXIT 0
  93.