(ns fern (:require [incanter.core :refer [$=]]) (:require [quil.core :refer :all])) (def ^:dynamic *width* 500) (def ^:dynamic *height* 500) (defn W1x [x y] ($= 0.836 * x + 0.044 * y)) (defn W1y [x y] ($= -0.044 * x + 0.836 * y + 0.169)) (defn W2x [x y] ($= -0.141 * x + 0.302 * y)) (defn W2y [x y] ($= 0.302 * x + 0.141 * y + 0.127)) (defn W3x [x y] ($= 0.141 * x - 0.302 * y)) (defn W3y [x y] ($= 0