segmentation 11 error uv-curve from surface

[reiniervandijk]

When I tried to obtain a uv-curve from a surface object using one of the edges of its brep and passing the surface as the on-surface argument, I get a segmentation 11 error. Passing the brep's first face fixes the error, but the point is that segmentation 11 errors should never happen. Serious bug, I think. Perhaps test if SMLib returned curve is a null-curve or something. Try to replicate calling seg11 and no-seg11 below.

(in-package :gdl-user)

(define-object test-lofted-surface (base-object)

  :computed-slots
  ((curves (list (the curve-1) (the curve-2)))
   (seg11 (the lofted-surface brep (edges 2) (uv-curve (the lofted-surface)) :start))
   (no-seg11 (the lofted-surface brep (edges 2) (uv-curve (the lofted-surface brep (faces 0))) :start)))

  :objects
  ((lofted-surface :type 'lofted-surface
                   :curves (the curves))

   (curve-1 :type 'b-spline-curve
            :display-controls (list :color :red :line-thickness 3)
            :control-points (list (make-point 0 0 0)
                                  (make-point 1 1 0)
                                  (make-point 0 1 0)
                                  (make-point 0 0 0)))

   (curve-2 :type 'b-spline-curve
            :display-controls (list :color :red :line-thickness 3)
            :control-points (list (make-point 0 0 1)
                                  (make-point -1 1 1)
                                  (make-point 0 1 1)
                                  (make-point 0 0 1)))
   ))