i've made mod of home stereo display with resizing panels (width, height and font sizes), text limiter and scrolling. Resizing is customizable within variables. Experienced user will have no problem to adjust layout. I'm too lazy to redo Russels777's HSD

. It's just a demonstration.

here is the code:
CODE
// VARIABLES ===========
// panels bg color
$puts(c.bg,204-216-190)
// bg color
$puts(c.bg2,150-180-0)
// progress bar color
$puts(c.play,164-176-150)
$puts(c.frame,0-0-0)
$puts(c.frame2,80-110-0)
$puts(font,LCDMono)
$puts(altfont,DejaVu Sans Mono)
// width and height margins
$puts(w.margin,2)
$puts(h.margin,2)
// W and H of separators between panels
$puts(w.sep,2)
$puts(h.sep,2)
// W and H of text padding inside of panel
$puts(w.pad,7)
$puts(h.pad,2)
// END OF VARIABLES ===============
// for non englishs fonts
$if($or($strcmp($substr($ascii(%album%),3,3),?),$strcmp($substr($ascii(%artist%),4,4),?),$strcmp($substr($ascii(%title%),2,2),?)),$puts(noeng,1))
// free width and height, used for resizing
$puts(w.free,$sub(%_width%,$get(w.margin),$get(w.margin)))
$puts(h.free,$sub(%_height%,$add($get(h.margin),$get(h.sep),$get(h.margin))))
// percent of taken place for every row
$puts(h.row1,$muldiv($get(h.free),8,10))
$puts(h.row2,$muldiv($get(h.free),2,10))
// y-coords for rows
$puts(y.row1,$get(h.margin))
$puts(y.row2,$add($get(y.row1),$get(h.row1),$get(h.sep)))
// strings to display. r1c1 stands for row 1 column 1 and so on
$puts(s.r1c2,%track%)
$puts(s.r1c1,%playback_time_remaining%)
$puts(s.r1c3,$if(%singletrack%,'"'%title%'"'[' - '%artist%]' ','"'%title%'" '['- '%artist%]'/'%album%['/'%date%]' '))
// global font. Size of font calculating from row height
$font($get(font),$put(fontsize,$sub($get(h.row1),$get(h.pad),$get(h.pad),10)),,0-0-0)
// calculating widths of panels
$puts(w.r1c1,$add($calcwidth($get(s.r1c1)),$get(w.pad),$get(w.pad)))
$puts(w.r1c2,$add($calcwidth($get(s.r1c2)),$get(w.pad),$get(w.pad)))
$puts(w.r1c3,$sub($get(w.free),$get(w.r1c1),$get(w.sep),$get(w.r1c2),$get(w.sep)))
$puts(w.r2c1,$get(w.free))
$puts(w.r2c1p,$muldiv($if2(%playback_time_seconds%,0),$get(w.free),$if2(%length_seconds%,1)))
// calculating x-coords for panels
$puts(x.r1c1,$get(w.margin))
$puts(x.r1c2,$add($get(x.r1c1),$get(w.r1c1),$get(w.sep)))
$puts(x.r1c3,$add($get(x.r1c2),$get(w.r1c2),$get(w.sep)))
$puts(x.r2c1,$get(w.margin))
// TEXT LIMITER AND SCROLLING ===========================
$if($not($get(noeng)),$puts(s.r1c3,$lower($replace($upper($get(s.r1c3)),-,$char(8208),& amp;,+,À,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))))
$puts(w.symb,$calcwidth(a))
$puts(len.r1c3,$div($get(w.r1c3),$get(w.symb)))
$ifgreater($len($get(s.r1c3)),$get(len.r1c3),
$puts(cursor,$add($mod(%playback_time_seconds%,$len($get(s.r1c3))),1))
$puts(s.r1c3,$substr($get(s.r1c3),$get(cursor),$len($get(s.r1c3)))$left($get(s.r1c3),$sub($get(cursor),1)))
,)
$puts(s.r1c3,$left($get(s.r1c3),$sub($get(len.r1c3),1)))
// ===========================================
// drawing panels
$drawrect(0,0,%_width%,%_height%,brushcolor-$get(c.bg2) pencolor-$get(c.frame2))
$drawrect($get(x.r1c1),$get(y.row1),$get(w.r1c1),$get(h.row1),brushcolor-$get(c.bg) pencolor-$get(c.frame))
$drawrect($get(x.r1c2),$get(y.row1),$get(w.r1c2),$get(h.row1),brushcolor-$get(c.bg) pencolor-$get(c.frame))
$drawrect($get(x.r1c3),$get(y.row1),$get(w.r1c3),$get(h.row1),brushcolor-$get(c.bg) pencolor-$get(c.frame))
$drawrect($get(x.r2c1),$get(y.row2),$get(w.r2c1),$get(h.row2),brushcolor-$get(c.bg) pencolor-$get(c.frame))
$drawrect($get(x.r2c1),$get(y.row2),$get(w.r2c1p),$get(h.row2),brushcolor-$get(c.play) pencolor-$get(c.frame))
// placing text
$alignabs($add($get(x.r1c1),$get(w.pad)),$add($get(y.row1),$get(h.pad)),$add($get(x.r1c1),$get(w.r1c1)),$add($get(y.row1),$get(h.row1)),,)
$get(s.r1c1)
$alignabs($add($get(x.r1c2),$get(w.pad)),$add($get(y.row1),$get(h.pad)),$add($get(x.r1c2),$get(w.r1c2)),$add($get(y.row1),$get(h.row1)),,)
$get(s.r1c2)
$alignabs($add($get(x.r1c3),$get(w.pad)),$add($get(y.row1),$get(h.pad)),$add($get(x.r1c3),$get(w.r1c3)),$add($get(y.row1),$get(h.row1)),,)
$if($get(noeng),$font($get(altfont),$get(fontsize),,0-0-0))
$get(s.r1c3)
// glass effect
$imageabs($get(w.margin),$get(h.margin),images\glass.png,)