Paste: calendar.swatch
Author: | vegai |
Mode: | factor |
Date: | Sun, 31 May 2009 20:00:52 |
Plain Text |
USING: arrays math.vectors math.functions math.parser make accessors kernel math calendar macros ;
IN: calendar.swatch
CONSTANT: beats/day 1000
: beats/hour
beats/day 24 / ;
: beats/minute
beats/hour 60 / ;
: beats/second
beats/minute 60 / ;
: beats-array
[ beats/hour , beats/minute , beats/second , ] { } make ;
: timestamp>swatch
[ hour>> beats/hour * ]
[ minute>> beats/minute * ]
[ second>> beats/second * ]
tri + + beats/hour + 1000 mod ;
: now-swatch
gmt timestamp>swatch ;
: now-swatch-str
now-swatch round number>string ;
Author: | randy |
Mode: | factor |
Date: | Sat, 31 Oct 2009 17:45:21 |
Plain Text |
: swatch>gmt
beats/hour -
1000 / 86400 * seconds [ gmt midnight ] dip time+ ;
: swatch>local-time
swatch>gmt >local-time ;
New Annotation