Commit bfa9fc5c authored by Dave Cooper's avatar Dave Cooper
Browse files

spun out the hwassy-protect geom kernel stuff to internal Genworks GDL

parent 09e999a0
Loading
Loading
Loading
Loading
Loading
+9 −39
Original line number Diff line number Diff line
@@ -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)