noise: Perlin/Simplex noise generators🔗 i

1Installation🔗 i

raco pkg install noise

2Functions🔗 i

3Examples🔗 i

> (require images/flomapracket/flonumnoise)

> (define (clampmin max n)

(/ (- nmin )(- max min )))

> (define (build-perlin-imagewh#:scale[scale1.0])

(flomap->bitmap

(build-flomap*

3wh

(lambda (xy)

(define g(clamp-1.01.0(perlin(* scale(/ xw))(* scale(/ yh)))))

(vector ggg)))))

> (build-perlin-image256256#:scale10.0)

[画像:image]

> (define (build-simplex-imagewh#:scale[scale1.0])

(flomap->bitmap

(build-flomap*

3wh

(lambda (xy)

(define g(clamp-1.01.0(simplex(* scale(/ xw))(* scale(/ yh)))))

(vector ggg)))))

> (build-simplex-image256256#:scale10.0)

[画像:image]

> (define (build-colored-simplex-imagewh#:scale[scale1.0])

(flomap->bitmap

(build-flomap*

3wh

(lambda (xy)

(vector

(clamp-1.01.0(simplex(* scale(/ xw))(* scale(/ yh))-1.0))

(clamp-1.01.0(simplex(* scale(/ xw))(* scale(/ yh))0.0))

(clamp-1.01.0(simplex(* scale(/ xw))(* scale(/ yh))1.0)))))))

> (build-colored-simplex-image256256#:scale10.0)

[画像:image]

4License🔗 i

This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License and GNU Lesser General Public License for more details.