From 8daf6535e7cbc53240ea1a5a35b310a74ca24530 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 2 Apr 2004 04:15:28 +0000 Subject: [PATCH] Fix typo: 6.4 should be (* pi 2) From Fred Gilham, via cmucl-imp, 2004-04-01 --- contrib/demos/demos.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/demos/demos.lisp b/contrib/demos/demos.lisp index 4fad38477..b1fd6771e 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 -- GitLab