lib/dither.proto

   1 (def dither ()
   2   (letfed ((s 0 (min 25 (abs (+ s (rnd -1 1)))))
   3            (a (norm 1 (tup (rnd -1 1) (rnd -1 1) (rnd -1 1)))
   4               (norm 1 (+ a (tup (rnd -0.1 0.1) (rnd -0.1 0.1) (rnd -0.1 0.1))))))
   5     (* s a)))
   6
   7 ;; (def dither ()
   8 ;; (polar-to-rect
   9 ;; ;;  (let ((s (rnd -1 1)) (a (rnd -0.25 0.25)))
  10 ;; ;;    (tup s a))
  11 ;; ;;  (letfed ((s 0 (abs (+ s (rnd -0.25 0.25))))
  12 ;;   (letfed ((s 0 (min 25 (abs (+ s (rnd -1 1)))))
  13 ;;            (a (rnd (neg (pi)) (pi)) (+ a (rnd -0.1 0.1))))
  14 ;;      (tup s a))))
  15
  16 ;;           (a (rnd (neg (pi)) (pi)) (+ a (rnd -1 1))))
  17 ;;     (tup s a))))