/////////////////////////////////////////Definitions///////////////////////////////////////////////////
$puts(Theme,space)
$puts(removable,FGH)
$puts(glass_intensity,10)
$puts(back,$rgb(100,100,100))
$puts(active,$rgb(250,250,250))
$puts(center,1)
$puts(display_back,1)
$puts(full,null)
$puts(frame,null)
$puts(decreaserange,15)
$puts(YY_MM_DD,)
$puts(first_played,1)
$puts(alt_font,)
$puts(alt_font_size,)
$puts(alt_font_options,)
$puts(symbolinfo,1)
$puts(scrollback,1)
$puts(window,65)
$puts(size,24)
///////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////THEMES//////////////////////////////////////////////////
$if($stricmp($get(Theme),space),
$puts(back,$rgb(100,100,100))
$puts(active,$rgb(250,250,250))
$puts(font_options,)
$puts(display_back,)
$puts(full,null)
$puts(frame,100-100-100)
$imageabs(0,0,images\star.png,)
)
//THEME VISTA INSPIRAT BY PINGWINHO
//FOR HOME STEREO DISPLAY BY RUSSELL777
$if($stricmp($get(Theme),Vista Inspirat),
$puts(back,$rgb(94,105,10))
$puts(active,$rgb(44,46,61))
$puts(font_options,)
$puts(display_back,)
$puts(full,132-152-16 )
$puts(frame,102-132-0)
$imageabs(0,0,images\grass.png,)
)
$if($stricmp($get(Theme),stardust),
$puts(back,$rgb(50,50,100))
$puts(active,$rgb(200,200,250))
$puts(font_options,glow-50-50-100 glowalpha-100)
$puts(display_back,)
$puts(full, alpha-100)
$puts(frame,null)
$imageabs(-20,-27,images\stardust.png,)
)
// LAVA-theme by Sw!ng
// For Russell777's HOME STEREO DISPLAY.
// Enjoy !!
$if($stricmp($get(Theme),Lava),
$puts(back,$rgb(0,0,0))
$puts(active,$rgb(250,0,0))
$puts(font_options,)
$puts(display_back,)
$puts(full,)
$puts(frame,0-0-0 alpha-100)
$imageabs(-210,$sub($mul($mod(%_time_elapsed_seconds%,60),-8),80),images\RedLava.png,)
)
///////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////TIME Sequence//////////////////////////////////////////////
$if(%isplaying%,$puts(active,$get(active)),$puts(active,$get(back))
$puts(font_options,)$puts(display_back,1))
$if($or($get(full),$get(frame)),
$drawrect(7,$sub($div(%_height%,5),7),39,29,brushcolor-$get(full) pencolor-$get(frame))
$drawrect(48,$sub($div(%_height%,5),7),30,29,brushcolor-$get(full) pencolor-$get(frame))
$drawrect(175,$add($div(%_height%,5),10),41,12,brushcolor-$get(full) pencolor-$get(frame))
$drawrect(79,$sub($div(%_height%,5),7),91,29,brushcolor-$get(full) pencolor-$get(frame))
$drawrect(175,$sub($div(%_height%,5),7),41,15,brushcolor-$get(full) pencolor-$get(frame))
$drawrect(221,$sub($div(%_height%,5),7),166,29,brushcolor-$get(full) pencolor-$get(frame))
$drawrect(388,$sub($div(%_height%,5),7),120,29,brushcolor-$get(full) pencolor-$get(frame))
$drawrect(509,$sub($div(%_height%,5),18),25,40,brushcolor-$get(full) pencolor-$get(frame))
$drawrect(7,$add($div(%_height%,5),25),527,15,brushcolor-$get(full) pencolor-$get(frame))
$if($get(first_played),
$drawrect(276,$add($div(%_height%,5),43),232,15,brushcolor-$get(full) pencolor-$get(frame))
$drawrect(509,$add($div(%_height%,5),43),25,15,brushcolor-$get(full) pencolor-$get(frame))))
$if($stricmp($get(alt_font),),$puts(alt_font,arial))
$if($stricmp($get(alt_font_size),),$puts(alt_font_size,11))
$puts(min,$div( %playback_time_seconds%,60))
$if($stricmp($len($get(min)),1),$puts(min,0$get(min)))
$puts(sec,$mod( %playback_time_seconds%,60))
$if($stricmp($len($get(sec)),1),$puts(sec,0$get(sec)))
$puts(time,$get(min):$get(sec))
$if(%_time_total%,
$puts(total,$num($div( %length_seconds%,60),2):
$num($mod( %length_seconds%,60),2))
,$puts(total,__:__))
$font(7 Segment,$get(size),$get(font_options),250-250-250)
$puts(1,$substr($get(time),1,1))
$puts(2,$substr($get(time),2,2))
$puts(4,$substr($get(time),4,4))
$puts(5,$substr($get(time),5,5))
$puts(6,$substr(%tracknumber%,1,1))
$puts(7,$substr(%tracknumber%,2,2))
$puts(8,$substr($get(total),1,1))
$puts(9,$substr($get(total),2,2))
$puts(10,$substr($get(total),4,4))
$puts(11,$substr($get(total),5,5))
$puts(s,$calcwidth($get(1)))
$puts(s1,$calcwidth(
)
$if($stricmp($get(1),7),$puts(f1,2),)
$if($stricmp($get(2),7),$puts(f2,2),)
$if($stricmp($get(5),7),$puts(f5,3),)
$if($stricmp($get(6),7),$puts(f6,3),)
$if($stricmp($get(7),7),$puts(f7,3),)
$if($stricmp($get(8),7),$puts(f8,3),)
$if($stricmp($get(9),7),$puts(f9,3),)
$if($stricmp($get(10),7),$puts(f10,3),)
$if($stricmp($get(11),7),$puts(f11,2),)
$alignabs(91,$div(%_height%,5),%_width%,%_height%,,)$get(back)
$if($get(display_back),$char(56)$char(56):$char(56)$char(56),)
$alignabs($add(91,$get(f1)),$div(%_height%,5),%_width%,%_height%,,)
$get(active)$get(1)
$alignabs($add(91,$get(f2),$mul($get(s),1)),$div(%_height%,5),
%_width%,%_height%,,)
$get(active)$get(2):
$alignabs($add(92,$get(f4),$mul($get(s),2),$get(s1)),$div(%_height%,5),
%_width%,%_height%,,)
$get(active)$get(4)
$alignabs($add(92,$get(f5),$mul($get(s),3),$get(s1)),$div(%_height%,5)
,%_width%,%_height%,,)
$get(active)$get(5)
//////////////////////////////////////////Source////////////////////////////////////////////////////
$puts(str,1)
$alignabs(21,$add($div(%_height%,5),57),%_width%,%_height%,,)
$font(arial,6,bolditalic$get(font_options),250-250-250)
#LINEHEIGHT,9#
$if($stricmp(ftp,$substr(%path%,1,3)),$get(active),$get(back))NET DRIVE
$char(32)$char(32)
$if($stricmp(\,$substr(%path%,1,1)),$get(active),$get(back))REMOTE PC
$char(32)$char(32)
$if($stricmp($substr(%path%,1,4),http),$get(active)STREAMING$puts(str,),
$get(back)STREAMING)$char(32)$char(32)
$if($or($not($stricmp($strchr($get(removable),$substr(%path%,1,1)),0)),
$stricmp(%codec%,CDDA)),$get(active)REMOVABLE,
$get(back)REMOVABLE)$char(32)$char(32)
$if($and($stricmp($strchr($get(removable),$substr(%path%,1,1)),0),
$stricmp($stricmp(\,$substr(%path%,1,1)),),$stricmp($stricmp(ftp,$substr(%path%,1,3)),),
$not($stricmp(%codec%,CDDA)),$not($stricmp($substr(%path%,1,4),http))),
$get(active)LOCAL DRIVE,$get(back)LOCAL DRIVE)
/////////////////////////Stereo Encoding Tagtype RG///////////////////////////////////////
$alignabs(21,$div(%_height%,50),%_width%,%_height%,,)
#LINEHEIGHT,4#$char(32)$char(10)
$font(arial,7,bolditalic$get(font_options),250-250-250)
$if($stricmp(%channels%,8ch),$get(active),$get(back))7.1
$if($stricmp(%channels%,7ch),$get(active),$get(back))$char(32)6.1
$if($stricmp(%channels%,6ch),$get(active),$get(back))$char(32)5.1$char(32)
$if($stricmp(%__mp3_stereo_mode%,JOINT STEREO),$get(active)JOINT STEREO
$get(back)$char(32)MONO,
$if($stricmp(%channels%,stereo),$get(back)JOINT $get(active)STEREO
$get(back)$char(32)MONO,
$get(back)JOINT STEREO
$if($stricmp(%channels%,MONO),$get(active)$char(32)MONO,
$get(back)$char(32)MONO)))
$if($stricmp($info(encoding),lossy),$get(active) LOSSY$get(back) LOSSLESS,
$get(back) LOSSY$get(active) LOSSLESS)
$if($or($stricmp(%codec_profile%,CBR),
$and($stricmp($info(extrainfo),),$stricmp(%codec_profile%,?)),
$stricmp($info(encoding),lossless),$stricmp(%codec%,wma)),
$get(active),$get(back)) CBR
$if($or($stricmp(%codec%,musepack),$and($stricmp(%codec%,aac),$get(str)),
$info(extrainfo),$strstr(%codec_profile%,VBR)),$get(active),$get(back)) VBR
$if($stricmp(%codec%,vorbis),$get(active),$get(back)) ABR
$if($strstr($info(tagtype),id3v1),$get(active),$get(back)) ID3V1
$if($strstr($info(tagtype),id3v2),$get(active),$get(back)) ID3V2
$if($strstr($info(tagtype),apev2),$get(active),$get(back)) APEV2
$if($stricmp(%codec%,vorbis),$get(active),$get(back)) VC
$if($stricmp(%codec%,flac),$get(active),$get(back)) FLAC
$if($or( %__replaygain_album_gain%,%__replaygain_track_gain%)
,$get(active),$get(back)) R-GAINED
////////////////////////////////Play pause tracknumber//////////////////////////////////////////
$alignabs(193,$add($div(%_height%,5),1),%_width%,%_height%,,)
#LINEHEIGHT,16#$char(32)$char(10)
$font(webdings,10,$get(font_options),250-250-250)
$if(%ispaused%,$get(active),$get(back))$char(59)
$font(arial,9,$get(font_options),250-250-250)
$if($not(%ispaused%),$get(active),$get(back))$char(9658)
$alignabs(21,$div(%_height%,5),%_width%,%_height%,,)
$font(7 Segment,$get(size),$get(font_options),250-250-250)
$if($get(display_back),$get(back)$char(56)$char(56),)
$alignabs($add(21,$get(f6)),$div(%_height%,5),%_width%,%_height%,,)
$get(active)$get(6)
$alignabs($add(21,$get(f7),$get(s)),$div(%_height%,5),%_width%,%_height%,,)
$get(active)$get(7)
//////////////////////////////////////////Time total //////////////////////////////////////////////
$alignabs(188,$div(%_height%,5),%_width%,%_height%,,)
$font(7 segment,11,$get(font_options),250-250-250)
$puts(s2,$calcwidth($get(8)))
$puts(s3,$calcwidth(
)
#LINEHEIGHT,3#$char(32)$char(10)
$if($get(display_back),$get(back)$char(56)$char(56):$char(56)$char(56),)
$alignabs($add(188,$get(f8)),$div(%_height%,5),%_width%,%_height%,,)
#LINEHEIGHT,3#$char(32)$char(10)
$get(active)$get(8)
$alignabs($add(188,$get(s2),$get(f9)),$div(%_height%,5),
%_width%,%_height%,,)
#LINEHEIGHT,3#$char(32)$char(10)
$get(active)$get(9):
$alignabs($add(188,$mul($get(s2),2),$get(s3)),$div(%_height%,5),
%_width%,%_height%,,)
#LINEHEIGHT,3#$char(32)$char(10)
$get(active)$get(10)
$alignabs($add(188,$get(s3),$mul($get(s2),3),$get(f11)),
$div(%_height%,5),%_width%,%_height%,,)
#LINEHEIGHT,3#$char(32)$char(10)
$get(active)$get(11)
///////////////////////////////Bitrate Samplerate Compression/////////////////////////////////
$alignabs(237,$div(%_height%,5),%_width%,%_height%,,)
#LINEHEIGHT,16#$char(32)$char(10)
$font(7 segment,10,$get(font_options),250-250-250)
$get(active)[%bitrate%]
$alignabs(265,$div(%_height%,5),%_width%,%_height%,,)
#LINEHEIGHT,16#$char(32)$char(10)
$font(arial,7,$get(font_options),250-250-250)$get(active)Kb/s
$font(7 segment,10,$get(font_options),250-250-250)
$get(active)$char(32)[%samplerate%]
$alignabs(329,$div(%_height%,5),%_width%,%_height%,,)
#LINEHEIGHT,19#$char(32)$char(10)
$font(arial,7,$get(font_options),250-250-250)$get(active) Hz
$alignabs(354,$div(%_height%,5),%_width%,%_height%,,)
#LINEHEIGHT,2#$char(32)$char(10)
$font(7 segment,10,$get(font_options),250-250-250)
$puts(show,$num($muldiv(1000,$info(bitrate),1411),3))
$if(%isplaying%,$if($stricmp($get(show),1000),
$font(lcd2,9,bold,250-250-250)$repeat($char(10),8)$get(active)ucm$puts(flag2,1),
$get(active)$repeat($char(10),7)$substr($get(show),1,2)
'.'$substr($get(show),3,3)))
$alignabs(383,$div(%_height%,5),%_width%,%_height%,,)
#LINEHEIGHT,19#$char(32)$char(10)
$font(arial,7,$get(font_options),)$if($get(flag2),$get(back),$get(active))'%'
//////////////////////////////////Rating FP Play count//////////////////////////////////////////
$if(%rating%,$puts(rating,%rating%),
$puts(fix,$div($cwb_datediff(%cwb_systemdatetime%,%first_played%),
$get(decreaserange)))
$puts(rating,$sub($add(%play_count%,%play_counter%),$get(fix))))
$if($greater($get(rating),5),$puts(rating,5))
$if($greater(0,$get(rating)),$puts(rating,0))
$alignabs(403,$div(%_height%,5),%_width%,%_height%,,)
$font(wingdings,12,$get(font_options),250-250-250)
#LINEHEIGHT,3#$char(32)$char(10)
$get(active)$repeat($char(171),$get(rating))
$get(back)$repeat($char(171),$sub(5,$get(rating)))
#LINEHEIGHT,13#$char(32)$char(10)
$font(7 segment,10,$get(font_options),250-250-250)
$get(active)$if(%last_played%,$if($get(YY_MM_DD),
[$substr(%last_played%,1,4).$substr(%last_played%,6,7).$substr(%last_played%,9,10)],
[$substr(%last_played%,9,10).$substr(%last_played%,6,7).]
$substr(%last_played%,1,4)),..........)
$alignabs(469,$div(%_height%,5),%_width%,%_height%,,)
#LINEHEIGHT,16#$char(32)$char(10)
$font(7 segment,10,$get(font_options),250-250-250)$get(active)
$repeat($char(32),3)$num($add(%play_count%,%play_counter%),3)
$alignabs(479,$div(%_height%,5),%_width%,%_height%,,)
#LINEHEIGHT,17#$char(32)$char(10)
$font(arial,7,$get(font_options),250-250-250)$get(active)'('$repeat($char(32),10)')'
$font(7 segment,10,$get(font_options),250-250-250)
$alignabs(483,$add($div(%_height%,5),19),%_width%,%_height%,,)
$font(arial,7,$get(font_options),250-250-250)$get(active)'x'
//////////////////////////////////////////Codec///////////////////////////////////////////////////
$alignabs(237,$div(%_height%,5),%_width%,%_height%,,)
$font(lcd2,10,bold$get(font_options),250-250-250)
#LINEHEIGHT,5#$char(32)$char(10)
$get(active)$if($stricmp($substr(%codec%,1,7),windows),WMA,
$if($strstr($info(tool),LAME),lame mp3,$lower(%codec%)))
////////////////////////////////////////Track info///////////////////////////////////////////////
$alignabs(21,$div(%_height%,5),%_width%,%_height%,,)
$puts(title,
['"'%title%'"'][ - %artist%]['/'%album%] ['('%date%')'])
#LINEHEIGHT,1#$char(32)$char(10)
$if($get(symbolinfo),
$if($or($stricmp($substr($ascii($get(title)),2,2),?),
$stricmp($substr($ascii($get(title)),6,6),?)),$char(10)
$font($get(alt_font),$get(alt_font_size),$get(alt_font_options)$get(font_options)
,250-250-250)$repeat($char(10),32),
$puts(title,
$lower($replace($upper($get(title)),-,$char(8208),&,+,À,a,Á,a,Â,a,Ã,a,Ä,ae,Å,a,
Æ,ae,Ç,c,È,e,É,e,Ê,e,Ë,e,Ì,i,Í,i,Î,i,Ï,i,Ò,o,Ó,o,Ô,o,Õ,o,Ö,oe,Ù,u,Ú,u,Û,u,Ü,ue,
ß,ss)))
$font(lcdmono2,11,bold$get(font_options),250-250-250)$repeat($char(10),35)),
$font($get(alt_font),$get(alt_font_size),$get(alt_font_options)
$get(font_options),250-250-250)$repeat($char(10),32))$get(active)
$if($greater($len($get(title)),$get(window)),
$if($stricmp($mod($len($get(title)),2),1),
$puts(title,$pad($get(title),$add($len($get(title)),1))),)
$puts(shift,$sub($len($get(title)),$get(window)))
$if($get(scrollback),
$puts(mod,$mod(%_time_elapsed_seconds%,$add($mul($get(shift),2),2)))
$if($greater(3,$get(mod)),$substr($get(title),1,$get(window)),
$puts(mod,$sub($get(mod),2))$puts(flag,$get(mod))
$if($greater($add($get(shift),1),$get(mod)),
$substr($get(title),$add(1,$get(mod)),$add($get(window),$get(mod))),
$substr($get(title),$sub($mul($get(shift),2),$get(mod),-1),
$add($get(window),$sub($mul($get(shift),2),$get(mod),0))))),
$puts(mod,$mod(%_time_elapsed_seconds%,$add($get(shift),2)))
$if($greater(3,$get(mod)),$substr($get(title),1,$get(window)),
$puts(mod,$sub($get(mod),2))$puts(flag,$get(mod))
$substr($get(title),$add(1,$get(mod)),$add($get(window),$get(mod))))),
$alignabs(11,$add($div(%_height%,5),36),537,%_height%,
$if($get(center),center),top)
$get(active)$get(title))
$font(arial,8,$get(font_options),250-250-250)
$alignabs(520,$add($div(%_height%,5),20),%_width%,%_height%,,)
#LINEHEIGHT,34#$char(32)$char(10)
$if($greater($get(flag),0),$get(active),$get(back))$char(9668)$char(32)
$if($get(scrollback),
$if($or($greater($get(shift),$get(mod)),$greater($get(mod),$get(shift))),
$get(active),$get(back)),
$if($greater($get(shift),$add($get(mod),1)),$get(active),$get(back)))$char(9658)
//////////////////////////////////////Progress Bar/////////////////////////////////////////////
$font(lcd2,15,$get(font_options),250-250-250)
$puts(symbol,_)
$alignabs(522,$sub($div(%_height%,5),21),%_width%,%_height%,,)
#LINEHEIGHT,3#
$puts(percent,$num($muldiv(%_time_elapsed_seconds%,100,
%_time_total_seconds%),3))
$if($stricmp($substr($get(percent),1,1),0),$puts(back1,$get(back))
$puts(percent,$char(32)$substr($get(percent),2,3))
,$puts(back1,$get(active)))
$repeat($get(back1)$get(symbol)$char(10),$sub(9,$substr($get(percent),2,2)))
$get(active)$repeat($get(symbol)$char(10),$substr($get(percent),2,2))
$alignabs(532,$sub($div(%_height%,5),21),%_width%,%_height%,,)
#LINEHEIGHT,3#
$repeat($get(back1)$get(symbol)$char(10),$sub(9,$substr($get(percent),3,3)))
$get(active)$repeat($get(symbol)$char(10),$substr($get(percent),3,3))
$alignabs(519,$sub($div(%_height%,5),2),%_width%,%_height%,,)
#LINEHEIGHT,22#$char(32)$char(10)
$font(7 Segment,8,$get(font_options),250-250-250)
$if($and(%isplaying%,%_time_total%),
$get(active)$get(percent),$get(active)$char(32)0)
$alignabs(532,$sub($div(%_height%,5),1),%_width%,%_height%,,)
#LINEHEIGHT,22#$char(32)$char(10)
$font(arial,6,$get(font_options),250-250-250)$get(active) '%'
/////////////////////////////////////Relative quality///////////////////////////////////////////////
$if($stricmp(%codec%,mp3),$puts(range,264)$puts(lb,56))
$if($stricmp(%codec%,musepack),$puts(range,320)$puts(lb,30))
$if($stricmp(%codec%,vorbis),$puts(range,455)$puts(lb,45))
$if($or($stricmp($substr(%codec%,1,7),windows),
$stricmp(%codec%,wma)),$puts(range,452)$puts(lb,48))
$if($stricmp(%codec%,aac),$puts(range,385)$puts(lb,15))
$puts(quality,$muldiv($sub($info(bitrate),$get(lb)),100,$get(range)))
$alignabs(353,$add($div(%_height%,5),7),%_width%,%_height%,,)
$font(franklin gothic medium,5,$get(font_options),250-250-250)$get(active)
$if($and($stricmp($info(encoding),lossy),$get(lb)),
$repeat($char(9612),$div($get(quality),10))
$get(back)$repeat($char(9612),$sub(10,$div($get(quality),10))),
$get(active)$repeat($char(9612),10))
///////////////////////////////////////////Playback order////////////////////////////////////////
$alignabs(61,$add($div(%_height%,5),6),%_width%,%_height%,,)
$font(wingdings 3,9,,250-250-250)
#LINEHEIGHT,9#
$if($strstr(%cwb_playback_order%,Repeat),$get(active),$get(back))$char(78)
$if($strstr(%cwb_playback_order%,Shuffle),$get(active),$get(back))$char(70)$char(10)
$alignabs(60,$add($div(%_height%,5),21),%_width%,%_height%,,)
$font(lcdmono2,7,bold,250-250-250)$get(active)
$if($strstr(%cwb_playback_order%,Default),CONT.)
$if($strstr(%cwb_playback_order%,playlist), ALL)
$if($strstr(%cwb_playback_order%,track),track)
$if($strstr(%cwb_playback_order%,albums),album)
$if($strstr(%cwb_playback_order%,directories), dir)
//////////////////////////////////////////Date Range///////////////////////////////////////////////
$if($get(first_played),
$alignabs(290,$add($div(%_height%,5),56),222,%_height%,
$if($get(center),center),top)
$font(lcd2,9,bold,)$get(active)$puts(ago,1)
$if(%first_played%,
$puts(dtr,$cwb_datediff(%cwb_systemdatetime%,%first_played%))
$puts(years,$div($get(dtr),365))
$puts(rest,$mod($get(dtr),365))
$puts(month,$div($get(rest),30))
$puts(days,$mod($get(rest),30))
$if($greater($get(years),0),$get(years) year)
$if($greater($get(years),1),s)
$if($and($greater($get(month),0),$stricmp($get(days),0)), and)
$if($greater($get(month),0), $get(month) month)
$if($and($greater($get(days),0),$greater($add($get(years),$get(month)),0)), and)
$if($greater($get(days),1), $get(days) days,
$if($and($stricmp($get(days),1),$stricmp($add($get(years),$get(month)),0)), yesterday
$puts(ago,),
$if($and($stricmp($get(days),0),%first_played%,
$stricmp($add($get(years),$get(month)),0)), today$puts(ago,),
$if($and($stricmp($get(days),1),$greater($add($get(years),$get(month)),0)), 1 day)
)))$if($get(ago), ago),never ))
//////////////////////////////////////////Image//////////////////////////////////////////////////////
$imageabs(0,$sub($get(glass_intensity),20),images\glass.png,)
.png)
