Interesting quatsch programs - dumps
From Picogen-doc
(* 100 ([LibnoisePerlin] ([LibnoisePerlin frequency{0.001}] x y ) ([LibnoisePerlin frequency{0.001}] y y ) ) )
(* 100 ([LibnoisePerlin] ( + (* 0.01 x) ([LibnoisePerlin frequency{0.0001}] y y )) ([LibnoisePerlin frequency{0.0001}] y y ) ) )
(* 100 ([LibnoisePerlin octave-count{8}] ( + (* 0.001 x) ([LibnoisePerlin octave-count{3} frequency{0.0004}] y y )) ([LibnoisePerlin octave-count{3} frequency{0.0004}] y y ) ) )
(* 100 ([LibnoiseRidgedMulti octave-count{13}] ( + (* 0.001 x) ([LibnoiseRidgedMulti octave-count{3} frequency{0.0004}] y y )) ([LibnoiseRidgedMulti octave-count{3} frequency{0.0004}] y y ) ) )
(* 100 ([LibnoiseRidgedMulti octave-count{13}] ( + (* 0.001 x) ([LibnoisePerlin octave-count{3} frequency{0.0004}] y y )) ([LibnoisePerlin octave-count{3} frequency{0.0004}] y y ) ) )
(* 0.05 (- 1 ([LibnoiseBillow octave-count{15} frequency{0.1} ] ([LibnoiseBillow octave-count{15} frequency{0.1} ] x y ) ([LibnoiseBillow octave-count{15} frequency{0.1} ] x y ) ) ) ) (* 0.05 (- 1 ([LibnoiseBillow octave-count{15} frequency{0.1} ] ([LibnoiseRidgedMulti octave-count{15} frequency{0.1} ] x y ) ([LibnoiseRidgedMulti octave-count{15} frequency{0.1} ] x y )
) ) )
(* 0.05 (- 1 ([LibnoiseBillow frequency{0.1} ] x y) ([LibnoiseRidgedMulti frequency{0.1} ] x y) ) )
// funky voroni circles, might be interesting for raindrop effects ([LibnoiseVoronoi enable-distance{1} displacement{0.1}] ([LibnoiseVoronoi enable-distance{1} displacement{0.1}] x y) ([LibnoiseVoronoi enable-distance{1} displacement{0.1}] x y) )
(defun foo (x y) (+ (*0.01 x) ([LibnoiseBillow frequency{0.01} octave-count{10} seed{7} lacunarity{2.1} ] x y)) ) (+ // rough (* 4000 (foo (+ (foo y y) (foo x x)) (+ (foo y y) (foo x x)) ) ) )
(defun foo (x y) (+ (*0.01 x) ([LibnoiseBillow frequency{0.01} octave-count{10} seed{7} lacunarity{2.1} ] x y)) ) (+ // rough (* 1000 (foo (+ (foo x y) (foo x x)) (+ (foo x y) (foo x x)) ) ) )