Result of a few hours hacking and requesting for hints and mathematics to some people.

#!/usr/bin/perl

       $d=`date +%l:%M`;chomp($d);($h,$m)=
split(/:/,$d); $h=0 if $h==12;$h=($h*30)+180; $h-=
360 if $h>360;$m = ($m*6)+180;$m-=360 if $m>360;@o
=([' ',                                   ' ',' ',
' ',' '                                   ,' ',' '
  , ' '                  ,                ' ',' ',
' ',' '                ,' '               ,' ','|'
],[' ',                ' ',               ' ',' ',
' ',' '                ,' '               ,' ',' '
, ' ' ,                ' ',               ' ',' ',
' ','|'                ], [               ' ',' ',
' ',' '                ,' '               ,' ',' '
, ' ' ,                ' ',               ' ',' ',
' ',' '                ,' '               ,'|'] ,[
' ',' '                ,' ',              ' ',' ',
' ',' '                 ,' '              ,' ',' '
, ' ' ,                  ' ',             ' ',' ',
'|'] ,[                    ' ',           ' ',' ',
' ',' '                     ,' '          ,' ',' '
, ' ' ,                      ' ',         ' ',' ',
' ',' '                       ,'|'        ], [' ',
' ',' '                         ,' '      ,' ',' '
, ' ' ,                           ' ',    ' ',' ',
' ',' '                                   ,' ',' '
,'|'],[                                   ' ',' ',
' ',' '                                   ,' ',' '
,' ',' '                                  ,' ',' '
,' ',' ',' ',' ','|'],[' ',' ',' ',' ',' ',' ',' '
,' ',' ',' ',' ',' ',' ',' ','|'],[' ',' ',' ',' '
,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','|'],[' '
,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ' ,
' ','|'],[' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ','|'],[' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ','|'],[' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','|'],[' ',
' ',' ',' ',' ',' ',' ',' ',' ', ' ', ' ',' ',' ',
' ','|'],[' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ','|'],[' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ','|'],[' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','|']); sub
dl {$l=$_[2]; while($l-- > 1){$o[int($_[0]+($l*cos
($_[3])))][int($_[1]+($l*sin($_[3])))]=$_[4];}}sub
cc {@c=('|','/','-','\\','|','/','-','\\'); return
$c[int((abs($_[0])+22.5)/45)];}dl(7,7,5,-(($h/180)
*3.1415),&cc(-$h));dl(7,7,7,-(($m/180)*3.1415),&cc
(-$m));sub pm {print "-"x29,"\n"; for($z=0;$z<$#o;
$z++){print "@{$o[$z]}\n";}print "="x29,"\n";}&pm;
      print "      ---> $d <---       \n";

# Analog Obfuscated Clock
# by Gilberto "Velenux" Ficara, March 2004
#
# Thanks to Cyberbrown, Javanx, lu_zero, gmax
# and noteof for useful hints, algorithms and 
# supplying to me the mathematics I lack
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.