max-point ( point1 point2 -- point1 )

Vocabulary

benchmark.struct-arrays

Inputs

point1	an object
point2	an object

Outputs

point1

an object

Definition

USING: accessors math.order ;

IN: benchmark.struct-arrays

: max-point ( point1 point2 -- point1 )
    [ x>> max ] [ y>> max ] [ z>> max ] change-xyz ; inline