home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 240_01 / sound.c < prev    next >
Text File  |  1987-07-30  |  2KB  |  154 lines
  1.  
  2. #include "ciao.h"
  3.  
  4. /*
  5. **  sound generation primitives
  6. */
  7.  
  8. void setfrq( frequency ) unsigned frequency;
  9. {
  10.      static int C;
  11.      static long Hz = 1193180;
  12.  
  13.      C = Hz / frequency;
  14.      outp( 67, 182 );
  15.      outp( 66, C % 256 );
  16.      outp( 66, C / 256 );
  17. }
  18.  
  19.  
  20. void spkron()
  21. {
  22.      static int bits;
  23.  
  24.      bits = inp( 97 );
  25.      outp( 97, (char) (bits | 0x03) );
  26. }
  27.  
  28.  
  29. void spkroff()
  30. {
  31.      static int bits;
  32.  
  33.      bits = inp( 97 );
  34.      outp( 97, (char) (bits & 0xFC) );
  35. }
  36.  
  37.  
  38.  
  39. /*
  40. **  generate tone f for duration d
  41. **  f = 0 is silence for duration d
  42. */
  43.  
  44. void note( f,d ) unsigned f,d;
  45. {
  46.      if ( f > 0)
  47.      {
  48.         setfrq( f );
  49.         spkron();
  50.         while ( d-- > 0)
  51.         ;
  52.         spkroff();
  53.      }
  54.      else 
  55.      {
  56.         d = d = d;
  57.         while ( d-- > 0)
  58.         ;
  59.      }
  60. }
  61.  
  62.  
  63.  
  64.  
  65. /* 
  66. **  musical gadgets:
  67. **  all respond to the tone flag
  68. */
  69.  
  70.  
  71. int tone = 1;  /* controls whether the music gadgets make noise or not */
  72.  
  73.  
  74. void HIclack()
  75. {
  76.      if (tone)
  77.      {
  78.      note (  466, 38 );
  79.      note ( 1865, 27 );
  80.      note (  466, 60 );
  81.      note ( 1865, 30 );
  82.      note (  466, 28 );
  83.      note ( 1865, 17 );
  84.      }
  85. }
  86.  
  87.  
  88.  
  89. void LOclack()
  90. {
  91.      if (tone)
  92.      {
  93.      note (  392, 38 );
  94.      note ( 1568, 27 );
  95.      note (  392, 60 );
  96.      note ( 1568, 30 );
  97.      note (  392, 28 );
  98.      note ( 1568, 17 );
  99.      }
  100. }
  101.  
  102.  
  103. void bopbleet()
  104. {
  105.      if (tone)
  106.      {
  107.      note ( 587, 2000 );
  108.      note ( 784, 4000 );
  109.      note ( 880, 2000 );
  110.      }
  111. }
  112.  
  113.  
  114. void blopbloop()
  115. {
  116.      if (tone)
  117.      {
  118.      note ( 392, 4000 );
  119.      note ( 440, 2000 );
  120.      note ( 294, 2000 );
  121.      }
  122. }
  123.  
  124.  
  125. void thurb()
  126. {
  127.      if (tone)
  128.      {
  129.      note (  46, 250 );
  130.      note ( 185, 600 );
  131.      note ( 740, 350 );
  132.      note (  46, 150 );
  133.      note ( 185, 800 );
  134.      note ( 740, 250 );
  135.      note (  46, 250 );
  136.      note ( 185, 600 );
  137.      note ( 740, 350 );   /* 3200 */
  138.  
  139.      note (  46, 250 );
  140.      note ( 185, 600 );
  141.      note ( 740, 350 );
  142.      note (  46, 400 );
  143.      note ( 185, 400 );
  144.      note ( 740, 400 );
  145.      note (  46, 250 );
  146.      note ( 185, 600 );
  147.      note ( 740, 350 );  /* 6400 */
  148.  
  149.      note (  98, 1600 ); /* 8000 */
  150.      }
  151. }
  152.  
  153.  
  154.