%%HP: T(3)A(D)F(.);
@ by Matt Squires; improved by Preston Brown
DIR
  FACE  @ [Note: See NFACE for a new, improved clock face!  -jkh-]
GROB 63 63 000000CFF100000000000C380E1000000000830800E00000000060080003000000081000000C000000041000000410000002200000042000008120000002C0000040000000000100002000000000020000100000000004000800000000000800080000000000080004000000000000100200000000000020010000000000004003000000000000608C00000000000890800000000000008040000000000000014000000000000001400000000000000120000000000000022000000000000002200000000000000220000000000000021000000000000004100000000000000410000000000000041000000E300000041000000220000004F00000022000008710000002200000041000000E30000004100000000000000410000000000000041000000000000004200000000000000220000000000000022000000000000002200000000000000240000000000000014000000000000001400000000000000180000000000000808800000000000880070000000000007001000000000000400200000000000020040000000000001008000000000008000800000000000800001000000000040000200000000002000040000000000100008120000002C0000002200000042000000410000004100000081000000C000000006008000300000000830800E0000000000C380E100000000000CFF1000000
  MKFACE
    \<< RCLF -16 SF DEG -19 SF ERASE 'PPAR' PURGE
        (0,0) 3.1 0 360 ARC @ draw circle
        0 359 FOR d 2.8 d \->V2 3.1 d \->V2 LINE 30 STEP @ draw hour marks
        (-.2,-.2) (.2,.2) BOX PICT (-3.1,-3.1) (3.1,3.1) SUB 'FACE' STO STOF
    \>>
  CLOCK
    \<< RCLF -16 SF DEG -19 SF ERASE 'PPAR' PURGE
        PICT { # 22h # 1h } FACE GOR TIME HMS\-> \-> t
      \<< 1.55 t 12 MOD 30 * NEG 90 + \->V2 (0,0) OVER LINE @ draw hour hand
          DUP 2 \v/ / V\-> 30 + \->V2 SWAP OVER LINE @ \
          DUP V\-> 60 - \->V2 SWAP OVER LINE         @  > draw arrowhead
          DUP 2 \v/ * V\-> 30 + \->V2 LINE           @ /
          2.7 t FP 360 * NEG 90 + \->V2 (0,0) LINE @ draw minute hand
      \>> STOF 'PPAR' PURGE { # 0h # 0h } PVIEW 7 FREEZE
    \>>
END
