 (def ^:const ^int hheight (int (/ height 2)))
 (def r (mapv #(* 1.05 ^int %) [(- hwidth) hwidth (- hheight) hheight]))
 (def ^:const ^double step 0.00451234) ;; time step
-(def ^:const ^int first-step 200000)
+(def ^:const ^int first-step 500000)
 (def ^:const ^int steps-per-task 1000000)
 
 (defn unit-fn ^double [_ _] 1.0)
 
 (defn make-jnoise
-  ""
+  "Create own version of joise noise (only simplex based, no cells)"
   []
   (j/make-noise (j/make-fractal {:type (rand-nth (keys j/fractal-type))
                                  :lacunarity (r/drand 1.0 3.0)

                                (dampstepsy (int (m/norm (m/qsin (+ time p4)) -1.0 1.1 0.0 dampyc))))              

              x (* dampx (+ (* a1 s3)
                            (* a2 s1 (* ^double (n2 (* time prevx nscalex1) (* prevy nscaley1))
                                        ^double (n1 s1 (* prevx prevy))))))
              s4 (m/sin (+ (* time f4)
                           (* m/TWO_PI ^double (n4 (* x nscaley2) p4))
                           p4))
              y (* dampy (+ (* a3 s2 ^double (n3 (* prevx nscalex2) (+ time (* prevy nscaley2))))
                            (* a4 s4)))
              
              ^Vec4 col1 (v/interpolate c1 c2 (m/abs (* s1 s2)))

        freqs (map #(/ (double %) m/TWO_PI) (range (- rngs) rngs (r/irand 1 6)))
        ^double a1 (r/drand hwidth)
        a2 (r/drand (- hwidth a1))
        ^double a3 (r/drand hheight)
        a4 (- hheight a3)
        n [(make-jnoise) (make-jnoise) j/perlin-noise j/perlin-noise r/noise r/noise r/noise]
        palseq (filter #(> (c/get-luma (first %)) 100) (repeatedly #(:palette (g/color-reducer-machine))))
        pal1 (first palseq)
        pal2 (second palseq)
        c1 (first pal1)
        c2 (rand-nth pal1)
        c3 (first pal2)
        c4 (rand-nth pal2)]
    {:f1 (rand-nth freqs)
     :f2 (rand-nth freqs)
