home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 4: The Falcon Archive / nf_archive_four_v1.0.iso / ARCHIVE / WORK / MSX / GTK08777.ZIP / GTK.DEV / SOURCES.OFF / GENEINCL.LST < prev    next >
File List  |  1996-11-11  |  3KB  |  78 lines
  1. ' *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
  2. ' *≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈*
  3. ' *                                                                            *
  4. ' *                             DSP-replay routine                             *
  5. ' *                     for Graoumf Tracker modules (.GT2)                     *
  6. ' *                                 Falcon 030                                 *
  7. ' *                              Code GfA Basic 3                              *
  8. ' *                                                                            *
  9. ' *                          Generator of IncBin files                         *
  10. ' *                                                                            *
  11. ' *≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈*
  12. ' * Version     : 10/11/1996, v0.875                                           *
  13. ' *≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈(C)oderight L. de Soras 1994-96*
  14. ' *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
  15. '
  16. path$="f:\dev.gtk\"     ! Chemin de sauvegarde des fichiers .BIN
  17. PRINT "Please wait...";
  18. '
  19. ' Création des tables de volume
  20. ' -----------------------------
  21. v1$=MKI$(0)             ! Table exp (volume instrument)
  22. v2$=MKI$(0)             ! Table log (volume instrument)
  23. v3$=MKI$(0)             ! Table exp (master volume)
  24. v4$=""                  ! Table exp (volume piste)
  25. v5$=""                  ! Table log (volume piste)
  26. '
  27. FOR i%=1 TO &H800
  28.   a%=ROUND(2^(i%/256+3))
  29.   v1$=v1$+MKI$(a%)
  30. NEXT i%
  31. PRINT ".";
  32. '
  33. FOR i%=1 TO &H100
  34.   b%=MAX(ROUND(256*(LOG(i%)/LOG(2)-0)),0)
  35.   v2$=v2$+MKI$(b%)
  36. NEXT i%
  37. PRINT ".";
  38. '
  39. FOR i%=1 TO &HFFF
  40.   c%=ROUND(2^(i%/341.3333333333))
  41.   v3$=v3$+MKI$(c%)
  42. NEXT i%
  43. PRINT ".";
  44. '
  45. FOR i%=0 TO &HFF
  46.   c%=ROUND(2^(i%/&H100)*&H8000)
  47.   v4$=v4$+MKI$(c%)
  48. NEXT i%
  49. PRINT ".";
  50. '
  51. FOR i%=0 TO &HFF
  52.   c%=ROUND((LOG(ADD(i%,&H100))-LOG(&H100))*&H100/LOG(2))
  53.   v5$=v5$+MKI$(c%)
  54. NEXT i%
  55. PRINT ".";
  56. '
  57. ' Création de la table de périodes
  58. ' --------------------------------
  59. per$=""
  60. ' De C 0 à G 8 avec 8 finetunes par note +/- 3 demi-tons de sécurité
  61. FOR i%=-24*8-24 TO 79*8+23
  62.   a%=ROUND(&H1AC0*(2^(-i%/96)))         ! Base C2 : 428 * 16
  63.   per$=per$+MKI$(a%)
  64. NEXT i%
  65. PRINT ".";
  66. '
  67. ' Sauvegardes
  68. ' -----------
  69. BSAVE path$+"vexp2lin.bin",V:v1$,LEN(v1$)
  70. BSAVE path$+"vlin2exp.bin",V:v2$,LEN(v2$)
  71. BSAVE path$+"v_e2l_m.bin",V:v3$,LEN(v3$)
  72. BSAVE path$+"v_e2l_t.bin",V:v4$,LEN(v4$)
  73. BSAVE path$+"v_l2e_t.bin",V:v5$,LEN(v5$)
  74. BSAVE path$+"pertable.bin",V:per$,LEN(per$)
  75. PRINT
  76. PRINT "Saved."
  77. END
  78.