cimp/cimp.bas

declare library"terminkey"
    function terminkey%()
    sub echooff()
    sub echoon()
    function termwidth()
end declare

$console:only
on error goto quit
const key_up=1001
const key_down=1002
const key_right=1003
const key_left=1004

$if win then
shell"chcp 65001 > nul"
$end if

redim file(0) as string
if command$=""then
    print"please specify file to play."
    goto quit
end if

echooff
cursoroff
chdir _startdir$

dim volume as single
dim repeat as integer
dim shuffle as integer
dim nooutput as integer
dim timevis as integer
dim nyan as integer
dim marqueeoffset as integer
dim i as integer

dim musichandle as long
dim oldhandle as long
dim keyin as integer
dim playnext as integer

dim state as string
dim songname as string
dim progress as string
dim progressbar as string

dim tw as integer
dim fixedwidth as integer
dim maxtitlewidth as integer
dim visibletitle as string
dim currentsongwidth as integer
dim paddedtitle as string
dim paddedlength as integer
dim idx as integer
dim addedwidth as integer
dim charidx as integer
dim nextchar as string
dim marqueeframe as integer

volume=1
repeat=0
shuffle=0
nooutput=0
timevis=1
nyan=0
marqueeoffset=0

for i=1 to _commandcount
    select case command$(i)
        case "-v","--volume"
            i=i+1
            volume=val(command$(i))/100
        case "-s","--shuffle"
            shuffle=-1
        case "-r","--repeat"
            if command$(i+1)="1"then
                repeat=1
            else
                repeat=-1
            end if
        case "-n","--nooutput"
            nooutput=-1
        case "-N","--nyan"
            nyan=-1
        case else
            if _fileexists(command$(i)) then
                if lcase$(right$(command$(i),4))=".m3u"then
                    parsem3u command$(i),file()
                else
                    file(ubound(file))=command$(i)
                    redim _preserve file(ubound(file)+1)
                end if
            end if
    end select
next

redim _preserve file(ubound(file)-1)

if shuffle=-1 then shufflearray file()
i=0
musichandle=_sndopen(file(i))
if musichandle=0 then
    print"Error: could not open file "; file(i)
    goto quit
end if
_sndvol musichandle,volume
_sndplay musichandle
state="playing "
songname=beforelast(".",afterlast("/",file(i)))

while keyin<>27
    keyin=terminkey
    select case keyin
        case key_up
            volume=volume+(0.01+(volume/10))
            if volume>1 then volume=1
            _sndvol musichandle,volume
        case key_down
            volume=volume-(0.01+(volume/10))
            if volume<0 then volume=0
            _sndvol musichandle,volume
        case key_right
            if _sndgetpos(musichandle)+5<_sndlen(musichandle) then
                _sndsetpos musichandle,_sndgetpos(musichandle)+5
            else
                playnext=1
            end if
        case key_left
            if _sndgetpos(musichandle)-5>0 then
                _sndsetpos musichandle,_sndgetpos(musichandle)-5
            else
                playnext=-1
            end if
        case asc("q")
            keyin=27
        case asc("z")
            if _sndgetpos(musichandle)>2 then
                _sndsetpos musichandle,0
            else
                playnext=-1
            end if
        case asc("x")
            if _sndplaying(musichandle) then
                _sndsetpos musichandle,0
            else
                _sndplay musichandle
            end if
        case asc("c"),asc(" ")
            if _sndplaying(musichandle) then
                _sndpause musichandle
                state="paused "
            else
                _sndplay musichandle
                state="playing "
            end if
        case asc("v")
            _sndstop musichandle
            state="stopped "
        case asc("b")
            playnext=1
        case asc("t")
            timevis=-timevis
        case asc("s")
            shufflearray file()
    end select

    if _sndgetpos(musichandle)=_sndlen(musichandle) then playnext=1
    if playnext<>0 then
        oldhandle=musichandle
        if repeat=1 and playnext=1 then
            playnext=0
        else
            i=i+playnext
            if i>ubound(file) then
                if repeat=-1 then
                    i=0
                else
                    goto quit
                end if
            elseif i<lbound(file) then
                if repeat=-1 then
                    i=ubound(file)
                else
                    i=lbound(file)
                end if
            end if
        end if
        musichandle=_sndopen(file(i))
        if musichandle<>0 then
            _sndvol musichandle,volume
            _sndplay musichandle
            _sndstop oldhandle
            _sndclose oldhandle
            state="playing "
            songname=beforelast(".",afterlast("/",file(i)))
            playnext=0
        else
            musichandle=oldhandle
        end if
    end if

    if timevis=1 then
        progress=" -"+timeleft(musichandle)
    else
        progress=" "+timeelapsed(musichandle)
    end if
    if nooutput=0 then
        tw=termwidth
        fixedwidth=uwidth(state)+uwidth(progress)
        maxtitlewidth=tw-fixedwidth-2
        currentsongwidth=uwidth(songname)

        if currentsongwidth>maxtitlewidth and maxtitlewidth>4 then
            paddedtitle=songname+" "
            paddedlength=ulen(paddedtitle)
            visibletitle=""
            addedwidth=0
            idx=0
            while addedwidth<maxtitlewidth
                charidx=((marqueeoffset+idx) mod paddedlength)+1
                nextchar=umid(paddedtitle,charidx,1)
                if addedwidth+uwidth(nextchar)>maxtitlewidth then exit while
                visibletitle=visibletitle+nextchar
                addedwidth=addedwidth+uwidth(nextchar)
                idx=idx+1
            wend

            if addedwidth<maxtitlewidth then
                visibletitle=visibletitle+space$(maxtitlewidth-addedwidth)
            end if

            marqueeframe=marqueeframe+1
            if marqueeframe mod 4=0 then
                marqueeoffset=marqueeoffset+1
                if marqueeoffset>=paddedlength then marqueeoffset=0
            end if
        else
            ' Terminal is wide enough, no scrolling needed
            visibletitle=songname
            marqueeoffset=0
        end if

        ' Reset marquee offset if song changes
        if playnext<>0 then marqueeoffset=0

        ' Print the text line
        if nyan=-1 then
            print termcolor(7); state; animatedrainbowtext(visibletitle); termcolor(7); progress; clearrest
        else
            print termcolor(7); state; termcolor(3); visibletitle; termcolor(7); progress; clearrest
        end if

        ' Generate and print progress bar matching the layout width
        progressbar=bar(uwidth(state)+uwidth(visibletitle)+uwidth(progress),(_sndgetpos(musichandle)/_sndlen(musichandle))*100,11,7)
        print progressbar; clearrest; cursorback;
    end if

    _limit 30
    if _exit then goto quit
