« previous next »
Pages: [1] 2 3 4   Go Down

Author Topic: Compiler issue with sound commands  (Read 12509 times)

0 Members and 1 Guest are viewing this topic.

Offline Nuke

  • Newbie
  • Posts: 8
    • View Profile
Compiler issue with sound commands
« on: September 21, 2018, 01:10:27 pm »
Hi guys,

Been using QB64 off on on over the years.   Love it and the work you do.  Thanks.

I updated to the newest version the other day, and haven't used QB64 in quite some time, probably at all since I bought a new lap top.  When I tried compiling a program with a sound command in it I received a compiler error.  After a little testing I discovered it seems that the _SNDOPEN and _SNDPLAYFILE generate this compiler message.  I've tried converting my sound file in .OGG, .WAV, and .MP3 formats, and tried it using other sound files, but still get the same message, but I don't believe the compiler even looks at the sound source file during the compile process, does it?

This sample program below generates the following compiler message.  I'm using REALTek Audio drivers, which I'm posting below as well.  Any help you could give me solving this would be appreciated.  Thanks alot!

Nuke

h& = _SNDOPEN("D:\qb64\dog.wav")
IF h& = 0 THEN BEEP ELSE _SNDPLAY h& 'check for valid handle before using!

Compiler message:

libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x621cf): undefined reference to `_speex_resampler_init'
libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x62313): undefined reference to `_speex_resampler_process_interleaved_int'
libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x62341): undefined reference to `_speex_resampler_destroy'
libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x6235d): undefined reference to `_speex_resampler_destroy'
d:/qb64/internal/c/c_compiler/bin/../lib/gcc/i686-w64-mingw32/4.7.1/../../../../i686-w64-mingw32/bin/ld.exe: libqb\os\win\libqb_1_2_011100000000.o: bad reloc address 0x524 in section `.data'
d:/qb64/internal/c/c_compiler/bin/../lib/gcc/i686-w64-mingw32/4.7.1/../../../../i686-w64-mingw32/bin/ld.exe: final link failed: Invalid operation
collect2.exe: error: ld returned 1 exit status



Logged
If the world didn't suck, we'd all fall off.

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Compiler issue with sound commands
« Reply #1 on: September 22, 2018, 05:52:59 am »
Hi. You are Linux user? Oh i see, you are Win 10 user, sorry.
« Last Edit: September 22, 2018, 05:54:48 am by Petr »
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Compiler issue with sound commands
« Reply #2 on: September 22, 2018, 06:09:34 am »
Oh yes. Its some from bugs in QB64, because your WAV file is played too fast in QB64 under Win7. QB64 own it play wrong, but my player, which use SNDRAW it play correct. Try it playing in my program, but graphic outputs in this program are not correct set for so low biterate:

i add here your wav file info for developers.

Code: QB64: [Select]
  1.  
  2. _TITLE "_SNDRAW in action by Petr"
  3. DIM SHARED left AS SINGLE, right AS SINGLE, oblast AS LONG, a, r, b, rb, OLDa, OLDr, ob, oldB, le AS SINGLE, ri AS SINGLE, oldleft, oldright, linXL, lm, rm, BalL, BalR, OvrLd, FilePercent AS DOUBLE, SongPos, FilePos AS LONG, hodin, minut, sekund, CurrTime AS STRING, norm, normL, normR, file AS STRING, size, oldsize, lef AS SINGLE, righ AS SINGLE, corector, block, t AS _UNSIGNED LONG, c AS _UNSIGNED LONG, d AS LONG, i
  4. DIM SHARED LEG AS SINGLE, RIG AS SINGLE, id AS LONG, scrn, krok AS _UNSIGNED LONG, kro, spd
  5.  
  6.  
  7.  
  8.  
  9.  
  10. file$ = "dog.wav" 'Ufo - Phenomenom is my testing LP        <- insert your 16bit stereo LPCM WAV file here NEW: INSERT 8bit mono/stereo WAV - NEWEREST: Insert your MP3 here.
  11.  
  12.  
  13.  
  14.  
  15. TYPE snd
  16.     l AS SINGLE
  17.     r AS SINGLE
  19.  
  20. TYPE sndM
  21.     l AS SINGLE
  23.  
  24. TYPE Esnd
  25.     l AS INTEGER
  26.     r AS INTEGER
  28.  
  29. TYPE DiscCache
  30.     L AS SINGLE
  31.     R AS SINGLE
  33.  
  34. TYPE ID3HEAD
  35.     Identifier AS STRING * 3
  36.     VersionMajor AS STRING * 1 '                                           Classical way - ASC number of this characters in file is Version number
  37.     VersionRevis AS STRING * 1
  38.     BinarFlags AS _UNSIGNED _BYTE
  39.     BinarSizeA AS STRING * 1
  40.     BinarSizeB AS STRING * 1
  41.     BinarSizeC AS STRING * 1
  42.     BinarSizeD AS STRING * 1
  44.  
  45. TYPE FRAME
  46.     Id AS STRING * 4
  47.     SizeA AS STRING * 1
  48.     SizeB AS STRING * 1
  49.     SizeC AS STRING * 1
  50.     SizeD AS STRING * 1
  51.     Flags AS _UNSIGNED INTEGER
  53.  
  54. DIM SHARED ID3 AS ID3HEAD
  55. DIM SHARED FRM AS FRAME
  56. DIM SHARED OUTList(150, 150) AS STRING * 80 '                                                 output list with infos from ID3TAG
  57. DIM SHARED DiscCache(88200) AS DiscCache
  58. DIM SHARED vystup(88200) AS DiscCache
  59.  
  60.  
  61. spd = .4
  62. size = 88200
  63.  
  64. '                         program now supported undirectly MP3, directly ID3, WAV 16/8 all uncompressed types. In program you can see how to read MP3 ID3, MP3 heads, WAV head, APIC and RAW.
  65.  
  66.  
  67.  
  68. sc = _NEWIMAGE(640, 480, 256)
  70. IF UCASE$(RIGHT$(file$, 3)) = "MP3" THEN
  71.     mp3 = 1
  72.     bits = 16
  73.     MP3HEADER file$
  74.     IF _FILEEXISTS("mp3enc.exe") THEN
  75.  
  76.         IF _FILEEXISTS(file$) THEN
  77.             id3s file$
  78.             block = 2 * chan
  79.             IF bVelikost = 0 THEN
  80.                 CLOSE
  81.                 OPEN "soundcopy.mp3" FOR OUTPUT AS #1: CLOSE #1: OPEN "soundcopy.mp3" FOR BINARY AS #2 'external decoder know not filenames contains spaces. So i use this way.
  82.                 OPEN file$ FOR BINARY AS #4
  83.                 new$ = SPACE$(LOF(4) + 8)
  84.                 GET #4, , new$
  85.                 PUT #2, , new$
  86.                 CLOSE #4
  87.                 CLOSE #2
  88.             END IF
  89.  
  90.             SCREEN sc
  91.             _DEST sc
  92.             po$ = "mp3enc --decode " + file$ + " !swapsoundfile!.raw"
  93.         ELSE PRINT file$; "not exist.": END
  94.         END IF
  95.         _LIMIT .3
  96.         SHELL _HIDE po$
  97.  
  98.         RAW = 1
  99.         CLS
  100.         file$ = "!swapsoundfile!.raw"
  101.         IF _FILEEXISTS(file$) THEN
  102.             OPEN file$ FOR BINARY AS #5
  103.             fsiz = LOF(5)
  104.             CLOSE #5
  105.             IF fsiz = 0 THEN
  106.                 CLS: BEEP: PRINT "External decoder failure. Variable compression is not supported."
  107.                 KILL file$
  108.                 END
  109.             END IF
  110.         ELSE PRINT "External decoder error, file not created": END
  111.         END IF
  112.     ELSE PRINT "external decoder not found, file can not be played": END
  113.     END IF
  115.     Header
  117.  
  118.  
  119. corector = RATE / _SNDRATE * (16 / bits)
  120. DIM SHARED SOnd(0) AS snd 'for analyzer
  121.  
  122. IF bits = 16 AND chan = 2 THEN
  123.     REDIM SHARED snd(size) AS snd
  125.  
  126. IF bits = 16 AND chan = 1 THEN
  127.     REDIM SHARED snd(size) AS sndM
  129.  
  130. IF bits = 8 AND chan = 2 THEN
  131.     REDIM SHARED snd(size) AS snd
  133.  
  134. IF bits = 8 AND chan = 1 THEN
  135.     REDIM SHARED snd(size) AS sndM
  137.  
  138.  
  139. IF identit$ <> "" THEN _PRINTSTRING (308, 224), "ID3"
  140.  
  141. CIRCLE (160, 100), 100, 15, 6.28, 3.4
  142. CIRCLE (160, 100), 100, 15, 6, 6.28
  143. CIRCLE (160, 105), 5, 15
  144. PAINT (160, 105), 15, 15
  145. CIRCLE (160, 100), 76, 22, 6.28, 3.4
  146. CIRCLE (160, 100), 76, 22, 6, 6.28
  147. FOR ra = 76 TO 97
  148.     CIRCLE (160, 100), ra, 43, 0, 1.1
  149.     CIRCLE (160, 100), ra, 41, 6, 6.28
  150.     CIRCLE (160, 100), ra, 44, 1.1, 1.6
  151.     CIRCLE (160, 100), ra, 2, 1.6, 3.4
  152. NEXT ra
  153. LINE (60, 120)-(260, 150), 15, BF
  154. COLOR 0, 15: _PRINTSTRING (80, 130), "Left speaker volume"
  155. COLOR 15, 0
  156.  
  157. CIRCLE (160 * 3, 100), 100, 15, 6.28, 3.4
  158. CIRCLE (160 * 3, 100), 100, 15, 6, 6.28
  159. CIRCLE (160 * 3, 105), 5, 15
  160. PAINT (160 * 3, 105), 15, 15
  161. CIRCLE (160 * 3, 100), 76, 22, 6.28, 3.4
  162. CIRCLE (160 * 3, 100), 76, 22, 6, 6.28
  163. FOR ra = 76 TO 97
  164.     CIRCLE (160 * 3, 100), ra, 43, 0, 1.1
  165.     CIRCLE (160 * 3, 100), ra, 41, 6, 6.28
  166.     CIRCLE (160 * 3, 100), ra, 44, 1.1, 1.6
  167.     CIRCLE (160 * 3, 100), ra, 2, 1.6, 3.4
  168. NEXT ra
  169. LINE (380, 120)-(580, 150), 15, BF
  170. COLOR 0, 15: _PRINTSTRING (400, 130), "Right speaker volume"
  171. COLOR 15, 0
  172. _PRINTSTRING (100, 390), "Overload:"
  173. _PRINTSTRING (210, 390), "Spd / dir:"
  174. '////////////
  175.  
  176. LINE (58, 210)-(262, 290), 15, B
  177. LINE (60, 250)-(260, 250), 15
  178.  
  179. LINE (378, 210)-(582, 290), 15, B
  180. LINE (380, 250)-(580, 250), 15
  181. '/////////////
  182. _PRINTSTRING (280, 300), "Position:"
  183. _PRINTSTRING (316, 250), "E"
  184. 'LINE (310, 250)-(330, 265), 15, B
  185. FOR windows = 60 TO 240 STEP 20
  186.     SELECT CASE windows
  187.         CASE IS < 140
  188.             clr = 193
  189.         CASE 140 TO 200
  190.             clr = 115
  191.         CASE IS > 200
  192.             clr = 184
  193.     END SELECT
  194.     LINE (windows, 350)-(windows + 15, 370), clr, BF
  195.     LINE (320 + windows, 350)-(320 + windows + 15, 370), clr, BF
  197. '///////////////
  198. BalL = 1
  199. BalR = 1
  200. IF bits = 16 THEN OverLoad = 0
  201. norm = 0
  202. normL = 1
  203. normR = 1
  204. EffLen = 0
  205. '///specan////
  206.  
  207. FOR linies = 332 TO 580 STEP 14
  208.     FOR ll = 450 TO 400 STEP -7
  209.         SELECT CASE ll
  210.             CASE 443, 450
  211.                 c = 190
  212.             CASE 429, 436
  213.                 c = 188
  214.             CASE 415, 422
  215.                 c = 209
  216.             CASE 401, 408
  217.                 c = 184
  218.         END SELECT
  219.         LINE (linies, ll)-(linies + 10, ll - 5), c, BF
  220.     NEXT
  222. _PRINTSTRING (390, 460), " L  analyzer  R "
  223.  
  224. sc2 = _COPYIMAGE(sc, 256)
  226. krok = 41: kro = block
  227. OPEN file$ FOR BINARY AS #1
  228. SEEK #1, 41 ' + 12566900
  229.  
  231.     IF quit THEN EXIT DO
  232.     krok = krok + kro
  233.     IF krok < block THEN EXIT DO
  234.     IF krok > LOF(1) THEN krok = LOF(1)
  235.  
  236.     IF bits = 16 AND chan = 2 THEN
  237.         REDIM lefi AS INTEGER, righi AS INTEGER
  238.         GET #1, krok, lefi
  239.         GET #1, krok + 2, righi
  240.         lef = lefi
  241.         righ = righi
  242.  
  243.     END IF
  244.  
  245.     IF bits = 16 AND chan = 1 THEN
  246.         REDIM leftMono AS INTEGER
  247.         GET #1, krok, leftMono
  248.         lef = leftMono
  249.         righ = leftMono
  250.     END IF
  251.  
  252.     IF bits = 8 AND chan = 2 THEN
  253.         REDIM lleft8 AS _UNSIGNED _BYTE, rright8 AS _UNSIGNED _BYTE
  254.         GET #1, krok, lleft8
  255.         GET #1, krok, rright8
  256.         lef = lleft8 / 256
  257.         righ = rright8 / 256
  258.     END IF
  259.  
  260.     IF bits = 8 AND chan = 1 THEN
  261.         REDIM mono8 AS _UNSIGNED _BYTE
  262.         GET #1, krok, mono8
  263.         lef = mono8 / 256
  264.         righ = lef
  265.     END IF
  266.  
  267.     oldleft = left
  268.     oldright = right
  269.     LEG = lef
  270.     RIG = righ
  271.  
  272.     IF bits = 16 THEN left = lef / RATE * BalL * OvrLd * normL * corector ELSE left = lef * BalL * OvrLd
  273.     IF bits = 16 THEN right = righ / RATE * BalR * OvrLd * normR * corector ELSE right = righ * BalR * OvrLd
  274.     IF left > 0.74 THEN left = 0.74
  275.     IF right > 0.74 THEN right = 0.74 '    protect speakers from damage, 0.74 is maximal value in standard records from studios if is amplitude really in maximum.
  276.     IF left < -0.74 THEN left = -0.74
  277.     IF right < -0.74 THEN right = -0.74
  278.  
  279.  
  280.     oblast = oblast + 1
  281.  
  282.  
  283.     IF TrueEffect = 0 THEN
  284.         IF RATE > 44100 THEN frekvence = RATE ELSE frekvence = 44100
  285.         FOR plll = 1 TO frekvence / RATE
  286.             _SNDRAW left, right
  287.         NEXT plll
  288.     END IF
  289.     eff
  290.     IF oblast MOD 5000 * corector = 0 THEN ob = 1
  291.     le = le + ABS(left): ri = ri + ABS(right)
  292.     IF oblast MOD 2 = 0 THEN speed
  293.  
  294.     IF bits = 8 AND oblast MOD 4 = 0 THEN digi: budzik le, ri: lin
  295.     IF bits = 16 AND oblast MOD 2 = 0 THEN digi: budzik le, ri: lin
  296.  
  297.  
  298.     IF oblast > 50000 * corector THEN oblast = 0
  299.     CC = tahloL(100, 200, 180, BalL)
  300.     CC2 = tahloL(430, 530, 180, BalR)
  301.     OO = tahloL(80, 180, 420, OverLoad)
  302.     IF bits = 16 THEN OvrLd = (8 * OO) + 1 ELSE OvrLd = OO + 1 'set volume UP to 800% before original record
  303.  
  304.     FilePos = SEEK(1)
  305.     IF oblast MOD 210 = 0 THEN SongPos = tahloL(90, 550, 325, FilePos / LOF(1)) 'function is designated with single values. This is not enought for this use. DOUBLE is better if you need calculating in file position (WAV > 1 GB)... but i create it so as it is...
  306.  
  307.     IF oblast MOD RATE = 0 THEN
  308.         Time = (SEEK(1) / RATE) / block 'vraci cas ve vterinach spravne
  309.         timing Time
  310.         IF hodin < 9 THEN hodina$ = "0" + LTRIM$(STR$(hodina)) ELSE hodina$ = STR$(hodin)
  311.         IF minuta <= 9 THEN minuta$ = "0" + LTRIM$(STR$(minuta)) ELSE minuta$ = STR$(minuta)
  312.         IF sekunda <= 9 THEN sekunda$ = "0" + LTRIM$(STR$(sekunda)) ELSE sekunda$ = STR$(sekunda)
  313.         CurrTime$ = hodina$ + ":" + LTRIM$(minuta$) + ":" + LTRIM$(sekunda$)
  314.     END IF
  315.  
  316.     IF oblast MOD 200 = 0 THEN
  317.         _PRINTSTRING (240, 180), "Track time: " + CurrTime$, sc
  318.         IF TrueEffect = 1 THEN _PRINTSTRING (100, 430), "Echo:", sc: COLOR 2: _PRINTSTRING (316, 250), "E": COLOR 15
  319.         IF RATE < 44100 THEN COLOR 240: _PRINTSTRING (316, 250), "E": COLOR 15
  320.  
  321.  
  322.  
  323.  
  324.  
  325.         ' ------------------------------------------------- ovladani zobrazeni vysledne obrazovky id3
  326.         IF scrn = 1 THEN viewtime = TIMER + 15: scrn = 0: vloz = 1
  327.         IF TIMER < viewtime THEN _SOURCE sc: SCREEN id ELSE SCREEN sc: IF vloz = 1 THEN _PUTIMAGE (0, 0), sc2, sc: PCOPY _DISPLAY, 1: vloz = 0
  328.  
  329.         ' ------------------------------------------------
  330.  
  331.  
  332.         IF oldsize <> size THEN
  333.             oldsize = size
  334.             REDIM _PRESERVE SHARED snd(size) AS snd
  335.             '            REDIM _PRESERVE SHARED effect(size) AS snd
  336.         END IF
  337.         size = (441 * 8) + 10 * (EffLen * 1000)
  338.  
  339.  
  340.  
  341.     END IF
  342.     IF TrueEffect = 1 THEN Effl = tahloL(80, 180, 455, EffLen)
  343.  
  344.  
  345.     IF oblast MOD chan = 0 THEN specan
  346.     '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   REM    IF oblast MOD 10 = 0 THEN specan
  347.  
  348.  
  349.  
  350.  
  351.     DO WHILE _SNDRAWLEN > 0: LOOP
  352.     IF oblast MOD INT(2500 / corector) = 0 AND vloz = 0 THEN PCOPY 1, _DISPLAY
  355.  
  358. 'this program use control exit and end!
  359. IF _FILEEXISTS("!swapsoundfile!.raw") THEN KILL "!swapsoundfile!.raw" 'if you plays wav, this file not exist
  360. IF _FILEEXISTS("soundcopy.mp3") THEN KILL "soundcopy.mp3" '            if you plays wav, this file not exist
  362. LINE (100, 140)-(540, 340), 15, B
  363. LINE (75, 220)-(100, 260), 15, BF
  364. FOR cary = 101 TO 539 STEP 40
  365.     SELECT CASE cary
  366.         CASE 101 TO 261: barva = 47 '101,141,181,221,261
  367.         CASE 262 TO 381: barva = 42 '301,341,381
  368.         CASE 382 TO 539: barva = 40
  369.     END SELECT
  370.     LINE (cary, 141)-(cary + 38, 339), barva, BF
  371. NEXT cary
  372.  
  374. FOR cary = 101 TO 539 STEP 40
  375.     LINE (cary, 141)-(cary + 38, 339), 17, BF
  376.     _DELAY .2
  377. NEXT cary
  379. FOR f = 1 TO 6
  380.     PCOPY 3, _DISPLAY
  381.     _DELAY .2
  382.     CLS
  383.     _DELAY .2
  386. _PRINTSTRING (308, 230), "Bye", sc
  390.  
  391. SUB budzik (Le AS SINGLE, Ri AS SINGLE)
  392.     SHARED bits, aC, OLDaC
  393.     IF ob = 1 THEN
  394.         CIRCLE (160, 100), 78, 0, aC, -aC
  395.         CIRCLE (480, 100), 78, 0, r, -r
  396.         '        IF oblast MOD 1000 = 0 THEN PCOPY 1, _DISPLAY
  397.  
  398.         IF bits = 8 THEN
  399.             oprava = 4
  400.             b = left * oprava
  401.             rb = right * oprava
  402.         ELSE
  403.             b = 10 * (Le / 5000) / corector 'because in my loop is MOD 5000
  404.             rb = 10 * (Ri / 5000) / corector
  405.         END IF
  406.  
  407.  
  408.  
  409.         Le = 0: Ri = 0
  410.  
  411.         aC = ((3.14 - b) + aC) / 2
  412.         r = ((3.14 - rb) + r) / 2
  413.         IF aC < 0.01 THEN aC = 0.01
  414.         IF r < 0.01 THEN r = 0.01
  415.  
  416.         ob = 0
  417.     END IF
  418.  
  419.     IF oblast MOD 300 = 0 THEN
  420.  
  421.         OLDaC = aC
  422.         OLDr = r
  423.  
  424.         IF bits = 8 THEN padani = .0001 ELSE padani = .0001
  425.         IF aC > 0 THEN aC = aC - padani
  426.         IF r > 0 THEN r = r - padani
  427.  
  428.         CIRCLE (160, 100), 78, 0, OLDaC, -OLDaC
  429.         CIRCLE (480, 100), 78, 0, OLDr, -OLDr
  430.  
  431.         CIRCLE (160, 100), 78, 25, aC, -aC
  432.         CIRCLE (480, 100), 78, 25, r, -r
  433.     END IF
  434.  
  436.  
  437. SUB lin '(le AS SINGLE, ri AS SINGLE)
  438.     SHARED bits, oldleft, oldright, mu
  439.     IF bits = 8 THEN
  440.         mu = mu + 1
  441.         IF mu MOD 3 = 0 THEN mu = 0: MN = -1 ELSE MN = 1
  442.         oldleftG = oldleft
  443.         oldrightG = oldright
  444.         leftG = left * MN
  445.         rightG = right * MN
  446.         m = 3 '* (left + right) / 2
  447.  
  448.     ELSE
  449.  
  450.         oldleftG = oldleft
  451.         oldrightG = oldright
  452.         leftG = left
  453.         rightG = right
  454.         m = .25
  455.  
  456.     END IF
  457.  
  458.     IF linXL = 0 OR linXL > 260 THEN linXL = 60
  459.  
  460.  
  461.     linXL = linXL + (m / corector)
  462.     linX2L = linXL + 320
  463.     lxc = linXL - (.1 / corector)
  464.     lxc2 = linX2L - (.1 / corector)
  465.     oldle = 250 + (oldleftG * 30)
  466.     Leprvy = 250 + (leftG * 30)
  467.     oldri = 250 + (oldrightG * 30)
  468.     RiPrvy = 250 + (rightG * 30)
  469.  
  470.     LINE (linXL, (oldle))-(lxc, Leprvy), 14, BF
  471.     LINE (linX2L, oldri)-(lxc2, RiPrvy), 14, BF
  473.  
  474. SUB digi
  475.     SHARED bites
  476.     'deset pasem
  477.     IF bites = 8 THEN cr = 100 ELSE cr = 1
  478.     IF oblast MOD 50 * cr = 0 THEN
  479.         lm = (le / 800 / corector) * (120 / corector)
  480.         rm = (ri / 800 / corector) * (120 / corector)
  481.         IF lm >= 245 THEN lm = 245
  482.         IF rm >= 245 THEN rm = 245
  483.     ELSE
  484.         IF lm > 60 THEN lm = lm - .01 ' * corector
  485.         IF rm > 60 THEN rm = rm - .01 '* corector
  486.  
  487.  
  488.     END IF
  489.     FOR windows = 60 TO lm STEP 20 'maximal signal = 240
  490.         SELECT CASE windows
  491.             CASE IS < 140
  492.                 clr = 47
  493.             CASE 140 TO 200
  494.                 clr = 44
  495.             CASE IS > 200
  496.                 clr = 39
  497.         END SELECT
  498.         LINE (windows, 350)-(windows + 15, 370), clr, BF
  499.     NEXT
  500.  
  501.     FOR windows = 60 TO rm STEP 20 'maximal signal = 240
  502.         SELECT CASE windows
  503.             CASE IS < 140
  504.                 clr = 47
  505.             CASE 140 TO 200
  506.                 clr = 44
  507.             CASE IS > 200
  508.                 clr = 39
  509.         END SELECT
  510.         LINE (320 + windows, 350)-(320 + windows + 15, 370), clr, BF
  511.     NEXT
  512.  
  513.  
  514.  
  516.  
  517. FUNCTION tahloL (xx1 AS INTEGER, xx2 AS INTEGER, yy AS INTEGER, startvalue AS SINGLE) 'delka = lenght
  518.     SHARED bits, chan, scrn
  519.     IF xx1 > xx2 THEN SWAP xx2, xx1
  520.     tahloL = startvalue
  522.         MX = _MOUSEX
  523.         MY = _MOUSEY
  524.         'extra function - shift in song:
  525.         IF MX > 308 AND MX < 332 AND MY > 224 AND MY < 240 AND _MOUSEBUTTON(1) = -1 THEN GOTO id3
  526.         IF MX > 90 AND MX < 550 AND MY > 315 AND MY < 335 AND _MOUSEBUTTON(1) = -1 THEN
  527.             songprocento# = (550 - 90) / 100
  528.             sngpos# = (MX - 90) / 100 / songprocento#
  529.             newpos# = sngpos# * LOF(1)
  530.             DO UNTIL newpos# MOD block = 0
  531.                 newpos# = newpos# + 1
  532.             LOOP
  533.             SEEK #1, 41 + newpos#
  534.             krok = 41 + newpos#
  535.         END IF
  536.         'end this shifting function
  537.  
  538.  
  539.  
  540.         IF MX >= xx1 AND MX <= xx2 AND MY < yy + 10 AND MY > yy - 10 AND _MOUSEBUTTON(1) = -1 THEN
  541.             procento# = (xx2 - xx1) / 100
  542.             tahloL = (_MOUSEX - xx1) / 100 / procento# 'return value 0 to 1, 1 is full
  543.             IF tahloL > 1 THEN tahloL = 1
  544.             IF tahloL < 0 THEN tahloL = 0
  545.             startvalue = tahloL
  546.  
  547.  
  548.  
  549.  
  550.         END IF
  551.     LOOP
  552.     LINE (xx1, yy)-(xx2, yy), 15
  553.     LINE (xx1 + ((xx2 - xx1) * tahloL), yy + 5)-(xx1 + ((xx2 - xx1) * tahloL) + 5, yy - 5), 15, BF
  555.  
  556.     id3:
  557.     IF scrn = 0 THEN scrn = 1: ELSE scrn = 0
  559.  
  560.  
  561.  
  562.  
  563.  
  565.  
  566.  
  567. SUB timing (hodnota AS DOUBLE) '                                                                 calculate time. Writed for Timer, _SndLen. Input format as TIMER or _SNDLEN WITH "."
  568.     SHARED hodin, minuta, sekunda '                                                          try it copying to new program and write "timing TIMER" for current time calculating.
  569.     IF hodnota < 60 THEN hodin = 0: minut = 0: sekund = hodnota: GOTO a1
  570.     IF hodnota > 60 AND hodnota < 3600 THEN hodin = 0: minut = hodnota / 60: GOTO a2
  571.     hodin = hodnota / 3600
  572.     hodin$ = STR$(hodin)
  573.     tecka = INSTR(0, hodin$, ".")
  574.     minut = (VAL("0." + RIGHT$(hodin$, LEN(hodin$) - tecka)) * 0.6) * 100
  575.     a2:
  576.     minut$ = STR$(minut)
  577.     tecka = INSTR(0, STR$(minut), ".")
  578.     sekund = (VAL("0." + RIGHT$(minut$, LEN(minut$) - tecka)) * 0.6) * 100
  579.     a1:
  580.     sekund$ = STR$(sekund)
  581.     tecka = INSTR(0, sekund$, ".")
  582.     sets = (VAL("0." + RIGHT$(sekund$, LEN(sekund$) - tecka)) * 1) * 100
  583.  
  584.     minuta = INT(minut)
  585.     sekunda = INT(sekund)
  586.     IF sekunda = 60 THEN sekunda = 0
  587.  
  589.  
  590. SUB eff
  591.     SHARED TrueEffect, start, c, t, RATE, prubeh AS LONG, OpoIndex, DiscCacheIndex, start, Effl, i, oldeffl
  592.  
  593.     IF RATE < 44100 THEN EXIT SUB
  595.         IF _MOUSEX > 310 AND _MOUSEX < 330 AND _MOUSEY > 250 AND _MOUSEY < 265 AND _MOUSEBUTTON(1) = -1 THEN
  596.             IF TrueEffect = 0 THEN TrueEffect = 1 ELSE TrueEffect = 0
  597.         END IF
  598.     LOOP
  599.     IF TrueEffect = 1 THEN
  600.         IF oldeffl <> Effl THEN
  601.             OpoIndex = 0
  602.             DiscCacheIndex = 0
  603.             prubeh = 0
  604.             start = 0
  605.             oldeffl = Effl
  606.         END IF
  607.  
  608.         '        d = d + 4
  609.         '  IF d > LOF(10) THEN EXIT SUB
  610.         i = i + 1
  611.         DiscCacheIndex = DiscCacheIndex + 1: IF DiscCacheIndex >= 88200 THEN DiscCacheIndex = 0
  612.         DiscCache(DiscCacheIndex).L = left
  613.         DiscCache(DiscCacheIndex).R = right
  614.  
  615.  
  616.  
  617.         prubeh = prubeh + 1
  618.         IF DiscCacheIndex > (Effl * 5000) THEN start = 1
  619.         IF start = 1 THEN
  620.             OpoIndex = OpoIndex + 1
  621.             IF OpoIndex >= 88200 THEN OpoIndex = 0
  622.  
  623.             IF prubeh MOD 2 = 0 AND start = 1 THEN
  624.                 vystup(i).L = DiscCache(OpoIndex).L * .8
  625.                 vystup(i).R = DiscCache(OpoIndex).R * .8
  626.  
  627.             ELSE
  628.                 vystup(i).L = DiscCache(DiscCacheIndex).L
  629.                 vystup(i).R = DiscCache(DiscCacheIndex).R
  630.             END IF
  631.         END IF
  632.  
  633.  
  634.         IF i >= 88200 THEN i = 0
  635.         IF prubeh > 40000 THEN prubeh = 0
  636.         IF RATE > 44100 THEN frekvence = RATE ELSE frekvence = 44100
  637.         FOR plll = 1 TO frekvence / RATE
  638.             _SNDRAW vystup(i).L, vystup(i).R
  639.         NEXT plll
  640.     END IF
  642.  
  643. SUB specan 'experimental sub UPGRADED
  644.     SHARED left, right, oldALeft, oldARight, RATE, LeftFreq, RightFreq, doba, LF, RF, L0, L1, L2, L3, L4, L5, L6, L7, L8, R0, R1, R2, R3, R4, R5, R6, R7, R8
  645.     IF oldALeft = 0 AND SGN(left) <> 0 THEN oldALeft = SGN(left)
  646.     LeftFreq = LeftFreq + 1
  647.  
  648.     IF oldARight = 0 AND SGN(right) <> 0 THEN oldARight = SGN(right)
  649.     RightFreq = RightFreq + 1
  650.  
  651.  
  652.     IF SGN(right) <> SGN(oldARight) AND SGN(right) <> 0 THEN
  653.         RF = RATE / RightFreq
  654.         RightFreq = 0: oldARight = 0
  655.         '        PRINT "RF"; RF: SLEEP
  656.     END IF
  657.  
  658.     IF SGN(left) <> SGN(oldALeft) AND SGN(left) <> 0 THEN
  659.         LF = RATE / LeftFreq
  660.         LeftFreq = 0: oldALeft = 0
  661.         '        PRINT LF: SLEEP
  662.     END IF
  663.     '100 Hz frequency = IF rate is 44100, then its 44100/100 = LF or RF muss contains 441 or more (more bass fraquency) samples.
  664.     '16000 Hz  = 44100 / 16000 = 2.7    ------++++++
  665.     '                                     2.7   2.7
  666.  
  667.     'dobu pridelovani hodnot k jednotlivym frekvencim stanovim na 2000 pruchodu:
  668.     pole = 451
  669.     doba = doba + 1: IF doba > pole THEN '882 = 50 Hz, lowest, longest signal
  670.         GOSUB vykresleni
  671.         L0 = 0: L1 = 0: L2 = 0: L3 = 0: L4 = 0: L5 = 0: L6 = 0: L7 = 0: L8 = 0
  672.         R0 = 0: R1 = 0: R2 = 0: R3 = 0: R4 = 0: R5 = 0: R6 = 0: R7 = 0: R8 = 0
  673.         doba = 0
  674.         EXIT SUB
  675.     ELSE
  676.  
  677.         SELECT CASE LF
  678.             CASE 220 TO 451: L0 = L0 + .4 'sub bass area 50 to 100 Hz
  679.             CASE 452 TO 900: L1 = L1 + .4
  680.             CASE 900 TO 1800: L2 = L2 + .4
  681.             CASE 1800 TO 3600: L3 = L3 + .4
  682.             CASE 3600 TO 5000: L4 = L4 + .4
  683.             CASE 5000 TO 8000: L5 = L5 + .4
  684.             CASE 8000 TO 11000: L6 = L6 + .4
  685.             CASE 11000 TO 14000: L7 = L7 + .4
  686.             CASE 14000 TO 17000: L8 = L8 + .4
  687.         END SELECT
  688.         SELECT CASE RF
  689.             CASE 220 TO 451: R0 = R0 + .4
  690.             CASE 452 TO 900: R1 = R1 + .4
  691.             CASE 900 TO 1800: R2 = R2 + .4
  692.             CASE 1800 TO 3600: R3 = R3 + .4
  693.             CASE 3600 TO 5000: R4 = R4 + .4
  694.             CASE 5000 TO 8000: R5 = R5 + .4
  695.             CASE 8000 TO 11000: R6 = R6 + .4
  696.             CASE 11000 TO 14000: R7 = R7 + .4
  697.             CASE 14000 TO 17000: R8 = R8 + .4
  698.         END SELECT
  699.     END IF
  700.     EXIT SUB
  701.     vykresleni:
  702.  
  703.     IF R8 > 49 THEN R8 = 49
  704.     IF R7 > 49 THEN R7 = 49
  705.     IF R6 > 49 THEN R6 = 49
  706.     IF R5 > 49 THEN R5 = 49
  707.     IF R4 > 49 THEN R4 = 49
  708.     IF R3 > 49 THEN R3 = 49
  709.     IF R2 > 49 THEN R2 = 49
  710.     IF R1 > 49 THEN R1 = 49
  711.     IF R0 > 49 THEN R0 = 49
  712.  
  713.     IF L8 > 49 THEN L8 = 49
  714.     IF L7 > 49 THEN L7 = 49
  715.     IF L6 > 49 THEN L6 = 49
  716.     IF L5 > 49 THEN L5 = 49
  717.     IF L4 > 49 THEN L4 = 49
  718.     IF L3 > 49 THEN L3 = 49
  719.     IF L2 > 49 THEN L2 = 49
  720.     IF L1 > 49 THEN L1 = 49
  721.     IF L0 > 49 THEN L0 = 49
  722.  
  723.     m = 1
  724.     FOR ll0 = 450 TO 450 - L0 * m STEP -7
  725.         '332 TO 580 STEP 14
  726.         SELECT CASE ll0
  727.             CASE 443, 450
  728.                 c = 49
  729.             CASE 429, 436
  730.                 c = 44
  731.             CASE 415, 422
  732.                 c = 43
  733.             CASE 401, 408
  734.                 c = 39
  735.         END SELECT
  736.         LINE (332, ll0)-(332 + 10, ll0 - 5), c, BF
  737.     NEXT
  738.  
  739.  
  740.     FOR ll1 = 450 TO 450 - (L1) * m STEP -7
  741.         '332 TO 580 STEP 14
  742.         SELECT CASE ll1
  743.             CASE 443, 450
  744.                 c = 49
  745.             CASE 429, 436
  746.                 c = 44
  747.             CASE 415, 422
  748.                 c = 43
  749.             CASE 401, 408
  750.                 c = 39
  751.         END SELECT
  752.         LINE (346, ll1)-(346 + 10, ll1 - 5), c, BF
  753.     NEXT
  754.  
  755.     FOR ll2 = 450 TO 450 - (L2) * m STEP -7
  756.         '332 TO 580 STEP 14
  757.         SELECT CASE ll2
  758.             CASE 443, 450
  759.                 c = 49
  760.             CASE 429, 436
  761.                 c = 44
  762.             CASE 415, 422
  763.                 c = 43
  764.             CASE 401, 408
  765.                 c = 39
  766.         END SELECT
  767.         LINE (360, ll2)-(360 + 10, ll2 - 5), c, BF
  768.     NEXT
  769.  
  770.     FOR ll3 = 450 TO 450 - (L3) * m STEP -7
  771.         '332 TO 580 STEP 14
  772.         SELECT CASE ll3
  773.             CASE 443, 450
  774.                 c = 49
  775.             CASE 429, 436
  776.                 c = 44
  777.             CASE 415, 422
  778.                 c = 43
  779.             CASE 401, 408
  780.                 c = 39
  781.         END SELECT
  782.         LINE (374, ll3)-(374 + 10, ll3 - 5), c, BF
  783.     NEXT
  784.  
  785.  
  786.     FOR ll4 = 450 TO 450 - (L4) * m STEP -7
  787.         '332 TO 580 STEP 14
  788.         SELECT CASE ll4
  789.             CASE 443, 450
  790.                 c = 49
  791.             CASE 429, 436
  792.                 c = 44
  793.             CASE 415, 422
  794.                 c = 43
  795.             CASE 401, 408
  796.                 c = 39
  797.         END SELECT
  798.         LINE (388, ll4)-(388 + 10, ll4 - 5), c, BF
  799.     NEXT
  800.  
  801.     FOR ll5 = 450 TO 450 - (L5) * m STEP -7
  802.         '332 TO 580 STEP 14
  803.         SELECT CASE ll5
  804.             CASE 443, 450
  805.                 c = 49
  806.             CASE 429, 436
  807.                 c = 44
  808.             CASE 415, 422
  809.                 c = 43
  810.             CASE 401, 408
  811.                 c = 39
  812.         END SELECT
  813.         LINE (402, ll5)-(402 + 10, ll5 - 5), c, BF
  814.     NEXT
  815.  
  816.     FOR ll6 = 450 TO 450 - (L6) * m STEP -7
  817.         '332 TO 580 STEP 14
  818.         SELECT CASE ll6
  819.             CASE 443, 450
  820.                 c = 49
  821.             CASE 429, 436
  822.                 c = 44
  823.             CASE 415, 422
  824.                 c = 43
  825.             CASE 401, 408
  826.                 c = 39
  827.         END SELECT
  828.         LINE (416, ll6)-(416 + 10, ll6 - 5), c, BF
  829.     NEXT
  830.  
  831.     FOR ll7 = 450 TO 450 - (L7) * m STEP -7
  832.         '332 TO 580 STEP 14
  833.         SELECT CASE ll7
  834.             CASE 443, 450
  835.                 c = 49
  836.             CASE 429, 436
  837.                 c = 44
  838.             CASE 415, 422
  839.                 c = 43
  840.             CASE 401, 408
  841.                 c = 39
  842.         END SELECT
  843.         LINE (430, ll7)-(430 + 10, ll7 - 5), c, BF
  844.     NEXT
  845.  
  846.     FOR ll8 = 450 TO 450 - (L8) * m STEP -7
  847.         '332 TO 580 STEP 14
  848.         SELECT CASE ll8
  849.             CASE 443, 450
  850.                 c = 49
  851.             CASE 429, 436
  852.                 c = 44
  853.             CASE 415, 422
  854.                 c = 43
  855.             CASE 401, 408
  856.                 c = 39
  857.         END SELECT
  858.         LINE (444, ll8)-(444 + 10, ll8 - 5), c, BF
  859.     NEXT
  860.  
  861.  
  862.     FOR rr0 = 450 TO 450 - (R0) * m STEP -7
  863.         '332 TO 580 STEP 14
  864.         SELECT CASE rr0
  865.             CASE 443, 450
  866.                 c = 49
  867.             CASE 429, 436
  868.                 c = 44
  869.             CASE 415, 422
  870.                 c = 43
  871.             CASE 401, 408
  872.                 c = 39
  873.         END SELECT
  874.         LINE (458, rr0)-(458 + 10, rr0 - 5), c, BF
  875.     NEXT
  876.  
  877.  
  878.     FOR rr1 = 450 TO 450 - (R1) * m STEP -7
  879.         '332 TO 580 STEP 14
  880.         SELECT CASE rr1
  881.             CASE 443, 450
  882.                 c = 49
  883.             CASE 429, 436
  884.                 c = 44
  885.             CASE 415, 422
  886.                 c = 43
  887.             CASE 401, 408
  888.                 c = 39
  889.         END SELECT
  890.         LINE (472, rr1)-(472 + 10, rr1 - 5), c, BF
  891.     NEXT
  892.  
  893.     FOR rr2 = 450 TO 450 - (R2) * m STEP -7
  894.         '332 TO 580 STEP 14
  895.         SELECT CASE rr2
  896.             CASE 443, 450
  897.                 c = 49
  898.             CASE 429, 436
  899.                 c = 44
  900.             CASE 415, 422
  901.                 c = 43
  902.             CASE 401, 408
  903.                 c = 39
  904.         END SELECT
  905.         LINE (486, rr2)-(486 + 10, rr2 - 5), c, BF
  906.     NEXT
  907.  
  908.     FOR rr3 = 450 TO 450 - (R3) * m STEP -7
  909.         '332 TO 580 STEP 14
  910.         SELECT CASE rr3
  911.             CASE 443, 450
  912.                 c = 49
  913.             CASE 429, 436
  914.                 c = 44
  915.             CASE 415, 422
  916.                 c = 43
  917.             CASE 401, 408
  918.                 c = 39
  919.         END SELECT
  920.         LINE (500, rr3)-(500 + 10, rr3 - 5), c, BF
  921.     NEXT
  922.  
  923.  
  924.     FOR rr4 = 450 TO 450 - (R4) * m STEP -7
  925.         '332 TO 580 STEP 14
  926.         SELECT CASE rr4
  927.             CASE 443, 450
  928.                 c = 49
  929.             CASE 429, 436
  930.                 c = 44
  931.             CASE 415, 422
  932.                 c = 43
  933.             CASE 401, 408
  934.                 c = 39
  935.         END SELECT
  936.         LINE (514, rr4)-(514 + 10, rr4 - 5), c, BF
  937.     NEXT
  938.  
  939.     FOR rr5 = 450 TO 450 - (R5) * m STEP -7
  940.         '332 TO 580 STEP 14
  941.         SELECT CASE rr5
  942.             CASE 443, 450
  943.                 c = 49
  944.             CASE 429, 436
  945.                 c = 44
  946.             CASE 415, 422
  947.                 c = 43
  948.             CASE 401, 408
  949.                 c = 39
  950.         END SELECT
  951.         LINE (528, rr5)-(528 + 10, rr5 - 5), c, BF
  952.     NEXT
  953.  
  954.     FOR rr6 = 450 TO 450 - (R6) * m STEP -7
  955.         '332 TO 580 STEP 14
  956.         SELECT CASE rr6
  957.             CASE 443, 450
  958.                 c = 49
  959.             CASE 429, 436
  960.                 c = 44
  961.             CASE 415, 422
  962.                 c = 43
  963.             CASE 401, 408
  964.                 c = 39
  965.         END SELECT
  966.         LINE (542, rr6)-(542 + 10, rr6 - 5), c, BF
  967.     NEXT
  968.  
  969.     FOR rr7 = 450 TO 450 - (R7) * m STEP -7
  970.         '332 TO 580 STEP 14
  971.         SELECT CASE rr7
  972.             CASE 443, 450
  973.                 c = 49
  974.             CASE 429, 436
  975.                 c = 44
  976.             CASE 415, 422
  977.                 c = 43
  978.             CASE 401, 408
  979.                 c = 39
  980.         END SELECT
  981.         LINE (556, rr7)-(556 + 10, rr7 - 5), c, BF
  982.     NEXT
  983.  
  984.     FOR rr8 = 450 TO 450 - (R8) * m STEP -7
  985.         '332 TO 580 STEP 14
  986.         SELECT CASE rr8
  987.             CASE 443, 450
  988.                 c = 49
  989.             CASE 429, 436
  990.                 c = 44
  991.             CASE 415, 422
  992.                 c = 43
  993.             CASE 401, 408
  994.                 c = 39
  995.         END SELECT
  996.         LINE (570, rr8)-(570 + 10, rr8 - 5), c, BF
  997.     NEXT
  998.     RETURN
  1000.  
  1001.  
  1002. SUB Header
  1003.     SHARED RATE, chan, bits
  1004.     TYPE head
  1005.         chunk AS STRING * 4 '       4 bytes  (RIFF)
  1006.         size AS LONG '              4 bytes  (?E??)
  1007.         fomat AS STRING * 4 '       4 bytes  (WAVE)
  1008.         sub1 AS STRING * 4 '        4 bytes  (fmt )
  1009.         subchunksize AS LONG '      4 bytes  (lo / hi), $00000010 for PCM audio
  1010.         format AS STRING * 2 '      2 bytes  (0001 = standard PCM, 0101 = IBM mu-law, 0102 = IBM a-law, 0103 = IBM AVC ADPCM)
  1011.         channels AS INTEGER '       2 bytes  (1 = mono, 2 = stereo)
  1012.         rate AS LONG '              4 bytes  (sample rate, standard is 44100)
  1013.         ByteRate AS LONG '          4 bytes  (= sample rate * number of channels * (bits per channel /8))
  1014.         Block AS INTEGER '          2 bytes  (block align = number of channels * bits per sample /8)
  1015.         Bits AS INTEGER '           2 bytes  (bits per sample. 8 = 8, 16 = 16)
  1016.         subchunk2 AS STRING * 4 '   4 bytes  ("data")  contains begin audio samples
  1017.     END TYPE '                     40 bytes  total
  1018.     DIM H AS head
  1019.  
  1020.     IF _FILEEXISTS(file$) THEN OPEN file$ FOR BINARY AS #10 ELSE PRINT file$; " not found": SYSTEM
  1021.     GET #10, , H
  1022.     CLOSE #10
  1023.     PRINT "File info:"
  1024.     PRINT "File name: "; file$
  1025.     PRINT H.chunk;: IF H.chunk = "RIFF" THEN COLOR 49: PRINT " - OK, WAV format" ELSE COLOR 39: PRINT "ERROR! Unsupported type!": END
  1026.     COLOR 15: PRINT "File size: "; H.size + 8; "bytes"
  1027.     PRINT "File format: "; H.fomat
  1028.     PRINT "Subchunk1 (may be fmt): "; H.sub1
  1029.     PRINT "Subchunk size: "; H.subchunksize
  1030.     PRINT "Audio format: "; CVI(H.format) '              in this and next line you see two way to get values. This is read as string and then converted using CVI,
  1031.     PRINT "Audio channels: "; H.channels '               but this value is directly read as number INTEGER (2 byte long number), then is not need CVI.
  1032.     PRINT "Audio Sample Rate:"; H.rate
  1033.     PRINT "Audio Byte Rate:"; H.ByteRate; "bites per second"
  1034.     PRINT "Block align: "; H.Block; "bytes (in stereo format 2x more as in mono)"
  1035.     PRINT "Bits per sample:"; H.Bits
  1036.     PRINT "Is found data area? ";: IF H.subchunk2 = "data" THEN COLOR 49: PRINT "yes" ELSE COLOR 39: PRINT "no"
  1037.  
  1038.     block = H.Block
  1039.     RATE = H.rate
  1040.     chan = H.channels
  1041.     bits = H.Bits
  1042.     IF bits <> 16 THEN COLOR 39: PRINT "Ok, this version support 8 bit WAV audio files! Graphic is not full coordinated with this sounds.": ' SLEEP 3: SYSTEM
  1043.     SLEEP 2
  1044.     COLOR 15
  1045.     CLS
  1047.  
  1048.  
  1049. SUB MP3HEADER (file AS STRING)
  1050.     SHARED chan, RATE
  1051.     PRINT "Reading MP3 file headers...."
  1052.     TYPE MP3
  1053.         A AS STRING * 1
  1054.         B AS STRING * 1
  1055.         C AS STRING * 1
  1056.         D AS STRING * 1
  1057.     END TYPE
  1058.  
  1059.     REDIM MP3 AS MP3
  1060.     IF _FILEEXISTS(file$) THEN OPEN file$ FOR BINARY AS #4 ELSE PRINT "file not found": END
  1061.     DO WHILE NOT EOF(4)
  1062.         GET #4, , MP3
  1063.  
  1064.         first8$ = DECtoBIN$(ASC(MP3.A))
  1065.         second3$ = LEFT$(DECtoBIN$(ASC(MP3.B)), 3) '                    all 11 bites muss be 11111111111, its head identifier
  1066.         second2$ = LEFT$(RIGHT$(DECtoBIN$(ASC(MP3.B)), 5), 2) '         2 bites MPEG audio version ID: 00=2.5, 01 = reserved, 10=layer2, 11=layer1
  1067.         seco2d2$ = LEFT$(RIGHT$(DECtoBIN$(ASC(MP3.B)), 3), 2) '         2 bites layer description. 00=reserved,01=layer3,10=layer2,11=layer1
  1068.         seco3d1$ = RIGHT$(DECtoBIN$(ASC(MP3.B)), 1) '                   1 bite protection bit. 0=protected by CRC, 1=not protected
  1069.         third4$ = LEFT$(DECtoBIN$(ASC(MP3.C)), 4) '                     4 bites for bitrate index. This value CAN NOT BE 1111.
  1070.         thi2r2$ = LEFT$(RIGHT$(DECtoBIN$(ASC(MP3.C)), 4), 2) '          2 bites sampling rate frequency. This we need for us program
  1071.         thi3r1$ = LEFT$(RIGHT$(DECtoBIN$(ASC(MP3.C)), 2), 1) '          1 bite - padding bit. 0=frame not padded, 1=frame padded
  1072.         '
  1073.         thi4r1$ = RIGHT$(DECtoBIN$(ASC(MP3.C)), 1) '                    1 bite - private bit
  1074.  
  1075.         four2$ = LEFT$(DECtoBIN$(ASC(MP3.D)), 2) '                      2 bite - channel mode: 00=stereo, 01=joint stereo, 10=dual stereo, 11=mono
  1076.         fou22$ = LEFT$(RIGHT$(DECtoBIN$(ASC(MP3.D)), 7), 2) '           2 bite - mode extension. ONLY IF IS JOINT STEREO
  1077.  
  1078.         fou31$ = LEFT$(RIGHT$(DECtoBIN$(ASC(MP3.D)), 4), 2) '           copyright - 0=not copyrighted, 1=copyrighted
  1079.         fou41$ = LEFT$(RIGHT$(DECtoBIN$(ASC(MP3.D)), 4), 2) '           0=copy, 1=original
  1080.         fou52$ = RIGHT$(DECtoBIN$(ASC(MP3.D)), 2) '                     emphasis:   00=none, 01=50/15mS, 10=reserves, 11=CCIT J.17
  1081.  
  1082.  
  1083.         first11$ = first8$ + second3$
  1084.         IF first11$ = "11111111111" THEN
  1085.             SELECT CASE second2$
  1086.                 CASE "00": Version$ = "Layer 2.5": MPG = 2: MP = 2.5: FrameSize = 1152
  1087.                 CASE "10": Vesrion$ = "Layer 2": MPG = 2: MP = 2: FrameSize = 1152
  1088.                 CASE "11": Version$ = "Layer 1": MPG = 1: MP = 1: FrameSize = 384
  1089.                 CASE "01": Version$ = "ERROR!"
  1090.             END SELECT
  1091.  
  1092.             SELECT CASE seco2d2$
  1093.                 CASE "00": layer$ = "ERROR!"
  1094.                 CASE "01": layer$ = "Layer 3": LAY = 3
  1095.                 CASE "10": layer$ = "Layer 2": LAY = 2
  1096.                 CASE "11": layer$ = "Layer 1": LAY = 1
  1097.             END SELECT
  1098.             SELECT CASE seco3d1$
  1099.                 CASE "0": protect$ = "Protected by CRC"
  1100.                 CASE "1": protect$ = "Not protected"
  1101.             END SELECT
  1102.             SELECT CASE third4$
  1103.                 CASE "0000": 'PRINT "Bitrate free"
  1104.                 CASE "0001"
  1105.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 32
  1106.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 32
  1107.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 32
  1108.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 32
  1109.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 8
  1110.                 CASE "0010"
  1111.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 64
  1112.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 48
  1113.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 40
  1114.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 48
  1115.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 16
  1116.                 CASE "0011"
  1117.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 96
  1118.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 56
  1119.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 48
  1120.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 56
  1121.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 24
  1122.                 CASE "0100"
  1123.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 128
  1124.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 64
  1125.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 56
  1126.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 64
  1127.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 32
  1128.                 CASE "0101"
  1129.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 160
  1130.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 80
  1131.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 64
  1132.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 80
  1133.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 40
  1134.                 CASE "0110"
  1135.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 192
  1136.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 96
  1137.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 80
  1138.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 96
  1139.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 48
  1140.                 CASE "0111"
  1141.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 224
  1142.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 112
  1143.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 96
  1144.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 112
  1145.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 56
  1146.                 CASE "1000"
  1147.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 256
  1148.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 128
  1149.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 112
  1150.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 128
  1151.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 64
  1152.                 CASE "1001"
  1153.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 288
  1154.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 160
  1155.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 128
  1156.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 144
  1157.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 80
  1158.                 CASE "1010"
  1159.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 320
  1160.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 192
  1161.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 160
  1162.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 160
  1163.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 96
  1164.                 CASE "1011"
  1165.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 352
  1166.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 224
  1167.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 192
  1168.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 176
  1169.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 112
  1170.                 CASE "1100"
  1171.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 384
  1172.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 256
  1173.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 224
  1174.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 192
  1175.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 128
  1176.                 CASE "1101"
  1177.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 416
  1178.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 320
  1179.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 256
  1180.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 224
  1181.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 144
  1182.                 CASE "1110"
  1183.                     IF MPG = 1 AND LAY = 1 THEN Bitrate = 448
  1184.                     IF MPG = 1 AND LAY = 2 THEN Bitrate = 384
  1185.                     IF MPG = 1 AND LAY = 3 THEN Bitrate = 320
  1186.                     IF MPG = 2 AND LAY = 1 THEN Bitrate = 256
  1187.                     IF MPG = 2 AND LAY = 2 OR MPG = 2 AND LAY = 3 THEN Bitrate = 160
  1188.                 CASE "1111"
  1189.                     Bitrate = -1
  1190.             END SELECT
  1191.             SELECT CASE thi2r2$ 'sample rate table
  1192.                 CASE "00"
  1193.                     IF MP = 1 THEN Freq = 44100
  1194.                     IF MP = 2 THEN Freq = 22050
  1195.                     IF MP = 2.5 THEN Freq = 11025
  1196.                 CASE "01"
  1197.                     IF MP = 1 THEN Freq = 48000
  1198.                     IF MP = 2 THEN Freq = 24000
  1199.                     IF MP = 2.5 THEN Freq = 12000
  1200.                 CASE "10"
  1201.                     IF MP = 1 THEN Freq = 32000
  1202.                     IF MP = 2 THEN Freq = 16000
  1203.                     IF MP = 2.5 THEN Freq = 8000
  1204.                 CASE "11"
  1205.                     Freq = -1
  1206.             END SELECT
  1207.             SELECT CASE thi3r1$ 'padding bit
  1208.                 CASE "1"
  1209.                     IF MPG = 1 THEN pad = 32: FrameLenghtInBytes = (12 * Bitrate * 1000 / Freq * 10 + pad) * 4
  1210.                     IF MPG = 2 THEN pad = 8: FrameLenghtInBytes = 144 * Bitrate * 1000 / Freq * 10 + pad
  1211.                 CASE "0"
  1212.                     IF MPG = 1 THEN FrameLenghtInBytes = (12 * Bitrate * 1000 / Freq * 10) * 4
  1213.                     IF MPG = 2 THEN FrameLenghtInBytes = 144 * Bitrate * 1000 / Freq * 10
  1214.             END SELECT
  1215.             SELECT CASE four2$
  1216.                 CASE "00", "01", "10": chan = 2
  1217.                 CASE "11": chan = 1
  1218.             END SELECT
  1219.  
  1220.             IF Bitrate <> -1 AND Freq <> -1 THEN
  1221.  
  1222.                 IF ch = chan AND f = Freq THEN pass = pass + 1 ELSE ch = chan: f = Freq 'MUSS BE TESTED IN MORE CASES FOR VARIABLE MP3 COMPRESSION COMPATIBILITY!!!!!!!!!!!!!!!!!!!!
  1223.                 IF pass > 10 THEN EXIT DO '                                             you can see blick character E in program. Its because E is possible in 44 Khz only and sound use variable compression.
  1224.             END IF
  1225.  
  1226.  
  1227.  
  1228.  
  1229.         END IF
  1230.     LOOP
  1231.  
  1232.     PRINT "Found MP3 frame in"; SEEK(4)
  1233.     PRINT "Mode:"; chan
  1234.     PRINT "Rate:"; Freq
  1235.     PRINT "Bitrate:"; Bitrate; "kbps"
  1236.     RATE = Freq
  1237.     CLOSE #4
  1239.  
  1240.  
  1241. SUB id3s (file AS STRING)
  1242.     SHARED inframe$, file$, identit$, FileCreated, bVelikost
  1243.     id& = _NEWIMAGE(640, 480, 32)
  1244.     _DEST id&
  1245.  
  1246.     OPEN file$ FOR BINARY AS #1
  1247.     GET #1, , ID3
  1248.  
  1249.     IF ID3.Identifier$ <> "ID3" THEN PRINT "ID3 mark not found": identit$ = "ID3V1.1": GOTO ID3V11
  1250.     Version$ = "2." + LTRIM$(RTRIM$(STR$(ASC(ID3.VersionMajor$)))) + "." + LTRIM$(STR$(ASC(ID3.VersionRevis$))): PRINT "Detected ID3 v."; Version$: IF Version$ <> "2.3.0" THEN PRINT "WARNING, WRONG VERSION, THIS IS V2.3!!!"
  1251.     identit$ = Version$
  1252.  
  1253.  
  1254.     Ba$ = DECtoBIN$(ASC(ID3.BinarSizeA$))
  1255.     Bb$ = DECtoBIN$(ASC(ID3.BinarSizeB$)) '                                     FUNCTION converted decimal numbers to binar numbers
  1256.     Bc$ = DECtoBIN$(ASC(ID3.BinarSizeC$))
  1257.     Bd$ = DECtoBIN$(ASC(ID3.BinarSizeD$))
  1258.  
  1259.  
  1260.     headd$ = RIGHT$(Ba$, 7) + RIGHT$(Bb$, 7) + RIGHT$(Bc$, 7) + RIGHT$(Bd$, 7) '            BINARY WAR
  1261.     h = HEAD(headd$) / 2
  1262.     PRINT "Head size calculated AS STRING: "; h; " bytes"
  1263.  
  1264.     IF VAL(LEFT$(DECtoBIN$(ID3.BinarFlags), 1)) = 0 THEN PRINT "Synchronisation is not used" ELSE PRINT "Synchronisation is used"
  1265.     IF VAL(RIGHT$(LEFT$(DECtoBIN$(ID3.BinarFlags), 1), 1)) = 0 THEN PRINT "Extended header for ID3TAG is not used" ELSE PRINT "Extended header for ID3TAG is used - not supported by this program"
  1266.     IF VAL(RIGHT$(LEFT$(DECtoBIN$(ID3.BinarFlags), 2), 1)) = 1 THEN PRINT "Experimental ID3 TAG!" 'VAL is possile to use because strings contains zero or one
  1267.  
  1268.  
  1269.     '----------- cteni framu --------------               frames reading
  1270.     w = 1 '                                                                    FRAME head is 10 bytes long. 4 byte = name "AENC" or other, 4 byte size, 2 byte flags. Size is calculated as ASC sum of all four
  1271.     home: '                                                                    bytes.
  1272.  
  1273.     GET #1, , FRM '                                                             hlava ma 10 bytu: 4 byty jmeno, 4 byty velikost, 2 byty flags. Vse je psano klasicky hexadecimalne, uz zadny nesmysly s bitama.
  1274.     '                                                                                                   minimalni krok k dalsimu zaznamu ma byt 11 bytu (1byt je minimum pro kazdy identifikator, 10 byt
  1275.     '                                                                                                  je velikost hlavy. Velikost framu je dana souctem ASC ctyr bytu v hlave Framu.
  1276.     FrameSize = ASC(FRM.SizeA$) + ASC(FRM.SizeB$) + ASC(FRM.SizeC$) + ASC(FRM.SizeD$)
  1277.     inframe$ = SPACE$(FrameSize) 'this statement using is Clippy method, thank Clippy!
  1278.     GET #1, , inframe$
  1279.     q$ = FRM.Id$
  1280.     SELECT CASE FRM.Id$ '   -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - X =  HAVE OWN SECOND HEAD and can be more defined
  1281.         CASE "AENC": q$ = "Audio encryption:" '                    X
  1282.         CASE "APIC": q$ = "Attached Picture:": APICSUB: FC = 1: GOTO home 'X have writed. Is in this program.
  1283.         CASE "COMM": q$ = "Comments:" '                            X
  1284.         CASE "COMR": q$ = "Commercial frame:" '                    X
  1285.         CASE "ENCR": q$ = "Encryption method:" '                   X
  1286.         CASE "EQUA": q$ = "Equalization:" '                        X
  1287.         CASE "ETCO": q$ = "Event timing codes:" '                  X
  1288.         CASE "GEOB": q$ = "General encapsulated object:" '         X
  1289.         CASE "GRID": q$ = "Group identification registration:" '   X
  1290.         CASE "IPLS": q$ = "Involved people list:"
  1291.         CASE "LINK": q$ = "Linked information:" '                  X
  1292.         CASE "MCDI": q$ = "Music CD identifier:" '                 X
  1293.         CASE "MLLT": q$ = "MPEG location lookup table:" '          X
  1294.         CASE "OWNE": q$ = "Ownership frame:" '                     X
  1295.         CASE "PRIV": q$ = "Private frame:" '                       X
  1296.         CASE "PCNT": q$ = "Play counter:" '                        X
  1297.         CASE "POPM": q$ = "Popularimeter:"
  1298.         CASE "POSS": q$ = "Position synchronisation frame:" '      X
  1299.         CASE "RBUF": q$ = "Recommended buffer size:" '             X
  1300.         CASE "RVAD": q$ = "Relative volume adjustment:" '          X
  1301.         CASE "RVRB": q$ = "Reverb" '                               X
  1302.         CASE "SYLT": q$ = "Synchronized lyric / text:"
  1303.         CASE "SYTC": q$ = "Synchronized tempo codes:" '            X
  1304.         CASE "TALB": q$ = "Album / Movie / Show title:"
  1305.         CASE "TBPM": q$ = "Beats per minute:"
  1306.         CASE "TCOM": q$ = "Composer: "
  1307.         CASE "TCON": q$ = "Content type:" '                        X - number = style as ID3TAGV1.1
  1308.         CASE "TCOP": q$ = "Copyright message:"
  1309.         CASE "TDAT": q$ = "Date:" '                                    numeric record always 4 bytes long
  1310.         CASE "TDLY": q$ = "Playlist delay:"
  1311.         CASE "TENC": q$ = "Encoded by:"
  1312.         CASE "TEXT": q$ = "Lyricist / Text Writer"
  1313.         CASE "TFLT": q$ = "File type:" '                           X -  1/2/3/2.5(MPGs)/AAC/VQF/PCM
  1314.         CASE "TIME": q$ = "Time:" '                                      format HH:MM
  1315.         CASE "TIT1": q$ = "Content group description:"
  1316.         CASE "TIT2": q$ = "Title / songname:"
  1317.         CASE "TIT3": q$ = "Subtitle / Description refinement:"
  1318.         CASE "TKEY": q$ = "Initial key:"
  1319.         CASE "TLAN": q$ = "Language:"
  1320.         CASE "TLEN": q$ = "Length:"
  1321.         CASE "TMED": q$ = "Media type" '                           X
  1322.         CASE "TOAL": q$ = "Original album / movie / show title:"
  1323.         CASE "TOFN": q$ = "Original filename:"
  1324.         CASE "TOLY": q$ = "Original lyricist / text writer:"
  1325.         CASE "TOPE": q$ = "Original artist / performer:"
  1326.         CASE "TORY": q$ = "Original release year:"
  1327.         CASE "TOWN": q$ = "File owner / license:"
  1328.         CASE "TPE1": q$ = "Lead performer / Soloist:"
  1329.         CASE "TPE2": q$ = "Band / orchestra / accompaniment:"
  1330.         CASE "TPE3": q$ = "Conductor / performer refinement:"
  1331.         CASE "TPE4": q$ = "Modified by:"
  1332.         CASE "TPOS": q$ = "Part of a set:"
  1333.         CASE "TPUB": q$ = "Publisher:"
  1334.         CASE "TRCK": q$ = "Track number / Position in set:"
  1335.         CASE "TRDA": q$ = "Recording dates:"
  1336.         CASE "TRSN": q$ = "Internet radio station name:"
  1337.         CASE "TRSO": q$ = "Internet radio station owner:"
  1338.         CASE "TSIZ": q$ = "Size:"
  1339.         CASE "TSRC": q$ = "International standard recording code (ISRC):"
  1340.         CASE "TSSE": q$ = "Software / Hardware used for encoding:"
  1341.         CASE "TYER": q$ = "Year:"
  1342.         CASE "TXXX": q$ = "User defined text frame:" '             X - text encoding, description and value
  1343.         CASE "UFID": q$ = "Unique file identifier:"
  1344.         CASE "USER": q$ = "Terms of use:" '                        X
  1345.         CASE "USLT": q$ = "Unsychronized lyric/text transcription:" 'X
  1346.         CASE "WCOM": q$ = "Commercial information:"
  1347.         CASE "WCOP": q$ = "Copyright / Legal information:"
  1348.         CASE "WOAF": q$ = "Official audio file webpage:"
  1349.         CASE "WOAR": q$ = "Official artist / performer webpage:"
  1350.         CASE "WOAS": q$ = "Official audio source webpage:"
  1351.         CASE "WORS": q$ = "Official internet radio webpage:"
  1352.         CASE "WPAY": q$ = "Payment:"
  1353.         CASE "WPUB": q$ = "Publishers official webpage:"
  1354.         CASE "WXXX": q$ = "User defined URL link frame:" '           X
  1355.     END SELECT
  1356.  
  1357.  
  1358.     IF FRM.Id$ = "USLT" THEN
  1359.         textencod1 = ASC(LEFT$(inframe$, 1))
  1360.         textencod2 = ASC(LEFT$(MID$(inframe$, 1), 1))
  1361.         PRINT textencod1, textencod2
  1362.     END IF
  1363.  
  1364.     IF LEFT$(FRM.Id$, 1) = CHR$(0) OR LEFT$(FRM.Id$, 1) = CHR$(32) OR LEFT$(FRM.Id$, 1) = CHR$(255) OR RIGHT$(FRM.Id$, 1) = "d" THEN GOTO EndRec
  1365.  
  1366.     OUTList$(w, 0) = q$
  1367.     OUTList$(0, w) = inframe$
  1368.  
  1369.     inframe$ = ""
  1370.     readet = readet + 10 + FrameSize
  1371.     w = w + 1: GOTO home
  1372.     EndRec:
  1373.  
  1374.  
  1375.  
  1376.     PRINT "List: "; identit$
  1377.     FOR z = 1 TO w
  1378.         COLOR _RGB32(255, 0, 0): PRINT OUTList$(z, 0);: COLOR _RGB32(128, 128, 128): PRINT OUTList$(0, z)
  1379.     NEXT z
  1380.     IF FC = 1 THEN tis = 1000 ELSE tis = -SEEK(1)
  1381.     bVelikost = SEEK(1) + tis
  1382.     IF bVelikost > 0 THEN
  1383.         '-------- russian upgrade -------
  1384.         '            file$ = "soundcopy.mp3"
  1385.         new$ = SPACE$(LOF(1) - bVelikost)
  1386.         OPEN "soundcopy.mp3" FOR BINARY AS #60
  1387.         SEEK #1, bVelikost
  1388.         GET #1, , new$
  1389.         PUT #60, , new$
  1390.         CLOSE #60
  1391.         file$ = "soundcopy.mp3"
  1392.         '-----------------------------------
  1393.     END IF
  1394.     CLOSE #1
  1395.     EXIT SUB
  1396.  
  1397.  
  1398.     ID3V11:
  1399.     CLOSE
  1400.     OPEN file$ FOR BINARY AS #1
  1401.     DIM re AS STRING * 256
  1402.     DIM re0 AS STRING * 128
  1403.     DIM re2 AS STRING * 128
  1404.     GET #1, , re0$: IF LEFT$(re0$, 3) <> "ID3" THEN PRINT "ID3 mark not found! - but i try this" ' its opened, also its posibble to have uncorrect outputs.
  1405.     PRINT "Wait..."
  1406.     e = LOF(1) - 128
  1407.     IF e < 128 THEN PRINT "Error: LOF returned file length < 128 bytes!"
  1408.     CLS
  1409.     SEEK #1, e
  1410.     GET #1, e - 1, re0$
  1411.     GET #1, e, re2$
  1412.     re$ = re0$ + re2$ '                                   After several attempts, I realized that the begin of the last record may not be the very last recording at the end of the file...    :-D
  1413.  
  1414.     FOR scan = 1 TO LEN(re$) '                            Here this loop byte to byte scanned re$ for text "TAG" - its definition for ID3 tag begin
  1415.         id$ = LEFT$(MID$(re$, scan), 3)
  1416.         IF id$ = "TAG" THEN sca = scan: found = 1 '       byte position in string, "found" is myself method to prevent uncorrect outputs if file have none or ID3 V.2.2 ID3TAG, but its not usefull at 100%
  1417.     NEXT scan
  1418.     IF found = 0 THEN PRINT "Uncorrect record or no ID3V1.1 / ID3V2.3": CLOSE #1: EXIT SUB
  1419.     dal:
  1420.  
  1421.     SongName$ = LEFT$(MID$(re$, 3 + sca), 30)
  1422.     Autor$ = LEFT$(MID$(re$, 33 + sca), 30) '           filtering strings
  1423.     Album$ = LEFT$(MID$(re$, 63 + sca), 30) '           This way "integer = ASC(LEFT$(MID$(string$, position), long)) is way how read MP3 HEAD. BUT MP3 HEAD contains MANY tables and recordings.
  1424.     Rok$ = LEFT$(MID$(re$, 93 + sca), 4)
  1425.     Coment$ = LEFT$(MID$(re$, 97 + sca), 28)
  1426.     TrackID$ = LEFT$(MID$(re$, 125 + sca), 1)
  1427.     IF TrackID$ = CHR$(0) THEN track$ = STR$(ASC(LEFT$(MID$(re$, 126 + sca), 1))) ELSE track$ = "Not writed" '  See to https://en.wikipedia.org/wiki/ID3
  1428.     Gen$ = LEFT$(MID$(re$, 127 + sca), 1)
  1429.     IF Gen$ = "" THEN GOTO none
  1430.     genre = ASC(Gen$) + 1
  1431.     IF genre = 0 OR genre > 125 THEN GOTO none
  1432.     FOR gnr = 1 TO genre
  1433.         READ genre$
  1434.     NEXT gnr
  1435.     none:
  1436.     'PRINT re$ '  If you delete this mark "'", you see as its writed in file
  1437.     PRINT identit$
  1438.     PRINT
  1439.     PRINT "Song name: "; SongName$ '         Song
  1440.     PRINT "Author: "; Autor$ '               Author name
  1441.     PRINT "Album: "; Album$ '                Album
  1442.     PRINT "Year: "; Rok$ '                   Year
  1443.     PRINT "Comment: "; Coment$ '             Comment
  1444.     PRINT "Track: "; track$ '                Track number
  1445.     PRINT "Genre: "; genre$ '                Genre
  1446.  
  1447.     genre:
  1448.  
  1449.     DATA Blues,Classic Rock,Country,Dance,Disco,Funk,Grunge,Hip-Hop,Jazz,Metal,New Age,Oldies,Other,Pop,R&B,Rap,Reggae,Rock,Techno,Industrial,Alternative,Ska,Death Metal,Pranks,Soundtrack,Eurotechno,Ambient
  1450.     DATA Trip-Hop,Vocal,Jazz+Funk,Fusion,Trance,Classical,Instrumental,Acid,House,Game,Sound Clip,Gospel,Noise,Alternative Rock,Bass,Soul,Punk,Space,Meditative,Instrumental Pop,Instrumental Rock,Ethnic
  1451.     DATA Gothic,Darkwave,Techno-Industrial,Electronic,Jungle,Pop-Folk,Eurodance,Dream,Southern Rock,Comedy,Cult,Gangsta,Top 40,Christian Rap,Pop/Funk,Native American,Cabaret,New Wave,Psychadelic,Rave,Show Tunes
  1452.     DATA Trailer,Lo-Fi,Tribal,Acid Punk,Acid Jazz,Polka,Retro,Musical,Rock & Roll,Hard Rock,Folk,Folk/Rock,National Folk,Swing,Fast-Fusion,Bebop,Latin,Revival,Celtic,Bluegrass,Avantgarde,Gothic Rock,Progressive Rock
  1453.     DATA Psychedelic Rock,Symphonic Rock,Slow Rock,Big Band,Chorus,Easy Listening,Acoustic,Humour,Speech,Chanson,Opera,Chamber Music,Sonata,Symphony,Booty Bass,Primus,Porn Groove,Satire,Slow Jam,Club,Tango,Samba
  1454.     DATA Folklore,Ballad,Power Ballad,Rhytmic Soul,Freestyle,Duet,Punk Rock,Drum Solo,Acapella,Euro-House,Dance Hall,Goa,Drum & Bass,Club-House,Hardcore,Terror,Indie,BritPop,Negerpunk,Polsk Punk,Beat,Christian Gangsta Rap
  1455.     DATA Heavy Metal,Black Metal,Crossover,Contemporary Christian,Christian Rock
  1456.  
  1458.  
  1459. SUB APICSUB
  1460.     SHARED file$, inframe$, id&, bVelikost
  1461.     _DEST id&
  1462.     'vstupni souborova pozice je jedno. Vystupni je podstatna.
  1463.     mime$ = LTRIM$(RTRIM$(LEFT$(MID$(inframe$, 2), 9)))
  1464.  
  1465.     DIM detect AS STRING * 1024: REM soubor budu cist po 1 kilobytu
  1466.     OPEN file$ FOR BINARY AS #21
  1467.     home:
  1468.     IF EOF(21) THEN GOTO konec
  1469.     GET #21, , detect$
  1470.  
  1471.     SELECT CASE LCASE$(mime$)
  1472.  
  1473.         CASE "image/bmp" 'mt.mp3
  1474.             FOR hledej = 1 TO LEN(detect$)
  1475.                 a = a + 1
  1476.                 s$ = LEFT$(MID$(detect$, hledej), 2)
  1477.                 IF s$ = "BM" THEN
  1478.                     x = INSTR(detect$, s$)
  1479.                     PRINT "Picture detected. Begin at: "; a
  1480.                     bmpsize = CVL(LEFT$(MID$(detect$, a + 2), 4)) 'read bytes 3,4,5,6 - here is saved file lenght
  1481.                     PRINT " Bitmap size: "; bmpsize
  1482.                     GOTO dd4
  1483.                 END IF
  1484.             NEXT hledej
  1485.             GOTO home
  1486.  
  1487.             dd4:
  1488.             b = a + bmpsize
  1489.             ee = bmpsize
  1490.  
  1491.         CASE "image/png" 'na.mp3
  1492.  
  1493.             FOR hledej = 1 TO LEN(detect$)
  1494.                 a = a + 1
  1495.                 s$ = LEFT$(MID$(detect$, hledej), 3)
  1496.                 t$ = LEFT$(MID$(detect$, hledej), 12)
  1497.                 ePNG$ = CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(73) + CHR$(69) + CHR$(78) + CHR$(68) + CHR$(174) + CHR$(66) + CHR$(96) + CHR$(130)
  1498.                 IF s$ = "PNG" THEN PRINT "Picture detected. Begin at: "; a - 1: newA = a - 1 'first byte in PNG is for transfer control
  1499.                 IF t$ = ePNG$ THEN PRINT "Picture detected. End at: "; a: b = a: GOTO dd3
  1500.             NEXT hledej
  1501.             GOTO home
  1502.             dd3:
  1503.             a = newA
  1504.             ee = b - a
  1505.             b = b + 12
  1506.             xt$ = ".png"
  1507.  
  1508.         CASE "image/gif" 'both type, 87a or 89a not tested
  1509.             FOR hledej = 1 TO LEN(detect$)
  1510.                 a = a + 1
  1511.                 s$ = LEFT$(MID$(detect$, hledej), 3)
  1512.                 t$ = LEFT$(MID$(detect$, hledej), 2)
  1513.                 IF s$ = "GIF" THEN PRINT "Picture detected. Begin at: "; a: c = a
  1514.                 IF t$ = CHR$(0) + CHR$(59) THEN PRINT "Picture detected. End at: "; a: b = a: GOTO dd2
  1515.             NEXT hledej
  1516.             GOTO home
  1517.             dd2:
  1518.             a = c
  1519.             ee = b - a
  1520.             xt$ = ".gif"
  1521.  
  1522.         CASE "image/jpe", "image/jpg", "image/jfi"
  1523.  
  1524.             FOR hledej = 1 TO LEN(detect$)
  1525.                 a = a + 1
  1526.                 s$ = LEFT$(MID$(detect$, hledej), 2)
  1527.                 a$ = LEFT$(MID$(detect$, hledej), 4)
  1528.                 t$ = LEFT$(s$, 1)
  1529.                 u$ = RIGHT$(s$, 1)
  1530.                 IF t$ = CHR$(255) AND u$ = CHR$(216) THEN PRINT "Picture detected. Begin at: "; a: c = a
  1531.                 IF t$ = CHR$(255) AND u$ = CHR$(217) THEN PRINT "Picture detected. End at: "; a: b = a: GOTO dd
  1532.             NEXT hledej
  1533.             GOTO home
  1534.             dd:
  1535.             xt$ = ".jpg"
  1536.             ee = b - c
  1537.             a = c
  1538.     END SELECT
  1539.     konec:
  1540.  
  1541.     DIM picture(ee) AS LONG
  1542.     image$ = "swap" + xt$
  1543.     SEEK #1, a
  1544.     picture$ = SPACE$(ee)
  1545.     GET #1, , picture$
  1546.     'PRINT "EE"; ee, picture$: BEEP: SLEEP
  1547.     OPEN image$ FOR OUTPUT AS #22: CLOSE #22
  1548.     OPEN image$ FOR BINARY AS #22
  1549.     PUT #22, , picture$
  1550.     CLOSE #22
  1551.     i& = _LOADIMAGE(image$, 32)
  1552.     IF i& <> -1 THEN _PUTIMAGE (439, 279)-(639, 479), i&, id&, (0, 0)-(_WIDTH(i&), _HEIGHT(i&)), _SMOOTH ELSE PRINT "This image format is in QB64 not supported. See to "; image$; " to picture output."
  1553.  
  1554.     SEEK #1, b
  1555.     bVelikost = b
  1556.  
  1558.  
  1559.  
  1560. SUB speed
  1561.     SHARED kro, block, spd, ko, quit
  1562.     i$ = INKEY$
  1563.     SELECT CASE i$
  1564.         CASE "+": spd = spd + .01
  1565.         CASE "-": spd = spd - .01
  1566.         CASE CHR$(27): quit = 1: EXIT SUB
  1567.     END SELECT
  1568.     IF spd > 1 THEN spd = 1
  1569.     IF spd < 0 THEN spd = 0
  1570.     ko = tahloL(200, 300, 420, spd)
  1571.     kro = block + INT(-4 + (ko * 10)) * (block / 2)
  1572.  
  1574.  
  1575.  
  1576. FUNCTION HEAD (b AS STRING) 'BIN to DEC vystup je integer, vstup je string (jmeno FUNKCE je promenna s hodnotou z funkce)
  1577.     FOR Si = 0 TO LEN(b$)
  1578.         e$ = LEFT$(MID$(b$, Si + 1), 1)
  1579.         c = VAL(e$)
  1580.         Sj = LEN(b$) - Si
  1581.         DECtoBI2 = DECtoBI2 + (c * 2 ^ Sj)
  1582.     NEXT Si
  1583.     '    PRINT "Si:"; Si
  1584.     HEAD = DECtoBI2
  1586.  
  1587.  
  1588. FUNCTION DECtoBIN$ (vstup) 'DEC to BIN ok vystup je string, vstup je integer          decimal to binary number convertor   -   FROM QB64WIKI
  1589.     SHARED BINARY$
  1590.     '   BINARY$ = ""
  1591.     FOR rj = 7 TO 0 STEP -1
  1592.         IF vstup AND 2 ^ rj THEN BINtoDE$ = BINtoDE$ + "1" ELSE BINtoDE$ = BINtoDE$ + "0"
  1593.     NEXT rj
  1594.     DECtoBIN$ = BINtoDE$
  1596.  
  1597. FUNCTION BINtoDEC (b AS STRING) 'BIN to DEC vystup je integer, vstup je string (jmeno FUNKCE je promenna s hodnotou z funkce)
  1598.     FOR Si = 0 TO 7
  1599.         e$ = LEFT$(MID$(b$, Si + 1), 1)
  1600.         c = VAL(e$) '                                                                  binary to decimaly number convertor
  1601.         Sj = 7 - Si
  1602.         DECtoBI = DECtoBI + (c * 2 ^ Sj)
  1603.     NEXT Si
  1604.     BINtoDEC = DECtoBI
  1606.  
  1607. FUNCTION HEXtoDEC (h AS STRING) 'Vystup je integer, vstup je string, opacne k funkci HEX$
  1608.     HEXtoDEC = VAL("&H" + h$) '                                                         hexadecimaly to decimaly number convertor
  1610.  
  1611. FUNCTION BINtoHEX$ (bi$)
  1612.     c = BINtoDEC(bi$) '                                                                 binary to hexadecimaly number convertor (use binary to decimaly convertor)
  1613.     BINtoHEX$ = HEX$(c)
  1615.  
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Compiler issue with sound commands
« Reply #3 on: September 22, 2018, 06:53:53 am »
So I found one more bug about SNDRAW in the 07-21-18 version - if the playing is longer than a minute and 35 seconds breaks into noise. When compiling in the old version of .85, this will not happen and everything works as it should. To test this error, I attach an external MP3 decoder (third party software). Take the attached MP3 file and play it in the previous program. When compiling in the latest ide, the noise will go to the end after 1:35. When compiling in the older one, everything runs right to the end.


edit: older ide = .85 a test it on more than 10 MP3 files, behavior is always the same. The old IDE .85 has no problem, the new sabotage my work after 1:35
« Last Edit: September 22, 2018, 07:17:36 am by Petr »
Logged

Offline Nuke

  • Newbie
  • Posts: 8
    • View Profile
Re: Compiler issue with sound commands
« Reply #4 on: September 22, 2018, 12:39:59 pm »
Hi Petr!

Thanks for the reply.  This is a really nice little program.  Beautifully done.  And yes, it works fine for me.  I don't encounter any errors when playing the full length of your sulc.mp3 file, or my dog.wav or anything else that I've tried so far.  Not sure why it would start generating noise at the 1:35 mark for your, unless perhaps its a memory issue with the _SNDRAW command.  My computer may have a more memory perhaps?  Regardless, I didn't encounter any error playing the full length of sulc.mp3.

I'll use _SNDRAW and an encoder to work around the issues with _SNDOPEN and _SNDPLAYFILE for now. 

Did you also encounter errors using _SNDOPEN or _SNDPLAYFILE on this latest build?  Or is this just me?
Logged
If the world didn't suck, we'd all fall off.

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Compiler issue with sound commands
« Reply #5 on: September 22, 2018, 01:08:19 pm »
Hi Nuke
where is Duke?  :-)

welcome in this forum....

I use QB64 version 20180228/86 downloaded from here http://qb64.org/autobuilds/development/qb64_2018-09-21-04-38-01_e490b1a-development_win.7z
In my notebook Intel i3 8Gb Ram 500Gb HDD, TOSHIBA.
Usually I use QB64IDE to write and compile, but for the preference of the moment I have used DavIDE to test your program!
On first I have tryed to use your program with one of my MP3 more long of 1.35 minutes and all go good, no error or noise after this time.
On Second I have downloaded your dog.wav and the code works again well.

in the help of QB64 we can read
Quote
The _SNDOPEN function loads a sound file into memory and returns a LONG handle value
above 0.

Syntax:
     soundHandle& = _SNDOPEN(fileName$)

=Syntax prior to build 20170811/60=
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
     soundHandle& = _SNDOPEN(fileName$[, "[VOL][,][SYNC][,][LEN][,][PAUSE][,][SETPOS]"])

Description:
þ Returns a LONG soundHandle& value to the sound file in memory. A zero value means the
  sound could not be loaded.
þ The literal or variable STRING sound fileName$ can be WAV, OGG or MP3 file types.
    þ Older versions of QB64 may support AIFF, RIFF, VOC, MOD and MIDI.
þ Always check the handle value returned is greater than zero before attempting to play
  the sound.
þ The handle can be used by most of the _SND sound playing functions and statements in
  QB64 except _SNDPLAYFILE which plays a sound file directly from the disk and does not
  use a handle value.
þ Handles can be closed with _SNDCLOSE when the sound is no longer necessary.
þ If a WAV sound file won't play, try it using the Windows Play WAV sounds library to
  check it or convert the sound file to OGG.

I can say that sometimes I have trouble with sound files but making a second attempt to run the code it goes well.
Good Coding
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Compiler issue with sound commands
« Reply #6 on: September 22, 2018, 02:42:17 pm »
Quote
Did you also encounter errors using _SNDOPEN or _SNDPLAYFILE on this latest build?  Or is this just me?

Actually, I came to them right now because of your problem. I think the developers have already solved this, but I'm not quite sure. I currently know about the problem (and its solution with Fellippe) when trying to play MP3s on Linux. I do nothing with the sound right now, because make now something with graphic in 32 bit.
Logged

Offline Nuke

  • Newbie
  • Posts: 8
    • View Profile
Re: Compiler issue with sound commands
« Reply #7 on: September 22, 2018, 04:19:12 pm »
Hi TempodiBasic,

That's interesting.  The previous build you're running has no issues with _SNDOPEN or _SNDPLAY?  Then I would guess this issue is something that was introduced since then, maybe in the last build.  I'm going to download the version you're using and test it to see if I have issues with _SNDPLAY using it.   To be clear, that program was Petr's, not mine.  My issue was just getting these two lines to even compile.

h& = _SNDOPEN("D:\qb64\dog.wav")
IF h& = 0 THEN BEEP ELSE _SNDPLAY h& 'check for valid handle before using!

I get a compiler error message from these two lines of code.  It's not a run-time issue really.  But now I suspect this is being caused by the latest build of the compiler.

I'll let you know if I get the error using the version of QB64 that you're using.  Thanks for the reply!
Logged
If the world didn't suck, we'd all fall off.

Offline Nuke

  • Newbie
  • Posts: 8
    • View Profile
Re: Compiler issue with sound commands
« Reply #8 on: September 22, 2018, 04:22:14 pm »
And Petr, thanks for taking the time to look into it further.  I'll load a previous version of the compiler build as TempodiBasic suggested and see if the compile error still persists.  I'll let you know.

Regardless, I'll wait for an updated version of QB64 to try and use these commands.  I'll just use _SNDRAW for now.

Thanks man!
Logged
If the world didn't suck, we'd all fall off.

Offline TerryRitchie

  • Seasoned Forum Regular
  • Posts: 495
  • Semper Fidelis
    • View Profile
Re: Compiler issue with sound commands
« Reply #9 on: September 22, 2018, 04:23:56 pm »
I periodically had issues with .WAV and .MP3 files when I first started using QB64. I've never had an issue with .OGG files (that I can remember anyway) so now I convert all my sound files to .OGG using Audacity ( https://www.audacityteam.org/ ) before I use them in QB64.
Logged
In order to understand recursion, one must first understand recursion.

FellippeHeitor

  • Guest
Re: Compiler issue with sound commands
« Reply #10 on: September 22, 2018, 05:14:00 pm »
That MP3 specifically played with no issues on my machine until the end and I didn't encounter the issue with other files I had tested before. We use an external library for sound (OpenAL) and something must be interacting weirdly with your systems, but it's hard to pinpoint what exactly the issue may be.

Code: QB64: [Select]
  1. h& = _SNDOPEN("sulc.mp3")
  2. IF h& = 0 THEN PRINT "Loading failed.": END
  3.  
  4. PRINT "File loaded ok"
  5. PRINT "Sound length (seconds): "; _SNDLEN(h&)
  6. PRINT "Hit a key to start playing..."
  7. r = CSRLIN
  8. a$ = INPUT$(1)
  11.     LOCATE r, 1
  12.     PRINT USING "###.## / ###.##"; _SNDGETPOS(h&); _SNDLEN(h&)
  13.     _LIMIT 30

Now the dog.wav file not only didn't play on my machine but it also crashed when playing was attempted [EDIT: crash occurred when trying to load the file, I didn't even get to try playing it]. It may be encoded in too low a bitrate for the library to handle, but either way we'll have to wait for the C++ experts to be able to analyze what could be causing it, as well as the compilation error.

I was able to provide a solution to a recent issue of sound library not being able to be compiled on 64bit Linux systems (that's coming to a near-future dev build as soon as I can confirm it doesn't break 32bit versions), but that's a completely different beast.
« Last Edit: September 22, 2018, 05:16:09 pm by FellippeHeitor »
Logged

Offline Nuke

  • Newbie
  • Posts: 8
    • View Profile
Re: Compiler issue with sound commands
« Reply #11 on: September 22, 2018, 06:45:46 pm »
Hi Fellippe,

Well, hmm.  I tried pasting your program and compiling it after changing it to access the correct drive and directory for the sulc.mp3.  It gave me the same compiler error message.  I then changed the program to point to an MP3 file that didn't even exist, and it gave me the same compiler error message.  I don't believe it's even getting to the point that it's looking at the sound file before it crashes the compiler.  My guess is something is going on with my sound drivers and how they are allocated by Windows 10.  I tried running QB64 as the administrator, but that didn't seem to make any difference.  I'm obviously way out of my depth here.  Here's the compiler message that it generated again.  Thanks for looking at this.

libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x621cf): undefined reference to `_speex_resampler_init'
libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x62313): undefined reference to `_speex_resampler_process_interleaved_int'
libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x62341): undefined reference to `_speex_resampler_destroy'
libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x6235d): undefined reference to `_speex_resampler_destroy'
d:/qb64/internal/c/c_compiler/bin/../lib/gcc/i686-w64-mingw32/4.7.1/../../../../i686-w64-mingw32/bin/ld.exe: libqb\os\win\libqb_1_2_011100000000.o: bad reloc address 0x524 in section `.data'
d:/qb64/internal/c/c_compiler/bin/../lib/gcc/i686-w64-mingw32/4.7.1/../../../../i686-w64-mingw32/bin/ld.exe: final link failed: Invalid operation
collect2.exe: error: ld returned 1 exit status
Logged
If the world didn't suck, we'd all fall off.

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Compiler issue with sound commands
« Reply #12 on: September 22, 2018, 07:27:39 pm »
Hi Nuke
I have just downloaded the last development version and your code with dog.wav runs well

