(ns seni.sketch-1436
#+clj
(:require [seni.render :as r]
[seni.math :as m]
[seni.movement :as mv])
#+cljs
(:require [seni.render :as r :include-macros true]
[seni.math :as m]
[seni.movement :as mv]))
(def width 500)
(def height 500)
(def line-width 5)
(defn setup []
(r/smooth)
(r/colour-mode :rgb)
(r/no-loop)
(r/stroke-weight line-width))
(defn draw [state]
(r/background 0)
(let [rd (mv/make-random)]
(doseq [i (range width)]
(let [m (mv/advance rd)
grey (* m 255)]
(r/stroke grey grey grey)
(r/line i 0 (* width (mv/advance rd)) height)))))
(r/defsketch sketch-1436
:title "re-implementing art.a1219-random"
:size [width height]
:features [:keep-on-top]
:setup setup
:draw draw)
