parse-face-index ( token vertices -- index )

Vocabulary

euler.b-rep.io.obj.private

Inputs

token	an object
vertices	an object

Outputs

index

an object

Definition

USING: kernel math math.parser sequences splitting ;

IN: euler.b-rep.io.obj.private

: parse-face-index ( token vertices -- index )
    swap "/" split1 drop string>number dup 0 >=
    [ nip 1 - ] [ [ length ] dip + ] if ;