Datei:Flagge Kanton.svg
Zur Navigation springen
Zur Suche springen
Größe der PNG-Vorschau dieser SVG-Datei: 800 × 600 Pixel.
Originaldatei (SVG-Datei, Basisgröße: 1.000 × 750 Pixel, Dateigröße: 15 KB)
Ü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 | {| class="infobox" style="float:right; clear:right;" | Informationen |
|-
| style="width:25%;" |Beschreibung | style="width:75%;" |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"; }
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 15:00, 3. Jun. 2011 | 1.000 × 750 (15 KB) | Loki (Diskussion | Beiträge) | intensiviert | |
14:53, 3. Jun. 2011 | 1.000 × 750 (15 KB) | Loki (Diskussion | Beiträge) | {{Bildinfo |LIZENZ={{PD-Schöpfungshöhe}} |REFERENZ={{Quelle|swa|S. 117}} |BESCHREIBUNG=Flagge: Kantonesische Konföderation *Format 4:3 *Farbwerte **Grundfläche: #b6242a (tiefrot) **Ornament, Schriftzug: #ffffff (weiß) }} ==Flaggenaufteilung== <pre> |
Du kannst diese Datei nicht überschreiben.
Dateiverwendung
Die folgende Seite verwendet diese Datei: