The Worley object

'implementation of worley noise

'all VBnoise related objects should observe several conventions
'1, they should return noise of a similar scale
'2, they should support 1,2,3 dimensions of the noise member and the layered member
'3, they should support the octaves member
'4, they should return a value range between -1 and 1



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
Noise3D(ByVal x As Single, ByVal y As Single, ByVal z 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

Property Let
Quality(ByVal qual As Single)

Property Get
Quality() 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)