﻿////////// General scripts //////////
// On Init
// ユーザー設定項目 //
//// 色の設定 ////
$hash(color,black) // 基調色のプリセット。black、black_contrast、white から選択

$if($stricmp(%color%,black),
	$hash(col_bg,15-10-10) // 透過用背景色
	$hash(col_frame_out,9-11-12) // 外枠色 1
	$hash(col_frame_mid,102-108-112) // 外枠色 2
	$hash(col_frame_in,47-51-52) // 外枠色 3
	$hash(col_main_frame,42-47-49) // 主枠色
	$hash(col_panel_shadow,36-40-42) // パネルの周囲色
	$hash(col_panel_bg,0-0-0) // パネルの背景色
	$hash(col_play_pb1,142-162-195) // プログレスバーの上部の色
	$hash(col_play_pb2,42-62-95) // プログレスバーの下部の色
	$hash(col_play_pb3,22-42-75) // プログレスバーの周囲の色
	$hash(font_col_scale,160-160-160) // プログレスバーの目盛りの色
	$hash(font_col_head,91-125-155) // 見出しの文字色
	$hash(font_col_genre,40-40-40) // ジャンルの文字色
	$hash(font_col_text,160-160-160) // 基本の文字色
	$hash(font_col_rg,220-220-220) // Replaygain の文字色
	$hash(on,hoveron_bk) // ボタンオンのパス
	$hash(off,hoveroff_bk) // ボタンオフのパス
	$hash(btn,img\btn\btn_space_bk.png) // ボタンスペースの背景
	$hash(volpath,img\vol\) // ボリュームバー画像のパス
)
$if($stricmp(%color%,black_contrast),
	$hash(col_bg,15-10-10) // 透過用背景色
	$hash(col_frame_out,9-11-12) // 外枠色 1
	$hash(col_frame_mid,102-108-112) // 外枠色 2
	$hash(col_frame_in,47-51-52) // 外枠色 3
	$hash(col_main_frame,42-47-49) // 主枠色
	$hash(col_panel_shadow,36-40-42) // パネルの周囲色
	$hash(col_panel_bg,0-0-0) // パネルの背景色
	$hash(col_play_pb1,142-162-195) // プログレスバーの上部の色
	$hash(col_play_pb2,42-62-95) // プログレスバーの下部の色
	$hash(col_play_pb3,22-42-75) // プログレスバーの周囲の色
	$hash(font_col_scale,200-200-200) // プログレスバーの目盛りの色
	$hash(font_col_head,175-205-235) // 見出しの文字色
	$hash(font_col_genre,40-40-40) // ジャンルの文字色
	$hash(font_col_text,210-210-210) // 基本の文字色
	$hash(font_col_rg,255-255-255) // Replaygain の文字色
	$hash(on,hoveron_bk) // ボタンオンのパス
	$hash(off,hoveroff_bk) // ボタンオフのパス
	$hash(btn,img\btn\btn_space_bk.png) // ボタンスペースの背景
	$hash(volpath,img\vol\) // ボリュームバー画像のパス
)
$if($stricmp(%color%,white),
	$hash(col_bg,102-102-125) // 透過用背景色
	$hash(col_frame_out,102-102-126) // 外枠色 1
	$hash(col_frame_mid,251-252-253) // 外枠色 2
	$hash(col_frame_in,168-169-187) // 外枠色 3
	$hash(col_main_frame,234-235-236) // 主枠色
	$hash(col_panel_shadow,160-160-160) // パネルの周囲色
	$hash(col_panel_bg,255-255-255) // パネルの背景色
	$hash(col_play_pb1,242-252-255) // プログレスバーの上部の色
	$hash(col_play_pb2,142-162-195) // プログレスバーの下部の色
	$hash(col_play_pb3,122-142-175) // プログレスバーの周囲の色
	$hash(font_col_scale,120-120-120) // プログレスバーの目盛りの色
	$hash(font_col_head,41-75-165) // 見出しの文字色
	$hash(font_col_genre,220-220-220) // ジャンルの文字色
	$hash(font_col_text,100-100-100) // 基本の文字色
	$hash(font_col_rg,1-35-125) // Replaygain の文字色
	$hash(on,hoveron_wh) // ボタンオンのパス
	$hash(off,hoveroff_wh) // ボタンオフのパス
	$hash(btn,img\btn\btn_space_wh.png) // ボタンスペースの背景
	$hash(volpath,img\vol\) // ボリュームバー画像のパス
)

//// フォントの種類とサイズ ////
$hash(font_genre,$if($files(C:\WINDOWS\Fonts\BGPENKB.TTF),恋文ペン字,$if($files(C:\WINDOWS\Fonts\HGRGM.TTC),HGｺﾞｼｯｸM,SimHei))) // ジャンル
$if($files(C:\WINDOWS\Fonts\meiryo.ttc),
	// メイリオフォントがインストール済みのときの設定
	$hash(font_head,メイリオ) // 見出し
	$hash(font_text,メイリオ) // 基本の文字
	$hash(fontSS,8) // 選択した曲の合計演奏時間表示とアーティストという文字
	$hash(fontS,9) // 見出し
	$hash(fontM,10) // アーティスト名、アルバム名、演奏者名等
	$hash(fontMM,11) // 現在は使っていない
	$hash(fontL,13) // 曲名
,
	// メイリオフォントをインストールしていないときの設定
	$hash(font_head,ＭＳ Ｐゴシック) // 見出し
	$hash(font_text,ＭＳ Ｐゴシック) // それ以外
	$hash(fontSS,7) // 選択した曲の合計演奏時間表示とアーティストという文字
	$hash(fontS,8) // 見出し
	$hash(fontM,9) // アーティスト名、アルバム名、演奏者名等
	$hash(fontMM,10) // 現在は使っていない
	$hash(fontL,12) // 曲名
)
$hash(fontLL,80) // ジャンル

//// 位置の設定 ////
$hash(border,3) // 外枠の幅
$hash(padding1,5) // 外枠との間の余白の幅
$hash(padding2,$add(%border%,%padding1%)) // border と padding2 の合計
$hash(padding3,10) // パネル同士の間の余白の幅
$hash(TIWh,160) // 楽曲情報表示窓の高さ
$hash(headX,$add(%padding2%,25)) // [作曲家]、[曲名] 等の曲情報の見出しの X 座標
$hash(contentX,$add(%headX%,85)) // 曲情報の X 座標
$hash(properties_padding,25) // プロパティ項目の間の余白の長さ
$hash(propertiesY,4) // プロパティ表示の Y 座標
$hash(propertiesH,20) // プロパティ表示の高さ
$hash(PBOw,129) // Playback Order の幅
$hash(MB1w,90) // Music Browser 1 の幅
$hash(MB2w,150) // Music Browser 2 の幅
$hash(CSPh,140) // Channel Spectrum Panel ウィンドウの高さ
$hash(Bx,$add(21,%padding2%)) // ボタン 1 つ目の X 座標
$hash(Ph,10) // プログレスバーの高さ
$hash(btn_path,img\btn\fb2k095_20\) // ボタン画像フォルダのパス
$hash(timespace,120)

//// パネルモードの初期設定 ////
$hash(panelmode,1)

// On Playback Starting
$fn_play_btn()

// On Playback New Track
$if(
	$or(
		$stricmp(%title%,No Title),
		$stricmp(%title%,Track $tracknumber(1)),
		$stricmp(%title%,Track %track%),
		$stricmp(%title%,拍手),
		$stricmp(%title%,Applause),
	),
	$playback_control(next)
) // 曲名に一定の単語を含む曲を飛ばす

