bugfixes

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))))

update.sh

@@ -1,3 +1,5 @@
 /usr/local/bin/sbcl --script shinu.lisp
-/usr/local/bin/python3 tweet.py
-mv shinu.png out/`date +"%T"`.png
+if [ $? -eq 0 ]; then
+  /usr/local/bin/python3 tweet.py
+  mv shinu.png out/`date +"%T"`.png
+fi