Starting November 9th, common-lisp.net's Gitlab instance has implemented a more open account policy, allowing anyone with a GitHub or Google account to create an account on our instance.

At the same time, the login policy has started to require 2-factor authentication (2FA).

See https://mailman.common-lisp.net/pipermail/clo-devel/2018-October/001232.html for discussion.

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

updated fitted-surface example to not crash the manual

parent 46e50d25
...@@ -67,7 +67,8 @@ interpolating (going through) each of the points." ...@@ -67,7 +67,8 @@ interpolating (going through) each of the points."
(make-point 5 4 1)))))) (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)
:input-slots :input-slots
((display-controls (list :color :green-spring :isos (list :n-v 19 :n-u 19))) ((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." ...@@ -127,7 +128,7 @@ interpolating (going through) each of the points."
(make-point (/ (the grid-width) 4) (the grid-length) 0) (make-point (/ (the grid-width) 4) (the grid-length) 0)
(make-point (half (the grid-width)) (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 (* 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) (generate-sample-drawing :objects (make-object 'test-fitted-surface)
:projection-direction :trimetric) :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