wend

quit:
_sndclose musichandle
print clearrest
print clearrest;
print cursorback;
print chr$(27)+"[0m";
cursoron
echoon
system

sub shufflearray (stringarray() as string)
    randomize timer
    dim n as long,j as long
    for n=ubound(stringarray) to 1 step -1
        j=int(rnd*n)
        swap stringarray(n),stringarray(j)
    next
end sub

sub parsem3u (filename$,array$())
    dim i as long,f as long,count as long
    dim basepath$,l$,resolvedpath$
    for i=len(filename$) to 1 step -1
        if mid$(filename$,i,1)="/"or mid$(filename$,i,1)="\"then
            basepath$=left$(filename$,i)
            exit for
        end if
    next
    f=freefile
    open filename$ for input as #f
    count=0
    do until eof(f)
        line input #f,l$
        l$=_trim$(l$)
        if len(l$)>0 and left$(l$,1)<>"#"then
            resolvedpath$=l$
            if not _fileexists(resolvedpath$) then
                resolvedpath$=basepath$+l$
            end if
            if _fileexists(resolvedpath$) then
                array$(ubound(array$))=resolvedpath$
                redim _preserve array$(ubound(array$)+1)
            end if
        end if
    loop
    close #f
end sub

function timeleft$ (handle&)
    dim seconds as integer
    seconds=_sndlen(handle&)-_sndgetpos(handle&)
    if seconds<0 then seconds=0
    timeleft$=right$("0"+ltrim$(str$(seconds \ 60)),2)+":"+right$("0"+ltrim$(str$(seconds mod 60)),2)
end function

function timeelapsed$ (handle&)
    dim seconds as integer
    seconds=_sndgetpos(handle&)
    if seconds<0 then seconds=0
    timeelapsed$=right$("0"+ltrim$(str$(seconds \ 60)),2)+":"+right$("0"+ltrim$(str$(seconds mod 60)),2)
end function

function termcolor$ (colorvalue as _unsigned long)
    select case colorvalue
        case 0 to 7
            termcolor=chr$(27)+"[0;3"+_trim$(str$(colorvalue))+"m"
        case 8 to 15
            termcolor=chr$(27)+"[1;3"+_trim$(str$(colorvalue-8))+"m"
        case 16 to 255
            termcolor=chr$(27)+"[38;5;"+_trim$(str$(colorvalue))+"m"
        case is>255
            termcolor=chr$(27)+"[38;2;"+_trim$(str$(_red32(colorvalue)))+";"+_trim$(str$(_green32(colorvalue)))+";"+_trim$(str$(_blue32(colorvalue)))+"m"
    end select
end function

function cursorback$ ()
    cursorback=chr$(27)+"[F"
end function

function clearline$
    clearline=chr$(27)+"[2K"
end function

function clearrest$
    clearrest=chr$(27)+"[K"
end function

sub cursoroff ()
    print chr$(27);"[?25l";
end sub

sub cursoron ()
    print chr$(27);"[?25h";
