Message Boards Message Boards

GROUPS:

Fun with flags:) Stars and Stripes

Posted 9 months ago
749 Views
|
0 Replies
|
0 Total Likes
|

en.wikipedia.org/wiki/FlagoftheUnitedStates

Stars and Stripes adopted July 4, 1960 (current 50-star version):

pentagram[{x_, y_}, q_ : 1/2, \[Phi]_ : \[Pi]/2] := 
 With[{cp5 = CirclePoints[{x, y}, {q, \[Phi]}, 5] // N}, 
  With[{mp5 = 
     Map[#[[1]] + 
        1/GoldenRatio (#[[2]] - #[[1]]) &, {RotateLeft[cp5, 2], 
        cp5}\[Transpose]]}, 
   Polygon[Flatten[{cp5, mp5}\[Transpose], 1]]]]

q = 10/19;
H = 2 13; W = H/q;
Q = 247/175; X = 14 Q; Y = H - 12;
F = Y/10; G = X/12;
red = RGBColor[0.8, 0.048, 0.185];
blue = RGBColor[0.0, 0.172, 0.466];
Graphics[{EdgeForm[{Black, Thick}], 
  Map[{red, #} &, {Polygon[{{0, 0}, {W, 0}, {W, 2}, {0, 2}}], 
    Polygon[{{0, 4}, {W, 4}, {W, 6}, {0, 6}}], 
    Polygon[{{0, 8}, {W, 8}, {W, 10}, {0, 10}}], 
    Polygon[{{X, 12}, {W, 12}, {W, 14}, {X, 14}}], 
    Polygon[{{X, 16}, {W, 16}, {W, 18}, {X, 18}}], 
    Polygon[{{X, 20}, {W, 20}, {W, 22}, {X, 22}}], 
    Polygon[{{X, 24}, {W, 24}, {W, 26}, {X, 26}}]}], {blue, 
   Polygon[{{0, 12}, {X, 12}, {X, H}, {0, H}}]}, {White, EdgeForm[], 
   Table[pentagram[{x, 12 + y}, 0.8], {x, G, 11 G, 2 G}, {y, F, 9 F, 
     2 F}], Table[
    pentagram[{x, 12 + y}, 0.8], {x, 2 G, 11 G, 2 G}, {y, 2 F, 9 F, 
     2 F}]}}, PlotRangePadding -> None, Frame -> False]

And here it is:

enter image description here

US Flag with 48 stars. In use for 47 years from July 4, 1912, to July 3, 1959:

enter image description here

Some kind of Betsy Ross flag with modern canton:

enter image description here

And a thin blue line flag:

enter image description here

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract