raycast ( poly x -- ? )

Vocabulary

rosetta-code.raycasting

Inputs

poly	an object
x	an object

Outputs

?

an object

Definition

USING: kernel sequences ;

IN: rosetta-code.raycasting

: raycast ( poly x -- ? )
    [ dup first suffix [ rest-slice ] [ but-last-slice ] bi ]
    dip [ ray ] curry 2map f [ xor ] reduce ;