         bp))))
 
 (defn draw-on-canvas
-  ""
+  "Render BinPixels to canvas."
   [canvas ^BinPixels bp]
   (p/set-canvas-pixels canvas (p/to-pixels bp
                                            (Vec4. 8 10 15 255)

  (defmethod key-pressed ["Harmonograph" \space] [_]
    (save-canvas canvas (next-filename "results/ex32/" ".png")))

  (println (:n3 config))
  
  ;; first run
  (let [bp (iterate-harmonograph first-step 0.0 run? config)]

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

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