it tweets

.gitignore

@@ -0,0 +1,3 @@
+config.py
+*.pyc
+死ぬ.png

shinu.lisp

@@ -3,8 +3,8 @@
 
 (setf *random-state* (make-random-state t))
 
-(defvar *file* "out~a.png")
+(defvar *file* "死ぬ.png")
-(defvar *size* 1000)
+(defvar *size* (+ 500 (random 2000)))
 
 (defmacro rand () `(random 1.0))
 
@@ -13,20 +13,20 @@
 
 (defun main ()
   (let* ((mid (* *size* .5))
-         (repeat (random 25))
+         (repeat (random 10))
+         (offset (random 100))
          (grains (random 10))
          (itt    (random 2000))
          (bg     (rand-rgba 1.0))
          (active (rand-rgba 0.6))
          (sand   (sandpaint* *size* :active active :bg bg)))
-    (loop for i in (linspace 100 900 repeat)
+    (loop for i in (linspace 100 (- *size* 100) repeat)
-          for j from (- repeat 5) to repeat do
+          for j from offset to (+ offset repeat) do
-      (format t "~a/~a (~a)~%" j repeat (* 1.0 (/ j repeat)))
       (let ((snk (snek*))
             (va (list 0 0))
             (vb (list 0 0))
-            (p1 (list 100 i))
+            (p1 (list (random 100) i))
-            (p2 (list 900 i)))
+            (p2 (list (random (- *size* 100)) i)))
 
         (loop for k from 1 to itt do
           (let ((v1 (insert-vert (l-on-line k itt p1 p2) into snk))
@@ -41,7 +41,8 @@
               (join-verts v1 v2))
 
             (sandpaint-edges sand snk grains)
-            (sandpaint-verts sand snk)
+            (sandpaint-verts sand snk)))))
-            (sandpaint-save sand (format nil *file* j))))))))
+
+    (sandpaint-save sand *file*)))
 
 (main)

tweet.py

@@ -0,0 +1,10 @@
+# -*- coding: utf-8 -*-
+import twitter
+import config
+
+api = twitter.Api(consumer_key=config.consumer_key,
+                  consumer_secret=config.consumer_secret,
+                  access_token_key=config.access_token_key,
+                  access_token_secret=config.access_token_secret)
+
+api.PostUpdate("", media=u"死ぬ.png")

update.sh

@@ -0,0 +1,2 @@
+sbcl --script shinu.lisp
+python tweet.py