3

In a previous post we saw how we can create animated snowfall. So, I was wandering what else, related to Christmas, we can do with Mathematica? Perhaps, drawing a tree full of ornaments and lights...

All ideas are welcome! I suppose it would be nice to have a post full of nice codes related to Christmas.

Community
  • 1
Vaggelis_Z
  • 8,740
  • 6
  • 34
  • 79
  • 2
    too broad There are either too many possible answers, or good answers would be too long for this format. Please add details to narrow the answer set or to isolate an issue that can be answered in a few paragraphs. – Mr.Wizard Dec 07 '16 at 14:23
  • 2
    We could try and create a fractal Christmas tree! – Mirko Aveta Dec 07 '16 at 14:35
  • 1
    @Mr.Wizard I agree. Would it be appropriate, or let's say acceptable, as a CW, big-list type Q&A? Maybe if it's closed as OT, it could be reopened as CW....Just random thoughts. – Michael E2 Dec 07 '16 at 14:41

1 Answers1

6

Nothing groundbreaking, but a quick composure of some graphics objects:

tree = Graphics[{Darker@Darker@Green, 
   Triangle[{{0, 1}, {4, 1}, {2, 6}}], Darker@Brown, 
   Rectangle[{1.7, 0}, {2.3, 1}], Yellow, 
   Rectangle[{.6, .25}, {1.5, .9}], Red, Rectangle[{0, 0}, {1, .75}], 
   Rectangle[{2.1, .2}, {3, .9}], Blue, 
   Rectangle[{1.2, -.1}, {2.2, .5}], Purple, 
   Rectangle[{2.7, 0}, {4, .7}], Yellow, 
   Point@RandomPoint[Triangle[{{0, 1}, {4, 1}, {2, 6}}], 80]}]

tree

ktm
  • 4,242
  • 20
  • 28