Unfortunately I'm not a good coder, but you can check example below. It's working with my config.
In // Globals, general variables
In // Background, the images
In // PerTrack, the trackinfo itself
In // PerSecond, the time display
Knowing that you can add the other functions of the code in each section, depending on its refreshing frequency.
// Globals
$puts(write_tags,)
$puts(removable,FGH)
$puts(glass_intensity,5)
$puts(back,$rgb(100,100,100))
$puts(active,$rgb(250,250,250))
$puts(alt_font_fix,-2)
// Background
$imageabs(-6,-25,images\FOOBOTTOM2.png,)
$imageabs(1,2,images\template1.png,)
// PerTrack
////////////////////////////////////////Track info///////////////////////////////////////////////
$alignabs(21,72,%_width%,%_height%,,)
$puts(title,['"'%title%'"'][ - %artist%]['/'%album%] ['('%date%')'])
$if($strchr($ascii($replace($get(title),?,@)),?),
$alignabs(21,$add(72,$get(alt_font_fix)),%_width%,%_height%,,)
$font(courier new,9,italic,250-250-250),
$puts(title,
$lower($replace($upper($get(title)),-,$char(8208),&,and,À,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(alt_font_fix,0)$font(lcdmono2,10,bold,250-250-250))$get(active)
$if($greater($len($get(title)),57),
$if($stricmp($mod($len($get(title)),2),1),
$puts(title,$pad($get(title),$add($len($get(title)),1))),)
$puts(shift,$sub($len($get(title)),57))
$puts(mod,$mod(%_time_elapsed_seconds%,$add($mul($get(shift),2),2)))
$if($greater(3,$get(mod)),$substr($get(title),1,57),
$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(57,$get(mod))),
$substr($get(title),$sub($mul($get(shift),2),$get(mod),-1),
$add(57,$sub($mul($get(shift),2),$get(mod),0))))),
$alignabs(17,$add(72,$get(alt_font_fix)),404,%_height%,center,top)
$get(active)$get(title))$font(arial,8,,250-250-250)
$alignabs(425,70,%_width%,%_height%,,)
$if($greater($get(flag),0),$get(active),$get(back))$char(9668)$char(32)
$if($or($greater($get(shift),$get(mod)),$greater($get(mod),$get(shift))),
$get(active),$get(back))$char(9658)
// PerSecond
///////////////////////////////////////////Time Sequence///////////////////////////////////////////
$font(7 Segment,24,,)$alignabs(93,17,%_width%,%_height%,,)$get(back)
$char(56)$char(56):$char(56)$char(56)
$alignabs(93,17,%_width%,%_height%,,)$get(active)
$num($div(%playback_time_seconds%,60),2):$num($mod( %playback_time_seconds%,60),2)
////////////////////////////////Play pause tracknumber//////////////////////////////////////////
$alignabs(193,34,%_width%,%_height%,,)
$font(webdings,10,,250-250-250)
$if(%ispaused%,$get(active),$get(back))$char(59)$font(arial,9,,)
$if($not(%ispaused%),$get(active),$get(back))$char(9658)
$alignabs(20,17,%_width%,%_height%,,)$font(7 Segment,24,,)
$get(back)$char(56)$char(56)
$alignabs(20,17,%_width%,%_height%,,)
$get(active)$substr([%tracknumber%],1,2)