QB64 version 1.2  revision (dev build) from git e490b1a

and you what OS is on your pc? What version of QB64 does error on your pc?
can your feedback more accurate?

Thanks
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline Nuke

  • Newbie
  • Posts: 8
    • View Profile
Re: Compiler issue with sound commands
« Reply #13 on: September 22, 2018, 09:32:05 pm »
Hi TempoidBasic,

Sorry, thought I'd mentioned that.  The error message is coming up using QB64, 32 bit version 1.2, Revision 20180202/85 From git 1d0f920.

I'm attaching a specifications file from Windows 10 showing all versions of O/S and driver information on my system.  The compiler error message doesn't give version information that I can see.

The simple line B& =_SNDOPEN("D:\qb64\dog.wav") compiled results in the error message in the IDE window below.  C++ Compilation Failed (Check .\internal\temp2\compilelog.txt), and that file contains the following text.

libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x621cf): undefined reference to `_speex_resampler_init'
libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x62313): undefined reference to `_speex_resampler_process_interleaved_int'
libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x62341): undefined reference to `_speex_resampler_destroy'
libqb\os\win\libqb_1_2_011100000000.o:libqb.cpp:(.text+0x6235d): undefined reference to `_speex_resampler_destroy'
d:/qb64/internal/c/c_compiler/bin/../lib/gcc/i686-w64-mingw32/4.7.1/../../../../i686-w64-mingw32/bin/ld.exe: libqb\os\win\libqb_1_2_011100000000.o: bad reloc address 0x524 in section `.data'
d:/qb64/internal/c/c_compiler/bin/../lib/gcc/i686-w64-mingw32/4.7.1/../../../../i686-w64-mingw32/bin/ld.exe: final link failed: Invalid operation
collect2.exe: error: ld returned 1 exit status
Logged
If the world didn't suck, we'd all fall off.

FellippeHeitor

  • Guest
Re: Compiler issue with sound commands
« Reply #14 on: September 22, 2018, 09:33:40 pm »
I'd try the latest development build to see if the issue may have already been addressed. Get it from the homepage www.qb64.org

The version you're using is ~7 months old now.
« Last Edit: September 22, 2018, 09:34:58 pm by FellippeHeitor »
Logged
Pages: [1] 2 3 4   Go Up
« previous next »