We don't bite newbies here... much | |
PerlMonks |
tao degradationby dada (Chaplain) |
on Jun 27, 2003 at 13:54 UTC ( [id://269572]=CUFP: print w/replies, xml ) | Need Help?? |
just a little drawing program. nothing fancy (surely not good code either),
but something that at least entertained me for a little while, and a little
history of how it was born :-)
first of all, let's picture the situation.
some days ago, I was stuck in a meeting; you know, one of these
long-term-strategy-planning meetings.
there's always one point, in such meetings, when everybody around the table seems to be spreading nonsense (things like "this database can handle 10k simultaneous connection, guaranteed" or "it is necessary that we use XML to store our data", or even "let's write it in Java"). at that point I (as most others do, I tend to believe) started sketching something on the noteblock. the sheets had small square blocks, so I initially went with something geometric. after a while (and a lot of nonsense) I started drawing circles, and ended up playing with variations on the yin-yang theme (the tao circle, the tai chi, whatever you call it, I'm not a zen expert :-). for some strange reason, I came home with the idea of producing something more beautiful than my handmade version on paper. so I enumerated my possibilities:
1) buy a compass, some good paper and a marker. neither of these were satisfying and/or easy, so I decided for: 3) write a little program to draw this for me! and the choice was obvious. the morning after, the first thing I've done (in the first 20 minutes of just another boring workday) was tao.pl. I coded, I hacked, I ran it. I saw the result and it was good :-) here you find the latest (re)incarnation of my 20-minutes script, beautified just a little for your viewing pleasure. a "proof of concept" page showing the produced images is at http://dada.perl.it/tao.html.
update: removed some silliness (just realized that $x/($x/$y) is $y).
cheers, King of Laziness, Wizard of Impatience, Lord of Hubris
Back to
Cool Uses for Perl
|
|