extra/gml/modeling/modeling.factor

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