Commit 08b356b0 authored by Dave Cooper's avatar Dave Cooper
Browse files

updated fitted-surface example to not crash the manual

parent 46e50d25
......@@ -67,7 +67,8 @@ interpolating (going through) each of the points."
(make-point 5 4 1))))))
(define-object test-fitted-surface (fitted-surface)
(#+allegro excl:without-package-locks #-allegro progn
(define-object test-fitted-surface (fitted-surface)
((display-controls (list :color :green-spring :isos (list :n-v 19 :n-u 19)))
......@@ -127,7 +128,7 @@ interpolating (going through) each of the points."
(make-point (/ (the grid-width) 4) (the grid-length) 0)
(make-point (half (the grid-width)) (the grid-length) 0)
(make-point (* 3/4 (the grid-width)) (the grid-length) 0)
(make-point (the grid-width) (the grid-length) 0))))))
(make-point (the grid-width) (the grid-length) 0)))))))
(generate-sample-drawing :objects (make-object 'test-fitted-surface)
:projection-direction :trimetric)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment