diff --git a/contrib/demos/demos.lisp b/contrib/demos/demos.lisp index 4fad384778d16c7fd91f0677863ce60582bae94c..b1fd6771ec1a10fbeb68fdfc54cfb4acee08e42d 100644 --- a/contrib/demos/demos.lisp +++ b/contrib/demos/demos.lisp @@ -293,7 +293,7 @@ (xlib:draw-rectangle window draw-gcontext x y w h t) (xlib:draw-arc window draw-gcontext - x y w h 0 6.4 t))) + x y w h 0 (* 2 pi) t))) (let ((p1-x (+ border-x (random (- width (* 2 border-x))))) (p1-y (+ border-y