choinka = 
      Graphics[{{RGBColor[1, 1/2, 1/8], 
            Rectangle[{-8, -24}, {8, 0}]}, {RGBColor[1/8, 1, 1/2], 
            Polygon[{{32, 0}, {48, 8}, {56, 16}, {24, 32}, {40, 40}, {48, 
                  48},  {16, 64}, {32, 72}, {40, 80}, {8, 96}, {-8, 
                  96}, {-40, 80}, {-32, 72}, {-16, 64}, {-48, 
                  48}, {-40, 40}, {-24, 32}, {-56, 16}, {-48, 
                  8}, {-32, 0}}]}, {RGBColor[1, 1, 1/2], 
            Polygon[{{8, 96}, {16, 100}, {8, 104}, {12, 112}, {4, 108}, {0, 
                  116}, {-4, 108}, {-12, 112}, {-8, 
                  104}, {-16, 100}, {-8, 96}, {-12, 88}, {-4, 
                  92}, {0, 84}, {4, 92}, {12, 
                  88}} ]} }]

jablko = 
      Graphics[{{RGBColor[1, 0, 0], 
Disk[{8, 80}, 4], 
            Disk[{12, 80}, 4], 
Disk[{-44, 12}, 4], 
            Disk[{-48, 12}, 4], 
Disk[{44, 12}, 4], 
            Disk[{48, 12}, 4], 
Disk[{8, 8}, 4], 
            Disk[{4, 8}, 4], 
Disk[{16, 26}, 4], 
            Disk[{20, 26}, 4], 
Disk[{-16, 26}, 4], 
            Disk[{-20, 26}, 4], 
Disk[{16, 56}, 4], 
            Disk[{20, 56}, 4], 
Disk[{-16, 56}, 4], 
            Disk[{-20, 56}, 
              4]}, 

{Polygon[{{19/2, 
                  82}, {19/2, 82}, {9, 84}, {11, 86}}], 
            Disk[{10, 76}, 
              2/3]}, 
{Polygon[{{-91/2, 
                  14}, {-91/2, 14}, { -45, 16}, {-47, 18}}], 
            Disk[{-46, 8}, 
              2/3]}, 
{Polygon[{{13/2, 10}, {13/2, 10}, { 
                  7, 12}, {5, 14}}], 
            Disk[{6, 4}, 
              2/3]}, 
{Polygon[{{37/2, 28}, {37/2, 28}, { 
                  19, 30}, {17, 30}}], 
            Disk[{18, 22}, 
              2/3], 
{Polygon[{{-37/2, 28}, {-37/2, 
                    28}, { -19, 30}, {-17, 30}}], 
              Disk[{-18, 22}, 
                2/3]}, 
{Polygon[{{91/2, 14}, {91/2, 
                    14}, { 45, 16}, {47, 18}}], 
              Disk[{46, 8}, 
                2/3]}}, 
{Polygon[{{-37/2, 
                  58}, {-37/2, 58}, { -19, 60}, {-17, 60}}], 
            Disk[{-18, 52}, 
              2/3]}, 
{Polygon[{{37/2, 58}, {37/2, 58}, { 
                  19, 60}, {17, 60}}], 
            Disk[{18, 52}, 
              2/3]}}]

bombka = 
      Graphics[{{RGBColor[1/9, 1/5, 
              1/3], 
Disk[{-10, 3}, 
              5], 
Disk[{-18, 40}, 
              5], 
Disk[{26, 50}, 
              5], 
Disk[{-24, 70}, 
              5], 
Disk[{22, 3}, 
              5], 
Disk[{24, 80}, 
              5], 
Disk[{-30, 20}, 
              5], 
Disk[{3, 70}, 
              5], 
Disk[{1, 30}, 
              5], }, 
{RGBColor[1/2, 1/3, 
              1/2], 
Disk[{-12, 3}, 
              2], 
Disk[{-20, 40}, 
              2], 
Disk[{24, 50}, 
              2], 
Disk[{-26, 70}, 
              2], 
Disk[{20, 3}, 
              2], 
Disk[{26, 80}, 
              2], 
Disk[{-32, 20}, 
              2], 
Disk[{5, 70}, 
              2], 
Disk[{3, 30}, 
              2], }}]

zolta = 
      Graphics[{RGBColor[1, 1, 1/3], 
Disk[{-10, 80}, 
            7], 
Disk[{1, 50}, 
            7], 
Disk[{-24, 5}, 
            7], 
Disk[{28, 14}, 
            7], 
Disk[{-36, 46}, 
            7]
},  {RGBColor[1, 1, 1],  
          Disk[{-12, 80}, 4]},  Disk[{12, 90}, 4]]

⁃  Graphics  ⁃

Show[choinka, jablko, zolta, 
      bombka,   AspectRatio -> Automatic]