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)