ナメサメカリンチョ

$drawrect(0,0,%_width%,%_height%,%col_main_frame%,%col_main_frame%) $font(%font_text%,%fontS%) $drawtext($ifgreater($div(%cwb_selection_duration%,60),99,$cwb_hms(%cwb_selection_duration%),$div(%cwb_selection_duration%,60):$num($mod(%cwb_selection_duration%,60),2)),0,10,70,%_height%,%font_col_text%,right noclip) // プレイリスト上で選択した曲の総演奏時間を表示。複数曲を選択するとその総演奏時間を表示。now playng の Per Second でこれを描画すると表示がもたつくので上位の Panel Stack Splitter から分離し follow cursor モードの Panel Stack Splitter に記載した。 $ifequal(%cwb_volume%,-100, $imagebutton(78,8,20,20, %btn_path%Vol2.png, %btn_path%Vol1.png, COMMAND:'Playback/Volume Mute';REFRESH:) , $imagebutton(78,8,20,20, %btn_path%Mute2.png, %btn_path%Mute1.png, COMMAND:'Playback/Volume Mute';REFRESH:) ) // ミュートボタン。ミュートされているときはアイコンがちょっと変わる。

$puts(Volume,%volpath%$ifequal(%panel_volume%,1000,10w,$ifgreater(%panel_volume%,909,10,$ifgreater(%panel_volume%,818,9,$ifgreater(%panel_volume%,727,8,$ifgreater(%panel_volume%,637,7,$ifgreater(%panel_volume%,545,6,$ifgreater(%panel_volume%,455,5,$ifgreater(%panel_volume%,364,4,$ifgreater(%panel_volume%,273,3,$ifgreater(%panel_volume%,182,2,$ifgreater(%panel_volume%,91,1,$ifequal(%panel_volume%,0,0g,0)))))))))))).png) // 音量に応じてボリュームバーの画像を変更 $imageabs(105,11,50,14,$get(Volume),nokeepaspect) // ボリュームバーの画像を表示

