sys/mac/macsnd.c

   1 /* aNetHack 0.0.1       macsnd.c        $ANH-Date: 1432512798 2015/05/25 00:13:18 $  $ANH-Branch: master $:$ANH-Revision: 1.10 $ */
   2 /*      Copyright (c) 1992 by Jon Watte */
   3 /* aNetHack may be freely redistributed.  See license for details. */
   4
   5 /*
   6  * This file contains music playing code.
   7  *
   8  * If we were REALLY determinated, we would make the sound play
   9  * asynchronously, but I'll save that one for a rainy day...
  10  *
  11  * This may break A/UX, since it defines MAC but we need to
  12  * check that the toolbox is booted. I'll defer that one too.
  13  *
  14  * - h+ 921128
  15  */
  16
  17 #include "hack.h"
  18 #include "mactty.h"
  19 #include "macwin.h"
  20 #if 1 /*!TARGET_API_MAC_CARBON*/
  21 #include <Sound.h>
  22 #include <Resources.h>
  23 #endif
  24
  25 #ifndef freqDurationCmd
  26 #define freqDurationCmd 40
  27 #endif
  28
  29 #define SND_BUFFER(s) (&(*s)[20])
  30 #define SND_LEN(s) (GetHandleSize(s) - 42)
  31
  32 void
  33 mac_speaker(struct obj *instr, char *melody)
  34 {
  35     SndChannelPtr theChannel = (SndChannelPtr) 0;
  36     SndCommand theCmd;
  37     Handle theSound;
  38     unsigned char theName[32];
  39     char *n = (char *) &theName[1];
  40     int typ = instr->otyp;
  41     const char *actualn = OBJ_NAME(objects[typ]);
  42
  43     /*
  44      * First: are we in the library ?
  45      */
  46     if (flags.silent) {
  47         return;
  48     }
  49
  50     /*
  51      * Is this a known instrument ?
  52      */
  53     strcpy(n, actualn);
  54     theName[0] = strlen(n);
  55     theSound = GetNamedResource('snd ', theName);
  56     if (!theSound) {
  57         return;
  58     }
  59     HLock(theSound);
  60
  61     /*
  62      * Set up the synth
  63      */
  64     if (SndNewChannel(&theChannel, sampledSynth, initMono + initNoInterp,
  65                       (void *) 0) == noErr) {
  66         char midi_note[] = { 57, 59, 60, 62, 64, 65, 67 };
  67
  68         short err;
  69         short snd_len = SND_LEN(theSound) / 18;
  70
  71         theCmd.cmd = soundCmd;
  72         theCmd.param1 = 0;
  73         theCmd.param2 = (long) SND_BUFFER(theSound);
  74         err = SndDoCommand(theChannel, &theCmd, false);
  75
  76         /*
  77          * We rack 'em up all in a row
  78          * The mac will play them correctly and then end, since
  79          * we do a sync close below.
  80          *
  81          */
  82         while (*melody && !err) {
  83             while (*melody > 'G') {
  84                 *melody -= 8;
  85             }
  86             while (*melody < 'A') {
  87                 *melody += 8;
  88             }
  89             theCmd.cmd = freqDurationCmd;
  90             theCmd.param1 = snd_len;
  91             theCmd.param2 = midi_note[*melody - 'A'];
  92             err = SndDoCommand(theChannel, &theCmd, false);
  93             melody++;
  94         }
  95         SndDisposeChannel(theChannel, false); /* Sync wait for completion */
  96         ReleaseResource(theSound);
  97     }
  98 }
  99
 100 void
 101 tty_nhbell(void)
 102 {
 103     Handle h = GetNamedResource('snd ', "\paNetHack Bell");
 104
 105     if (h) {
 106         HLock(h);
 107         SndPlay((SndChannelPtr) 0, (SndListHandle) h, 0);
 108         ReleaseResource(h);
 109     } else
 110         SysBeep(30);
 111 }