surf:basic-surface fails on planar topology
Created by: reiniervandijk
Whenever the input curves of surf:basic-surface form a plane, the following error occurs:
!! This section threw error: #(0.0 0.0 0.0) has Euclidean length zero; cannot unitize. !!
Please replicate using:
(define-object basic-surface-test (base-object)
:computed-slots
((display-controls (list :color :orange)))
:objects
((curve-bottom :type 'linear-curve :start #(0.0 0.0 0.0) :end (translate (the-child :start) :right 3))
(curve-right :type 'linear-curve :start (the curve-bottom :end) :end (translate (the-child :start) :front 2))
(curve-top :type 'linear-curve :start (the curve-right :end) :end (translate (the-child :start) :left 2))
(curve-left :type 'linear-curve :start (the curve-top :end) :end (the curve-bottom :start))
(3d-curve :type 'fitted-curve :points (list (the curve-top :end) (translate (the curve-top :end) :up 1) (the curve-bottom :start)))
(issue :type 'basic-surface
:pass-down (curve-bottom curve-right curve-top curve-left))
(works :type 'basic-surface
:pass-down (curve-bottom curve-right curve-top)
:curve-left (the 3d-curve :reverse)) ;; <-- see next issue
)
)
Imported comments:
By genworks on 2015-01-30 23:19:27 UTC
moved to internal tracking list.