<?xml version="1.0" encoding="koi8-r"?>
<rss version="0.91">
<channel>
    <title>OpenForum RSS: Раздел полезных советов: Русский язык в графиках GD::Graph</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID3/3816.html</link>
    <description>Для рисования русских букв, слов на графиках, построенных модулем perl GD::Graph необходимо все &lt;br&gt;переменные с русским тексом перевести в кодировку utf8.&lt;br&gt;Например модулем Unicode::Map8:&lt;br&gt;    my $unicoded_txt = Unicode::Map8-&amp;gt;new(&quot;cp1251&quot;);&lt;br&gt;&lt;br&gt;Дополнительно нужно указать ttf шрифт, поддерживающий unicode. Например виндовый arial.ttf:&lt;br&gt;    $graph-&amp;gt;set_value_font(&apos;/usr/share/fonts/arial.ttf&apos;, 9);&lt;br&gt;&lt;br&gt;Опробовано с p5-GD-Graph-1.43 и p5-Unicode-Map8-0.12.&lt;br&gt;&lt;br&gt;URL: &lt;br&gt;Обсуждается: http://www.opennet.ru/tips/info/693.shtml&lt;br&gt;</description>

<item>
    <title>Русский язык в графиках GD::Graph (worldmind)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID3/3816.html#7</link>
    <pubDate>Mon, 06 Sep 2010 08:22:39 GMT</pubDate>
    <description>Достаточно сказать&lt;br&gt;use utf8;&lt;br&gt;&lt;br&gt;и как написано http://zaakk.com/post/moj-post-v-pesochnicu-xabra/&lt;br&gt;указать unicode шрифты для разных элементов&lt;br&gt;&lt;br&gt;$graph-&amp;gt;set_title_font(&quot;/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf&quot;,8);&lt;br&gt;$graph-&amp;gt;set_value_font(&quot;/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf&quot;,8);&lt;br&gt;$graph-&amp;gt;set_label_font(&quot;/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf&quot;,8);&lt;br&gt;&lt;br&gt;и всё будет нормально работать&lt;br&gt;</description>
</item>

<item>
    <title>Русский язык в графиках GD::Graph (TLoDSnake)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID3/3816.html#6</link>
    <pubDate>Mon, 05 Dec 2005 15:23:10 GMT</pubDate>
    <description>Решение совсем влоб&lt;br&gt;sub stringToDec&#123;&lt;br&gt;my $ustring = &apos;&apos;;&lt;br&gt;for my $char (split //, shift)&#123;&lt;br&gt;if(ord($char)&amp;gt;127)&#123;&lt;br&gt;$ustring .= &quot;&amp;#&quot; . (unpack(&quot;U&quot;, $char)+848) . &quot;;&quot;;&lt;br&gt;&#125;else&#123;&lt;br&gt;$ustring .= $char;&lt;br&gt;&#125;&lt;br&gt;&#125;&lt;br&gt;return $ustring;&lt;br&gt;&#125;&lt;br&gt;&lt;br&gt;http://www.mysterria.com/programming_notes/GD.html</description>
</item>

<item>
    <title>Русский язык в графиках GD::Graph (falcn)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID3/3816.html#5</link>
    <pubDate>Mon, 09 May 2005 09:43:04 GMT</pubDate>
    <description>Так как на моей машине Map8 не работает, пришлось использовать альтернативное решение с более распостранённым модулем&lt;br&gt;Этот пример работает с Image::Magick&lt;br&gt;&lt;br&gt;use encoding &apos;cp1251&apos;;&lt;br&gt;use Unicode::String qw(utf8);&lt;br&gt;my $title = utf8(&apos;Заголовок&apos;);</description>
</item>

