get-ray-collision-model ( ray model -- ray-collision )

Vocabulary

raylib

Inputs

ray	a Ray
model	a Model

Outputs

ray-collision

a RayCollision

Definition

USING: accessors classes.struct kernel math sequences ;

IN: raylib

:: get-ray-collision-model ( ray model -- ray-collision )
    RayCollision <struct> :> nearest! model meshes>> [| mesh |
        ray mesh model transform>> get-ray-collision-mesh
        :> collision collision hit>> [
            nearest hit>>
            [ collision distance>> nearest distance>> < ] [ t ]
            if [ collision nearest! ] when
        ] when
    ] each nearest ;