Fork me on GitHub
#clojure-art
<
2023-01-06
>
moe14:01:31

I put this in #C0VSY2FQ8, maybe this is the better place: I made this guy last week, based on Geilis's superformula + SVG path interpolation. It may run slowly on older computers https://moea.github.io/cromulator/ — it randomly cycles through the output space as constrained by the parameters, by tweening as dramatically as it can back and forth between two paths before transitioning to a third

🆒 4
🤯 2
moe14:01:29

It basically comes down to

(ns cromulator.geom
  (:require [cromulator.util
             :refer [pointwise both TAU cos sin pow]]))

(defn- sf-point [m1 m2 n1 n2 n3 a b phi]
  (let [xf (fn [f m exp] (-> m (* phi) (/ 4) f (/ a) abs (pow exp)))
        r  (pow (+ (xf cos m1 n2) (xf sin (or m2 m1) n3)) (/ 1 n1))]
    (if (zero? r)
      [0 0]
      (both * (/ 1 r) (cos phi) (sin phi)))))

(defn superformula-points [coords {m1 :m1 m2 :m2 n1 :n1 n2 :n2 n3 :n3 a :a b :b}
                           & [{res :resolution :or {res 1024}}]]
  (into []
    (comp
     (map (partial * (/ TAU res)))
     (map (partial sf-point m1 m2 n1 n2 n3 a b))
     (map (partial pointwise + coords)))
    (range (inc res))))

moe14:01:25

also been working on this guy