First pass at subdivision surfaces

kaveh808 · Sep 6, 2023 · 4d9019b · 4d9019b
1 parent a6a3d25
commit 4d9019b
Show file tree

Hide file tree

Showing 5 changed files with 498 additions and 0 deletions.
diff --git a/kons-9.asd b/kons-9.asd
@@ -102,6 +102,7 @@
    (:file "src/plugins/growth")
    (:file "src/plugins/sprite")
    (:file "src/plugins/poly-mesh")
+   (:file "src/plugins/subdiv-mesh")
    (:file "src/plugins/usd")
    (:file "src/plugins/obj")
    (:file "src/plugins/stl")

diff --git a/src/kernel/polyhedron.lisp b/src/kernel/polyhedron.lisp
@@ -118,6 +118,9 @@
     (setf (aref (point-normals polyh) n)
           (p:normalize (aref (point-normals polyh) n)))))
 
+(defmethod faces-num-points-refs ((polyh polyhedron))
+  (reduce #'+ (faces polyh) :key #'length))
+
 (defmethod face-points-list ((polyh polyhedron) (i integer))
   (mapcar (lambda (pref) (aref (points polyh) pref))
           (aref (faces polyh) i)))

diff --git a/src/plugins/poly-mesh.lisp b/src/plugins/poly-mesh.lisp
@@ -4,6 +4,8 @@
 
 ;;; half edge data structures for topological operations on meshes
 ;;; http://what-when-how.com/advanced-methods-in-computer-graphics/mesh-processing-advanced-methods-in-computer-graphics-part-2/
+;;;
+;;; https://onrendering.com/data/papers/catmark/HalfedgeCatmullClark.pdf
 
 (defclass pm-vertex ()
   ((point :accessor point :initarg :point :initform (p! 0 0 0))