hellerve/shinu
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bugfixes

Browse Source
This commit is contained in:
Veit Heller
2017-03-18 19:21:39 +01:00
parent 7d5a7e91fe
commit d95534c82e
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
shinu.lisp
View File

@@ -12,7 +12,7 @@
(list (rand) (rand) (rand) opacity)) (list (rand) (rand) (rand) opacity))
(defun randomized-linspace (begin end stp) (defun randomized-linspace (begin end stp)
(let ((rnd (round (* 0.1 stp)))) (let ((rnd (ceiling (* 0.1 stp))))
(map 'list (map 'list
(lambda (x) (+ x (- (random (* 2 rnd)) rnd))) (lambda (x) (+ x (- (random (* 2 rnd)) rnd)))
(linspace begin end stp)))) (linspace begin end stp))))

2
update.sh
View File

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