2 frame
source | link

Mathematica 404404 450

b = ConstantArray[1, 13]; a = ReplacePart[bb=1&~Array~13;a=ReplacePart[b, 7 -> 0]; d = Disk; r = RGBColor;0];d=Disk;r=RGBColor;
z@{q_, p_, s_} := ArrayPlot[=ArrayPlot[{q, q, {}, p, p, {}, s, s}, Frame -> False, ImageSize -> 175];155];
m = r @@ m=r@@{0, .2, .5};o = r @@ ;
o=r@@{.8, 0, .2};t = ;
t=-19.1; u = 1;u=-12.75; v = 75;v=-5; q = 5;q=-3.33;
Graphics[{Line[{{-36,-24},{36,-24},{36,24},{-36,24},{-36,-24}}],
Inset[Rotate[z@#, #2 125 Degree], #3] & @@@ #3]&@@@{{{b, a, b}, 1, {t, u}}, {{a, b, a}, 
1, {-t, -u}},  
{{a, a, a}, -1, {-t, u}}, {{b, b, b}, -1, {t, -u}}},
  {o, d[{0, 0}, 12, {-.2 Pi, .8 Pi8Pi}], m, d[{0, 0}, 12, {.8 Pi8Pi, 1.8 Pi8Pi}], o, 
d[{v, -q}, 6], m, d[{-v, q}, 6]}}]

enter image description hereflag

Mathematica 404

b = ConstantArray[1, 13]; a = ReplacePart[b, 7 -> 0]; d = Disk; r = RGBColor;
z@{q_, p_, s_} := ArrayPlot[{q, q, {}, p, p, {}, s, s}, Frame -> False, ImageSize -> 175];
m = r @@ {0, .2, .5};o = r @@ {.8, 0, .2};t = -19.1; u = -12.75; v = -5; q = -3.33;
Graphics[{Inset[Rotate[z@#, #2 125 Degree], #3] & @@@ {{{b, a, b}, 1, {t, u}}, {{a, b, a}, 
1, {-t, -u}}, {{a, a, a}, -1, {-t, u}}, {{b, b, b}, -1, {t, -u}}},
  {o, d[{0, 0}, 12, {-.2 Pi, .8 Pi}], m, d[{0, 0}, 12, {.8 Pi, 1.8 Pi}], o, 
d[{v, -q}, 6], m, d[{-v, q}, 6]}}]

enter image description here

Mathematica 404 450

b=1&~Array~13;a=ReplacePart[b,7-> 0];d=Disk;r=RGBColor;
z@{q_,p_,s_}:=ArrayPlot[{q,q,{},p,p,{},s,s},Frame-> False,ImageSize-> 155];
m=r@@{0,.2,.5};
o=r@@{.8,0,.2};
t=-19.1;u=-12.75;v=-5;q=-3.33;
Graphics[{Line[{{-36,-24},{36,-24},{36,24},{-36,24},{-36,-24}}],
Inset[Rotate[z@#,#2 125 Degree],#3]&@@@{{{b,a,b},1,{t,u}},{{a,b,a},1,{-t,-u}}, 
{{a,a,a},-1,{-t,u}},{{b,b,b},-1,{t,-u}}},
{o,d[{0,0},12,{-.2 Pi,.8Pi}],m, d[{0,0},12,{.8Pi,1.8Pi}],o,d[{v,-q},6],m,d[{-v,q},6]}}]

flag

1
source | link

Mathematica 404

b = ConstantArray[1, 13]; a = ReplacePart[b, 7 -> 0]; d = Disk; r = RGBColor;
z@{q_, p_, s_} := ArrayPlot[{q, q, {}, p, p, {}, s, s}, Frame -> False, ImageSize -> 175];
m = r @@ {0, .2, .5};o = r @@ {.8, 0, .2};t = -19.1; u = -12.75; v = -5; q = -3.33;
Graphics[{Inset[Rotate[z@#, #2 125 Degree], #3] & @@@ {{{b, a, b}, 1, {t, u}}, {{a, b, a}, 
1, {-t, -u}}, {{a, a, a}, -1, {-t, u}}, {{b, b, b}, -1, {t, -u}}},
  {o, d[{0, 0}, 12, {-.2 Pi, .8 Pi}], m, d[{0, 0}, 12, {.8 Pi, 1.8 Pi}], o, 
d[{v, -q}, 6], m, d[{-v, q}, 6]}}]

enter image description here