home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / SND_TOOL / TUCPL13.ZIP / TGP_EXAM.ZIP / EXAMPLE1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-07-06  |  2.1 KB  |  51 lines
  1. {∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞
  2. ┌───────────────────────────────────────────────────────────────────────────┐
  3. │EXAMPLE 1 & TGP is Copyright (c)1994,95 by Gunther Voet - aka Freaker / TuC│
  4. ├───────────────────────────────────────────────────────────────────────────┤
  5. │      Starfield:Sinecure/Optimization:Freaker/Music:Jester (flowerpower)   │
  6. └───────────────────────────────────────────────────────────────────────────┘
  7. ∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞TuC∞}
  8.  
  9.  
  10. PROGRAM EXAMPLE_1;
  11.  
  12. {This example shows you how to play a file straigth with autodetection and  }
  13. {the standard TuC interface. Don be ashamed to use this, because, we added  }
  14. {it for you! This interface autodetects, show the irq's and play the        }
  15. {modfile without hassling around with low level procedures. Just load and   }
  16. {play.         Default frequency for SB is 22.5Khz, GUS is 44Khz            }
  17.  
  18. {$M 4096,0,9128} {This directive is NECESSARY for the mod-load}
  19.                  {2000 bytes heap & stacksize is REQUIRED for the player}
  20.                  {4096 bytes heap / 9128 stack is RECOMMENDED}
  21.  
  22.    {MUSIC ROUTINES}
  23.    { V }
  24. USES TGP,TUC_DEMO;
  25.             { ^ }
  26.             {EXAMPLE GFX}
  27.  
  28. begin
  29.  tgp.debugmode:=true;                   {SHOW DEBUGGINGINFO WHEN NECCESARY}
  30.  
  31.  tgp.quickload('EXAMPLE1.MOD',false);   {Quickload file tucgplay.mod}
  32.  
  33.  initstars;                             {Initialize star routines}
  34.  
  35.  tgp.startmus;                          {Music MAESTRO!}
  36.  
  37.  repeat                                 {Start of Repeat}
  38.  
  39.   {You can eventually call "TGP.POLLMUSIC" or "TGP.POLLBUFFER"
  40.   if you experience problems using TGP with interrupt dependent tasks.}
  41.  
  42.  plotstars;                            {plotstars by sinecure !}
  43.  
  44.  until port[$60]=1;                    {repeat until port $60 = 1 (faster }
  45.                                         {than keypressed}
  46.  
  47.  tgp.fastuninit;                        {ALWAYS uninitialize !!!!!!!}
  48.  
  49.  uninit_demounit;                       {mode 3h (textmode) and endtext !}
  50. end.
  51.