     [:g {:transform (translate width 0)} (right-y-axis y2)]
     [:g {:transform (translate 0 height)} (bottom-x-axis x)]
     [:g (top-x-axis x-top)]
+    (dotted-line {:fill "yellow"
+                  :stroke "black"}
+                 (map (fn [d] [(x d) (y d)]) (range 0 100 10)))
     ]])

(def height 470)
(def margin {:top 50 :bottom 50 :left 60 :right 60})

(def y (scale-linear {:color "red" :domain [0 0.7] :range [height 0]}))
(def y2 (scale-linear {:color "blue" :domain [0 1.69] :range [height 0]}))
(def x (scale-linear {:color "green" :domain [0 100] :range [0 width]}))
(def x-top (scale-linear {:color "fuchsia" :domain [0 8] :range [0 width]}))

(defn diagram
  []

    :extends javafx.application.Application)
  (:require [hiccup.core :as hiccup]
            [digest :as digest]
            [clojure.string :as string]
            [clj-simple-chart.ticks :as ticks]
            )
  (:import (javafx.application Application Platform)
