Helvetica Clock in Tao3D, packed version

import Animate
background_color "black"
color "white"
rotate_x -180*mouse_y/window_height
rotate_y 180*mouse_x/window_width
font "Arial",300
align 0.5
align_vertically 0.5
once
  H:=1.1*text_height "0"
  W:=1.1*text_width "0"
locally
  Idx:=0
  translate_x -2.5*W
  two_digits with hours,minutes,seconds
blend_function "DST_COLOR","ONE_MINUS_SRC_ALPHA"
color_hsv 2*time,0.3,0.5,0.7
rectangle 0,0,6.5*W,H
two_digits N:integer->digit_column with N/10,N mod 10
digit_column N:integer->
  locally
    adjust -N*H,curY[Idx]
    digit with 0..9
  translate_x W
  Idx:=Idx+1
digit N:integer->
  text_box 0,0,2*W,2*H,
    render N
  translate_y H
adjust TY:real,Y:real->
  interpolate 0.1,TY,Y
  translate_y Y
adjust TY:real,Other->
  curY[Idx]:=TY
  adjust TY,curY[Idx}
H->15.0
W->15.0
Idx->0
data curY