Bug head Emperor 2.0 Digital monster sound player

oryaaaaa · **Posted:** Mon Mar 19, 2012 3:51 am

Bug head Emperor Ver2.00 Build by PureBasic 5.10

It is a tribute to the Emperor.

required WASAPI or ASIO2 driver and DAC device
required 44.1kHz x2 or x4 mode need 88.2kHz or 176.4kHz
required 48.0kHz x2 or x4 mode need 96.0kHz or 192.0kHz
required SSE2 CPU
required Memory space 600MB over
required Multi cores CPU (Multi thread mode)
required Must be to relax the user (Quality can not be improved)

Bug head official website
http://nr3.coolverse.jp/

Screen shot
http://nr3.coolverse.jp/_userdata/ssbughead.png

Latest download (Ver2.00) [2013/03/09 15:00]
http://nr3.coolverse.jp/_userdata/downl ... =BagHead_1

[/size]
Support Audio files
16 bit or 24 bit or 32bit
44.1kHz / 48kHz / 88.2kHz / 96kHz / 176.4kHz / 192kHz
WAV / OGG / FLAC / M4A / AAC / ALAC(M4A) / WMA / MP3 / CDA(AudioCD)
WV(WavPak)

have fun

Kuron · **Joined:** Sat Oct 17, 2009 10:51 pm **Posts:** 919

Congratulations!!!

oryaaaaa · **Posted:** Tue Mar 20, 2012 7:53 pm

Thank you!

Update
Fix. [x4] Channel swap

The sound requested the current audio player is different.

oryaaaaa · **Posted:** Tue Apr 17, 2012 8:43 am

Update Ver1.2

Download
http://nr3.coolverse.jp/Bughead/

Zach · **Posted:** Tue Apr 17, 2012 4:25 pm

So basically.. it's an upsampler?

I'm not really an audiophile so don't know what I would do with it. I take it, it is supposed to increase "perceptual" quality, like NSF/SPC players etc "upsample" to help get rid of noise, etc ?
Only this is supposed to help improve audio files, instead of console dumps, obviously :p

oryaaaaa · **Posted:** Tue Apr 17, 2012 10:23 pm

It is a sound source generation algorithm that is more excellent than a past theory.

Need DAC digital headphone amp ( include LPF )
Need ASIO Driver ( ASIO4ALL use, need Audio codec (embeded LPF) )

The sound quality of Bug head is better when actually comparing it with AIMP3, foobar2000 and WINAMP.
Do you understand it ?

Zach · **Posted:** Sat Apr 21, 2012 10:23 pm

I think so

oryaaaaa · **Posted:** Thu May 31, 2012 11:46 am

Update version

64bit digital remaster mode (RED)
64bit digital low path filter (Green-Hamming, Red-Blackman)
Line-in mode for internet radio, SHOUTcast, etc
WASAPI Support (beta), If you have trouble, then use asio4all.
http://www.asio4all.com/
tons of bug fixes

Could you do the volume adjustment on the amplifier side?
coz for USB DAC Digital headphone amp.

have fun

oryaaaaa · **Posted:** Sun Jun 10, 2012 9:25 pm

Update 1.612

LPF2047tap(Brown, required 2cores)
LPF4097tap(Purple, required 2cores)
FIX WASAPI Bug
FIX CDA Bug
increased reability
Support 32/176.4 and 32/192

Recomend sound mode

Default: REDx1. Green-LPF
x2, Green-LPF
REDx4, Brown-LPF

Next future

BROWNx2, BROWNx4 Sound mode (Required 2cores)
Convert tool mode
Display IDv2 TAG information

have fun

oryaaaaa · **Posted:** Tue Jul 17, 2012 10:15 am

Update 1.658

Sound engine version up
some bugs fixed

This software need support 44.1/88.2/176.4kHz.
coz USB AUDIO CLASS 2 only

This version is final version in this season.
If you want to newest Headphone-DAC (Made in Japan), I will send you it.
or Hiface Evo or ...

oryaaaaa · **Posted:** Wed Jul 25, 2012 1:12 pm

Finished project for Ver1.x

By development about knowhow
http://www.un4seen.com/forum/?topic=13888.0

Next stages Ver2.x, Shareware.... give up

I wrote a novel aiming at the novelist.
It takes 500 hours or more to finish reading.
The polish of the novel was a hell because it had aimed at the highest novel in the world.
and ...

I made the music player from a theory wrong by refreshing.
It is Bug head.

Thanks for reading.

oryaaaaa · **Posted:** Mon Aug 06, 2012 12:38 am

Update Ver1.752

Perfect gapless processing
Audio processing engine is improved
don't support frequency, "Reject" will display
Some bug fixed

oryaaaaa · **Posted:** Tue Aug 21, 2012 5:21 am

Update Ver1.803

Critical bug fixed, Sound engine stop
Unlock multi thread mode, 4 cores or 8 cores more
PureBasic Ver4.7 base
Gapless bug fixed
Fixed Japanese document
Fixed License EULA
Post softpedia.com, Get 100% CLEAN Award

http://www.softpedia.com/get/Multimedia ... head.shtml

oryaaaaa · **Posted:** Wed Sep 05, 2012 5:45 pm

Update 1.811

Criticul bug fix (Sound engine stop. maybe, finished)
Recommended usage add to PDF manual
Change Logo image
Remove LockMutex from multi thread programming
Build by PureBasic 5.00

have fun.

If you use multi thread, You should get cores on main thread.
coz sometimes rarely crush thread.... :shock:

Code:

