Continuing the AnalogMachine saga, here is "PerpetualCalendar." Following a calendar suggestion from rkaerner (code mostly based upon NetVU) I got to choose the metaphor of a perpetual calendar similar to the ones frequently found on chronographs.
The moon phase perl code (under scripts/) is NOT my own, but rather slightly adapted from the Astro::MoonPhase package available at CPAN.org to work as a stand-alone perl script.
Month: full-circle step-rotating needle from Jan to Dec
Day of month: full-circle step-rotating needle 1-31 (will jump from 30 or 28 directly to 1 when appropriate)
Day of Week: arc step-rotating needle from Sun to Sat.
Moon phase: continuously-rotating, counter-clockwise disc with graphical phases: new moon, waxing crescent, waxing half, waxing gibbous, full moon, waning gibbous, waning half, waning crescent.