characteristic ( b-rep -- n )


Vocabulary
euler.b-rep

Inputs
b-repan object


Outputs
nan object


Definition
USING: accessors kernel math sequences ;

IN: euler.b-rep

: characteristic ( b-rep -- n )
[ vertices>> length ] [ edges>> length 2 / ]
[ faces>> [ base-face? ] count ] tri [ - ] dip + ;