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$

closed as too broad by Michael E2, Kuba, Feyre, MarcoB, corey979 Dec 7 '16 at 15:39

Please edit the question to limit it to a specific problem with enough detail to identify an adequate answer. Avoid asking multiple distinct questions at once. See the How to Ask page for help clarifying this question. If this question can be reworded to fit the rules in the help center, please edit the question.

  • 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

$\endgroup$

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