Esperanta Flago

La esperanta flago estas tre simpla. Mi faris SVG-a (Skalebla Vektora Grafiko) dosiero de la flago.

Se via foliumilo povas montri SVG-ajn bildojn, vidu la flagon.

(Via foliumilo ne povas montri SVG-ajn bildojn cxi tie.)

Instalu la SVG Viewer de Adobe se vi volas vidi la flago.

Jen la SVG-a fonto: 

<?xml version="1.0"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
<svg
    xmlns="http://www.w3.org/2000/svg"
    width="300"
    height="200">
    <title>
        Esperanta Flago
    </title>
    <g fill="#009900">
        <rect
            width="300"
            height="200"
        />
        <rect
            width="100"
            height="100"
            fill="#ffffff"
        />
        <polygon
            points="
                0, -1
                0.224513988289793, -0.309016994374947
                0.951056516295154, -0.309016994374947
                0.36327126400268, 0.118033988749895
                0.587785252292473, 0.809016994374947
                0, 0.381966011250105
                -0.587785252292473, 0.809016994374947
                -0.36327126400268, 0.118033988749895
                -0.951056516295154, -0.309016994374947
                -0.224513988289793, -0.309016994374947
            "
            transform="translate(50,50) scale(35)"
        />
    </g>
</svg>

Jen la Perl-a programo kiu kreii la koordinatarojn de la stelo. 

#!/usr/bin/perl -w

use Math::Trig;

@p = map {x => cos(2*pi*$_/5 - pi/2), y => sin(2*pi*$_/5 - pi/2)}, (0..4);
$r = sqrt($p[1]{y}**2 + (($p[1]{y}-$p[0]{y})/($p[2]{y}-$p[0]{y})*($p[2]{x}-$p[0]{x}))**2);
for (0..4) {
    print "$p[$_]{x}, $p[$_]{y}\n";
    print cos(2*pi*($_*2+1)/10 - pi/2)*$r, ", ", sin(2*pi*($_*2+1)/10 - pi/2)*$r, "\n";
}