(defmodule histogram
  (export all))

;;; Original example:
;;; * https://gnuplot.sourceforge.net/demo_5.2/histograms.2.gnu
(defun opts ()
 #m(title "US immigration from Northern Europe\nPlot selected data columns as histogram of clustered boxes"
    style "fill solid 1.00 border lt -1"
    boxwidth "0.9 absolute"
    key "fixed right top vertical Right noreverse noenhanced autotitle nobox"
    style "increment default"
    style "histogram clustered gap 1 title textcolor lt -1"
    datafile "missing '-'"
    style "data histograms"
    xtics "border in scale 0,0 nomirror rotate by -45  autojustify"
    xtics "norangelimit"
    xtics  "()"
    xrange "[ * : * ] noreverse writeback"
    x2range "[ * : * ] noreverse writeback"
    yrange "[ 0.00000 : 300000.0 ] noreverse nowriteback"
    y2range "[ * : * ] noreverse writeback"
    zrange "[ * : * ] noreverse writeback"
    cbrange "[ * : * ] noreverse writeback"
    rrange "[ * : * ] noreverse writeback"))

(defun plot ()
  "'examples/immigration.dat' using 6:xtic(1) ti col, '' u 12 ti col, '' u 13 ti col, '' u 14 ti col")