(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)
