bugfixes

2017-03-18 19:21:39 +01:00
parent 7d5a7e91fe
commit d95534c82e
2 changed files with 5 additions and 3 deletions
--- a/shinu.lisp
+++ b/shinu.lisp
@@ -12,7 +12,7 @@
  (list (rand) (rand) (rand) opacity))

 (defun randomized-linspace (begin end stp)
-  (let ((rnd (round (* 0.1 stp))))
+  (let ((rnd (ceiling (* 0.1 stp))))
    (map 'list
         (lambda (x) (+ x (- (random (* 2 rnd)) rnd)))
         (linspace begin end stp))))