segmentation 11 error uv-curve from surface
Created by: 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)))
))