// puts start $hash(color,black) // 基調色のプリセット。black、black_contrast、white から選択 $if($stricmp($hash(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_select_bg,30-30-30) // ELPL の曲選択時の背景色 $hash(col_play_pb1,142-162-195) // ELPL のプログレスバーの色 1 $hash(col_play_pb2,42-62-95) // ELPL のプログレスバーの色 2 $hash(font_col_head,91-125-155) // 見出しと ELPL のトラックナンバーの文字色 $hash(font_col_now_head,171-205-235) // ELPL の再生中のトラックナンバーの文字色 $puts(font_col_genre,40-40-40) // ジャンルの文字色 $hash(font_col_bold,190-190-190) // ボールドで強調された文字の色 $hash(font_col_text,160-160-160) // 基本の文字色 $hash(font_col_now_track,220-220-220) // ELPL の再生中の文字色 $hash(font_col_rg,220-220-220) // Replaygain の文字色 $puts(on,hoveron_bk) // ボタンオンのパス $puts(off,hoveroff_bk) // ボタンオフのパス $puts(btn,img\btn\btn_space_bk.png) // ボタンスペースの背景 $hash(volpath,img\vol\)) // ボリュームバー画像のパス $if($stricmp($hash(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_select_bg,45-45-45) // ELPL の曲選択時の背景色 $hash(col_play_pb1,142-162-195) // ELPL のプログレスバーの色 1 $hash(col_play_pb2,42-62-95) // ELPL のプログレスバーの色 2 $hash(font_col_head,175-205-235) // 見出しと ELPL のトラックナンバーの文字色 $hash(font_col_now_head,171-205-235) // ELPL の再生中のトラックナンバーの文字色 $puts(font_col_genre,40-40-40) // ジャンルの文字色 $hash(font_col_bold,240-240-240) // ボールドで強調された文字の色 $hash(font_col_text,210-210-210) // 基本の文字色 $hash(font_col_now_track,230-230-230) // ELPL の再生中の文字色 $hash(font_col_rg,255-255-255) // Replaygain の文字色 $puts(on,hoveron_bk) // ボタンオンのパス $puts(off,hoveroff_bk) // ボタンオフのパス $puts(btn,img\btn\btn_space_bk.png) // ボタンスペースの背景 $hash(volpath,img\vol\)) // ボリュームバー画像のパス $if($stricmp($hash(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_select_bg,225-225-225) // ELPL の曲選択時の背景色 $hash(col_panel_bg,255-255-255) // パネルの背景色 $hash(col_play_pb1,242-252-255) // ELPL のプログレスバーの色 1 $hash(col_play_pb2,142-162-195) // ELPL のプログレスバーの色 2 $hash(font_col_head,41-75-165) // 見出しと ELPL のトラックナンバーの文字色 $hash(font_col_now_head,91-125-155) // ELPL の再生中のトラックナンバーの文字色 $puts(font_col_genre,220-220-220) // ジャンルの文字色 $hash(font_col_bold,70-70-70) // ボールドで強調された文字の色 $hash(font_col_text,100-100-100) // 基本の文字色 $hash(font_col_now_track,40-40-40) // ELPL の再生中の文字色 $hash(font_col_rg,1-35-125) // Replaygain の文字色 $puts(on,hoveron_wh) // ボタンオンのパス $puts(off,hoveroff_wh) // ボタンオフのパス $puts(btn,img\btn\btn_space_wh.png) // ボタンスペースの背景 $hash(volpath,img\vol_wh\)) // ボリュームバー画像のパス $puts(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) // ELPL のアルバム情報のフォントと時間表示のフォントのサイズ $hash(fontS,9) // 見出しのフォントのサイズ $hash(fontM,10) // アーティスト名等のフォントのサイズ $hash(fontMM,11) // アーティスト名等のフォントのサイズ $hash(fontL,13) // 曲名のフォントのサイズ , $hash(font_head,ＭＳ Ｐゴシック) // 見出しのフォント $hash(font_text,ＭＳ Ｐゴシック) // それ以外のフォント $hash(fontSS,7) // ELPL のアルバム情報のフォントと時間表示のフォントのサイズ $hash(fontS,8) // 見出しのフォントのサイズ $hash(fontM,9) // アーティスト名等のフォントのサイズ $hash(fontMM,10) // アーティスト名等のフォントのサイズ $hash(fontL,12) // 曲名のフォントのサイズ ) $hash(font_time,%font_text%) // ELPL の時間表示のフォント $hash(font_number,%font_text%) // ELPL のトラックナンバーのフォント $hash(font_bold,%font_text%) // ELPL の太字のフォント $puts(fontLL,80) // ジャンルのフォントのサイズ $puts(headX,40) // [作曲家]、[曲名] 等の曲情報の見出しの開始位置の X 座標 $puts(contentX,100) // 曲情報の開始位置の X 座標 $puts(contentW,$sub(%_width%,$get(contentX),35)) // 曲情報の幅 $puts(btn_path,img\btn\fb2k095_20\) // ボタン画像フォルダのパス $hash(btn_space_width,115) // ウィンドウ右上の最小化等のボタン用のスペース $hash(Bx,29) // ボタン 1 つ目の開始位置の X 座標 $hash(By,$sub(%_height%,28)) // ボタン 1 つ目の開始位置の Y 座標 $hash(Bp,33) // ボタン 1 つあたりの幅 [余白含む] $hash(Vx,$sub(%_width%,80)) // ボリュームの X 座標 $hash(Vy,%By%) // ボリュームの Y 座標 $hash(Px,$add($mul(%Bp%,16),%Bx%,-10)) // プログレスバーの開始位置の X 座標 $hash(Py,$add(%By%,2)) // プログレスバーの開始位置の Y 座標 $hash(Pw,$sub(%Vx%,70,%Px%,40)) // プログレスバーの幅 $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(len_album_line1,$len($pstrsplit($hash(font_text),$hash(fontM),,%album%,$get(contentW),0))) // アルバム名表示の 1 行目の文字数 $puts(line_album,$pstrsplit($hash(font_text),$hash(fontM),,%album%,$get(contentW),,count)) // アルバム名表示の行数 $puts(performer,$if3(%band%,$meta(album artist))) // 演奏者があれば演奏者、なければアルバム・アーティストを出力 $puts(line_perform,$pstrsplit($hash(font_text),$hash(fontM),,$get(performer),$get(contentW),,count)) // 演奏者名表示の 1 行目の文字数 $puts(len_perform_line1,$len($pstrsplit($hash(font_text),$hash(fontM),,$get(performer),$get(contentW),0))) // 演奏者名表示の行数 $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($regexp($regexp($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($regexp($regexp($regexp($regexp($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($regexp(%date%,'[^/]',)),3),$get(YMDYMD)), $if($greater($len($regexp(%date%,'[^/]',)),2), $ifequal($len($regexp($regexp(%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。以上、最初に条件に合致したものを採用。 $puts(Ch,$replace($info(channels),1,モノラル,2,ステレオ)) // 音楽ファイルのチャンネル数が 1 つだった場合には [モノラル]、2 つだった場合には [ステレオ] を出力。左チャンネルと右チャンネルに全く同じ音が収録されているようなモノラル音源の場合もステレオと出力されるのであまり実用性はない。 $puts(AG,$insert(%__replaygain_album_gain%, ,1)) // ±と値の間に半角スペースを挿入 $puts(TG,$insert(%__replaygain_track_gain%, ,1)) // AG と同じ // puts end // run start $if($or($strcmp(%cwb_playback_order%,Random),$strcmp(%cwb_playback_order%,'Shuffle (tracks)')),$mainmenu_execute('Playback/ReplayGain: Set to Track'),$mainmenu_execute('Playback/ReplayGain: Set to Album')) // run end // frame start // $drawrect(0,0,%_width%,%_height%,%col_main_frame%,%col_main_frame%) // $gradientrect(0,0,$calc(%_width%/2),%_height%,%col_main_frame%,73-78-81,horizontal) // $gradientrect($calc(%_width%/2),0,$calc(%_width%/2),%_height%,73-78-81,%col_main_frame%,horizontal) $drawrect(0,0,%_width%,%_height%,%col_bg%,%col_bg%) // foo_ｺﾞﾆｮｺﾞﾆｮ の transwindow でウィンドウの四隅を透過させるため $drawroundrect(0,0,$sub(%_width%,1),$sub(%_height%,1),30,30,%col_frame_mid%,%col_frame_out%) // foo_ｺﾞﾆｮｺﾞﾆｮ の setwindowstyle overlappedwindow_off でタイトルバーとウインドウ枠を非表示にした場合のためにウインドウ枠を描画 $drawroundrect(2,2,$sub(%_width%,5),$sub(%_height%,5),30,30,%col_main_frame%,%col_frame_in%) // これもウインドウ枠を描画 $drawroundrect(8,8,$sub(%_width%,16,%btn_space_width%),160,30,30,%col_panel_bg%,%col_panel_shadow%) // 再生中の曲の情報を表示する黒窓の左側担当 $drawroundrect($sub(%_width%,35,%btn_space_width%),37,$add(26,%btn_space_width%),131,30,30,%col_panel_bg%,%col_panel_shadow%) // 黒窓の右下担当 $drawrect($sub(%_width%,35,%btn_space_width%),38,30,130,%col_panel_bg%,%col_panel_bg%) // 右下の黒窓の枠線が左側の黒窓に重なってしまうのでそれを削除 $drawrect($sub(%_width%,35,%btn_space_width%),168,28,1,%col_panel_shadow%,) // これも枠線の修正 $imageabs($sub(%_width%,39,%btn_space_width%),8,52,30,$get(btn)) // ウィンドウ右上の最小化等のボタン用のスペースの左端の曲線の画像 // frame end // text start $if(%ps_isplaying%, // 再生中のみ黒窓に情報を表示させる。 $font($get(font_genre),$get(fontLL),italic) $drawtext([$replace(%genre%,JPop,J-POP)],0,0,$sub(%_width%,50),160,$get(font_col_genre),right bottom) // 黒窓にジャンルを表示 $font(%font_head%,%fontS%) $drawtext($if($and($get(performer),$or($stricmp(%genre%,Ballet),$stricmp(%genre%,Classical),$stricmp(%genre%,Musical),$stricmp(%genre%,Opera),$stricmp(%genre%,Tango))),作曲者 :,$if(%artist%,アーティスト :)),$get(headX),21,100,20,%font_col_head%,) // 演奏者情報が存在し、かつ、ジャンルがクラシック等の場合には [作曲者 :] という見出しを表示。存在しない場合には [アーティスト :] と表示。 $drawtext($if(%album%,アルバム :),$get(headX),55,60,20,%font_col_head%,) // %album% タグが存在する場合は [アルバム] という見出しを表示 $drawtext(曲名 :,$get(headX),89,100,20,%font_col_head%,) // [曲名 :] という見出しを表示 $drawtext($if($get(performer),$if($stricmp($get(performer),Various Artists),コンピレーション,演奏 :)),$get(headX),133,100,20,%font_col_head%,) // performer あるいは album artist が存在する場合には [演奏 :] という見出しを表示 $font(%font_text%,%fontM%) $drawtextex($get(artist),$get(contentX),35,$sub(%_width%,$get(contentX),%btn_space_width%,39),20,%font_col_text%,end_ellipsis) // アーティスト名を表示。 $drawtextex([$left(%album%,$get(len_album_line1))],$get(contentX),$ifgreater($get(line_album),1,61,69),$get(contentW),20,%font_col_text%) // アルバム名の 1 行目を表示。pstrsplit ではダイアクリティカルマーク付き文字をそのまま出力できないことが判明したので、pstrsplit は文字数計測のみに用い、文字出力は別の関数で行うようにした。 $drawtextex([$substr(%album%,$add($get(len_album_line1),1),$len(%album%))],$get(contentX),$add(61,%fontM%,6),$get(contentW),20,%font_col_text%,right end_ellipsis) // アルバム名が長かった場合の 2 行目 $drawtext($if(%track%,$num(%tracknumber%,1).),$sub($get(contentX),28),102,20,24,%font_col_head%,right bottom) // アルバム内で何曲目かを表示 $font(%font_text%,%fontL%) $drawtextex(%title%,$get(contentX),103,$get(contentW),24,%font_col_text%,end_ellipsis) // 曲名を表示 $font(%font_text%,%fontM%) $if($stricmp($meta(album artist),Various Artists),, $drawtextex($left($get(performer),$get(len_perform_line1)),$get(contentX),$ifgreater($get(line_perform),1,132,140),$get(contentW),20,%font_col_text%) // 演奏者名の 1 行目を表示。アルバム名と同じ。 $drawtextex([$substr($get(performer),$add($get(len_perform_line1),1),$len($get(performer)))],$get(contentX),$add(132,%fontM%,6),$get(contentW),20,%font_col_text%,right end_ellipsis) // 演奏者名が長かった場合の 2 行目 ) // album artist が Various Artists だったら出力しない。 $if($or($strcmp(%cwb_playback_order%,Random),$strcmp(%cwb_playback_order%,'Shuffle (tracks)')), $puts(font_color_TG_b,%font_col_head%) $puts(font_color_TG_w,%font_col_rg%) $puts(font_color_AG_b,%font_col_head%) $puts(font_color_AG_w,%font_col_text%) , $puts(font_color_TG_b,%font_col_head%) $puts(font_color_TG_w,%font_col_text%) $puts(font_color_AG_b,%font_col_head%) $puts(font_color_AG_w,%font_col_rg%) ) $puts(W1,$sub(%_width%,%btn_space_width%,38)) // W1。ウィンドウの横幅からボタン用のスペースと余白 38 を控除 $put(W2,$sub($get(W1),$gettextwidth(%length% / %length%,%font_text%,$hash(fontMM)))) $font(%font_head%,%fontS%)$drawtext($if(%__replaygain_track_gain%,$get(TG)),0,18,$put(W3,$sub($get(W2),$gettextwidth(時間 : ,%font_head%,%fontS%),30)),20,$get(font_color_TG_w),right top) // トラックゲインを表示 $drawtext($font(%font_head%,%fontS%)$if(%__replaygain_album_gain%,$get(AG)),0,18,$put(W4,$sub($get(W3),$gettextwidth( $get(TG),%font_head%,%fontS%))),20,$get(font_color_AG_w),right top) // アルバムゲインを表示 $font(%font_head%,%fontS%) $drawtext($if(%__replaygain_track_gain%,: ),0,18,$put(W5,$sub($get(W4),$gettextwidth($get(AG),%font_head%,%fontS%))),20,%font_col_head%,right top) // [ : ] という見出しを表示 $drawtext($if(%__replaygain_track_gain%,TG),0,18,$put(W6,$sub($get(W5),$gettextwidth( : ,%font_head%,%fontS%))),20,$get(font_color_TG_b),right top) // [TG] という見出しを表示 $drawtext($if(%__replaygain_track_gain%,/ ),0,18,$put(W7,$sub($get(W6),$gettextwidth(TG,%font_head%,%fontS%))),20,%font_col_head%,right top) // [ / ] という見出しを表示 $drawtext($if(%__replaygain_album_gain%,AG),0,18,$put(W8,$sub($get(W7),$gettextwidth( / ,%font_head%,%fontS%))),20,$get(font_color_AG_b),right top) // [AG] という見出しを表示 $if(%date%, $drawtext(%dateN%,0,18,$put(W9,$sub($get(W8),$gettextwidth(AG,%font_head%,%fontS%),30)),20,%font_col_text%,right top) // 日付情報を表示 $drawtext($if($strchr(%date%,Rec:),録音 : ,発売 : ),0,18,$put(W10,$sub($get(W9),$gettextwidth(%dateN%,%font_head%,%fontS%))),20,%font_col_head%,right top) // %date% に [Rec:] と記載されていれば [録音 :]、されていなければ [発売 :] という見出しを表示 ) , $font($get(font_genre),$get(fontLL)) $drawtext(No Track,40,8,$sub(%_width%,30),150,$get(font_col_genre),left bottom) ) // 再生中以外は黒窓に大きく [No Track] と表示させる。 // text end // Rounded frame start ここからは各パネルの回りに丸っこい枠を表示させるための設定 // Album Select Rounded frame start $if($isvisible_c('Quick Search Toolbar'), // Quick Search Toolbar $drawellipse(8,174,23,23,%col_panel_bg%,%col_panel_shadow%,) // 左の丸 $drawellipse($sub(%_width%,749),174,23,23,%col_panel_bg%,%col_panel_shadow%,) // 右の丸 $drawrect(20,174,$sub(%_width%,757),24,%col_panel_shadow%,) // 外枠 // Playback order $drawellipse($sub(%_width%,720),174,23,23,%col_panel_bg%,%col_panel_shadow%,) // 左の丸 $drawellipse($sub(%_width%,621),174,23,23,%col_panel_bg%,%col_panel_shadow%,) // 右の丸 $drawrect($sub(%_width%,706),174,95,24,%col_panel_shadow%,) // 外枠 $drawrect($sub(%_width%,706),175,95,22,%col_panel_bg%,) // 中の背景 $if($files(C:\WINDOWS\Fonts\meiryo.ttc),$font(メイリオ,9),$font(Tahoma,10)) $drawtext([%cwb_playback_order%],$sub(%_width%,706),177,120,21,%font_col_text%) // プレイモードの描画 // Browser 1 $drawroundrect(8,203,76,80,18,18,%col_panel_bg%,%col_panel_shadow%) $drawroundrect(8,$sub(%_height%,116),76,80,18,18,%col_panel_bg%,%col_panel_shadow%) $drawrect(8,219,77,$sub(%_height%,271),%col_panel_bg%,%col_panel_shadow%) // Browser 2 $drawroundrect(90,203,171,80,18,18,%col_panel_bg%,%col_panel_shadow%) $drawroundrect(90,$sub(%_height%,116),171,80,18,18,%col_panel_bg%,%col_panel_shadow%) $drawrect(90,219,172,$sub(%_height%,271),%col_panel_bg%,%col_panel_shadow%) // Browser 3 $drawroundrect(267,203,$sub(%_width%,865),80,18,18,%col_panel_bg%,%col_panel_shadow%) $drawroundrect(267,$sub(%_height%,116),$sub(%_width%,865),80,18,18,%col_panel_bg%,%col_panel_shadow%) $drawrect(267,219,$sub(%_width%,864),$sub(%_height%,271),%col_panel_bg%,%col_panel_shadow%) ) // Album Select Rounded frame end // Lyrics Art, Album Art, Lyrics panel Rounded frame start $if($or($isvisible_c('Channel spectrum panel'),$isvisible_c('Lyrics panel')), $drawroundrect(8,174,$sub(%_width%,606),$sub(%_height%,210),30,30,%col_panel_bg%,%col_panel_shadow%) ) // Lyrics Art, Album Art, Lyrics panel Rounded frame end // Columns Playlist Rounded frame start $if($isvisible_c('Panel Stack Splitter 4'), $drawroundrect(8,174,$sub(%_width%,16),$sub(%_height%,210),30,30,%col_panel_bg%,%col_panel_shadow%) ) // Columns Playlist Rounded frame end // Rounded frame end ここまでが各パネルの回りに丸っこい枠を表示させるための設定 // buttons start ここから先はボタン用の設定 $textbutton(0,0,%_width%,160,,, COMMAND:'View/Columns playlist/Activate now playing') // 黒窓をクリックすると、プレイリスト上で現在再生中の曲をアクティブにする $imagebutton($sub(%_width%,%btn_space_width%,-8),11,,, $get(btn_path)$get(off).png, $get(btn_path)$get(on).png, COMMAND:'Functions/minimize') // ウィンドウを最小化するボタン $if($or($greater(%screen_width%,$getwindowinfo(width)),$greater(%screen_height%,$getwindowinfo(height))), $imagebutton($sub(%_width%,%btn_space_width%,-33),11,,, $get(btn_path)$get(off).png, $get(btn_path)$get(on).png, COMMAND:'Functions/maximize'; REFRESH:), $imagebutton($sub(%_width%,%btn_space_width%,-33),11,,, $get(btn_path)$get(off).png, $get(btn_path)$get(on).png, COMMAND:'Functions/restore'; REFRESH:)) // ウィンドウが最大化されているときにウィンドウを元のサイズに戻し、ウィンドウが最大化されていないときはウィンドウを元のサイズに戻すボタン $imagebutton($sub(%_width%,%btn_space_width%,-58),11,,, $get(btn_path)$get(off).png, $get(btn_path)$get(on).png, COMMAND:'File/Exit') // foobar2000 を閉じるボタン $if($isvisible_c('Quick Search Toolbar'), $textbutton($sub(%_width%,720),174,123,24,,,COMMAND:Playback/Order/$if($strcmp(%cwb_playback_order%,'Default'),'Random')$if($strcmp(%cwb_playback_order%,'Random'),'Repeat (playlist)')$if($strcmp(%cwb_playback_order%,'Repeat (playlist)'),'Repeat (track)')$if($strcmp(%cwb_playback_order%,'Repeat (track)'),'Shuffle (albums)')$if($strcmp(%cwb_playback_order%,'Shuffle (albums)'),'Shuffle (folders)')$if($strcmp(%cwb_playback_order%,'Shuffle (folders)'),'Shuffle (tracks)')$if($strcmp(%cwb_playback_order%,'Shuffle (tracks)'),'Default');REFRESH:) ) // クリックする度にプレイモードを変更するボタン $imagebutton(%Bx%,%By%,20,20, $get(btn_path)Select2.png, $get(btn_path)Select1.png, PANELSHOW:'Lyrics Art':0; PANELSHOW:'Album Art':0; PANELSHOW:'Channel spectrum panel':0; PANELSHOW:'Lyrics panel':0; PANELSHOW:'Panel Stack Splitter 4':0; PANELSHOW:'Quick Search Toolbar':1; PANELSHOW:'Playback order':1; PANELSHOW:'Panel Stack Splitter 1':1; PANELSHOW:'Panel Stack Splitter 2':1; PANELSHOW:'Panel Stack Splitter 3':1; PANELSHOW:'ELPlaylist':1; PANELSHOW:'Seek Panel':1; PANELSHOW:'Volume Panel':1; REFRESH:) // Music Browser と ELPL を表示させるボタン。アルバムを探す時に。 $imagebutton($add($mul(%Bp%,1),%Bx%),%By%,20,20, $get(btn_path)CPL2.png, $get(btn_path)CPL1.png, PANELSHOW:'Lyrics Art':0; PANELSHOW:'Album Art':0; PANELSHOW:'Channel spectrum panel':0; PANELSHOW:'Lyrics panel':0; PANELSHOW:'Quick Search Toolbar':0; PANELSHOW:'Playback order':0; PANELSHOW:'Panel Stack Splitter 1':0; PANELSHOW:'Panel Stack Splitter 2':0; PANELSHOW:'Panel Stack Splitter 3':0; PANELSHOW:'ELPlaylist':0; PANELSHOW:'Panel Stack Splitter 4':1; PANELSHOW:'Seek Panel':1; PANELSHOW:'Volume Panel':1; REFRESH:) // Columns Playlist を表示させるボタン。1 曲でも多くプレイリストを表示したいときに。 $imagebutton($add($mul(%Bp%,2),%Bx%),%By%,20,20, $get(btn_path)Art2.png, $get(btn_path)Art1.png, PANELSHOW:'Lyrics panel':0; PANELSHOW:'Panel Stack Splitter 4':0; PANELSHOW:'Quick Search Toolbar':0; PANELSHOW:'Playback order':0; PANELSHOW:'Panel Stack Splitter 1':0; PANELSHOW:'Panel Stack Splitter 2':0; PANELSHOW:'Panel Stack Splitter 3':0; PANELSHOW:'Album Art':0; PANELSHOW:'Lyrics Art':1; PANELSHOW:'Channel spectrum panel':1; PANELSHOW:'ELPlaylist':1; PANELSHOW:'Seek Panel':1; PANELSHOW:'Volume Panel':1; REFRESH:) // Lyrics Art と ELPL を表示させるボタン。アルバムアートと歌詞を同時にみたいときに。 $imagebutton($add($mul(%Bp%,3),%Bx%),%By%,20,20, $get(btn_path)Art2.png, $get(btn_path)Art1.png, PANELSHOW:'Lyrics panel':0; PANELSHOW:'Panel Stack Splitter 4':0; PANELSHOW:'Quick Search Toolbar':0; PANELSHOW:'Playback order':0; PANELSHOW:'Panel Stack Splitter 1':0; PANELSHOW:'Panel Stack Splitter 2':0; PANELSHOW:'Panel Stack Splitter 3':0; PANELSHOW:'Lyrics Art':0; PANELSHOW:'Album Art':1; PANELSHOW:'Channel spectrum panel':1; PANELSHOW:'ELPlaylist':1; PANELSHOW:'Seek Panel':1; PANELSHOW:'Volume Panel':1; REFRESH:) // Album Art と ELPL を表示させるボタン。アルバムアートを見たい時に。Album Art の方が軽いし複数のソースを表示させられる。 $if($cwb_fileexists($replace(%path%,%filename_ext%,%filename%)_%tracknumber%.lrc), $imagebutton($add($mul(%Bp%,4),%Bx%),%By%,20,20, $get(btn_path)lrc2.png, $get(btn_path)lrc1.png, PANELSHOW:'Lyrics Art':0; PANELSHOW:'Album Art':0; PANELSHOW:'Channel spectrum panel':0; PANELSHOW:'Panel Stack Splitter 4':0; PANELSHOW:'Quick Search Toolbar':0; PANELSHOW:'Playback order':0; PANELSHOW:'Panel Stack Splitter 1':0; PANELSHOW:'Panel Stack Splitter 2':0; PANELSHOW:'Panel Stack Splitter 3':0; PANELSHOW:'Lyrics panel':1; PANELSHOW:'ELPlaylist':1; PANELSHOW:'Seek Panel':1; PANELSHOW:'Volume Panel':1; REFRESH:)) // Lyrics panel と ELPL を表示させるボタン。歌詞を一覧表示したいときに。拡張子が lrc の場合。 $if($or( $cwb_fileexists($replace(%path%,%filename_ext%,%filename%).txt), $cwb_fileexists($replace(%path%,%filename_ext%,%filename%)_%tracknumber%.txt)), $imagebutton($add($mul(%Bp%,5),%Bx%),%By%,20,20, $get(btn_path)Text2.png, $get(btn_path)Text1.png, PANELSHOW:'Lyrics Art':0; PANELSHOW:'Album Art':0; PANELSHOW:'Channel spectrum panel':0; PANELSHOW:'Panel Stack Splitter 4':0; PANELSHOW:'Quick Search Toolbar':0; PANELSHOW:'Playback order':0; PANELSHOW:'Panel Stack Splitter 1':0; PANELSHOW:'Panel Stack Splitter 2':0; PANELSHOW:'Panel Stack Splitter 3':0; PANELSHOW:'Lyrics panel':1; PANELSHOW:'ELPlaylist':1; PANELSHOW:'Seek Panel':1; PANELSHOW:'Volume Panel':1; REFRESH:)) // Lyrics panel と ELPL を表示させるボタン。歌詞を一覧表示したいときに。拡張子が txt の場合。 $imagebutton($add($mul(%Bp%,6),%Bx%),%By%,20,20, $get(btn_path)pref2.png, $get(btn_path)pref1.png, COMMAND:'File/Preferences') // 設定画面を開くボタン $imagebutton($add($mul(%Bp%,7),%Bx%),%By%,20,20, $get(btn_path)Rescan2.png, $get(btn_path)Rescan1.png, COMMAND:'Library/Rescan Media Library') // ライブラリをスキャンするボタン Library/Rescan Media Library $imagebutton($add($mul(%Bp%,9),%Bx%),%By%,20,20, $get(btn_path)Prev2.png, $get(btn_path)Prev1.png, COMMAND:'Playback/Previous') // 1 つ前の曲へ $imagebutton($add($mul(%Bp%,10),%Bx%),%By%,20,20, $get(btn_path)Stop2.png, $get(btn_path)Stop1.png, COMMAND:'Playback/Stop') // 停止 $imagebutton($add($mul(%Bp%,11),%Bx%),%By%,20,20, $get(btn_path)Paus2.png, $get(btn_path)Paus1.png, COMMAND:'Playback/Pause') // 一時停止 $imagebutton($add($mul(%Bp%,12),%Bx%),%By%,20,20, $get(btn_path)Play2.png, $get(btn_path)Play1.png, COMMAND:'Playback/Play') // 頭から再生 $imagebutton($add($mul(%Bp%,13),%Bx%),%By%,20,20, $get(btn_path)Rndm2.png, $get(btn_path)Rndm1.png, COMMAND:'Playback/Random') // ランダムで次の曲へ $imagebutton($add($mul(%Bp%,14),%Bx%),%By%,20,20, $get(btn_path)Next2.png, $get(btn_path)Next1.png, COMMAND:'Playback/Next') // プレイリストの次の曲へ // ここから重複してるので後で消す $ifequal(%cwb_volume%,-100, $imagebutton($sub(%Vx%,30),%By%,20,20, $get(btn_path)Vol2.png, $get(btn_path)Vol1.png, COMMAND:'Playback/Volume Mute';REFRESH:) , $imagebutton($sub(%Vx%,30),%By%,20,20, $get(btn_path)Mute2.png, $get(btn_path)Mute1.png, COMMAND:'Playback/Volume Mute';REFRESH:) ) // ミュートボタン。ミュートされているときはアイコンがちょっと変わる。 // ここまで後で消す $imagebutton($sub(%_width%,31),$sub(%_height%,40),30,40,img\vol\n.png,img\vol\n.png,COMMAND:'Playback/Volume Up';REFRESH:) // ボリュームバーの右側をクリックするとボリュームを 1 段階上げる。[Preferences-Advanced-Playback-Volumestep] を 100.0 にする設定と組み合わせることで音量最大化が可能。 // buttons end // Progress Bar 18 start プログレスバーの背景。gradientrect でやってもいいんだけど一度作っちゃったしもったいないからそのままになってます。デザイン自体は Concave Dark のプログレスバーを丸パクリ。Progress Bar 18 は幅が 18 ピクセル。他に 13, 15, 23 ピクセルバージョンもあります。 $if($stricmp(%color%,black), $drawrect($add(%Px%,2),$add(%Py%,2),$sub(%Pw%,4),5,22-26-28,,) $drawrect($add(%Px%,2),$add(%Py%,7),$sub(%Pw%,4),1,22-25-27,,) $drawrect($add(%Px%,2),$add(%Py%,8),$sub(%Pw%,4),2,28-33-36,,) $drawrect($add(%Px%,2),$add(%Py%,10),$sub(%Pw%,4),1,33-38-41,,) $drawrect($add(%Px%,2),$add(%Py%,11),$sub(%Pw%,4),2,36-41-44,,) $drawrect($add(%Px%,2),$add(%Py%,13),$sub(%Pw%,4),1,39-44-47,,) $drawrect($add(%Px%,2),$add(%Py%,14),$sub(%Pw%,4),2,42-47-50,,) $drawrect($add(%Px%,1),$add(%Py%,1),$sub(%Pw%,2),16,,31-35-38,) $drawrect(%Px%,%Py%,%Pw%,18,,4-5-6,) , $drawellipse($sub(%Px%,5),%Py%,17,17,%col_panel_bg%,%col_panel_shadow%,) // 左の丸 $drawellipse($add(%Px%,%Pw%,-13),%Py%,17,17,%col_panel_bg%,%col_panel_shadow%,) // 右の丸 $drawrect($add(%Px%,4),%Py%,$sub(%Pw%,8),18,%col_panel_shadow%,) // 外枠 $drawrect($add(%Px%,4),$add(%Py%,1),$sub(%Pw%,8),16,%col_panel_bg%,) // 内側 ) // Progress Bar 18 end

