Datei:Flagge Kanton.svg

Übersicht
Lizenz	Diese Datei erreicht nicht die nötige Schöpfungshöhe, um urheberrechtlich geschützt sein zu können und ist daher gemeinfrei („public domain“). Achtung: Sie kann allerdings anderen Schutzrechten unterliegen - etwa dem Recht am eigenen Bild, Namens- oder Markenschutz - die bei der Verwendung zu beachten sind!
Referenz	Sixth World Almanac S. 117
Beschreibung	Flagge: Kantonesische Konföderation Format 4:3 Farbwerte Grundfläche: #b6242a (tiefrot) Ornament, Schriftzug: #ffffff (weiß)

Flaggenaufteilung

                    1000
    +---------+---------------+---------+
    |          _______________          | 70
    |         |       |       |         +
    |     233 |       |       |         |
    |         |_______|_______| 466     |
    |         |       |       |         |
750 |         |       |       |         | 610
    |         |_______|_______|         |
    |             .-------.             |
    |             |       | 108         |
    | #b6242a     |_______|             +
    |                                   | 70
    +---------+---------------+---------+
        267          466          267

Perl-Skript zur Generierung des Ornaments

use strict;
use Math::Trig;
use Math::Round;

my $r = 233;
my $rs = $r/3;
my $x = 500;
my $y = 303;

my $precision = 100;

my $stroke_color = "white";
my $stroke_width = 4;

#abbreviations

my $rscos30 = $rs * cos(deg2rad(30));
my $rssin30 = $rs * sin(deg2rad(30));

#svg code for circles

my @circles;

for (my $i = -2; $i <= 2; $i++) {
	push(@circles,[$x,$y + $i * $rs]);
}

for (my $i = 0; $i <= 1; $i++) {
	push(@circles,[$x - 1 * $rscos30,$y - $i * $rs - $rssin30]);
	push(@circles,[$x - 1 * $rscos30,$y + $i * $rs + $rssin30]);
	push(@circles,[$x + 1 * $rscos30,$y - $i * $rs - $rssin30]);
	push(@circles,[$x + 1 * $rscos30,$y + $i * $rs + $rssin30]);
}

for (my $i = -1; $i <= 1; $i++) {
	push(@circles,[$x - 2 * $rscos30,$y + $i * $rs]);
	push(@circles,[$x + 2 * $rscos30,$y + $i * $rs]);
}

for (my $i = 0; $i < scalar(@circles); $i++) {

	print "\t<circle"
	     ," stroke=\"",$stroke_color,"\""
	     ," stroke-width=\"",$stroke_width,"\""
	     ," fill=\"none\""
	     ," cx=\"",round($circles[$i]->[0]*$precision)/$precision,"\""
	     ," cy=\"",round($circles[$i]->[1]*$precision)/$precision,"\""
	     ," r=\"",round($rs*$precision)/$precision
	     ,"\"/>\n";
}

print "\n";

#svg code for circle segments

my @circle_segments = (
	[$x + 0 * $rscos30,$y - 3 * $rs,210,330]
	,[$x + 0 * $rscos30,$y + 3 * $rs,30,150]
	,[$x - 1 * $rscos30,$y - 2 * $rs - $rssin30,210,30]
	,[$x - 1 * $rscos30,$y + 2 * $rs + $rssin30,330,150]
	,[$x + 1 * $rscos30,$y - 2 * $rs - $rssin30,150,330]
	,[$x + 1 * $rscos30,$y + 2 * $rs + $rssin30,30,210]
	,[$x - 2 * $rscos30,$y - 2 * $rs,210,30]
	,[$x - 2 * $rscos30,$y + 2 * $rs,330,150]
	,[$x + 2 * $rscos30,$y - 2 * $rs,150,330]
	,[$x + 2 * $rscos30,$y + 2 * $rs,30,210]
	,[$x - 3 * $rscos30,$y - 1 * $rs - $rssin30,270,30]
	,[$x - 3 * $rscos30,$y + 1 * $rs + $rssin30,330,90]
	,[$x + 3 * $rscos30,$y - 1 * $rs - $rssin30,150,270]
	,[$x + 3 * $rscos30,$y + 1 * $rs + $rssin30,90,210]

	,[$x - 3 * $rscos30,$y - 2 * $rs - $rssin30,270,330]
	,[$x - 2 * $rscos30,$y - 3 * $rs,270,330]
	,[$x - 1 * $rscos30,$y - 3 * $rs - $rssin30,270,330]
	,[$x + 1 * $rscos30,$y - 3 * $rs - $rssin30,210,270]
	,[$x + 2 * $rscos30,$y - 3 * $rs,210,270]
	,[$x + 3 * $rscos30,$y - 2 * $rs - $rssin30,210,270]
	,[$x + 3 * $rscos30,$y + 2 * $rs + $rssin30,90,150]
	,[$x + 2 * $rscos30,$y + 3 * $rs,90,150]
	,[$x + 1 * $rscos30,$y + 3 * $rs + $rssin30,90,150]
	,[$x - 1 * $rscos30,$y + 3 * $rs + $rssin30,30,90]
	,[$x - 2 * $rscos30,$y + 3 * $rs,30,90]
	,[$x - 3 * $rscos30,$y + 2 * $rs + $rssin30,30,90]
);

for (my $i = -1; $i <= 1; $i = $i + 2) {
	push(@circle_segments,[$x - 3 * $rscos30,$y + $i * $rssin30,270,90]);
	push(@circle_segments,[$x + 3 * $rscos30,$y + $i * $rssin30,90,270]);
}

for (my $i = -1; $i <= 1; $i++) {
	push(@circle_segments,[$x + 4 * $rscos30,$y + $i * $rs,150,210]);
	push(@circle_segments,[$x - 4 * $rscos30,$y + $i * $rs,330,30]);
}

for (my $i = 0; $i < scalar(@circle_segments); $i++) {

	print "\t<path"
	     ," id=\"segment",$i,"\""
	     ," stroke=\"",$stroke_color,"\""
	     ," stroke-width=\"",$stroke_width,"\""
	     ," fill=\"none\""
	     ," d=\"M ",round(($circle_segments[$i]->[0] + $rs * cos(deg2rad($circle_segments[$i]->[2])))*$precision)/$precision
	     ," ",round(($circle_segments[$i]->[1] - $rs * sin(deg2rad($circle_segments[$i]->[2])))*$precision)/$precision
	     ," A ",round($rs*$precision)/$precision
	     ," ",round($rs*$precision)/$precision
	     ," ",abs($circle_segments[$i]->[2] - $circle_segments[$i]->[3])
	     ," 0 0"
	     ," ",round(($circle_segments[$i]->[0] + $rs * cos(deg2rad($circle_segments[$i]->[3])))*$precision)/$precision
	     ," ",round(($circle_segments[$i]->[1] - $rs * sin(deg2rad($circle_segments[$i]->[3])))*$precision)/$precision
	     ,"\"/>\n";
}