#GfxMode
  %CleanUp.ClearVRAM()
 
  %Graph.Rect(0,0,100,53,1,0)
  
  %Format.Offset(Vertical,3)
  %Format.AlignRight()
  %Graph.Font('Small',7,1)
  %Inc(%WinAmp.TrackNo(),1)
  '/'
  %WinAmp.CountTracks()'  '


  %DefVar(MinTek, Local=0)
  %DefVar(Min1Tek, Local=0)
  %DefVar(Sec1Tek, Local=0)
  %DefVar(SecTek, Local=0)
    %If(%WinAmp.TrackPos() >= 60)
     Then{ 
       %Assign(MinTek,%Div(%WinAmp.TrackPos(),60))
          }
     Else{%Assign(MinTek,0)}
     
  %Trunc(%MinTek()) 
  ':'
  %Assign(SecTek,%Dec(%WinAmp.TrackPos(),%Mul(%Trunc(%Div(%WinAmp.TrackPos(),60)),60)))
  %If(%SecTek() < 1)Then{ %Assign(SecTek,00) }
  Else{ 
   %If(%SecTek() < 2)Then{ %Assign(SecTek,01) }
  Else{ 
   %If(%SecTek() < 3)Then{ %Assign(SecTek,02) }
  Else{ 
   %If(%SecTek() < 4)Then{ %Assign(SecTek,03) }
  Else{ 
   %If(%SecTek() < 5)Then{ %Assign(SecTek,04) }
  Else{ 
   %If(%SecTek() < 6)Then{ %Assign(SecTek,05) }
  Else{ 
   %If(%SecTek() < 7)Then{ %Assign(SecTek,06) }
  Else{ 
   %If(%SecTek() < 8)Then{ %Assign(SecTek,07) }
  Else{ 
   %If(%SecTek() < 9)Then{ %Assign(SecTek,08) }
  Else{ 
   %If(%SecTek() < 10)Then{ %Assign(SecTek,09) }
  Else{}}}}}}}}}}
  %SecTek()
  '/'

  %If(%WinAmp.TrackLength() >= 60)
     Then{ 
       %Assign(Min1Tek,%Div(%WinAmp.TrackLength(),60))
          }
     Else{%Assign(Min1Tek,0)}
     
  %Trunc(%Min1Tek())  
  ':'
  %Assign(Sec1Tek,%Dec(%WinAmp.TrackLength(),%Mul(%Trunc(%Div(%WinAmp.TrackLength(),60)),60)))
  
   %If(%Sec1Tek() < 1)Then{ %Assign(Sec1Tek,00) }
  Else{ 
   %If(%Sec1Tek() < 2)Then{ %Assign(Sec1Tek,01) }
  Else{ 
   %If(%Sec1Tek() < 3)Then{ %Assign(Sec1Tek,02) }
  Else{ 
   %If(%Sec1Tek() < 4)Then{ %Assign(Sec1Tek,03) }
  Else{ 
   %If(%Sec1Tek() < 5)Then{ %Assign(Sec1Tek,04) }
  Else{ 
   %If(%Sec1Tek() < 6)Then{ %Assign(Sec1Tek,05) }
  Else{ 
   %If(%Sec1Tek() < 7)Then{ %Assign(Sec1Tek,06) }
  Else{ 
   %If(%Sec1Tek() < 8)Then{ %Assign(Sec1Tek,07) }
  Else{ 
   %If(%Sec1Tek() < 9)Then{ %Assign(Sec1Tek,08) }
  Else{ 
   %If(%Sec1Tek() < 10)Then{ %Assign(Sec1Tek,09) }
  Else{}}}}}}}}}}
  %Sec1Tek()
  '   '

  %Graph.Font('FixedSys',10,1,Italic)
  %Common.CreateNewLine()' '
  %WinAmp.Artist()
  ' - '
  %WinAmp.Title()
  '   '
  %Param.EnableScrolling(Horizontal,Ticker,1,100,1)
  
%WinAmp.SpecAnalyzer(
FFT,
PeakedBars,
32,    /40 bands/
15,    /height = 40px/
50,    /scale = 50/
5,     /band speed = 5/
0.5,   /peak speed = 0.5/  
2,     /band width = 2px/  
1,     /band space = 1px/  
3,     /offsetx = 0px/  
30     /offsety = 0px/ 
)

 %DefVar(W=99) /width of bar/
 %DefVar(H=52) /height of bar/

 %CleanUp.InvertArea(All)

 /draw bar outline/
 %Graph.Rect(2,46,%Dec(%W(),1),%Dec(%H(),1),1,0)

 /draw bar caption/
 %Format.Offset(Vertical,2)


 /fill bar by calculating the fill/

 /equation is as follows/

 / barwidth   ?        /
 / -------- = -------- /
 / maxvalue   curvalue /

 ° ? = (barwidth * curvalue) / maxvalue °

 %If(%WinAmp.TrackPos() > 0) Then
 {
   %Graph.SetInvertArea(4,48,%Dec(%Inc(5,/?=/%Trunc(%Div(%Mul(%Dec(%W(),6),%WinAmp.TrackPos()),%WinAmp.TrackLength()))),1),%Dec(%H(),3))
 }


/Electronick(c),2007/
#EndGfxMode