<item>
    <title>Русский язык в графиках GD::Graph (AW)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID3/3816.html#4</link>
    <pubDate>Thu, 05 May 2005 12:30:38 GMT</pubDate>
    <description>my $title = $r-&amp;gt;to16(&apos;Заголовок&apos;);  - так не работает.....&lt;br&gt;а вот так:&lt;br&gt;my $title = $r-&amp;gt;tou(&apos;Заголовок&apos;);  - работает.....&lt;br&gt;</description>
</item>

<item>
    <title>Русский язык в графиках GD::Graph (TLoDSnake)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID3/3816.html#3</link>
    <pubDate>Wed, 01 Sep 2004 13:57:51 GMT</pubDate>
    <description>use GD;&lt;br&gt;use GD::Graph;&lt;br&gt;use GD::Graph::bars;&lt;br&gt;use Unicode::Map8;&lt;br&gt;my &#064;data = ( &lt;br&gt;    &#091;&quot;1st&quot;,&quot;2nd&quot;,&quot;3rd&quot;,&quot;4th&quot;,&quot;5th&quot;,&quot;6th&quot;,&quot;7th&quot;, &quot;8th&quot;, &quot;9th&quot;&#093;,&lt;br&gt;    &#091;    1,    2,    5,    6,    3,  1.5,    1,     3,     4&#093;,&lt;br&gt;    &#091; sort &#123; $a &amp;lt;=&amp;gt; $b &#125; (1, 2, 5, 6, 3, 1.5, 1, 3, 4) &#093;&lt;br&gt;);&lt;br&gt;my $graph = GD::Graph::bars-&amp;gt;new(400, 300);&lt;br&gt;$graph-&amp;gt;set_title_font(&apos;/data/fonts/arial.ttf&apos;, 20);&lt;br&gt;my $r = Unicode::Map8-&amp;gt;new(&quot;cp1251&quot;);&lt;br&gt;my $title = $r-&amp;gt;to16(&apos;&amp;#208;&amp;#243;&amp;#241;&amp;#241;&amp;#234;&amp;#232;&amp;#233; &amp;#231;&amp;#224;&amp;#227;&amp;#238;&amp;#235;&amp;#238;&amp;#226;&amp;#238;&amp;#234;&apos;);&lt;br&gt;$graph-&amp;gt;set( &lt;br&gt;      x_label           =&amp;gt; &apos;&amp;#228;&amp;#237;&amp;#232;&apos;,&lt;br&gt;      y_label           =&amp;gt; &apos;&amp;#213;&amp;#232;&amp;#242;&amp;#251;&apos;,&lt;br&gt;      title             =&amp;gt; &quot;&amp;#208;&amp;#243;&amp;#241;&amp;#241;&amp;#234;&amp;#232;&amp;#233; &amp;#242;&amp;#229;&amp;#234;&amp;#241;&amp;#242; $title&quot;,&lt;br&gt;      y_max_value       =&amp;gt; 8,&lt;br&gt;      y_tick_number     =&amp;gt; 8,&lt;br&gt;      y_label_skip      =&amp;gt; 2&lt;br&gt; ) or die $graph-&amp;gt;error;&lt;br&gt;my $gd = $graph-&amp;gt;plot(&#092;&#064;data) or die $graph-&amp;gt;error;&lt;br&gt;&lt;br&gt;Русского нету ((</description>
</item>

<item>
    <title>Русский язык в графиках GD::Graph (dawnshade)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID3/3816.html#2</link>
    <pubDate>Tue, 08 Jun 2004 10:28:21 GMT</pubDate>
    <description>Угу, только вот в моем случае была 1251 кодировка :((&lt;br&gt;Вот и пришлось наворачивать.</description>
</item>

<item>
    <title>Русский язык в графиках GDGraph (D.A.)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID3/3816.html#1</link>
    <pubDate>Tue, 08 Jun 2004 08:47:46 GMT</pubDate>
    <description>Я сделал проще - нашел ttf шрифт с набором символов koi8-r.... - их предостаточно, и  русский отображается на ура!!!</description>
</item>

</channel>
</rss>
