3
$\begingroup$

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.

$\endgroup$
  • 2
    $\begingroup$ 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. $\endgroup$ – Mr.Wizard Dec 7 '16 at 14:23
  • 2
    $\begingroup$ We could try and create a fractal Christmas tree! $\endgroup$ – Mirko Aveta Dec 7 '16 at 14:35
  • 1
    $\begingroup$ @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. $\endgroup$ – Michael E2 Dec 7 '16 at 14:41
6
$\begingroup$

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

| improve this answer | |
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.