extra/gml/modeling/modeling.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 USING: kernel sequences euler.modeling gml.runtime ;
   3 IN: gml.modeling
   4
   5 GML: poly2doubleface ( poly mode -- edge )
   6     {
   7         smooth-smooth
   8         sharp-smooth
   9         smooth-sharp
  10         sharp-sharp
  11         smooth-like-vertex
  12         sharp-like-vertex
  13         smooth-continue
  14         sharp-continue
  15     } nth polygon>double-face ;
  16
  17 GML: extrude-simple ( edge dist sharp -- edge ) extrude-simple ;
  18
  19 GML: bridgerings-simple ( e1 e2 sharp -- edge ) bridge-rings-simple ;
  20
  21 GML: project_ptline ( p p0 p1 -- q ) project-pt-line ;
  22
  23 GML: project_ptplane ( p dir n d -- q ) project-pt-plane ;
  24
  25 GML: project_polyplane ( [p] dir n d -- [q] ) project-poly-plane ;