Procedure.b CheckCores()
  Protected ProcessMask.l, SystemMask.l, Count.b, i.b
  If GetProcessAffinityMask_(GetCurrentProcess_(), @ProcessMask, @SystemMask)
    For i=0 To 31
      If ProcessMask & (1<<i)
        Count+1
      EndIf
    Next
  EndIf
  If Count=0: Count=1: EndIf
  ProcedureReturn Count
EndProcedure

Main thread ... call OK
Sub thread ... call rarely crush

BASS ASIO and BASS WASAPI, code snippets.

Code:

Procedure.l AsioProc(input.b, channel.l, *buffer, length.l, *user)
  ;http://www.un4seen.com/forum/?topic=11261.0
  Shared chan4.l, UST.b
  Protected infopos.q, infolen.q
  Protected *b=*buffer
  Protected C.l = 0
  Select chan4
    Case #chan3
      If (out_2s-out_2p)>length ; must > , next songs? crush
        CopyMemory(*out_2+out_2p, *b, length)
        out_2p + length : C = length
      ElseIf out_2s>out_2p
        CopyMemory(*out_2+out_2p, *b, out_2s-out_2p)
        C = out_2s - out_2p : out_2s=out_2p
        If out_1p=0
          CopyMemory(*out_1, *b+C, length-C)
          out_1p = length - C : C = length
          chan4 = #chan2
        EndIf
      EndIf
      
    Case #chan2
      If (out_1s-out_1p)>length
        CopyMemory(*out_1+out_1p, *b, length)
        out_1p + length : C = length
      ElseIf out_1s>out_1p
        CopyMemory(*out_1+out_1p, *b, out_1s-out_1p)
        C = out_1s - out_1p : out_1s=out_1p
        If out_2p=0
          CopyMemory(*out_2, *b+C, length-C)
          out_2p = length - C : C = length
          chan4=#chan3
        EndIf
      EndIf
      
  EndSelect 
   
  If ListSize(Info())>0
    FirstElement(Info())
    Info()\pos + Int(length/UST)
    infopos = Info()\pos
    infolen  = Info()\length
    If infopos>=infolen
      DeleteElement(Info())
      If ListSize(Info())>0
        FirstElement(Info())
        Info()\pos = infopos - infolen
      EndIf
    EndIf  
  EndIf
  ProcedureReturn C
EndProcedure

Procedure.l WasapiProc( *buffer, length.l, *user)
  Shared chan4.l, UST.b
  Protected infopos.q, infolen.q
  Protected *b=*buffer
  Protected C.l = 0
  Select chan4
    Case #chan3
      If (out_2s-out_2p)>length
        CopyMemory(*out_2+out_2p, *b, length)
        out_2p + length : C = length
      ElseIf out_2s>out_2p
        CopyMemory(*out_2+out_2p, *b, out_2s-out_2p)
        C = out_2s - out_2p : out_2s=out_2p
        If out_1p=0
          CopyMemory(*out_1, *b+C, length-C)
          out_1p = length - C : C = length
          chan4 = #chan2
        EndIf
      EndIf
      
    Case #chan2
      If (out_1s-out_1p)>length
        CopyMemory(*out_1+out_1p, *b, length)
        out_1p + length : C = length
      ElseIf out_1s>out_1p
        CopyMemory(*out_1+out_1p, *b, out_1s-out_1p)
        C = out_1s - out_1p : out_1s=out_1p
        If out_2p=0
          CopyMemory(*out_2, *b+C, length-C)
          out_2p = length - C : C = length
          chan4=#chan3
        EndIf
      EndIf
      
  EndSelect 
  
  If ListSize(Info())>0
    FirstElement(Info())
    Info()\pos + Int(length/UST)
    infopos = Info()\pos
    infolen  = Info()\length
    If infopos>=infolen
      DeleteElement(Info())
      If ListSize(Info())>0
        FirstElement(Info())
        Info()\pos = infopos - infolen
      EndIf
    EndIf  
  EndIf
  ProcedureReturn C
EndProcedure

BASS Decode process, Code snippets

Code:

pos.q = BASS_ChannelGetLength(chan,#BASS_POS_BYTE)
pos2.q = BASS_ChannelGetPosition(chan,#BASS_POS_BYTE)
If (pos-pos2)<=#BUF1
  pdiv = pos-pos2
  K = Bass_ChannelGetData(chan, *out2, pdiv)
  If K>0
    pdiv = K
  ElseIf BASS_ErrorGetCode()<>#BASS_ERROR_ENDED
    Endpos=2
    Break 
  EndIf
  Repeat
    NextPlaysongs()
    If chan<>0
      pos=BASS_ChannelGetLength(chan,#BASS_POS_BYTE)
      K = Bass_ChannelGetData(chan, *out2+pdiv, #BUF1-pdiv) 
      If K>0
        pdiv + K
      Else
        Endpos=2
        Break 
      EndIf
    Else
      Endpos=2
      Break
    EndIf
  Until pdiv=>#BUF1
Else
  pdiv = #BUF1
  K = Bass_ChannelGetData(chan, *out2, pdiv) 
  If K>0
    pdiv = K
  Else
    Endpos=2
    Break 
  EndIf
EndIf
Select ch 
  Case 1
    CopyMemory(*out2, *out_2, pdiv)
    NowChan = #chan2 : out_2s = pdiv : out_2p = 0
    ready=pdiv :; chan4 = #chan2
  Case 2
    CopyMemory(*out2, *out_1, pdiv)
    NowChan = #chan3  : out_1s = pdiv : out_1p = 0
    ready=pdiv:; chan4 = #chan3
EndSelect

oryaaaaa · **Posted:** Fri Sep 14, 2012 12:51 am

Update Ver1.820

Critical bug, no devices or short of memory.

PureBasic Forum

Bug head Emperor 2.0 Digital monster sound player

Who is online