// puts start $puts(Pr,$expr(%playback_time_seconds%*{%Pw%-8}/%length_seconds%)) // プログレスバーの幅を計算 // puts end // text start $drawtextex($font(%font_text%,$hash(fontMM))%_time_elapsed% / %_time_total%,0,16,$put(W1,$sub(%_width%,%btn_space_width%,38)),30,%font_col_text%,right top) // 経過時間と総時間を表示 $drawtext($font(%font_text%,%fontM%)時間 : ,0,18,$put(W2,$sub($get(W1),$gettextwidth(%_time_elapsed% / %_time_total%,%font_text%,$hash(fontMM)))),20,%font_col_head%,right top) // [時間 :] という見出しを表示 // text end // ここから重複してるので後で消す $imageabs(%Vx%,$add(%Vy%,3),50,14,$get(Volume),nokeepaspect) // ボリュームバーの画像を表示 // ここまで消す // Progress Bar 18 start プログレスバー。gradientrect でやってもいいんだけど一度作っちゃったしもったいないからそのままになってます。デザイン自体は Concave Dark のプログレスバーを丸パクリ。Progress Bar 18 は幅が 18 ピクセル。他に 13, 15, 23 ピクセルバージョンも作りました。 $ifgreater($get(Pr),0,$drawrect($add(%Px%,4),$add(%Py%,5),$get(Pr),1,237-246-255,,),) $ifgreater($get(Pr),0,$drawrect($add(%Px%,4),$add(%Py%,6),$get(Pr),1,227-240-255,,),) $ifgreater($get(Pr),0,$drawrect($add(%Px%,4),$add(%Py%,7),$get(Pr),1,213-236-255,,),) $ifgreater($get(Pr),0,$drawrect($add(%Px%,4),$add(%Py%,8),$get(Pr),1,184-230-255,,),) $ifgreater($get(Pr),0,$drawrect($add(%Px%,4),$add(%Py%,9),$get(Pr),1,46-180-255,,),) $ifgreater($get(Pr),0,$drawrect($add(%Px%,4),$add(%Py%,10),$get(Pr),1,34-174-255,,),) $ifgreater($get(Pr),0,$drawrect($add(%Px%,4),$add(%Py%,11),$get(Pr),1,111-205-255,,),) $ifgreater($get(Pr),0,$drawrect($add(%Px%,4),$add(%Py%,12),$get(Pr),1,0-147-230,,),) $ifgreater($get(Pr),0,$drawrect($add(%Px%,4),$add(%Py%,4),$get(Pr),10,,7-122-203,),) // progressbar 18 end