home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2819 < prev    next >
Internet Message Format  |  1991-02-20  |  8KB
  1. From: mario@cs.man.ac.uk (Mario Wolczko)
  2. Newsgroups: alt.sources
  3. Subject: Add flashing lights to your SPARCstation (patch to SunOS4.1 play)
  4. Message-ID: <2165@m1.cs.man.ac.uk>
  5. Date: 20 Feb 91 21:03:58 GMT
  6.  
  7. Here's a quick patch to the sun-supplied "play" program (available on
  8. sparcstations and SLCs, SunOS4.1 or higher).  Inspired by an earlier
  9. program to set the keyboard LEDs, it uses them as a VU meter...
  10.  
  11. No man page, and not necessarily very clean, but it works (I think).
  12.  
  13. Enjoy!
  14.  
  15. Mario Wolczko
  16.  
  17.    ______      Dept. of Computer Science   Internet:      mario@cs.man.ac.uk
  18.  /~      ~\    The University              uucp:      mcsun!ukc!man.cs!mario
  19. (    __    )   Manchester M13 9PL          JANET:         mario@uk.ac.man.cs
  20.  `-':  :`-'    U.K.                        Tel: +44-61-275 6146  (FAX: 6280)
  21. ____;  ;_____________the mushroom project___________________________________
  22. *** play.c.sun    Fri Dec 21 18:30:16 1990
  23. --- play.c    Tue Feb  5 18:23:19 1991
  24. ***************
  25. *** 20,25 ****
  26. --- 20,26 ----
  27.   #include <multimedia/libaudio.h>
  28.   #include <multimedia/audio_device.h>
  29.   
  30. + #include <sundev/kbd.h>
  31.   
  32.   #define    Error        (void) fprintf
  33.   
  34. ***************
  35. *** 27,37 ****
  36.   /* Local variables */
  37.   char *prog;
  38.   char prog_desc[] = "Play an audio file";
  39. ! char prog_opts[] = "Viv:d:?";        /* getopt() flags */
  40.   
  41.   char        *Stdin = "stdin";
  42.   unsigned char    buf[1024 * 64];        /* size should depend on sample_rate */
  43.   
  44.   
  45.   #define    MAX_GAIN        (100)        /* maximum gain */
  46.   
  47. --- 28,40 ----
  48.   /* Local variables */
  49.   char *prog;
  50.   char prog_desc[] = "Play an audio file";
  51. ! char prog_opts[] = "lViv:d:?";        /* getopt() flags */
  52.   
  53.   char        *Stdin = "stdin";
  54.   unsigned char    buf[1024 * 64];        /* size should depend on sample_rate */
  55.   
  56. + int kbd;            /* fd of kbd */
  57. + unsigned char snd[2];        /* 2 buffer for writes to kbd */
  58.   
  59.   #define    MAX_GAIN        (100)        /* maximum gain */
  60.   
  61. ***************
  62. *** 41,47 ****
  63. --- 44,65 ----
  64.    */
  65.   #define    SAMPLE_RATE_THRESHOLD    (.01)
  66.   
  67. + /* These define the sample used for averaging to calculate the bar graph size */
  68. + #define LN2_SS 8
  69. + #define SAMPLE_SIZE (1 << LN2_SS)
  70.   
  71. + /* how to convert an average to a bar graph, given only 5 different bar sizes */
  72. + static unsigned char bar[] = {
  73. +     0,
  74. +     LED_CAPS_LOCK,
  75. +     LED_CAPS_LOCK|LED_COMPOSE,
  76. +     LED_CAPS_LOCK|LED_COMPOSE,
  77. +     LED_CAPS_LOCK|LED_COMPOSE|LED_SCROLL_LOCK,
  78. +     LED_CAPS_LOCK|LED_COMPOSE|LED_SCROLL_LOCK,
  79. +     LED_CAPS_LOCK|LED_COMPOSE|LED_SCROLL_LOCK|LED_NUM_LOCK,
  80. +     LED_CAPS_LOCK|LED_COMPOSE|LED_SCROLL_LOCK|LED_NUM_LOCK
  81. + };
  82. + 
  83.   unsigned    Volume = ~0;        /* output volume */
  84.   double        Savevol;        /* saved volume level */
  85.   int        Verbose = FALSE;    /* verbose messages */
  86. ***************
  87. *** 52,59 ****
  88.   Audio_hdr    Dev_hdr;        /* audio header for device */
  89.   char        *Ifile;            /* current filename */
  90.   Audio_hdr    File_hdr;        /* audio header for file */
  91.   
  92. - 
  93.   /* Global variables */
  94.   extern int getopt();
  95.   extern int optind;
  96. --- 70,77 ----
  97.   Audio_hdr    Dev_hdr;        /* audio header for device */
  98.   char        *Ifile;            /* current filename */
  99.   Audio_hdr    File_hdr;        /* audio header for file */
  100. + int         leds = TRUE;        /* use leds as vu meter */
  101.   
  102.   /* Global variables */
  103.   extern int getopt();
  104.   extern int optind;
  105. ***************
  106. *** 63,73 ****
  107.   usage()
  108.   {
  109.       Error(stderr, "%s -- usage:\n\t%s ", prog_desc, prog);
  110. !     Error(stderr, "\t[-iV] [-v #] [-d dev] [file ...]\nwhere:\n");
  111.       Error(stderr, "\t-i\tDon't hang if audio device is busy\n");
  112.       Error(stderr, "\t-V\tPrint verbose warning messages\n");
  113.       Error(stderr, "\t-v #\tSet output volume (0 - %d)\n", MAX_GAIN);
  114.       Error(stderr, "\t-d dev\tSpecify audio device (default: /dev/audio)\n");
  115.       Error(stderr, "\tfile\tList of files to play\n");
  116.       Error(stderr, "\t\tIf no files specified, read stdin\n");
  117.       exit(1);
  118. --- 81,92 ----
  119.   usage()
  120.   {
  121.       Error(stderr, "%s -- usage:\n\t%s ", prog_desc, prog);
  122. !     Error(stderr, "\t[-iV] [-v #] [-d dev] [-l] [file ...]\nwhere:\n");
  123.       Error(stderr, "\t-i\tDon't hang if audio device is busy\n");
  124.       Error(stderr, "\t-V\tPrint verbose warning messages\n");
  125.       Error(stderr, "\t-v #\tSet output volume (0 - %d)\n", MAX_GAIN);
  126.       Error(stderr, "\t-d dev\tSpecify audio device (default: /dev/audio)\n");
  127. +     Error(stderr, "\t-l\tDon't use the keyboard LEDs\n");
  128.       Error(stderr, "\tfile\tList of files to play\n");
  129.       Error(stderr, "\t\tIf no files specified, read stdin\n");
  130.       exit(1);
  131. ***************
  132. *** 83,91 ****
  133. --- 102,125 ----
  134.               (void) audio_set_play_gain(Audio_fd, &Savevol);
  135.           (void) close(Audio_fd);            /* close output */
  136.       }
  137. +     if (leds) {
  138. +         snd[1]= 0 ; write(kbd, snd, 2);
  139. +         (void) close(kbd);
  140. +     }
  141.       exit(1);
  142.   }
  143.   
  144. + void set_channel(fd)        /* choose output port on env var */
  145. + int fd;
  146. + {
  147. +     extern char *getenv();
  148. +     unsigned port= getenv("SST_EARPHONES") ? AUDIO_HEADPHONE : AUDIO_SPEAKER;
  149. +     
  150. +      (void) audio_set_play_port(fd, &port); 
  151. + }
  152. + 
  153. + 
  154. + 
  155.   /*
  156.    * Play a list of audio files.
  157.    */
  158. ***************
  159. *** 94,100 ****
  160.       char        **argv;
  161.   {
  162.       int        i;
  163. !     int        cnt;
  164.       int        err;
  165.       int        ifd;
  166.       int        stdinseen;
  167. --- 128,134 ----
  168.       char        **argv;
  169.   {
  170.       int        i;
  171. !     int        cnt, cum_cnt;
  172.       int        err;
  173.       int        ifd;
  174.       int        stdinseen;
  175. ***************
  176. *** 101,106 ****
  177. --- 135,141 ----
  178.       double        vol;
  179.       struct stat    st;
  180.       struct sigvec    vec;
  181. +     register unsigned char *bufp;
  182.   
  183.       prog = argv[0];        /* save program initiation name */
  184.   
  185. ***************
  186. *** 123,128 ****
  187. --- 158,166 ----
  188.       case 'i':
  189.           Immediate = TRUE;
  190.           break;
  191. +     case 'l':
  192. +         leds = FALSE;
  193. +         break;
  194.       case '?':
  195.           usage();
  196.   /*NOTREACHED*/
  197. ***************
  198. *** 168,173 ****
  199. --- 206,213 ----
  200.           exit(1);
  201.       }
  202.   
  203. +     set_channel(Audio_fd);
  204. + 
  205.       /* Get the device output encoding configuration */
  206.       if (audio_get_play_config(Audio_fd, &Dev_hdr) != AUDIO_SUCCESS) {
  207.           Error(stderr, "%s: %s is not an audio device\n",
  208. ***************
  209. *** 188,193 ****
  210. --- 228,239 ----
  211.           }
  212.       }
  213.   
  214. +     if (leds) { /* open keyboard device */
  215. +         kbd= open("/dev/kbd", O_WRONLY);
  216. +         snd[0]= 016;        /* code to set leds */
  217. +         if (kbd < 0) leds = FALSE;
  218. +     }
  219. + 
  220.       /* Set up SIGINT handler to flush output */
  221.       vec.sv_handler = sigint;
  222.       vec.sv_mask = 0;
  223. ***************
  224. *** 254,271 ****
  225.   
  226.           /*
  227.            * At this point, we're all ready to copy the data.
  228.            */
  229. !         while ((cnt = read(ifd, (char *)buf, sizeof (buf))) >= 0) {
  230. !             /* If input EOF, write an eof marker */
  231. !             err = write(Audio_fd, (char *)buf, cnt);
  232.   
  233. !             if (err != cnt) {
  234. !                 Error(stderr, "%s: output error: ", prog);
  235. !                 perror("");
  236. !                 break;
  237.               }
  238. !             if (cnt == 0)
  239. !                 break;
  240.           }
  241.           if (cnt < 0) {
  242.               Error(stderr, "%s: error reading ", prog);
  243. --- 300,358 ----
  244.   
  245.           /*
  246.            * At this point, we're all ready to copy the data.
  247. +          * The outer loop grabs a chunk of data.
  248.            */
  249. !         for (cum_cnt=0; cnt = read(ifd, (char *)buf, sizeof (buf)), cnt > 0;) {
  250. !                 /* the inner loop breaks the chunk into
  251. !                  SAMPLE_SIZEd samples, and averages them */
  252. !             for (bufp= buf; cnt >= SAMPLE_SIZE ;
  253. !                  bufp += SAMPLE_SIZE, cnt -= SAMPLE_SIZE) {
  254. !                 register unsigned int total= 0, n;
  255.   
  256. !                 /* write to the audio channel */
  257. !                 err = write(Audio_fd, (char *)bufp, SAMPLE_SIZE);
  258. !                 if (err != SAMPLE_SIZE) {
  259. !                     Error(stderr, "%s: output error: ", prog);
  260. !                     perror("");
  261. !                     break;
  262. !                 }
  263. ! 
  264. !                 if (leds) {
  265. !                     cum_cnt += SAMPLE_SIZE;
  266. !                     /* this is the averaging calculation */
  267. !                     for (n= 0; n < SAMPLE_SIZE; ++n) {
  268. !                         unsigned char b=bufp[n];
  269. !                         /* full wave rectification */
  270. !                         total += b&0x80 ? b^0xFF : b^0x7F;
  271. !                     }
  272. !                     
  273. !                     /* now convert to bargraph pattern */
  274. !                     /* seven bits of data -- strip 4 */
  275. !                     snd[1]= bar[total >> (LN2_SS + 4)];
  276. !                     /* and output to leds */
  277. !                     write(kbd, snd, 2);
  278. ! 
  279. !                     /* this keeps the leds and audio in sync */
  280. !                     cum_cnt += SAMPLE_SIZE;
  281. !                     if (cum_cnt > 8000) { /* approx 1s */
  282. !                         audio_drain(Audio_fd,FALSE);
  283. !                         cum_cnt= 0;
  284. !                     }
  285. !                 }
  286.               }
  287. !             /* remaining chunk: don't average */
  288. !             if (leds) { /* this keeps the leds and audio in sync */
  289. !                 cum_cnt += SAMPLE_SIZE;
  290. !                 if (cum_cnt > 8000) { /* approx 1s */
  291. !                     audio_drain(Audio_fd,FALSE);
  292. !                     cum_cnt= 0;
  293. !                 }
  294. !                 snd[1]= 0 ; write(kbd, snd, 2);
  295. !             }
  296. !             write(Audio_fd, (char *)buf, cnt);
  297. ! 
  298. !             /* If input EOF, write an eof marker */
  299. !             if (cnt > 0) write(Audio_fd, (char *)buf, 0);
  300.           }
  301.           if (cnt < 0) {
  302.               Error(stderr, "%s: error reading ", prog);
  303.