diff --git a/geom-base/drawing/source/base-view.lisp b/geom-base/drawing/source/base-view.lisp index 24b477b380856d11eb040190b391ef05119a5ed5..3aeb0c5f07066be90f5f399dcb2b574c95707b9a 100755 --- a/geom-base/drawing/source/base-view.lisp +++ b/geom-base/drawing/source/base-view.lisp @@ -447,7 +447,9 @@ the box should be facing. Defaults to *nominal-y-vector*." ;; (curves-2d - (when (typep (the object) 'surf:curve) + (when (and (typep (the object) 'surf:curve) + (not (or (typep (the object) 'surf:arc-curve) + (typep (the object) 'surf:linear-curve)))) (let ((control-points (the object control-points)) (weights (the object weights)) (knot-vector (the object knot-vector))