瀏覽單個文章
moxamax
New Member
 

加入日期: Jun 2002
文章: 8
小弟念的是設計,不是科班出身,只會寫點 HTML 跟 Flash
沒寫過程式,titleformating 也是不是很熟,若有 bug 請各位多指教


代碼:
//音量顯示的設定
//是否開啟 ReplayGain?0 -已關閉,1 -已開啟
$puts(gainon,1)

//Preamp (dB),整數
$puts(preamp,-8)


//----------------------------------------------------------------------------------------------------------
$imageabs(0,0,FCS\moxa\title_bg.png,)

$puts(atristfont,$font(Tahoma,8,glow-175-175-175 glowalpha-50,103-105-89))
$puts(titlefont,$font(Tahoma,8,glow-175-175-175 glowalpha-50,103-105-89))
$puts(logofont,$font(Webdings,20,glow-175-175-175 glowalpha-50,156-159-135))
$puts(star,$font(Tahoma,7,glow-175-175-175 glowalpha-50,103-105-89))
$puts(xsfont,$font(Tahoma,7,glow-175-175-175 glowalpha-50,156-159-135))
$puts(sfont,$font(Tahoma,7,glow-175-175-175 glowalpha-35,103-105-89))


// time/codec/kbps--------------------------
$padding(8,6)
$align(right,bottom)
$get(sfont)
$if(%length%,[- %playback_time_remaining% / ]%length%,$if(%isplaying%,streaming,))
'#LINEHEIGHT,12#'$char(10)
$get(xsfont)
$if($stricmp($left($info(tool),4),lame),LAME ,)
$if($stricmp($left($info(tool),4),nero),Nero ,)
[%codec%] 
$puts(ratio,$left($muldiv(%bitrate%,1000,$if($stricmp(%samplerate%,48000),1536,1411)),2)'.'$right($muldiv(%bitrate%,1000,$if($stricmp(%samplerate%,48000),1536,1411)),1))
[$if($stricmp($info(encoding),lossless),$get(ratio)'%',%bitrate%'K')]


// Rating & Vol & Gain--------------------------
$puts(subrate,$if($stricmp($right(%rating%,2),'.5'),$sub(4%,rating%),$sub(5,%rating%)))
$puts(rating,$repeat('★ ',%rating%)
$if($stricmp($right(%rating%,2),'.5'),☆,)
$repeat('・ ',$get(subrate)))
//$puts(vol,$add(%cwb_volume%,100))
$ifgreater($get(gainon),0,$puts(gain,$if(%__replaygain_track_gain%,$left(%__replaygain_track_gain%,$strchr(%__replaygain_album_gain%,' ')),$get(preamp))),)

$if(%isplaying%,
$align(left,bottom)$get(star)$get(rating)
'#LINEHEIGHT,12#'$char(10)$get(xsfont)
$ifgreater(%cwb_volume%,-100,Vol. $add(%cwb_volume%,$get(gain)) dB,Mute)
,)


// Artist & Title--------------------------
$align(center,middle)

$puts(artswitch,$if(%_trackinfo_notrack%,$get(logofont) ‾ ,[%artist%]))

$ifgreater(%_width%,180,
$ifgreater(175,$sub(%_width%,$calcwidth($get(artswitch))),
$get(atristfont)$left($get(artswitch),$sub($div(%_width%,6),28))'...',$get(atristfont)$get(artswitch))
,)

$char(10)

$puts(titleswitch,
$if(%title%,$if(%album%,$ifgreater($mod(%_time_elapsed_seconds%,20),14,%album%,%title%),%title%),[%_filename%]))

$ifgreater(%_width%,180,
$ifgreater(175,$sub(%_width%,$calcwidth($get(titleswitch))),
$get(titlefont)$left($get(titleswitch),$sub($div(%_width%,6),28))'...',$get(titlefont)$get(titleswitch))
,)

$imageabs(0,0,FCS\moxa\title_ovl.png,)
舊 2006-10-02, 03:02 AM #734
回應時引用此文章
moxamax離線中