# Thin Basic 1.6
# Drew Vosburg
# drew@vosburgs.org
# drewvosburg.blogspot.com
# January 23 2011
#
#Clear Default Status Bar
%wd
#Draw Status Bar Background
%V(0,0,-,18,-)
%x(S,statusbar.bmp,0,0)
#
%Fl(2,12-Adobe-Helvetica.fnt,30)
# ***** PRELOAD IMAGES *****
%xl(i,playback.bmp,2,2,7)
%xl(s,shuffle.bmp,17,2)
%xl(v,volume.bmp,0,0,4)
%xl(r,repeat.bmp,0,0,4)
%xl(b,battery.bmp,0,0,3)
%xl(B,batteryfill.bmp,0,0,11)
%xl(h,values.bmp,0,0,2)
%xl(p,percent.bmp,0,0)
%xl(N,numbers.bmp,0,0,11)
%xl(V,numericvolume.bmp,0,0)
%xl(T,warning.bmp,0,0)
%xl(c,colon.bmp,0,0)
%xl(a,ampm.bmp,0,0,2)
%xl(L,lock.bmp,0,0)
%xl(E,spacer.bmp,0,0)
#
# ***** CONDITIONALS *****
#Playback Mode Icons
%?mp<%xd(ia)|%xd(ib)|%xd(ic)|%xd(id)|%xd(ie)|%xd(if)|%xd(ic)|%xd(ig)|%xd(ig)>
#Arrange Shuffle and Repeat Icons
%?ps<%xd(s)%?mm<|%Vd(P)>|%?mm<|%Vd(p)>>
#Volume
%?St(volume display)<%Vd(V)|%Vd(v)>
#Clock Conditional
%?cc<%?cf<%Vd(w)|%Vd(W)>%Vd(c)|%Vd(E)>
#Check for Graphic or Numeric Battery percentage
%?St(battery display)<%?bc<|%Vd(B)>|%?bc<|%?if(%bl,<,100)<%Vd(b)|%Vd(F)>>>
#Bottom Info Conditional
%?cs<%Vd(m)|>
#
# ***** VIEWPORTS *****
#
#Only Repeat
%Vl(p,17,2,30,13,-)
%al%?mm<|%xd(ra)|%xd(rb)|%xd(rc)|%xd(rd)>
#Repeat and Shuffle
%Vl(P,37,2,30,13,-)
%al%?mm<|%xd(ra)|%xd(rb)|%xd(rc)|%xd(rd)>
#***** 24 HOUR CLOCK *****
#Clock
#HOURS - Tens place
%Vl(w,72,4,6,8,-)
%?if(%ck,<,10)<%xd(Na)|%?if(%ck,<,20)<%xd(Nb)|%xd(Nc)>>
#HOURS - Ones place
%Vl(w,78,4,6,8,-)
%?ck<%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Na)>
#***** 12 HOUR CLOCK *****
#HOURS - Tens place
%Vl(W,72,4,6,8,-)
%?if(%cl,<,10)<%xd(Nk)|%xd(Nb)>
#HOURS - Ones place
%Vl(W,78,4,6,8,-)
%?cl<%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)>
#***** MINUTES *****
#COLON
%Vl(c,84,3,3,10,-)
%xd(c);
#MINUTES - Tens place
%Vl(c,87,4,6,8,-)
%xd(N, %ss(0, 1, %cM))
#MINUTES - Ones place
%Vl(c,93,4,6,8,-)
%xd(N, %ss(1, 1, %cM))
#AM/PM
%Vl(c,101,6,13,8,-)
%?cf<%xd(E)|%?cp<%xd(ab)|%xd(aa)>>
#Volume Warning Color
%V(-17,1,15,14,-)
%?if(%pv,>,0)<%xd(T)>
#Hold Icon
%V(-58,2,10,12,-)
%?mh<%xd(L)|%xd(E)>
#Battery Icon
%V(-46,2,27,12,-)
%?bc<%xd(ba)%Vd(H)|%?if(%bl,>,10)<%xd(ba)|%?if(%bl,>,5)<%xd(bb)|%t(0.5)%xd(bb);%t(0.5)%xd(bc);>>>
#Charging
%Vl(H,-45,4,23,8,-)
%?if(%bl,=,100)<%?St(battery display)<%xd(Bk)|%xd(hb)>|%xd(ha)>
#"100%"
%Vl(F,-45,4,23,8,-)
%xd(hb)
#Battery Graphic Fill
%Vl(B,-45,4,23,8,-)
%?bl<|%xd(E)|%xd(Ba)|%xd(Bb)|%xd(Bb)|%xd(Bc)|%xd(Bc)|%xd(Bd)|%xd(Bd)|%xd(Be)|%xd(Bf)|%xd(Bf)|%xd(Bg)|%xd(Bg)|%xd(Bh)|%xd(Bh)|%xd(Bi)|%xd(Bi)|%xd(Bj)|%xd(Bj)|%xd(Bk)>
# ***** NUMERIC BATTERY *****
#Spacer
%Vl(b,-45,4,1,8,-)
%xd(E)
#Percent sign "%"
%Vl(b,-32,4,10,8,-)
%xd(p)
#Tens
%Vl(b,-44,4,6,8,-)
%?bc<|%?if(%bl,>=,90)<%xd(Nj)|%?if(%bl,>=,80)<%xd(Ni)|%?if(%bl,>=,70)<%xd(Nh)|%?if(%bl,>=,60)<%xd(Ng)|%?if(%bl,>=,50)<%xd(Nf)|%?if(%bl,>=,40)<%xd(Ne)|%?if(%bl,>=,30)<%xd(Nd)|%?if(%bl,>=,20)<%xd(Nc)|%?if(%bl,>=,10)<%xd(Nb)|%xd(Nk)>>>>>>>>>>
#Ones
%Vl(b,-38,4,6,8,-)
%?bc<|%?bl<|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|%xd(Na)|%xd(Nb)|%xd(Nc)|%xd(Nd)|%xd(Ne)|%xd(Nf)|%xd(Ng)|%xd(Nh)|%xd(Ni)|%xd(Nj)|>>
#
# ***** NUMERIC VOLUME *****
#Negative Sign Cover
%Vl(v,-17,7,3,1,-)
%?if(%pv,>=,0)<%xd(Nk)>
#Volume Hole Spacers
%Vl(v,-17,1,15,14,-)
%xd(V)
#Tens
%Vl(v,-14,4,6,8,-)
%xd(N, %ss(1, 1, %pv))
# ***** ONES *****
# This conditional is necessary to work around the theme
# hanging on load. I don't know why it hung, but when the
# conditionals were all on one big line, it was trouble...
%Vl(v,-8,4,6,8,2)
%xd(N, %ss(2, 1, %pv))
#Graphic Volume
%Vl(V,-17,1,15,14,-)
%?pv<%xd(vd)|%xd(vd)|%xd(vc)|%xd(vc)|%xd(vb)|%xd(vb)|%xd(vb)|%xd(vb)|%xd(va)|%xd(va)%xd(va)|%xd(va)>
#Spacer
%Vl(E,72,3,42,11,-)
%xd(E)
#Menu Viewport
%Vi(-,0,18,-,92,1)
#Divider
%Vl(m,0,-22,-,2,-)
%pb(0,0,-,2,-)
#Bottom Info
%Vl(m,0,-20,-,20,1)
%?mp<%?cc<%ac%?cf<%ck:%cM|%cl:%cM%cp>|Rockbox>|%s%ac%?ia<%ia|%?d(2)<%d(2)|%Sx(Unknown) %Sx(Artist)>> - %?it<%it|%fn>|%s%ac%?ia<%ia|%?d(2)<%d(2)|%Sx(Unknown) %Sx(Artist)>> - %?it<%it|%fn>|%s%ac%?ia<%ia|%?d(2)<%d(2)|%Sx(Unknown) %Sx(Artist)>> - %?it<%it|%fn>|%s%ac%?ia<%ia|%?d(2)<%d(2)|%Sx(Unknown) %Sx(Artist)>> - %?it<%it|%fn>|%s%acRecording|%s%acRecording Paused|%s%ac%?Tn<%Tf - %Tn|%tf FM>%?tx< - %ty - %tz|>|%s%ac%?Tn<%Tf - %Tn|%tf FM>%?tx< - %ty - %tz|>>