1442 Rothko 0

(ns seni.sketch-1442
  (:require #+clj  [seni.render :as r]
            #+cljs [seni.render :as r :include-macros true]
            [seni.bezier :as b]
            [seni.colour :as c]
            [seni.toolbox :as t]))

(def width 720)
(def height 720)

(defn setup []
  (r/smooth)
  (r/colour-mode :rgb)
  (r/frame-rate 10)
  (r/stroke 255 0 0)
  (r/stroke-weight 0))

(defn draw [state]
  (r/push-matrix)
  (r/scale (/ width 1000) (/ height 1000))

  (r/background-float 0)
  (t/wash :colour (c/rgb :r 0.15 :g 0.1 :b 0.2 :alpha 0.1))

  (b/render-bezier-bezier-rect :x 120 :y 700
                               :width 760 :height 200
                               :col-volatility 1
                               :col (c/rgb :r 0.15 :g 0.1 :b 0.2 :alpha 0.3)
                               :volatility 20
                               :iterations 10
                               :seed 42
                               :overlap 2.0)

  (b/render-bezier-bezier-rect :x 100 :y 100
                               :width 800 :height 600
                               :col-volatility 30
                               :col (c/rgb :r 0.8 :g 0.0 :b 0.0 :alpha 0.3)
                               :volatility 30
                               :iterations 10
                               :seed 40
                               :overlap 0.0)

  (r/pop-matrix))

(r/defsketch-old sketch-1442
  :title "bezier bezier"
  :size [width height]
  :setup setup
  :draw draw)