Noise object

'implementation of improved perlin

Sub
Init()
'not needed, but can be used for reseeding the randomness.

Function
Noise1D(ByVal x As Single) As Single

Function
Noise2D(ByVal x As Single, ByVal y As Single) As Single

Function
Layered1D(ByVal x As Single, ByVal y As Single) As Single

Function
Layered2D(ByVal x As Single, ByVal y As Single) As Single

Function
Layered3D(ByVal x As Single, ByVal y As Single, ByVal z As Single) As Single

Function
Noise3D(ByVal x As Single, ByVal y As Single, ByVal z As Single) As Single

Property Let
Octaves(ByVal octs As Single)

Property Get
Octaves() As Single

Property Let
SpotSize(ByVal spt_sz As Single)

Property Get
SpotSize() As Single

Sub
FillBuf2D(buf(), ByVal frequency As Single, ByVal low As Single, ByVal high As Single)