fractional-year ( timestamp -- radians )

Vocabulary

calendar.private

Inputs

timestamp

an object

Outputs

radians

an object

Definition

USING: accessors calendar kernel math math.constants ;

IN: calendar.private

: fractional-year ( timestamp -- radians )
    [ days-in-year 2pi swap / ] [ day-of-year 1 - ]
    [ hour>> 12 - 24 / + * ] tri ;