$updatewindow(CONTROL_PANEL,level:2)
$for(i,1,$div(%playback_length%,60),1,'
$ifequal($mod(%i%,5),0,$hash(ScaleH,3)$hash(ScaleY,$add(%Py%,%Ph%,-1)),$hash(ScaleH,1)$hash(ScaleY,$add(%Py%,%Ph%,)))
$gp_rect(CONTROL_PANEL,$add($muldiv($mul(60,%i%),%Sw%,%playback_length%),%Sx%),%ScaleY%,1,%ScaleH%,aa:off,brush:255-%font_col_scale%,dmode:mem)
',macro:on) // 1 分ごとに目盛りを表示
$updatewindow(CONTROL_PANEL,level:0)

$fn_lrc_btn() // 歌詞ファイルの種類によって歌詞表示ボタンを変更。歌詞ファイルがないときはボタンを表示しない。
$fn_volbar() // updatewindow level:2 でボリュームバーも消えちゃうので、再生成する
$fn_seek_map() // updatewindow level:2 でシーク用の map も消えちゃうので再生成する
$hash(_length,$num($div(%playback_length%,60),1):$num($mod(%playback_length%,60),2)) // 総演奏時間が何分何秒かを計算。四捨五入はしない。＄hms（％playback_length％）とは異なり、常に分表示。桁取りも異なる。
$fn_time(0:00) // 時間の初期表示
$updatewindow(TRACK_INFORMATION,level:2)

//// puts start ////
$puts(artistBD,$replace($meta(artist),Anoice,'(2004-)',Dragon Ash,'(1996-)',DREAMS COME TRUE,'(1988-)',GODIEGO,'(1976-85,99-2000,06-)',JUDY AND MARY,'(1992-2001)',THE ROOSTERS,'(1979-88,2004)',The Smiths,'(1982-87)',The Style Council,'(1983-90)',すぎやまこういち,'(1931-)' 椙山浩一,アーン,'(1875-1947)' Reynaldo Hahn,アダン,'(1803-56)' Adolphe-Charles Adam,アルファーノ,'(1875-1954)' Franco Alfano,アルヴェーン,'(1872-1960)' Hugo Emil Alfvén,アンゲラー,'(1740-94)' Edmund Angerer,アンガラー,'(1740-94)' Edmund Angerer,'アントーニ, G.B.D.','(C.1660-97)' Givanni Battista Degli Antonii,G.B.D. アントーニ,'(C.1660-97)' Givanni Battista Degli Antonii,アンハルト,'(1919-)' István Anhalt,イッポリトフ＝イヴァノフ,'(1859-1935)' Mikhail Mikhailovich Ippolitov-Ivanov,ウェーバー,'(1786-1826)' Carl Maria von Weber,ウェーベルン,'(1883-1945)' Anton von Webern,ヴェーベルン,'(1883-1945)' Anton von Webern,ウェバー,'(1948-)' Sir Andrew Lloyd-Webber,エテュ,'(1938-)' Jacques Hétu,エルガー,'(1857-1934)' Sir Edward William Elgar,オッフェンバッハ,'(1819-80)' Jacques Offenbach,オッフェンバック,'(1819-80)' Jacques Offenbach,オルフ,'(1895-1982)' Carl Orff,ガーシュウィン,'(1898-1937)' George Gershwin,カタラーニ,'(1854-93)' Alfredo Catalani,カッチーニ,'(C.1545-1618)' Giulio Caccini,'ガブリエーリ, G.','(C.1554-1612)' Giovanni Gabrieli,'ガブリエーリ, A.','(C.1510-86)' Andrea Gabrieli,'ガブリエーリ, D.','(C.1659-90)' Domenico Gabrielli,G. ガブリエーリ,'(C.1554-1612)' Giovanni Gabrieli,A. ガブリエーリ,'(C.1510-86)' Andrea Gabrieli,D. ガブリエーリ,'(C.1659-90)' Domenico Gabrielli,カリッシミ,'(1605-74)' Giacomo Carissimi,ガロ,'(1730-68?)' Domenico Gallo,ギボンズ,'(1583-1625)' Orlando Gibbons,クーナウ,'(1660-1722)' Johann Kuhnau,クープラン,'(1668-1733)' François Couperin,グールド,'(1932-82)' Glenn Herbert Gould,クニュプファー,'(C.1644-76)' Sebastian Knüpfer,グノー,'(1818-93)' Charles François Gounod,グラズノフ,'(1865-1936)' Aleksandr Konstantinovich Glazunov,グラナドス,'(1867-1916)' Enrique Granados y Campiña,グリーグ,'(1843-1907)' Edvard Hagerup Grieg,クルシェネク,'(1900-91)' Ernst Krenek,グルック,'(1714-87)' Christoph Willibald von Gluck,ケルビーニ,'(1760-1842)' Maria Luigi Carlo Zenobio Salvatore Cherubini,ケルル,'(1627-93)' Johann Caspar von Kerll,コダーイ,'(1882-1967)' Kodály Zoltán,コプラリオ,'(C.1570-1626) John Cooper → Giovanni Coprario',コレッリ,'(1653-1713)' Arcangelo Corelli,コロンブ,'(C.1640-1700)' Monsieur de Sainte-Colombe,サティ,'(1866-1925)' Eric Alfred Leslie Satie,ザネッティ,'(C.1625-45)' Gasparo Zanetti,サラサーテ,'(C.1844-1908)' Pablo Martín Melitón de Sarasate y Navascuéz,サン＝サーンス,'(1835-1921)' Charles Camille Saint-Saëns,シベリウス,'(1865-1957) Jean Sibelius (Johan Julius Christian Sibelius)',シェーンベルク,'(1874-1951)' Arnold Schönberg,シェッレ,'(1648-1701)' Johann Schelle,シェレ,'(1648-1701)' Johann Schelle,ジャヌカン,'(c.1480-1558)' Clément Janequin,シャブリエ,'(1841-94)' Alexis-Emmanuel Chabrier,シャミナード,'(1857-1944)' Cécile Louise Stéphanie Chaminade,シャンスリエ,'(C.1165-1236)' Philippe le Chancelier,シューベルト,'(1797-1828)' Franz Peter Schubert,シューマン,'(1810-56)' Robert Alexander Schumann,シュッツ,'(1585-1672)' Heinrich Schütz,シュトラウス1世,'(1804-49)' Johan Baptist Strauß I,シュトラウス2世,'(1825-99)' Johan Strauß II,シュトラウス I,'(1804-49)' Johan Baptist Strauß I,シュトラウス II,'(1825-99)' Johan Strauß II,'シュトラウス, ヨーゼフ','(1827-70)' Josef Strauß,'シュトラウス, R.G.','(1864-1949)' Richard Georg Strauss,'シュトラウス, R.','(1864-1949)' Richard Georg Strauss,ヨーゼフ・シュトラウス,'(1827-70)' Josef Strauß,R.G. シュトラウス,'(1864-1949)' Richard Georg Strauss,R. シュトラウス,'(1864-1949)' Richard Georg Strauss,'シュミット, フランツ','(1874-1939)' Franz Schmidt,'シュミット, フローラン','(1870-1958)' Florent Schmitt,ジョスカン・デ・プレ,'(1450/55-1521)' Josquin des Prés,ショスタコーヴィチ,'(1906-75)' Dmitrii Dmitrievich Shostakovich,ショパン,'(1810-49)' Frédéric François Chopin,A. スカルラッティ,'(1660-1725)' Alessandro Scarlatti,D. スカルラッティ,'(1685-1757)' Domenico Scarlatti,'スカルラッティ, A.','(1660-1725)' Alessandro Scarlatti,'スカルラッティ, D.','(1685-1757)' Domenico Scarlatti,スクリャービン,'(1872-1915)' Aleksandr Nikolayevich Skryabin,スッペ,'(1819-95)' Franz von Suppé,ステッファーニ,'(1653-1728)' Agostino Steffani,ストラヴィンスキー,'(1882-1971)' Igor Fyodorovitch Stravinsky,スメタナ,'(1824-84)' Bedřich Smetana,スヴェンセン,'(1840-1911)' Johann Severin Svendsen,ゼレンカ,'(1679-1745)' Jan Dismas Zelenka,ダウランド,'(1563-1626)' John Dowland,アストルガ,'(1681-1736)' Emanuele d''Astorga,ダストルガ,'(1681-1736)' Emanuele d''Astorga,チャイコフスキー,'(1840-93)' Peter Ilyich Tchaikovsky,ディニク,'(1889-1949)' Grigoraş Dinicu,ティペット,'(1905-98)' Sir Michael Kemp Tippett,テレマン,'(1681-1767)' Georg Philipp Telemann,ドヴォルザーク,'(1841-1904)' Antonín Leopold Dvořák,ドゥランテ,'(1684-1755)' Francesco Durante,ドゥローン,'(1660-1716)' Sebastian Duron,ドゥロン,'(1660-1716)' Sebastian Duron,ドニゼッティ,'(1797-1848)' Gaetano Donizetti,ドビュッシー,'(1862-1918)' Claude Achille Debussy,ドリーブ,'(1836-91)' Clément Philibert Léo Delibes,ニールセン,'(1865-1931)' Carl August Nielsen,ニコライ,'(1810-49)' Carl Otto Ehrenfried Nicolai,パーセル,'(1659-95)' Henry Purcell,バード,'(c.1540-1623)' William Byrd,バーンスタイン,'(1918-90)' Leonard Bernstein,ハイドン,'(1732-1809)' Franz Joseph Haydn,パガニーニ,'(1782-1840)' Niccolò Paganini,バダジェフスカ,'(1834-61?)' Tekla Bądarzewska-Baranowska,ボンダジェフスカ,'(1834-61?)' Tekla Bądarzewska-Baranowska,ハチャトゥリアン,'(1903-78)' Aram Il''ich Khachaturian,'バッハ, C.P.E.','(1714-88)' Carl Philipp Emanuel Bach,'バッハ, J. クリスティアン','(1735-82)' Johann Christian Bach,'バッハ, J. クリストフ','(1642-1703)' Johann Christoph Bach,'バッハ, J.M. III','(1745-1820)' Johann Michael Bach III,'バッハ, J.M. II','(1685-?)' Johann Michael Bach II,'バッハ, J.M. I','(1648-94)' Johann Michael Bach I,'バッハ, J.S.','(1685-1750)' Johann Sebastian Bach,C.P.E. バッハ,'(1714-88)' Carl Philipp Emanuel Bach,J. クリスティアン・バッハ,'(1735-82)' Johann Christian Bach,J. クリストフ・バッハ,'(1642-1703)' Johann Christoph Bach,J.M. バッハ III,'(1745-1820)' Johann Michael Bach III,J.M. バッハ II,'(1685-?)' Johann Michael Bach II,J.M. バッハ I,'(1648-94)' Johann Michael Bach I,J.S. バッハ,'(1685-1750)' Johann Sebastian Bach,パッヘルベル,'(1653-1706)' Johann Pachelbel,バラキレフ,'(1837-1910)' Mily Alekseyevich Balakirev,バルトーク,'(1881-1945)' Bartók Béla Viktor János,パレストリーナ,'(C.1525-94)' Giovanni Pierluigi da Palestrina,ピアソラ,'(1921-92)' Astor Piazzolla,ビーバー,'(1644-1704)' Heinrich Ignaz Franz von Biber,ビバー,'(1644-1704)' Heinrich Ignaz Franz von Biber,ビゼー,'(1828-75)' Georges Bizet,ピゼンデル,'(1687-1755)' Johann Georg Pisendel,ヒンデミット,'(1895-1963)' Paul Hindemith,ファッコ,'(1676-1753)' Giacomo Facco,ファリーナ,'(1600-39/40)' Carlo Farina,ファリナ,'(1600-39/40)' Carlo Farina,ファリャ,'(1876-1946)' Manuel de Falla y Matheu,プーランク,'(1899-1963)' Francis Jean Marcel Poulenc,フォーレ,'(1845-1924)' Gabriel Urbain Fauré,フォルクレ,'(C.1671-1745)' Antoine Forqueray,ブクステフーデ,'(1637-1707)' Dieterich Buxtehude,フェイキー,'(1999-)' FAKiE,フックス,'(1660-1741)' Johann Joseph Fux,プッチーニ,'(1858-1924)' Giacomo Antonio Domenico Michele Secondo Maria Puccini,ブラームス,'(1833-97)' Johannes Brahms,'フランク, C.','(1822-90)' César-Auguste-Jean-Guillaume-Hubert Franck,C. フランク,'(1822-90)' César-Auguste-Jean-Guillaume-Hubert Franck,ブリテン,'(1913-76) Edward Benjamin Britten OM, CH',ブルックナー,'(1824-96)' Josef Anton Bruckner,フレスコバルディ,'(1583-1643)' Girolamo Frescobaldi,フローベルガー,'(1616-67)' Johann Jakob Froberger,プロコフィエフ,'(1891-1953)' Sergei Sergeevich Prokofieff,フンパーディンク,'(1854-1921)' Engelbert Humperdinck,フンメル,'(1778-1837)' Johan Nepomuk Hummel,ベートーヴェン,'(1770-1827)' Ludwig van Beethoven,ベッリーニ,'(1801-35)' Vincenzo Bellini,ベネヴォリ,'(1605-72)' Orazio Benevoli,ベルク,'(1885-1935)' Alban Maria Johannes Berg,ペルゴレージ,'(1710-36)' Giovanni Battista Pergolesi,ペルゴレーシ,'(1710-36)' Giovanni Battista Pergolesi,ベルリオーズ,'(1803-69)' Louis Hector Berlioz,ベルワルド,'(1796-1868)' Franz Adolf Berwald,ペロティヌス,'(C.1150-65 - 1200-25)' Magister Perotinus,ヘンデル,'(1685-1759)' Georg Friedrich Händel,ボッケリーニ,'(1743-1805)' Luigi Boccherini,ホルスト,'(1874-1934)' Gustavus Theodore von Holst,ボロディン,'(1833-87)' Alexander Porfir''evich Borodin,ポンキエッリ,'(1834-86)' Amilcare Ponchielli,ポンキエルリ,'(1834-86)' Amilcare Ponchielli,マーラー,'(1860-1911)' Gustav Mahler,マショー,'(C.1300-77)' Guillaume de Machaut,マスカーニ,'(1863-1945)' Pietro Mascagni,マスネ,'(1842-1912)' Jules Emile Frédéric Massenet,マニャール,'(1865-1914)' Lucien Denis Gabriel Albéric Magnard,マルティヌー,'(1890-1959)' Bohuslav Martinů,マレー,'(1656-1728)' Marin Marais,マレ,'(1656-1728)' Marin Marais,ミャスコフスキー,'(1881-1950)' Nikolai Yakovlevich Myaskovsky,ミヨー,'(1892-1974)' Darius Milhaud,ムッシ,'(C.1589-1623)' Giulio Mussi,ムソルグスキー,'(1839-81)' Modest Petrovich Mussorgsky,メシアン,'(1908-92)' Olivier-Eugène-Prosper-Charles Messiaen,メンデルスゾーン,'(1809-47)' Jakob Ludwig Felix Mendelssohn Bartholdy,'モーツァルト, L.','(1719-87)' Johann Georg Leopold Mozart,L. モーツァルト,'(1719-87)' Johann Georg Leopold Mozart,モーツァルト,'(1756-91)' Wolfgang Amadeus Mozart,モラヴェッツ,'(1917-2007)' Oskar Morawetz,モンティ,'(1868-1922)' Vittorio Monti,モンテヴェルディ,'(1567-1643)' Claudio Monteverdi,ヤッキーニ,'(C.1670-1727) Giuseppe Maria Jacchini,ジャッキーニ,'(C.1670-1727) Giuseppe Maria Jacchini,ヤナーチェク,'(1854-1928)' Leoš Janáček,ライマー,'(1920-74)' Kurt Leimer,ラッソ,'(C.1532-94)' Orlando di Lasso,ラッスス,'(C.1532-94)' Orlandus Lassus,ラフマニノフ,'(1873-1943)' Sergei Vasilievich Rachmaninoff,ラモー,'(1683-1764)' Jean-Philippe Rameau,ラヴェル,'(1875-1937)' Joseph-Maurice Ravel,リスト,'(1811-86)' Liszt Ferencz,リテレス,'(1673-1747)' Antonio de Líteres,リムスキー＝コルサコフ,'(1844-1908)' Nikolai Andreyevich Rimsky-Korsakov,リュリ,'(1632-87) Jean-Baptiste de Lully (Giovanni Battista Lulli)',ルーセル,'(1869-1937)' Albert Charles Paul Marie Roussel,ルセール,'(1869-1937)' Albert Charles Paul Marie Roussel,ルベル,'(1666-1747)' Jean-Féry Rebel,レーガー,'(1873-1916)' Johann Baptist Joseph Maximilian Reger,レオンカヴァッロ,'(1857-1919)' Ruggiero Leoncavallo,レズニチェク,'(1860-1945)' Emil Nikolaus von Reznicek,レスピーギ,'(1879-1936)' Ottorino Respighi,レハール,'(1870-1948)' Franz Lehár,H. ローズ,'(1595-1662)' Henry Lawes,W. ローズ,'(1602-45)' William Lawes,'ローズ, H.','(1595-1662)' Henry Lawes,'ローズ, W.','(1602-45)' William Lawes,ロック,'(1621/22-77)' Matthew Locke,ロッシーニ,'(1792-1868)' Gioachino Antonio Rossini,ロドリーゴ,'(1901-99)' Joaquín Rodrigo Vidre,ワルトトイフェル,'(1837-1915)' Émile Waldteufel,ヴァーグナー,'(1813-83)' Wilhelm Richard Wagner,ヴァインベルゲル,'(1898-1967)' Jaromír Weinberger,ヴァインベルガー,'(1898-1967)' Jaromír Weinberger,ヴァインベルガー,'(1898-1967)' Jaromír Weinberger,ヴァッセナール,'(1692-1766)' Count Unico Wilhelm van Wassenaer,ヴィオッティ,'(1755-1824)' Giovanni Battista Viotti,ヴィヴァルディ,'(1678-1741)' Antonio Lucio Vivaldi,ヴィラ＝ロボス,'(1887-1959)' Heitor Villa-Lobos,ヴェルディ,'(1813-1901)' Giuseppe Fortunino Francesco Verdi,ヴォーン・ウィリアムズ,'(1872-1958)' Ralph Vaughan Williams,武満徹,'(1930-96)',三代目 桂米朝,'(1925-)' 中川清,五代目 古今亭志ん生,'(1890-1973)' 美濃部孝蔵,八代目 林家正蔵,'('彦六') (1895-1982)' 岡本義,千日前ちなつ＆ちあき,'(1992-94)',Adam,'(1803-56)' Adolphe-Charles Adam,Alfano,'(1875-1954)' Franco Alfano,Alfven,'(1872-1960)' Hugo Emil Alfvén,Alfvén,'(1872-1960)' Hugo Emil Alfvén,Angerer,'(1740-94)' Edmund Angerer,Anhalt,'(1919-)' István Anhalt,'Antonii, G.B.D.','(C.1660-97)' Givanni Battista Degli Antonii,Astorga,'(1681-1736)' Emanuele d''Astorga,d''Astorga,'(1681-1736)' Emanuele d''Astorga,'Bach, C.P.E.','(1714-88)' Carl Philipp Emanuel Bach,'Bach, J. Christian','(1735-82)' Johann Christian Bach,'Bach, J.C.',Johann Christian Bach or Johann Christoph Bach,'Bach, J. Christoph','(1642-1703)' Johann Christoph Bach,'Bach, J.M. III','(1745-1820)' Johann Michael Bach III,'Bach, J.M. II','(1685-?)' Johann Michael Bach II,'Bach, J.M. I','(1648-94)' Johann Michael Bach I,'Bach, J.S.','(1685-1750)' Johann Sebastian Bach,Badarzewska,'(1834-61?)' Tekla Bądarzewska-Baranowska,Bądarzewska,'(1834-61?)' Tekla Bądarzewska-Baranowska,Balakirev,'(1837-1910)' Mily Alekseyevich Balakirev,Bartok,'(1881-1945)' Bartók Béla Viktor János,Bartók,'(1881-1945)' Bartók Béla Viktor János,Beethoven,'(1770-1827)' Ludwig van Beethoven,Bellini,'(1801-35)' Vincenzo Bellini,Benevoli,'(1605-72)' Orazio Benevoli,Benevolo,'(1605-72)' Orazio Benevolo,Berg,'(1885-1935)' Alban Maria Johannes Berg,Berlioz,'(1803-69)' Louis Hector Berlioz,Bernstein,'(1918-90)' Leonard Bernstein,Berwald,'(1796-1868)' Franz Adolf Berwald,Biber,'(1644-1704)' Heinrich Ignaz Franz von Biber,Bizet,'(1828-75)' Georges Bizet,Boccherini,'(1743-1805)' Luigi Boccherini,Borodin,'(1833-87)' Alexander Porfir''evich Borodin,Brahms,'(1833-97)' Johannes Brahms,Britten,'(1913-76) Edward Benjamin Britten OM, CH',Bruckner,'(1824-96)' Josef Anton Bruckner,Buxtehude,'(C.1637-1707)' Dieterich Buxtehude,Byrd,'(c.1540-1623)' William Byrd,Caccini,'(C.1545-1618)' Giulio Caccini,Carissimi,'(1605-74)' Giacomo Carissimi,Catalani,'(1854-93)' Alfredo Catalani,Chabrier,'(1841-94)' Alexis-Emmanuel Chabrier,Chaminade,'(1857-1944)' Cécile Louise Stéphanie Chaminade,Chancelier,'(C.1165-1236)' Philippe le Chancelier,Cherubini,'(1760-1842)' Maria Luigi Carlo Zenobio Salvatore Cherubini,Chopin,'(1810-49)' Frédéric François Chopin,Colombe,'(C.1640-1700)' Monsieur de Sainte-Colombe,Coperario,'(C.1570-1626) John Cooper → Giovanni Coperario',Coprario,'(C.1570-1626) John Cooper → Giovanni Coprario',Corelli,'(1653-1713)' Arcangelo Corelli,Couperin,'(1668-1733)' François Couperin,Debussy,'(1862-1918)' Claude Achille Debussy,Dinicu,'(1889-1949)' Grigoraş Dinicu,Delibes,'(1836-91)' Clément Philibert Léo Delibes,Donizetti,'(1797-1848)' Gaetano Donizetti,Dowland,'(1563-1626)' John Dowland,Durante,'(1684-1755)' Francesco Durante,Duron,'(1660-1716)' Sebastian Duron,Dvorak,'(1841-1904)' Antonín Leopold Dvořák,Dvořák,'(1841-1904)' Antonín Leopold Dvořák,Elgar,'(1857-1934)' Sir Edward William Elgar,Falla,'(1876-1946)' Manuel de Falla y Matheu,Facco,'(1676-1753)' Giacomo Facco,Farina,'(1600-39/40)' Carlo Farina,Faure,'(1845-1924)' Gabriel Urbain Fauré,Fauré,'(1845-1924)' Gabriel Urbain Fauré,Forqueray,'(C.1671-1745)' Antoine Forqueray,'Franck, C.','(1822-90)' César-Auguste-Jean-Guillaume-Hubert Franck,Frescobaldi,'(1583-1643)' Girolamo Frescobaldi,Froberger,'(1616-67)' Johann Jakob Froberger,Fux,'(1660-1741)' Johann Joseph Fux,'Gabrieli, G.','(C.1554-1612)' Giovanni Gabrieli,'Gabrieli, A.','(C.1510-86)' Andrea Gabrieli,'Gabrieli, D.','(C.1659-90)' Domenico Gabrielli,Gallo,'(1730-68?)' Domenico Gallo,Gershwin,'(1898-1937)' George Gershwin,Gibbons,'(1583-1625)' Orlando Gibbons,Glazunov,'(1865-1936)' Aleksandr Konstantinovich Glazunov,Gluck,'(1714-87)' Christoph Willibald von Gluck,Gould,'(1932-82)' Glenn Herbert Gould,Gounod,'(1818-93)' Charles François Gounod,Granados,'(1867-1916)' Enrique Granados y Campiña,Grieg,'(1843-1907)' Edvard Hagerup Grieg,Hahn,'(1875-1947)' Reynaldo Hahn,Handel,'(1685-1759)' Georg Friedrich Händel,Haendel,'(1685-1759)' Georg Friedrich Händel,Händel,'(1685-1759)' Georg Friedrich Händel,Haydn,'(1732-1809)' Franz Joseph Haydn,Hetu,'(1938-)' Jacques Hétu,Hétu,'(1938-)' Jacques Hétu,Hindemith,'(1895-1963)' Paul Hindemith,Holst,'(1874-1934)' Gustavus Theodore von Holst,Hummel,'(1778-1837)' Johan Nepomuk Hummel,Humperdinck,'(1854-1921)' Engelbert Humperdinck,Ippolitov-Ivanov,'(1859-1935)' Mikhail Mikhailovich Ippolitov-Ivanov,Jacchini,'(C.1670-1727)' Giuseppe Maria Jacchini,Janacek,'(1854-1928)' Leoš Janáček,Janáček,'(1854-1928)' Leoš Janáček,Janequin,'(c.1480-1558)' Clément Janequin,Josquin des Prez,'(1450/55-1521)' Josquin des Prez,Josquin des Pres,'(1450/55-1521)' Josquin des Pres,Josquin des Prés,'(1450/55-1521)' Josquin des Prés,Josquin Desprez,'(1450/55-1521)' Josquin Desprez,Kerll,'(1627-93)' Johann Caspar von Kerll,Khachaturian,'(1903-78)' Aram Il''ich Khachaturian,Knupfer,'(C.1644-76)' Sebastian Knüpfer,Knüpfer,'(C.1644-76)' Sebastian Knüpfer,Kuhnau,'(1660-1722)' Johann Kuhnau,Kodaly,'(1882-1967)' Kodály Zoltán,Kodály,'(1882-1967)' Kodály Zoltán,Krenek,'(1900-91)' Ernst Krenek,Lasso,'(C.1532-94)' Orlando di Lasso,Lassus,'(C.1532-94)' Orlandus Lassus,'Lawes, H.','(1595-1662)' Henry Lawes,'Lawes, W.','(1602-45)' William Lawes,Lehar,'(1870-1948)' Franz Lehár,Lehár,'(1870-1948)' Franz Lehár,Leimer,'(1920-74)' Kurt Leimer,Leoncavallo,'(1857-1919)' Ruggiero Leoncavallo,Liszt,'(1811-86)' Liszt Ferencz,Literes,'(1673-1747)' Antonio de Líteres,Líteres,'(1673-1747)' Antonio de Líteres,Locke,'(1621/22-77)' Matthew Locke,Lully,'(1632-87) Jean-Baptiste de Lully (Giovanni Battista Lulli)',Machaut,'(C.1300-77)' Guillaume de Machaut,Magnard,'(1865-1914)' Lucien Denis Gabriel Albéric Magnard,Mahler,'(1860-1911)' Gustav Mahler,Marais,'(1656-1728)' Marin Marais,Martinu,'(1890-1959)' Bohuslav Martinů,Martinů,'(1890-1959)' Bohuslav Martinů,Mascagni,'(1863-1945)' Pietro Mascagni,Massenet,'(1842-1912)' Jules Emile Frédéric Massenet,Mendelssohn,'(1809-47)' Jakob Ludwig Felix Mendelssohn Bartholdy,Messiaen,'(1908-92)' Olivier-Eugène-Prosper-Charles Messiaen,Milhaud,'(1892-1974)' Darius Milhaud,Monteverdi,'(1567-1643)' Claudio Monteverdi,Monti,'(1868-1922)' Vittorio Monti,Morawetz,'(1917-2007)' Oskar Morawetz,'Mozart, L.','(1719-87)' Johann Georg Leopold Mozart,Mozart,'(1756-91)' Wolfgang Amadeus Mozart,Mussi,'(1589-1623)' Giulio Mussi,Mussorgsky,'(1839-81)' Modest Petrovich Mussorgsky,Myaskovsky,'(1881-1950)' Nikolai Yakovlevich Myaskovsky,Nicolai,'(1810-49)' Carl Otto Ehrenfried Nicolai,Nielsen,'(1865-1931)' Carl August Nielsen,Offenbach,'(1819-80)' Jacques Offenbach,Orff,'(1895-1982)' Carl Orff,Pachelbel,'(1653-1706)' Johann Pachelbel,Paganini,'(1782-1840)' Niccolò Paganini,Palestrina,'(C.1525-94)' Giovanni Pierluigi da Palestrina,Pergolesi,'(1710-36)' Giovanni Battista Pergolesi,Perotinus,'(C.1150-65 - 1200-25)' Magister Perotinus,Perotin,'(C.1150-65 - 1200-25)' Magister Perotinus,Pérotin,'(C.1150-65 - 1200-25)' Magister Perotinus,Piazzolla,'(1921-92)' Astor Piazzolla,Pisendel,'(1687-1755)' Johann Georg Pisendel,Ponchielli,'(1834-86)' Amilcare Ponchielli,Poulenc,'(1899-1963)' Francis Jean Marcel Poulenc,Prokofiev,'(1891-1953)' Sergei Sergeevich Prokofieff,Prokofieff,'(1891-1953)' Sergei Sergeevich Prokofieff,Puccini,'(1858-1924)' Giacomo Antonio Domenico Michele Secondo Maria Puccini,Purcell,'(1659-95)' Henry Purcell,Rachmaninov,'(1873-1943)' Sergei Vasilievich Rachmaninoff,Rachmaninoff,'(1873-1943)' Sergei Vasilievich Rachmaninoff,Rameau,'(1683-1764)' Jean-Philippe Rameau,Ravel,'(1875-1937)' Joseph-Maurice Ravel,Rebel,'(1666-1747)' Jean-Féry Rebel,Reger,'(1873-1916)' Johann Baptist Joseph Maximilian Reger,Respighi,'(1879-1936)' Ottorino Respighi,Reznicek,'(1860-1945)' Emil Nikolaus von Reznicek,Rimsky-Korsakov,'(1844-1908)' Nikolai Andreyevich Rimsky-Korsakov,Rodrigo,'(1901-99)' Joaquín Rodrigo Vidre,Rossini,'(1792-1868)' Gioachino Antonio Rossini,Roussel,'(1869-1937)' Albert Charles Paul Marie Roussel,Saint-Saens,'(1835-1921)' Charles Camille Saint-Saëns,Saint-Saëns,'(1835-1921)' Charles Camille Saint-Saëns,Sarasate,'(C.1844-1908)' Pablo Martín Melitón de Sarasate y Navascuéz,Satie,'(1866-1925)' Eric Alfred Leslie Satie,Sibelius,'(1865-1957) Jean Sibelius (Johan Julius Christian Sibelius)','Scarlatti, A.','(1660-1725)' Alessandro Scarlatti,'Scarlatti, D.','(1685-1757)' Domenico Scarlatti,Schelle,'(1648-1701)' Johann Schelle,Schmidt,'(1874-1939)' Franz Schmidt,Schmitt,'(1870-1958)' Florent Schmitt,Schoenberg,'(1874-1951)' Arnold Schönberg,Schönberg,'(1874-1951)' Arnold Schönberg,Schubert,'(1797-1828)' Franz Peter Schubert,Schumann,'(1810-56)' Robert Alexander Schumann,Schutz,'(1585-1672)' Heinrich Schütz,Schütz,'(1585-1672)' Heinrich Schütz,Scriabin,'(1872-1915)' Alexandre Nikolayevich Scriàbine,Scriàbin,'(1872-1915)' Alexandre Nikolayevich Scriàbine,Scriàbine,'(1872-1915)' Alexandre Nikolayevich Scriàbine,Shostakovich,'(1906-75)' Dmitrii Dmitrievich Shostakovich,Smetana,'(1824-84)' Bedřich Smetana,Steffani,'(1653-1728)' Agostino Steffani,Strauss II,'(1825-99)' Johann Strauß II,Strauß II,'(1825-99)' Johann Strauß II,Strauss I,'(1804-49)' Johan Baptist Strauß I,Strauß I,'(1804-49)' Johan Baptist Strauß I,'Strauss, Josef','(1827-70)' Josef Strauß,'Strauß, Josef','(1827-70)' Josef Strauß,'Strauss, R.G.','(1864-1949)' Richard Georg Strauss,'Strauss, R.','(1864-1949)' Richard Georg Strauss,Josef Strauss,'(1827-70)' Josef Strauß,Josef Strauß,'(1827-70)' Josef Strauß,R.G. Strauss,'(1864-1949)' Richard Georg Strauss,R. Strauss,'(1864-1949)' Richard Georg Strauss,Stravinsky,'(1882-1971)' Igor Fyodorovitch Stravinsky,Suppe,'(1819-95)' Franz von Suppé,Suppé,'(1819-95)' Franz von Suppé,Svendsen,'(1840-1911)' Johann Severin Svendsen,Takemitsu,'(1930-96)' 武満徹,Tchaikovsky,'(1840-93)' Peter Ilyich Tchaikovsky,Telemann,'(1681-1767)' Georg Philipp Telemann,Tippett,'(1905-98)' Sir Michael Kemp Tippett,Vaughan Williams,'(1872-1958)' Ralph Vaughan Williams,Verdi,'(1813-1901)' Giuseppe Fortunino Francesco Verdi,Villa-Lobos,'(1887-1959)' Heitor Villa-Lobos,Viotti,'(1755-1824)' Giovanni Battista Viotti,Vivaldi,'(1678-1741)' Antonio Lucio Vivaldi,Wagner,'(1813-83)' Wilhelm Richard Wagner,Waldteufel,'(1837-1915)' Émile Waldteufel,Wassenaer,'(1692-1766)' Count Unico Wilhelm van Wassenaer,Webber,'(1948-)' Sir Andrew Lloyd-Webber,Weber,'(1786-1826)' Carl Maria von Weber,Webern,'(1883-1945)' Anton von Webern,Weinberger,'(1898-1967)' Jaromír Weinberger,Zanetti,'(C.1625-45)' Gasparo Zanetti,Zelenka,'(1679-1745)' Jan Dismas Zelenka)) // アーティスト名の変換テーブル 日本語版とアルファベット版

$puts(artist,$if($stricmp($meta(artist),$get(artistBD)),$meta(artist),$meta(artist) $get(artistBD))) // アーティスト名の変換
$puts(performer,$if3(%band%,$meta(album artist))) // 演奏者があれば演奏者、なければアルバム・アーティストを出力
$puts(len_album_line1,$len($pstrsplit(%album%,%contentW%,0,font-name:%font_text%,font-size:%fontM%))) // アルバム名表示の 1 行目の文字数（funcUI の方の pstrsplit。以下同じ）
$puts(line_album,$pstrsplit(%album%,%contentW%,-1,font-name:%font_text%,font-size:%fontM%)) // アルバム名表示の行数
$puts(len_perform_line1,$len($pstrsplit($get(performer),%contentW%,0,font-name:%font_text%,font-size:%fontM%))) // 演奏者名表示の 1 行目の文字数
$puts(line_perform,$pstrsplit($get(performer),%contentW%,-1,font-name:%font_text%,font-size:%fontM%)) // 演奏者名表示の行数

$puts(dateR,$replace($replace(%date%,Rec: ,,Rec:,,',0',',',/0,/,-0,-),',',', ',-, - )) // %date% の変換。冒頭の Rec: を外す。桁取りをする。カンマやハイフンの前後に半角スペースを挿入する
$puts(Y,$get(dateR) 年) // %date% が年だけの場合の処理
$puts(YM,
$put(date1,$left($get(dateR),$sub($strchr($get(dateR),/),1))) 年 
$put(dateZ,$right($get(dateR),$sub($len($get(dateR)),$strrchr($get(dateR),/)))) 月) // %date% が年月の場合の処理。[最初のスラッシュまで] 年 [最後のスラッシュ後] 月
$puts(YMD,
$get(date1) 年 
$put(dateM,$substr($get(dateR),$add($strchr($get(dateR),/),1),$sub($strrchr($get(dateR),/),1))) 月 
$get(dateZ) 日) // %date% が年月日だけの場合の処理。[最初のスラッシュまで] 年 [最初のスラッシュ後から最後のスラッシュまで] 月 [最後のスラッシュ後] 日
$puts(YMYM,
$get(date1) 年 
$put(M1,$left($get(dateM),$sub($put(last,$max($strrchr($get(dateM),','),$sub($strrchr($get(dateM),-),1))),1))) 月
$put(M2,$substr($get(dateM),$get(last),$len($get(dateM)))) 年 
$get(dateZ) 月) // %date% が 1999/12-2000/1 などの場合の処理。[最初のスラッシュまで] 年 [最初のスラッシュ後から最後のスラッシュ直前までの区間の、冒頭から最後に出てくるカンマかハイフンまで] 月[同左の区間の最後に出てくるカンマかハイフンから最後まで] 年 [最後のスラッシュ後] 月
$puts(YMDMD,
$get(date1) 年 
$put(M1r,$replace($get(M1),/, 月 )) 日
$get(M2) 月 
$get(dateZ) 日) // %date% が 1999/1/31-2/1 などの場合の処理。[最初のスラッシュまで] 年 [最初のスラッシュ後から最後のスラッシュ直前までの区間の、冒頭から最後に出てくるカンマかハイフンまで。スラッシュを 月 に置換] 日[同左の区間の最後に出てくるカンマかハイフンから最後まで] 月 [最後のスラッシュ後] 日
$puts(YMYMYM,
$get(date1) 年 
$replace($regexpi($regexpi($get(M1),', ([0-9]{4})/',' 月, $1 年 '),' - ([0-9]{4})/',' 月 - $1 年 '),/, 年 ) 月
$get(M2) 年 
$get(dateZ) 月) // %date% が 1999/12,2000/1,2001/1 などの場合の処理。YMDMD の月を年に、日を月に変えただけ。
$puts(YMDYMD,
$get(date1) 年 
$replace($regexpi($regexpi($regexpi($regexpi($get(M1),', ([0-9]{4})/',' 日, $1 年 '),' - ([0-9]{4})/',' 日 - $1 年 '),', ([0-9]{1,2})/',' 日, $1 月 '),' - ([0-9]{1,2})/',' 日 - $1 月 '),/, 月 ) 日
$replace($get(M2),/, 年 ) 月 
$get(dateZ) 日) // %date% が 1999/12/30,2000/1/3 などの場合の処理。[最初のスラッシュまで] 年 [最初のスラッシュ後から最後のスラッシュ直前までの区間の、冒頭から最後に出てくるカンマかハイフンまで。4 桁の数字の次のスラッシュを 年 に置換。1 桁 の数字の次のスラッシュと 2 桁の数字の次のスラッシュを 月 に置換] 日[同左の区間の最後に出てくるカンマかハイフンから最後まで] 月 [最後のスラッシュ後] 日
$hash(dateN,
$if3(
$if($strchr(%date%,年),$get(dateR)),
$if($greater($len($regexpi(%date%,'[^/]',)),3),$get(YMDYMD)),
$if($greater($len($regexpi(%date%,'[^/]',)),2),
$ifequal($len($regexpi($regexpi(%date%,'([0-9]{4})/','AD'),'([^AD])',)),6,$get(YMYMYM),$get(YMDMD))),
$if($greater($get(last),0),$get(YMYM)),
$if($greater($strrchr(%date%,/),$strchr(%date%,/)),$get(YMD)),
$if($strchr(%date%,/),$get(YM)),
$get(Y))) // %date% の場合分け。%date% に年という文字が含まれていたら、dateR。/ の数が 4 つ以上だったら YMDYMD。/ の数が 3 つで西暦を 3 つ含んでいたら YMYMYM、含んでいなかったら YMDMD。[最初のスラッシュ後から最後のスラッシュまで] の間にカンマかハイフンを含んでいたら YMYM。最初のスラッシュと最後のスラッシュの位置が異なっていたら YMD。スラッシュを含んでいたら YM。それ以外は Y。以上、最初に条件に合致したものを採用。
$hash(AG,$insert(%__replaygain_album_gain%,' ',1)) // ±と値の間に半角スペースを挿入
$hash(TG,$insert(%__replaygain_track_gain%,' ',1)) // AG と同じ
//// puts end ////

// ジャンルを大きな文字で表示
$drawtext(TRACK_INFORMATION,[$replace(%genre%,JPop,J-POP' ')],0,0,$sub(%width%,50),160,fg:%font_col_genre%,font-name:%font_genre%,font-size:%fontLL%,font-style:i,halign:right,valign:bottom,dmode:mem)

// [アーティスト :] という見出しを表示。演奏者情報が存在し、かつ、ジャンルがクラシック等の場合には [作曲者 :] という見出し。
$hash(artist_head,$if($and($get(performer),$or($stricmp(%genre%,Ballet),$stricmp(%genre%,Classical),$stricmp(%genre%,Musical),$stricmp(%genre%,Opera),$stricmp(%genre%,Tango))),true,))
$if(%artist_head%,$hash(contentX,$add(%headX%,70)),$hash(contentX,$add(%headX%,85))) // contentX の変更
$text(TRACK_INFORMATION,$if(%artist_head%,作曲者 :,アーティスト :),%headX%,28,fg:%font_col_head%,font-name:%font_head%,font-size:$if(%artist_head%,%fontS%,%fontSS%),dmode:mem)
// アーティスト名を表示
$drawtext(TRACK_INFORMATION,$get(artist),%contentX%,27,$sub(%width%,%contentX%,%btn_space_width%,39),20,fg:%font_col_text%,font-name:%font_text%,font-size:%fontM%,valign:bottom,dmode:mem)

// %album% タグが存在する場合は [アルバム] という見出しを表示
$if(%album%,
$text(TRACK_INFORMATION,アルバム :,%headX%,61,fg:%font_col_head%,font-name:%font_head%,font-size:%fontS%,dmode:mem)
)
// アルバム名の 1 行目を表示。pstrsplit ではダイアクリティカルマーク付き文字をそのまま出力できないので、文字数計測のみに用い、文字出力は別の関数で行っている。
$drawtext(TRACK_INFORMATION,[$left(%album%,$get(len_album_line1))],%contentX%,$ifgreater($get(line_album),1,52,60),%contentW%,20,fg:%font_col_text%,font-name:%font_text%,font-size:%fontM%,valign:bottom,dmode:mem)
// アルバム名が長かった場合の 2 行目
$drawtext(TRACK_INFORMATION,[$substr(%album%,$add($get(len_album_line1),1),$len(%album%))],%contentX%,$add(52,%fontM%,6),%contentW%,20,fg:%font_col_text%,font-name:%font_text%,font-size:%fontM%,ellipsis:end,halign:right,valign:bottom,dmode:mem)

// [曲名 :] という見出しを表示
$text(TRACK_INFORMATION,曲名 :,%headX%,98,fg:%font_col_head%,font-name:%font_head%,font-size:%fontS%,dmode:mem)
// アルバム内で何曲目なのかを表示
$drawtext(TRACK_INFORMATION,$if(%track%,$num(%tracknumber%,1).),$sub(%contentX%,28),93,20,24,fg:%font_col_head%,font-name:%font_text%,font-size:%fontM%,halign:right,valign:bottom,dmode:mem)
// 曲名を表示
$drawtext(TRACK_INFORMATION,%title%,%contentX%,94,%contentW%,24,fg:%font_col_text%,font-name:%font_text%,font-size:%fontL%,ellipsis:end,valign:bottom,dmode:mem)

// performer あるいは album artist が存在する場合には [演奏 :] という見出しを表示
$if($get(performer),
$drawtext(TRACK_INFORMATION,$if($stricmp($get(performer),Various Artists),コンピレーション,演奏 :),%headX%,132,100,20,fg:%font_col_head%,font-name:%font_head%,font-size:%fontS%,dmode:mem)
)
// 演奏者名の 1 行目を表示。アルバム名と同じ。album artist が Various Artists だったら出力しない。
// 演奏者名が長かった場合の 2 行目
$if($stricmp($meta(album artist),Various Artists),,
$drawtext(TRACK_INFORMATION,$left($get(performer),$get(len_perform_line1)),%contentX%,$ifgreater($get(line_perform),1,123,131),%contentW%,20,fg:%font_col_text%,font-name:%font_text%,font-size:%fontM%,valign:bottom,dmode:mem)
$drawtext(TRACK_INFORMATION,[$substr($get(performer),$add($get(len_perform_line1),1),$len($get(performer)))],%contentX%,$add(123,%fontM%,6),%contentW%,20,fg:%font_col_text%,font-name:%font_text%,font-size:%fontM%,ellipsis:end,halign:right,valign:bottom,dmode:mem)
)

//// プロパティ表示
// $hash(W1,$text(TRACK_INFORMATION,%_length% / %_length%,0,0,font-name:%font_text%,font-size:%fontMM%,dmode:calconly,mempos:on)%_mp_width%) // 時間表示の幅
// $hash(W1b,$text(TRACK_INFORMATION,0:00 / %_length%,0,0,font-name:%font_text%,font-size:%fontMM%,dmode:calconly,mempos:on)%_mp_width%) // 0:00 用
// $hash(W2,$text(TRACK_INFORMATION,'時間 :  ',0,0,font-name:%font_head%,font-size:%fontS%,dmode:calconly,mempos:on)%_mp_width%) // 時間見出しの幅
$hash(W3,$text(TRACK_INFORMATION,$if(%__replaygain_track_gain%,%TG%),0,0,font-name:%font_text%,font-size:%fontS%,dmode:calconly,mempos:on)%_mp_width%) // TG 表示の幅
$hash(W4,$text(TRACK_INFORMATION,$if(%__replaygain_album_gain%,%AG%' '),0,0,font-name:%font_text%,font-size:%fontS%,dmode:calconly,mempos:on)%_mp_width%) // AG 表示の幅
$hash(W5,$text(TRACK_INFORMATION,$if(%__replaygain_track_gain%,'TG :  '),0,0,font-name:%font_head%,font-size:%fontS%,dmode:calconly,mempos:on)%_mp_width%) // TG 見出しの幅
$hash(W6,$text(TRACK_INFORMATION,$if(%__replaygain_album_gain%,'AG / '),0,0,font-name:%font_head%,font-size:%fontS%,dmode:calconly,mempos:on)%_mp_width%) // AG 見出しの幅
$hash(W7,$text(TRACK_INFORMATION,%dateN%,0,0,font-name:%font_text%,font-size:%fontS%,dmode:calconly,mempos:on)%_mp_width%) // 日付表示の幅
$hash(W8,$text(TRACK_INFORMATION,$if($strchr(%date%,Rec:),'録音 :  ','発売 :  '),0,0,font-name:%font_head%,font-size:%fontS%,dmode:calconly,mempos:on)%_mp_width%) // 日付見出しの幅
// $hash(X1,$sub(%width%,$add(%properties_margin%,%W1%,23))) // 時間表示の X 座標
// $hash(X1b,$sub(%width%,$add(%properties_margin%,%W1b%,23))) // 0:00 用
// $hash(X2,$sub(%X1%,%W2%)) // 時間見出しの X 座標
// $hash(X2b,$sub(%X1b%,%W2%)) // 0:00 用
// $hash(X3,$sub(%X2%,%properties_padding%,%W3%)) // TG 表示の X 座標
$hash(X3,$sub(%width%,$add(%properties_margin%,%W3%,23))) // TG 表示の X 座標
$hash(X4,$sub(%X3%,%W4%)) // AG 表示の X 座標
$hash(X5,$sub(%X4%,%W5%)) // TG 見出しの X 座標
$hash(X6,$sub(%X5%,%W6%)) // AG 見出しの X 座標
$hash(X7,$sub(%X6%,$if(%__replaygain_track_gain%,%properties_padding%),%W7%)) // 日付表示の X 座標
$hash(X8,$sub(%X7%,%W8%)) // 日付見出しの X 座標
$if($or($strcmp(%playback_orderindex%,3),$strcmp(%playback_orderindex%,4)),
$hash(font_color_TG,%font_col_rg%)
$hash(font_color_AG,%font_col_text%)
,
$hash(font_color_TG,%font_col_text%)
$hash(font_color_AG,%font_col_rg%)
) // 再生モードが Random か Shuffle（tracks）だったら前者の色、それ以外のときは後者の色

// $removeobject(%DRAW_TIME1%,redraw:on) // 経過時間と総時間を表示
// $drawtext(TRACK_INFORMATION,0:00 / %_length%,%X1b%,%propertiesY%,%W1%,%propertiesH%,fg:%font_col_text%,font-name:%font_text%,font-size:%fontMM%,valign:bottom)
// $hash(DRAW_TIME1,%_result%)
// $updateobject(%DRAW_TIME1%)

// $removeobject(%DRAW_TIME2%,redraw:on) // [時間 :] という見出しを表示
// $drawtext(TRACK_INFORMATION,'時間 :  ',%X2b%,%propertiesY%,%W2%,%propertiesH%,fg:%font_col_head%,font-name:%font_text%,font-size:%fontS%,valign:bottom)
// $hash(DRAW_TIME2,%_result%)
// $updateobject(%DRAW_TIME2%)

//// リプレイ・ゲイン
$removeobject(%DRAW_TG%,redraw:on)
$if(%__replaygain_track_gain%,
$hash(DRAW_TG,$drawtext(TRACK_INFORMATION,%TG%,%X3%,%propertiesY%,%W3%,%propertiesH%,fg:%font_color_TG%,font-name:%font_text%,font-size:%fontS%,valign:bottom)) // TG
$updateobject(%DRAW_TG%)
$drawtext(TRACK_INFORMATION,'TG :  ',%X5%,%propertiesY%,%W5%,%propertiesH%,fg:%font_col_head%,font-name:%font_text%,font-size:%fontS%,valign:bottom,dmode:mem) // TG 見出し
)
$removeobject(%DRAW_AG%,redraw:on)
$if(%__replaygain_album_gain%,
$hash(DRAW_AG,$drawtext(TRACK_INFORMATION,%AG%' ',%X4%,%propertiesY%,%W4%,%propertiesH%,fg:%font_color_AG%,font-name:%font_text%,font-size:%fontS%,valign:bottom)) // AG
$updateobject(%DRAW_AG%)
$drawtext(TRACK_INFORMATION,'AG / ',%X6%,%propertiesY%,%W6%,%propertiesH%,fg:%font_col_head%,font-name:%font_text%,font-size:%fontS%,valign:bottom,dmode:mem) // AG 見出し
)

//// 発売日または録音日を表示
$drawtext(TRACK_INFORMATION,%dateN%,%X7%,%propertiesY%,%W7%,%propertiesH%,fg:%font_col_text%,font-name:%font_text%,font-size:%fontS%,valign:bottom,dmode:mem)

//// 発売日または録音日の見出しを表示
$drawtext(TRACK_INFORMATION,$if($strchr(%date%,Rec:),'録音 :  ','発売 :  '),%X8%,%propertiesY%,%W8%,%propertiesH%,fg:%font_col_head%,font-name:%font_text%,font-size:%fontS%,valign:bottom,dmode:mem)

$updatewindow(TRACK_INFORMATION,level:0)

// On Playback Stop
$clearobject(CONTROL_PANEL) // CONTROL_PANEL のオブジェクトを全てアンロード（目盛り、プログレスバー、時間表示を削除するため）
$updatewindow(CONTROL_PANEL,level:3)
$fn_play_btn()
$fn_volbar() // clearobject でボリュームバーも消えちゃうので、再生成する

// On Playback Pause
$fn_play_btn()

// On Playback Time (Per Second)
//// 時間 ////
$hash(elapsed,$num($div(%playback_position%,60),1):$num($mod(%playback_position%,60),2)) // 経過時間の計算。計算方法は％_length％と同じ。
$fn_time(%elapsed%)

//// プログレスバー ////
$fn_pb($calc(%Sw%*%playback_position%/%playback_length%))

// On Playback Order Changed
$removeobject(%DRAW_TG%,redraw:on)
$hash(DRAW_TG,$drawtext(TRACK_INFORMATION,%TG%,%X3%,%propertiesY%,%W3%,%propertiesH%,fg:%font_color_TG%,font-name:%font_text%,font-size:%fontS%,valign:bottom)) // TG
$updateobject(%DRAW_TG%)

$removeobject(%DRAW_AG%,redraw:on)
$hash(DRAW_AG,$drawtext(TRACK_INFORMATION,%AG%' ',%X4%,%propertiesY%,%W4%,%propertiesH%,fg:%font_color_AG%,font-name:%font_text%,font-size:%fontS%,valign:bottom)) // AG
$updateobject(%DRAW_AG%)


// On Playlist Item Selection Change
$removeobject(%DURATION%,redraw:on)
$hash(DURATION,$drawtext(CONTROL_PANEL,$hms($pl_duration(%pl_activename%,selected)),%Tx%,0,%Tw%,16,fg:%font_col_text%,font-name:%font_text%,font-size:%fontSS%,halign:right,valign:bottom)) // プレイリスト上で選択した曲の総演奏時間を表示。複数曲を選択するとその総演奏時間を表示。
$updateobject(%DURATION%)

// On Volume Change
$fn_mute_btn()
$fn_volbar()



////////// User - Custom scripts //////////
// 再生モード表示
#function fn_pbo
$removeobject(%DRAW_PLAYBACK_ORDER%,redraw:on)
$hash(DRAW_PLAYBACK_ORDER,$drawtext(%_id%,%playback_ordername%,$add(%PBOx%,$div(%PBOh%,2)),$add(%padding3%,2),$sub(%PBOw%,8),21,fg:%font_col_text%,font-name:%font_text%,font-size:%fontM%))
$updateobject(%DRAW_PLAYBACK_ORDER%)
#end

// 歌詞ファイルの種類によって歌詞表示ボタンを変更。歌詞ファイルがないときはボタンを表示しない。
#function fn_lrc_btn
$if(
	$or(
		$files($replace(%path%,%filename_ext%,%filename%).txt),
		$files($replace(%path%,%filename_ext%,%filename%)_%tracknumber%.txt))
,
	$showctrl(%LYRICSTIP%,off)
	$showctrl(%LYRICS%,off)
	$showctrl(%TEXT%,on)
	$showctrl(%TEXTTIP%,on)
,
	$if(
		$files($replace(%path%,%filename_ext%,%filename%)_%tracknumber%.lrc)
	,
		$showctrl(%TEXTTIP%,off)
		$showctrl(%TEXT%,off)
		$showctrl(%LYRICS%,on)
		$showctrl(%LYRICSTIP%,on)
	,
		$showctrl(%TEXTTIP%,off)
		$showctrl(%TEXT%,off)
		$showctrl(%LYRICSTIP%,off)
		$showctrl(%LYRICS%,off)
	)
)
#end

// 再生状態によって再生ボタンとそのツールチップを変更する。
#function fn_play_btn
$if(%playback_ispaused%,
	// 一時停止中
		$showctrl(%PLAYTIP%,off)
		$showctrl(%PLAY%,off)
		$showctrl(%PAUSETIP%,off)
		$showctrl(%PAUSE%,off)
		$showctrl(%RESUME%,on)
		$showctrl(%RESUMETIP%,on)
,
	$if(%playback_isplaying%,
		// 再生中
		$showctrl(%PLAYTIP%,off)
		$showctrl(%RESUMETIP%,off)
		$showctrl(%RESUME%,off)
		$showctrl(%PLAY%,off)
		$showctrl(%PAUSE%,on)
		$showctrl(%PAUSETIP%,on)
	,
		// 停止中
		$showctrl(%RESUMETIP%,off)
		$showctrl(%RESUME%,off)
		$showctrl(%PAUSETIP%,off)
		$showctrl(%PAUSE%,off)
		$showctrl(%PLAY%,on)
		$showctrl(%PLAYTIP%,on)
	)
)
#end

// ミュートボタン
#function fn_mute_btn
$ifequal(%volume%,-100,
	// ミュート中
	$showctrl(%MUTETIP1%,off)
	$showctrl(%MUTE1%,off)
	$showctrl(%MUTE2%,on)
	$showctrl(%MUTETIP2%,on)
,
	// 音が出ている時
	$showctrl(%MUTETIP2%,off)
	$showctrl(%MUTE2%,off)
	$showctrl(%MUTE1%,on)
	$showctrl(%MUTETIP1%,on)
)
#end

// 音量に応じてボリュームバーの画像を変更する
#function fn_volbar
$hash(vol,$display_volume(50))
$puts(Volume,$ifequal(%volume%,0,10w,$ifgreater(%vol%,45,10,$ifgreater(%vol%,40,9,$ifgreater(%vol%,35,8,$ifgreater(%vol%,30,7,$ifgreater(%vol%,25,6,$ifgreater(%vol%,20,5,$ifgreater(%vol%,15,4,$ifgreater(%vol%,10,3,$ifgreater(%vol%,5,2,$ifgreater(%vol%,0,1,0))))))))))).png)
$removeobject(%VOLBAR%,redraw:on)
$hash(VOLBAR,$gp_image(CONTROL_PANEL,/%volpath%$get(Volume),%Vx%,%Vy%,%Vw%,14)) // ボリュームバーの画像を表示
$updateobject(%VOLBAR%)
#end

// プログレスバーを描画する
#function fn_pb
$removeobject(%PB%,redraw:on)
$hash(PB,$gp_rect(CONTROL_PANEL,%Px%,%Py%,$sub(%_param1%,1),$sub(%Ph%,1),aa:off,pen:255-%col_play_pb3%-0,grad:%Px%-%Py%-%Px%-$add(%Py%,%Ph%,-1)-255-%col_play_pb1%-255-%col_play_pb2%))
$updateobject(%PB%)
#end

// 通常のシーク領域とボリュームのシーク領域。厳密な意味のシークではない。
#function fn_seek_map
$hash(S_Map,$map(CONTROL_PANEL,lbuttondown:'
$fn_pb($calc(%_mouse_cx%+1-%Sx%))
$if(%playback_can_seek%,$hash(Sr,$calc({%_mouse_cx%+1-%Sx%}/%Sw%))$playback_seek($calc(%playback_length%*%Sr%)))
'
)) // シーク領域の設定
$map_rect(%S_Map%,%Sx%,%_base_y%,%Sw%,%Sh%) // シーク領域の座標を指定

$hash(V_Map,$map(CONTROL_PANEL,lbuttondown:'$volume($display_volume(50,$sub(%_mouse_cx%,%Vx%,-1)))')) // ボリュームシーク領域の設定
$map_rect(%V_Map%,%Vx%,%_base_y%,%Vw%,%Sh%) // ボリュームシーク領域の座標を指定
#end

// 時間表示
#function fn_time
$removeobject(%TIME%,redraw:on)
$hash(TIME,$drawtext(CONTROL_PANEL,%_param1% / %_length%,%Tx%,10,%Tw%,20,fg:%font_col_text%,font-name:%font_text%,font-size:%fontM%,halign:right))
$updateobject(%TIME%)
#end




////////// Window[BACKGROUND] scripts //////////
// Load
$dragwindow(%_id%,on) // ドラッグでウィンドウを移動できるようにする
$style(%_id%,clear) // タイトルバーなどを消す
$myborder(%_id%,10,40,1) // ウィンドウの端でサイズを変更できるようにする
$transwindow(%_id%,colorkey:%col_bg%) // ウィンドウの四隅を透明にする

$window(TRACK_INFORMATION,0,0,0,0,parent:%_id%,embed:on)
$style(TRACK_INFORMATION,border:off)
$window(BROWSER_WINDOW,0,0,0,0,parent:%_id%,embed:on)
$style(BROWSER_WINDOW,border:off)
$window(LYRICS_ART,0,0,0,0,parent:%_id%,embed:on)
$style(LYRICS_ART,border:off)
$window(CHANNEL_SPECTRUM_PANEL,0,0,0,0,parent:%_id%,embed:on)
$style(CHANNEL_SPECTRUM_PANEL,border:off)
$window(LYRICS_PANEL,0,0,0,0,parent:%_id%,embed:on)
$style(LYRICS_PANEL,border:off)
$window(CONTROL_PANEL,0,0,0,0,parent:%_id%,embed:on)
$style(CONTROL_PANEL,border:off)

$panel(%_id%,ELPLAYLIST,0,0,0,0)

// Resize
//// 自動計算項目 ////
// ELPlaylist の幅
$ifgreater(%_width%,1440,$ifgreater(%_width%,1600,$ifgreater(%_width%,1920,
$hash(ELPLw,800) // ウィンドウの横幅 ＞ 1,920
,
$hash(ELPLw,800) // 1,920 ≧ ウィンドウの横幅 ＞ 1,600 ピクセル
),
$hash(ELPLw,800) // 1,600 ≧ 横幅 ＞ 1,440 ピクセル
),$ifgreater(%_width%,1280,
$hash(ELPLw,700) // 1,440 ≧ 横幅 ＞ 1,280 ピクセル
,$ifgreater(%_width%,1024,
$hash(ELPLw,600) // 1,280 ≧ 横幅 ＞ 1,024 ピクセル
,
$hash(ELPLw,500) // 1,024 ≧ 横幅
)))
$hash(width,%_cwidth%) // On Playback New Track でも width を使えるようにするため
$hash(height,%_cheight%) // 同じく height を使えるようにする
$hash(contentW,$sub(%_cwidth%,%contentX%,%padding2%,%headX%)) // 曲情報の幅
$hash(btn_space_width,115) // ウィンドウ右上の最小化等のボタン用のスペース
$hash(properties_margin,$add(%btn_space_width%,%headX%)) // プロパティ表示右端の余白の長さ
$hash(Sh,$add(%Ph%,8,%padding3%)) // シーク領域の高さ
$hash(ELPLx,$sub(%_cwidth%,%padding2%,%ELPLw%)) // ELPlaylist の X 座標
$hash(ELPLy,$add(%padding2%,%TIWh%,%padding3%)) // ELPlaylist の Y 座標
$hash(ELPLh,$sub(%_cheight%,%ELPLy%,%Sh%)) // ELPlaylist の高さ
$hash(PBOh,24) // Playback Order の高さ
$hash(By,$sub(%_cheight%,%padding2%,19)) // ボタンの Y 座標
$hash(Bp,33) // ボタン 1 つあたりの幅（余白含む）
$hash(Vw,50) // ボリュームの 幅
$hash(Vx,$sub(%_cwidth%,%padding2%,%Vw%,22)) // ボリュームの X 座標
$hash(Vy,$add(%By%,3)) // ボリュームの Y 座標
$hash(Sx,$add($mul(%Bp%,11),%Bx%,-10)) // シーク領域 X 座標
$hash(Sy,$sub(%_cheight%,%Sh%)) // シーク領域 Y 座標
$hash(Sw,$sub(%Vx%,30,%Sx%,%timespace%)) // シーク領域の幅
$hash(Px,%Sx%) // プログレスバーの X 座標
$hash(Py,$add(%By%,5)) // プログレスバーの Y 座標
$hash(Tx,$add(%Sx%,%Sw%,16)) // 時間表示の X 座標
$hash(Tw,$sub(%timespace%,25)) // 時間表示の幅



//// 背景描画 ////
$clearobject(%_id%) // このウィンドウ上の一般オブジェクト・特殊オブジェクトを全てアンロードする
$bgcolor(%_id%,%col_bg%) // 背景（四隅）

// 全体
$gp_roundrect(%_id%,0,0,%_cwidth%,%_cheight%,30,30,pen:255-%col_frame_out%-1,brush:255-%col_frame_mid%) // タイトルバーとウインドウ枠を非表示にした場合のためにウインドウ枠を描画
$gp_roundrect(%_id%,2,2,$sub(%_cwidth%,4),$sub(%_cheight%,4),30,30,pen:255-%col_frame_in%-1,brush:255-%col_main_frame%) // これもウインドウ枠を描画
$gp_roundrect(%_id%,%padding2%,%padding2%,$sub(%_cwidth%,%padding2%,%btn_space_width%,8),%TIWh%,30,30,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 再生中の曲の情報を表示する黒窓の左側担当
$gp_roundrect(%_id%,$sub(%_cwidth%,%btn_space_width%,%padding2%,26),$add(%padding2%,29),$add(26,%btn_space_width%),131,30,30,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 黒窓の右下担当
$gp_rect(%_id%,$sub(%_cwidth%,%btn_space_width%,%padding2%,27),$add(%padding2%,28),30,130,pen:255-%col_panel_bg%-0,brush:255-%col_panel_bg%) // 右下の黒窓の枠線が左側の黒窓に重なってしまうのでそれを削除
$gp_rect(%_id%,$sub(%_cwidth%,%btn_space_width%,%padding2%,27),$add(%TIWh%,%padding2%,-1),28,1,aa:off,brush:255-%col_panel_shadow%) // これも枠線の修正
$gp_image(%_id%,/%btn%,$sub(%_cwidth%,%btn_space_width%,%padding2%,31),%padding2%,52,30) // ウィンドウ右上の最小化等のボタン用のスペースの左端の曲線の画像

// プログレスバーの背景
$gp_circle(%_id%,$sub(%Sx%,$div($add(%Ph%,7),2),2),$sub(%Py%,4),$add(%Ph%,7),$add(%Ph%,7),pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 左の丸
$gp_circle(%_id%,$add(%Sx%,%Sw%,-$div($add(%Ph%,7),2)),$sub(%Py%,4),$add(%Ph%,7),$add(%Ph%,7),pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 右の丸
$gp_rect(%_id%,%Sx%,$sub(%Py%,4),%Sw%,$add(%Ph%,8),aa:off,brush:255-%col_panel_shadow%) // 外枠
$gp_rect(%_id%,%Sx%,$sub(%Py%,3),%Sw%,$add(%Ph%,6),aa:off,brush:255-%col_panel_bg%) // 内側の背景
$gp_rect(%_id%,%Sx%,$add(%Py%,%Ph%,-1),1,3,aa:off,brush:255-%font_col_scale%) // 目盛り 0
$gp_rect(%_id%,$add(%Sx%,%Sw%,-1),$add(%Py%,%Ph%,-1),1,3,aa:off,brush:255-%font_col_scale%) // 目盛り 100

$updatewindow(%_id%,level:3) // まずメインウィンドウを更新してオブジェクトの描画をすませる。それから他のウィンドウを配置する。



//// ウィンドウ、パネル配置 ////
$hash(LEFTy,$add(%padding2%,%TIWh%))
$hash(LEFTw,$sub(%ELPLx%,%padding2%))
$hash(LEFTh,$sub(%_cheight%,%LEFTy%,%Sh%,%padding2%))

// Track Information
$movewindow(TRACK_INFORMATION,%padding2%,%padding2%,$sub(%_cwidth%,$mul(%padding2%,2)),%TIWh%)

// Music Browser etc.
$movewindow(BROWSER_WINDOW,%padding2%,%LEFTy%,%LEFTw%,%LEFTh%)
$movewindow(LYRICS_ART,%padding2%,%LEFTy%,%LEFTw%,$sub(%LEFTh%,%CSPh%))
$movewindow(CHANNEL_SPECTRUM_PANEL,%padding2%,$sub(%_cheight%,%Sh%,%CSPh%,%padding2%),%LEFTw%,%CSPh%)
$movewindow(LYRICS_PANEL,%padding2%,%LEFTy%,%LEFTw%,%LEFTh%)
$showwindow(BROWSER_WINDOW,0)
$showwindow(LYRICS_ART,0)
$showwindow(CHANNEL_SPECTRUM_PANEL,0)
$showwindow(LYRICS_PANEL,0)
$select(%panelmode%,
$showwindow(BROWSER_WINDOW,1)
,
$showwindow(LYRICS_ART,1)
$showwindow(CHANNEL_SPECTRUM_PANEL,1)
,
$showwindow(LYRICS_PANEL,1)
)

// ELPlaylist
$movepanel(ELPLAYLIST,%ELPLx%,%ELPLy%,%ELPLw%,$sub(%_cheight%,%ELPLy%,%Sh%,%padding2%))

// Control Panel
$movewindow(CONTROL_PANEL,0,$sub(%_cheight%,%Sh%,%padding2%),%_cwidth%,%Sh%)

////////// Window[TRACK_INFORMATION] scripts //////////
// Load
$bgmode(%_id%,transparent)

// Resize
$clearobject(%_id%)
$clearctrl(%_id%)

// $hash(SHOW,$button(%_id%,,0,0,$sub(%_cwidth%,%btn_space_width%,10),%_cheight%,'$mainmenu_execute('View/ELPlaylist/Show now playing')',type:image2))
// $hash(SHOWTIP,$tooltip(%SHOW%,ここをクリックすると現在再生中の曲を表示します,0,0,20,20))

$hash(MIN,$button(%_id%,/%btn_path%%off%.png,$sub(%_cwidth%,%btn_space_width%,-16),3,24,24,'$showwindow(%mainid%,2)$tasktray(on)',type:image2,over:/%btn_path%%on%.png))
$hash(MINTIP,$tooltip(%MIN%,ウィンドウを最小化,0,0,24,24))

$hash(MAX,$button(%_id%,/%btn_path%%off%.png,$sub(%_cwidth%,%btn_space_width%,-41),3,24,24,'$showwindow(%mainid%,$if($getwindowinfo(%mainid%,zoomed),1,3))',type:image2,over:/%btn_path%%on%.png)) // ウィンドウを最大化するボタン、ウィンドウが最大化されているときはサイズを元に戻す
$hash(MAXTIP,$tooltip(%MAX%,ウィンドウを最大化、または、元に戻す,0,0,24,24))

$hash(EXIT,$button(%_id%,/%btn_path%%off%.png,$sub(%_cwidth%,%btn_space_width%,-66),3,24,24,'$closewindow(%mainid%)',type:image2,over:/%btn_path%%on%.png))
$hash(EXITTIP,$tooltip(%EXIT%,終了する,0,0,24,24))

$updatewindow(%_id%,level:3)

////////// Window[BROWSER_WINDOW] scripts //////////
// Load
$panel(%_id%,QUICK_SEARCH_TOOLBAR,0,0,0,0)
$window(BROWSER_PANEL1,0,0,0,0,parent:%_id%,embed:on)
$style(BROWSER_PANEL1,border:off)
$window(BROWSER_PANEL2,0,0,0,0,parent:%_id%,embed:on)
$style(BROWSER_PANEL2,border:off)
$window(BROWSER_PANEL3,0,0,0,0,parent:%_id%,embed:on)
$style(BROWSER_PANEL3,border:off)

// Resize
$hash(PBOx,$sub(%_cwidth%,%PBOw%,%padding3%)) // Playback Order の X 座標
$hash(QSTw,$sub(%PBOx%,%padding3%)) // Quick Search Toolbar の 幅
$hash(MBy,$add(%PBOh%,$mul(%padding3%,2))) // Music Browser の Y 座標
$hash(MBh,$sub(%_cheight%,%MBy%)) // Music Browser の高さ
$hash(MB2x,$add(%MB1w%,%padding3%)) // Music Browser 2 の X 座標
$hash(MB3x,$add(%MB2x%,%MB2w%,%padding3%)) // Music Browser 3 の X 座標
$hash(MB3w,$sub(%_cwidth%,%MB3x%,%padding3%)) // Music Browser 3 の幅

$clearobject(%_id%)
$clearctrl(%_id%)
$bgcolor(%_id%,%col_main_frame%) // 背景

//// Quick Search Toolbar ////
$gp_circle(%_id%,0,%padding3%,$sub(%PBOh%,1),$sub(%PBOh%,1),pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 左の丸
$gp_circle(%_id%,$sub(%QSTw%,%PBOh%),%padding3%,$sub(%PBOh%,1),$sub(%PBOh%,1),pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 右の丸
$gp_rect(%_id%,$div(%PBOh%,2),%padding3%,$sub(%QSTw%,%PBOh%,1),$sub(%PBOh%,1),pen:255-0-0-0-0,aa:off,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 外枠
$gp_rect(%_id%,$div(%PBOh%,2),$add(%padding3%,1),$sub(%QSTw%,%PBOh%),$sub(%PBOh%,2),aa:off,brush:255-%col_panel_bg%) // 中の背景

//// Playback Order ////
$gp_rect(%_id%,$sub(%PBOx%,%padding3%),0,$add(%PBOw%,$mul(%padding3%,2)),$add(%PBOh%,$mul(%padding3%,2)),aa:off,brush:255-%col_main_frame%) // ボタンの背景
$gp_circle(%_id%,%PBOx%,%padding3%,$sub(%PBOh%,1),$sub(%PBOh%,1),pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 左の丸
$gp_circle(%_id%,$sub(%_cwidth%,%PBOh%,%padding3%),%padding3%,$sub(%PBOh%,1),$sub(%PBOh%,1),pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 右の丸
$gp_rect(%_id%,$add(%PBOx%,$div(%PBOh%,2)),%padding3%,$sub(%PBOw%,%PBOh%,1),$sub(%PBOh%,1),aa:off,pen:255-%col_panel_shadow%-1) // 外枠
$gp_rect(%_id%,$add(%PBOx%,$div(%PBOh%,2)),$add(%padding3%,1),$sub(%PBOw%,%PBOh%),$sub(%PBOh%,2),aa:off,brush:255-%col_panel_bg%) // 中の背景

$fn_pbo() // 再生モード表示

$hash(PBOI1,'Repeat (playlist)')
$hash(PBOI2,'Repeat (track)')
$hash(PBOI4,'Shuffle (tracks)')
$hash(PBOI5,'Shuffle (albums)')
$hash(PBOI6,'Shuffle (folders)')

$hash(ORDER,$button(%_id%,,$sub(%PBOx%,%padding3%),0,$add(%PBOw%,$mul(%padding3%,2)),$add(%PBOh%,$mul(%padding3%,2)),'
$hash(PBO,$select($add(%playback_orderindex%,1),%PBOI1%,%PBOI2%,Playback/Order/Random,%PBOI4%,%PBOI5%,%PBOI6%,Default))
$mainmenu_execute(%PBO%) // 再生モードの変更
$fn_pbo() // 再生モード表示
$if($or($strcmp(%playback_orderindex%,3),$strcmp(%playback_orderindex%,4)),
$hash(font_color_TG,%font_col_rg%)
$hash(font_color_AG,%font_col_text%)
$hash(SetRG,'Playback/ReplayGain: Set to Track')
,
$hash(font_color_TG,%font_col_text%)
$hash(font_color_AG,%font_col_rg%)
$hash(SetRG,'Playback/ReplayGain: Set to Album')
) // リプレイゲイン・モードの変更と色の設定。再生モードが Random か Shuffle（tracks）だったら前者の色、それ以外のときは後者の色。
$mainmenu_execute(%SetRG%) // Replay Gain モードの自動変更
',type:image2))
$tooltip(%ORDER%,再生モード変更,0,0,$add(%PBOw%,$mul(%padding3%,2)),$add(%PBOh%,$mul(%padding3%,2)))

//// Music Browser ////
$gp_roundrect(%_id%,0,%MBy%,%MB1w%,%MBh%,15,15,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 1
$gp_roundrect(%_id%,%MB2x%,%MBy%,%MB2w%,%MBh%,15,15,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 2
$gp_roundrect(%_id%,%MB3x%,%MBy%,%MB3w%,%MBh%,15,15,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%) // 3

$updatewindow(%_id%) // ウィンドウの情報を更新
$movepanel(QUICK_SEARCH_TOOLBAR,$div(%PBOh%,2),$add(%padding3%,1),$sub(%QSTw%,%PBOh%),$sub(%PBOh%,2))
$movewindow(BROWSER_PANEL1,5,$add(%MBy%,15),$sub(%MB1w%,10),$sub(%MBh%,30))
$movewindow(BROWSER_PANEL2,$add(%MB2x%,5),$add(%MBy%,15),$sub(%MB2w%,10),$sub(%MBh%,30)) // 2
$movewindow(BROWSER_PANEL3,$add(%MB3x%,5),$add(%MBy%,15),$sub(%MB3w%,10),$sub(%MBh%,30)) // 3

////////// Window[BROWSER_PANEL1] scripts //////////
// Load
$panel(%_id%,BROWSER_PANEL1,-4,0,$add(%_cwidth%,24),%_cheight%)

// Resize
$movepanel(BROWSER_PANEL1,-4,0,$add(%_cwidth%,24),%_cheight%)

////////// Window[BROWSER_PANEL2] scripts //////////
// Load
$panel(%_id%,BROWSER_PANEL2,-4,0,$add(%_cwidth%,24),%_cheight%)

// Resize
$movepanel(BROWSER_PANEL2,-4,0,$add(%_cwidth%,24),%_cheight%)

////////// Window[BROWSER_PANEL3] scripts //////////
// Load
$panel(%_id%,BROWSER_PANEL3,-4,0,$add(%_cwidth%,24),%_cheight%)

// Resize
$movepanel(BROWSER_PANEL3,-4,0,$add(%_cwidth%,24),%_cheight%)

////////// Window[LYRICS_ART] scripts //////////
// Load
$panel(%_id%,LYRICS_ART,0,0,0,0)

// Resize
$clearobject(%_id%)
$bgcolor(%_id%,%col_main_frame%) // 背景
$gp_roundrect(%_id%,0,%padding3%,$sub(%_cwidth%,%padding3%),$add(%_cheight%,30),30,30,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%)
$updatewindow(%_id%) // ウィンドウの情報を更新
$movepanel(LYRICS_ART,$add(%padding3%,1),$add($mul(%padding3%,2),1),$sub(%_cwidth%,$add($mul(%padding3%,3),2)),$sub(%_cheight%,$add($mul(%padding3%,2),1)))

////////// Window[CHANNEL_SPECTRUM_PANEL] scripts //////////
// Load
$panel(%_id%,CHANNEL_SPECTRUM_PANEL,0,0,0,0)

// Resize
$updatewindow(%_id%,level:2) // ウィンドウの情報を更新
$bgcolor(%_id%,%col_main_frame%) // 背景
$gp_roundrect(%_id%,0,$sub(0,30),$sub(%_cwidth%,%padding3%),$add(%_cheight%,0),30,30,dmode:mem,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%)
$gp_rect(%_id%,0,0,$sub(%_cwidth%,%padding3%,1),30,dmode:mem,aa:off,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%)
$gp_rect(%_id%,1,0,$sub(%_cwidth%,%padding3%,2),31,dmode:mem,aa:off,brush:255-%col_panel_bg%)

$movepanel(CHANNEL_SPECTRUM_PANEL,$add(%padding3%,31),0,$sub(%_cwidth%,$add($mul(%padding3%,3),62)),$sub(%_cheight%,%padding3%,1))
$updatewindow(%_id%,level:0) // ウィンドウの情報を更新

////////// Window[LYRICS_PANEL] scripts //////////
// Load
$panel(%_id%,LYRICS_PANEL,0,0,0,0)

// Resize
$clearobject(%_id%,event:resize)
$bgcolor(%_id%,%col_main_frame%) // 背景
$gp_roundrect(%_id%,0,%padding3%,$sub(%_cwidth%,%padding3%),$sub(%_cheight%,%padding3%),30,30,pen:255-%col_panel_shadow%-1,brush:255-%col_panel_bg%)
$updatewindow(%_id%) // ウィンドウの情報を更新
$movepanel(LYRICS_PANEL,$add($mul(%padding3%,2),1),$add($mul(%padding3%,2),1),$sub(%_cwidth%,$add($mul(%padding3%,5),2)),$sub(%_cheight%,$add($mul(%padding3%,3),1)))

////////// Window[CONTROL_PANEL] scripts //////////
// Load
$bgmode(%_id%,transparent)

// Resize
//// Button ////
$hash(By,8)
$hash(Vy,$add(%By%,3))
$hash(Py,$add(%padding3%,4))

$clearobject(%_id%)
$clearctrl(%_id%)

$hash(BROWSER,$button(%_id%,/%btn_path%Select2.png,%Bx%,%By%,20,20,'
$showwindow(BROWSER_WINDOW,1)
$showwindow(LYRICS_ART,0)
$showwindow(CHANNEL_SPECTRUM_PANEL,0)
$showwindow(LYRICS_PANEL,0)
$hash(panelmode,1)
',type:image2,over:/%btn_path%Select1.png))
$tooltip(%BROWSER%,アルバムを探す,0,0,20,20)

$hash(LYRICS_AND_ART,$button(%_id%,/%btn_path%Art2.png,$add($mul(%Bp%,1),%Bx%),%By%,20,20,'
$showwindow(BROWSER_WINDOW,0)
$showwindow(LYRICS_ART,1)
$showwindow(CHANNEL_SPECTRUM_PANEL,1)
$showwindow(LYRICS_PANEL,0)
$hash(panelmode,2)
',type:image2,over:/%btn_path%Art1.png))
$tooltip(%LYRICS_AND_ART%,カラオケ,0,0,20,20)

$hash(LYRICS,$button(%_id%,/%btn_path%lrc2.png,$add($mul(%Bp%,2),%Bx%),%By%,20,20,'
$showwindow(BROWSER_WINDOW,0)
$showwindow(LYRICS_ART,0)
$showwindow(CHANNEL_SPECTRUM_PANEL,0)
$showwindow(LYRICS_PANEL,1)
$hash(panelmode,3)
',type:image2,over:/%btn_path%lrc1.png))
$hash(LYRICSTIP,$tooltip(%LYRICS%,歌詞を一覧表示,0,0,20,20))
$showctrl(%LYRICSTIP%,off)
$showctrl(%LYRICS%,off)
$hash(TEXT,$button(%_id%,/%btn_path%Text2.png,$add($mul(%Bp%,2),%Bx%),%By%,20,20,'
$showwindow(BROWSER_WINDOW,0)
$showwindow(LYRICS_ART,0)
$showwindow(CHANNEL_SPECTRUM_PANEL,0)
$showwindow(LYRICS_PANEL,1)
$hash(panelmode,3)
',type:image2,over:/%btn_path%Text1.png))
$hash(TEXTTIP,$tooltip(%TEXT%,テキストを表示,0,0,20,20))
$showctrl(%TEXTTIP%,off)
$showctrl(%TEXT%,off)
$fn_lrc_btn()

$hash(PREF,$button(%_id%,/%btn_path%pref2.png,$add($mul(%Bp%,3),%Bx%),%By%,20,20,'$mainmenu_execute('File/Preferences')',type:image2,over:/%btn_path%pref1.png))
$tooltip(%PREF%,設定画面を開く,0,0,20,20)

$hash(PREV,$button(%_id%,/%btn_path%Prev2.png,$add($mul(%Bp%,5),%Bx%),%By%,20,20,'
$ifgreater(%playback_position%,5,
$playback_control(play)
,
$playback_control(prev)
)
',type:image2,over:/%btn_path%Prev1.png))
$tooltip(%PREV%,開始 6 秒以降は「頭出し」、開始 6 秒までは「前の曲へ」 \{現在のプレイリスト内の前の曲\},0,0,20,20,escape:on)

$hash(STOP,$button(%_id%,/%btn_path%Stop2.png,$add($mul(%Bp%,6),%Bx%),%By%,20,20,'$playback_control(stop)',type:image2,over:/%btn_path%Stop1.png))
$tooltip(%STOP%,停止,0,0,20,20)

$hash(PAUSE,$button(%_id%,/%btn_path%Paus2.png,$add($mul(%Bp%,7),%Bx%),%By%,20,20,'$playback_control(toggle_pause)',type:image2,over:/%btn_path%Paus1.png))
$hash(PAUSETIP,$tooltip(%PAUSE%,一時停止,0,0,20,20))
$showctrl(%PAUSE%,off)

$hash(PLAY,$button(%_id%,/%btn_path%Play2.png,$add($mul(%Bp%,7),%Bx%),%By%,20,20,'$playback_control(play_or_pause)',type:image2,over:/%btn_path%Play1.png))
$hash(PLAYTIP,$tooltip(%PLAY%,再生,0,0,20,20))
$showctrl(%PLAYTIP%,off)
$showctrl(%PLAY%,off)
$hash(RESUME,$button(%_id%,/%btn_path%Play2.png,$add($mul(%Bp%,7),%Bx%),%By%,20,20,'$playback_control(play_or_pause)',type:image2,over:/%btn_path%Play1.png))
$hash(RESUMETIP,$tooltip(%RESUME%,再生再開,0,0,20,20))
$showctrl(%RESUMETIP%,off)
$showctrl(%RESUME%,off)
$fn_play_btn()

$hash(RNDM,$button(%_id%,/%btn_path%Rndm2.png,$add($mul(%Bp%,8),%Bx%),%By%,20,20,'$playback_control(rand)',type:image2,over:/%btn_path%Rndm1.png))
$tooltip(%RNDM%,次の曲へ \{現在のプレイリスト内でランダムに選曲して次の曲へ\},0,0,20,20,escape:on)

$hash(NEXT,$button(%_id%,/%btn_path%Next2.png,$add($mul(%Bp%,9),%Bx%),%By%,20,20,'$playback_control(next)',type:image2,over:/%btn_path%Next1.png)) // プレイリスト内の次の曲へ
$tooltip(%NEXT%,次の曲へ \{現在のプレイリスト内の次の曲へ\},0,0,20,20,escape:on)


$fn_seek_map()

$hash(MUTE1,$button(%_id%,/%btn_path%Mute2.png,$sub(%Vx%,30),%By%,20,20,'$mainmenu_execute(Volume Mute)',type:image2,over:/%btn_path%Mute1.png))
$hash(MUTETIP1,$tooltip(%MUTE1%,ミュート,0,0,20,20))
$showctrl(%MUTETIP1%,off)
$showctrl(%MUTE1%,off)
$hash(MUTE2,$button(%_id%,/%btn_path%Vol2.png,$sub(%Vx%,30),%By%,20,20,'$mainmenu_execute(Volume Mute)',type:image2,over:/%btn_path%Vol1.png))
$hash(MUTETIP2,$tooltip(%MUTE2%,音量を元に戻す,0,0,20,20))
$showctrl(%MUTETIP2%,off)
$showctrl(%MUTE2%,off)
$fn_mute_btn()

$fn_volbar()

$hash(VOLMAX,$button(%_id%,,$add(%Vx%,%Vw%,1),0,$sub(%_cwidth%,%Vx%,%Vw%,1),%_cheight%,'$volume(0)',type:image2))
$hash(VOLMAXTIP,$tooltip(%VOLMAX%,音量最大化,0,0,20,20))

$updatewindow(%_id%,level:3)