end sub

function bar$ (length as integer,percent as integer,color1 as long,color2 as long)
    dim done as string
    dim notdone as string
    dim i as integer
    for i=1 to int((percent/100)*length)
        done=done+"━"
    next i
    for i=1 to length-int((percent/100)*length)
        notdone=notdone+"━"
    next i
    bar$=termcolor(color1)+done+termcolor(color2)+notdone
end function

function afterlast$ (delim as string,strng as string)
    afterlast=mid$(strng,_instrrev(strng,delim)+1)
end function

function beforelast$ (delim as string,strng as string)
    beforelast=left$(strng,_instrrev(strng,delim)-1)
end function

function animatedrainbowtext$ (text$)
    static offset as double
    dim result as string
    dim l as long,i as long
    dim r as integer,g as integer,b as integer
    dim hue as double,f as double
    dim sector as integer,v as integer,p as integer,q as integer,t as integer
    dim rgbpart$

    l=ulen(text$)
    if l=0 then exit function
    offset=offset+5.0
    if offset>=360 then offset=offset-360

    for i=1 to l
        hue=mod_double(offset+((i-1)/l)*360,360)
        sector=int(hue/60)
        f=(hue/60)-sector
        v=255:p=0:q=255*(1-f):t=255*f
        select case sector
            case 0:r=v:g=t:b=p
            case 1:r=q:g=v:b=p
            case 2:r=p:g=v:b=t
            case 3:r=p:g=q:b=v
            case 4:r=t:g=p:b=v
            case 5:r=v:g=p:b=q
        end select
        rgbpart$=_trim$(str$(r))+";"+_trim$(str$(g))+";"+_trim$(str$(b))
        result=result+chr$(27)+"[38;2;"+rgbpart$+"m"+umid$(text$,i,1)
    next i
    animatedrainbowtext$=result+chr$(27)+"[0m"
end function

function mod_double (value as double,m as double)
    mod_double=value-(m*int(value/m))
end function

function ulen% (txt$)
    dim count%,i%,b%
    count%=0
    for i%=1 to len(txt$)
        b%=asc(txt$,i%)
        if (b% and &h80)=0 or (b% and &hc0)=&hc0 then
            count%=count%+1
        end if
    next
    ulen%=count%
end function

function umid$ (txt$,startchar%,numchars%)
    if startchar%<1 or numchars%<=0 or txt$=""then exit function

    dim byteidx%,charcount%,startbyte%,endbyte%,b%
    byteidx%=1
    charcount%=0

    while byteidx%<=len(txt$)
        b%=asc(txt$,byteidx%)
        if (b% and &h80)=0 or (b% and &hc0)=&hc0 then
            charcount%=charcount%+1
            if charcount%=startchar% then startbyte%=byteidx%
        end if
        if startbyte%>0 then exit while
        byteidx%=byteidx%+1
    wend

    if startbyte%=0 then exit function

    byteidx%=startbyte%
    dim charsfound%
    charsfound%=0

    while byteidx%<=len(txt$)
        b%=asc(txt$,byteidx%)
        if (b% and &h80)=0 or (b% and &hc0)=&hc0 then
            charsfound%=charsfound%+1
        end if
        if charsfound%>numchars% then exit while
        byteidx%=byteidx%+1
    wend

    umid$=mid$(txt$,startbyte%,byteidx%-startbyte%)
end function

function uwidth% (txt$)
    dim totalwidth%,i%,char$,cp&
    totalwidth%=0
    for i%=1 to ulen(txt$)
        char$=umid(txt$,i%,1)
        cp&=getcodepoint&(char$)

        if cp&>&h1100 then
            totalwidth%=totalwidth%+2
        else
            totalwidth%=totalwidth%+1
        end if
    next
    uwidth%=totalwidth%
end function

function getcodepoint& (utf8char$)
    dim llength as integer
    llength=len(utf8char$)
    dim b1 as _unsigned _byte,b2 as _unsigned _byte
    dim b3 as _unsigned _byte,b4 as _unsigned _byte

    select case llength
        case 1
            getcodepoint&=asc(utf8char$,1)
        case 2
            b1=asc(utf8char$,1):b2=asc(utf8char$,2)
            getcodepoint&=(b1 and &h1f)*64+(b2 and &h3f)
        case 3
            b1=asc(utf8char$,1):b2=asc(utf8char$,2):b3=asc(utf8char$,3)
            getcodepoint&=(b1 and &h0f)*4096+(b2 and &h3f)*64+(b3 and &h3f)
        case 4
            b1=asc(utf8char$,1):b2=asc(utf8char$,2):b3=asc(utf8char$,3):b4=asc(utf8char$,4)
            getcodepoint&=(b1 and &h07)*262144+(b2 and &h3f)*4096+(b3 and &h3f)*64+(b4 and &h3f)
    end select
end function