26 lines
692 B
Factor
26 lines
692 B
Factor
! Copyright (C) 2010 Slava Pestov.
|
|
USING: kernel sequences euler.modeling gml.runtime ;
|
|
IN: gml.modeling
|
|
|
|
GML: poly2doubleface ( poly mode -- edge )
|
|
{
|
|
smooth-smooth
|
|
sharp-smooth
|
|
smooth-sharp
|
|
sharp-sharp
|
|
smooth-like-vertex
|
|
sharp-like-vertex
|
|
smooth-continue
|
|
sharp-continue
|
|
} nth polygon>double-face ;
|
|
|
|
GML: extrude-simple ( edge dist sharp -- edge ) extrude-simple ;
|
|
|
|
GML: bridgerings-simple ( e1 e2 sharp -- edge ) bridge-rings-simple ;
|
|
|
|
GML: project_ptline ( p p0 p1 -- q ) project-pt-line ;
|
|
|
|
GML: project_ptplane ( p dir n d -- q ) project-pt-plane ;
|
|
|
|
GML: project_polyplane ( [p] dir n d -- [q] ) project-poly-plane ;
|