*

( WTF ? fixed at 2014-02-03
first version created at win64
this version fixed at win32
)
: xy x 0.5 - y 0.5 - ;
: ang xy atan2 pi / 1 + 2 / .5 + 1 mod ;
: second t 60 mod floor 60 / ;
: minute t 60 / 60 mod floor 60 / ;
: hour t 60 / 60 / 12 mod 12 / ;
: incircle xy dup * swap dup * + .14 < * ;
: hand ang - abs 0.005 < incircle ;

: rr xy 2 ** swap 2 ** + sqrt ;

: ticks
xy rr dup .39 > swap .43 < * >r atan2 6 * 1.4 + sin abs 200 ** 1.0 / r> * +
;

: circle rr dup
.47 - abs 64 * -2 ** * + ;

: pimpka rr 1.02 - abs 200 ** 2 / max ;

: decor hand ticks circle pimpka ;

second decor
minute decor
hour decor

Possibly based on: Clock Redux from BradN - DarkstarAG


comments powered by Disqus