Loading surf/source/brep.lisp +9 −39 Original line number Diff line number Diff line Loading @@ -366,45 +366,15 @@ of this brep. Exact supported format will be documented here when ready." ;; (local-box (the bounding-box)) (%native-faces% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-faces-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-edges% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-edges-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-regions% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-regions-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-shells% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-shells-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-vertices% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-vertices-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-faces% (get-faces-from-brep *geometry-kernel* (the %native-brep%))) (%native-edges% (get-edges-from-brep *geometry-kernel* (the %native-brep%))) (%native-regions% (get-regions-from-brep *geometry-kernel* (the %native-brep%))) (%native-shells% (get-shells-from-brep *geometry-kernel* (the %native-brep%))) (%native-vertices% (get-vertices-from-brep *geometry-kernel* (the %native-brep%))) (faces-ht (let ((ht (make-hash-table :size (the faces number-of-elements)))) (dolist (face (list-elements (the faces)) ht) Loading Loading
surf/source/brep.lisp +9 −39 Original line number Diff line number Diff line Loading @@ -366,45 +366,15 @@ of this brep. Exact supported format will be documented here when ready." ;; (local-box (the bounding-box)) (%native-faces% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-faces-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-edges% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-edges-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-regions% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-regions-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-shells% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-shells-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-vertices% (progn (assert (not (smlib::null-pointer-p (the %native-brep%)))) (let ((candidates (get-vertices-from-brep *geometry-kernel* (the %native-brep%)))) (mapc #'(lambda(candidate)(assert (not (smlib::null-pointer-p candidate)))) candidates) candidates))) (%native-faces% (get-faces-from-brep *geometry-kernel* (the %native-brep%))) (%native-edges% (get-edges-from-brep *geometry-kernel* (the %native-brep%))) (%native-regions% (get-regions-from-brep *geometry-kernel* (the %native-brep%))) (%native-shells% (get-shells-from-brep *geometry-kernel* (the %native-brep%))) (%native-vertices% (get-vertices-from-brep *geometry-kernel* (the %native-brep%))) (faces-ht (let ((ht (make-hash-table :size (the faces number-of-elements)))) (dolist (face (list-elements (the faces)) ht) Loading