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