incanterの描画を1秒置きに更新していくコード

gistfile1.clj

(use '(incanter core stats charts))
(def min-val 1)
(def max-val 10)

(def x (view (function-plot sin min-val max-val)))

(for [i (range 100)]
     (let [chart-before (function-plot sin min-val max-val)
	   chart-after (function-plot log min-val max-val)]
       (.setContentPane x (org.jfree.chart.ChartPanel. (rand-nth [chart-before chart-after])))
       (.setVisible x true)
       (System/gc)
       (Thread/sleep 1000)))