init-point ( n point -- n )

Vocabulary

benchmark.struct-arrays

Inputs

n	an object
point	an object

Outputs

n

an object

Definition

USING: accessors kernel math math.functions ;

IN: benchmark.struct-arrays

: init-point ( n point -- n )
    over >fixnum >float
    [ sin >>x ] [ cos 3 * >>y ] [ sin sq 2 / >>z ] tri drop 1 +
    ; inline