\(Module[{a, b, c, d, e}, 
      a = {1/2, \(-Sqrt[3]\)/2}; 
b = {\(-1\)/
            2, \(-Sqrt[3]\)/2}; 
p[n_, k_] := 
        n\ b + k \((a - b)\); 
c = 
        Table[Which[
            Mod[Binomial[n, k], 3] == 1, {RGBColor[1, \ 1, \ 0.50], 
              Disk[p[n, k], 1/3]}, 
            Mod[Binomial[n, k], 3] == 2, {RGBColor[1, \ 0.50, \ 0], 
              Disk[p[n, k], 1/3]}], {n, 0, 11}, {k, 0, 
            n}]; 

d = 
        Table[Which[
            Mod[Binomial[n, k], 4] == 1, {RGBColor[1, \ 1, \ 0.50], 
              Disk[p[n, k], 1/3]}, 
            Mod[Binomial[n, k], 4] == 2, {RGBColor[1, \ 0.50, \ 0], 
              Disk[p[n, k], 1/3]}, 
            Mod[Binomial[n, k], 4] == 3, {RGBColor[0, \ 0.87, \ 0.44], 
              Disk[p[n, k], 1/3]}], 
{n, 0, 11}, {k, 0, 
            n}]; 

e = 
        Table[Which[
            Mod[Binomial[n, k], 5] == 1, {RGBColor[1, \ 1, \ 0.50], 
              Disk[p[n, k], 1/3]}, 
            Mod[Binomial[n, k], 5] == 2, {RGBColor[1, \ 0.50, \ 0], 
              Disk[p[n, k], 1/3]}, 
            Mod[Binomial[n, k], 5] == 3, {RGBColor[0, \ 0.87, \ 0.44], 
              Disk[p[n, k], 1/3]}, 
            Mod[Binomial[n, k], 5] == 
              4, 
{RGBColor[1, \ 0.27, \ 0.27], 
              Disk[p[n, k], 1/3]}], 
{n, 0, 11}, {k, 0, 
            n}]; 

f = 
        Table[Which[
            Mod[Binomial[n, k], 6] == 1, {RGBColor[1, \ 1, \ 0.50], 
              Disk[p[n, k], 1/3]}, 
            Mod[Binomial[n, k], 6] == 2, {RGBColor[1, \ 0.50, \ 0], 
              Disk[p[n, k], 1/3]}, 
            Mod[Binomial[n, k], 6] == 3, {RGBColor[0, \ 0.87, \ 0.44], 
              Disk[p[n, k], 1/3]}, 
Mod[Binomial[n, k], 
                6] == 
              4, 
{RGBColor[1, \ 0.27, \ 0.27], 
              Disk[p[n, k], 1/3]}, 
Mod[Binomial[n, k], 
                6] == 
              5, 
{RGBColor[0.50, \ 0.50, \ 1], 
              Disk[p[n, k], 1/3]}], 
{n, 0, 11}, {k, 0, 
            n}]; 

options = {AspectRatio -> 3\/2, PlotRange -> {{\(-15\), 15}, {\(-15\), 5}}}; 

      Needs["Geometry`Rotations`"]; 

 (*空*) 
sky1 = {RGBColor[0.95 - 56  t, \ 0.65 - 22  t, \ 0.49 + 46  t], 
          Polygon[{{\(-15\), \(-13\)}, {\(-15\), 5}, {15, 
                5}, {15, \(-13\)}}]}; 

sky2 = {RGBColor[0.67 - 78  t, \ 
            0.54 - 84  t, \ 0.72 - 50  t], 
          Polygon[{{\(-15\), \(-13\)}, {\(-15\), 5}, {15, 
                5}, {15, \(-13\)}}]}; 

sky3 = {RGBColor[0.28, \ 0.12, \ 
            0.47], 
Polygon[{{\(-15\), \(-13\)}, {\(-15\), 
                5}, {15, 
                5}, {15, \(-13\)}}]}; 

 (*雪*) 
yuki1 = {RGBColor[0.99 - 22  t, \ 
            0.92 - 14  t, \ 
            0.88 + 8  
                t], 
Polygon[{{\(-15\), \(-15\)}, {\(-15\), \(-13\)}, {10, \(-13\)}, {10, \(-8\)}, {15, \(-8\)}, {15, \(-15\)}}]}; 

yuki2 = {RGBColor[0.88 - 38  t, \ 
            0.85 - 40  t, \ 
            0.92 - 22  
                t], 
Polygon[{{\(-15\), \(-15\)}, {\(-15\), \(-13\)}, {10, \(-13\)}, {10, \(-8\)}, {15, \(-8\)}, {15, \(-15\)}}]}; 

yuki3 = {RGBColor[0.69, \ 0.65, \ 
            0.81], 
Polygon[{{\(-15\), \(-15\)}, {\(-15\), \(-13\)}, {10, \(-13\)}, {10, \(-8\)}, {15, \(-8\)}, {15, \(-15\)}}]}; 

 (*\(ツリ\)\(-\)*) 
tree1 = {{RGBColor[0.68 - 46  t, \ 0.71 - 12  t, \ 
              0.24 - 16  t], 
            Polygon[{{\(-6\), \(-10\)}, {0, 
                  0}, {6, \(-10\)}}]}, 
{RGBColor[
              0.82 - 22  t, \ 0.71 - 22  t, \ 0.45 - 18  t], 
            Polygon[{{\(-1.5\), \(-13\)}, {\(-1.5\), \(-10\)}, {1.5, \(-10\)}, {1.5, \(-13\)}}]}

}; 

tree2 = {RGBColor[0.45 - 62  t, \ 
            0.65 - 32  t, \ 0.16 + 12  t], 
          Polygon[{{\(-6\), \(-10\)}, {0, 
                0}, {6, \(-10\)}}], 
{RGBColor[
              0.71 - 18  t, \ 0.60 - 22  t, \ 0.36 - 18  t], 
            Polygon[{{\(-1.5\), \(-13\)}, {\(-1.5\), \(-10\)}, {1.5, \(-10\)}, {1.5, \(-13\)}}]}
}; 

tree3 = {RGBColor[0.14, \ 0.49, \ 0.22], 
          Polygon[{{\(-6\), \(-10\)}, {0, 
                0}, {6, \(-10\)}}], 
{RGBColor[0.53, \ 
              0.44, \ 0.22], 
            Polygon[{{\(-1.5\), \(-13\)}, {\(-1.5\), \(-10\)}, {1.5, \(-10\)}, {1.5, \(-13\)}}]}
}; 


Do[
          Show[Graphics[{sky1, yuki1, tree1, c}]], {t, 0, 0.004, 
            0.0005}]
Do[
          Show[Graphics[{sky2, yuki2, tree2, d}]], {t, 0, 0.004, 
            0.0005}]
Do[
          Show[Graphics[{sky3, yuki3, tree3, e}]], {t, 0, 0.004, 
            0.0005}]

]\)