 
 (defn- panel [chart]
   (doto (ChartPanel. chart)
+    (.setMaximumDrawWidth 1600)
     (.setMouseWheelEnabled true)))
 
 (defn- add-charts [frame datasets]

(defn- frame [title & datasets]
  (doto (ApplicationFrame. title)
    (add-charts datasets)
    (.pack)
    (.setVisible true)))

(defn- ->Function2D [f]

(ns evolution-programs.chart
  (:require [evolution-programs.population-statistic :as stat])
  (:import [javax.swing BoxLayout JFrame]
           [org.jfree.chart ChartFactory ChartPanel StandardChartTheme]
           [org.jfree.data.category CategoryDataset DefaultCategoryDataset]
           [org.jfree.data.function Function2D]
