*

: ^2 dup * ;
: _x x .5 - ;
: _y y .5 - ;
: x _x _y atan2 t sin 1.21 * + pi 2 / + .25 * ;
: y _x ^2 _y ^2 + sqrt t cos 10 / + .2 - ;

y .000 >
y .16 < and

: pc x 32 * floor
dup 1 + 9 / floor -
;
: pr y 32 * floor ;
: printrow 2 pc pow / floor 2 mod ;
: data
0 swap
dup 0 = 31599 * 0 z+
dup 1 = 18724 * 0 z+
dup 2 = 31183 * 0 z+
dup 3 = 31207 * 0 z+
dup 4 = 23524 * 0 z+
dup 6 = 29679 * 0 z+
dup 7 = 31012 * 0 z+
dup 8 = 31727 * 0 z+
dup 9 = 31719 * 0 z+
5 = 29671 * +
8 rot pow / floor 8 mod
;
pr t 10 mod floor data
16 * pr t 10 / 6 mod floor data +
16 * pr t 60 / 10 mod floor data +
16 * pr t 600 / 6 mod floor data +
16 * pr t 3600 / 10 mod floor data +
16 * pr t 36000 / 10 mod floor data +
printrow

Possibly based on: Circular Clock - snail


comments powered by Disqus