Sorry your browser is not supported!

NOISE GET HEIGHT               ==(pn,x,y)
NOISE GET HEIGHT TILED         ==(pn,x,y,width,height)

NOISE SET PARAMS               ==pn,pers,freq,ampl,oct,seed

NOISE GET PERSISTANCE          ==(pn)
NOISE GET FREQUENCY            ==(pn)
NOISE GET AMPLITUDE            ==(pn)
NOISE GET OCTAVES              ==(pn)
NOISE GET RANDOMSEED           ==(pn)

NOISE SET PERSISTANCE          ==pn,pers
NOISE SET FREQUENCY            ==pn,freq
NOISE SET AMPLITUDE            ==pn,ampl
NOISE SET OCTAVES              ==pn,oct
NOISE SET RANDOMSEED           ==pn,seed

NOISE GET HEIGHT BYTE          ==(pn,x,y)
NOISE GET HEIGHT BYTE ABS      ==(pn,x,y)
NOISE GET HEIGHT BYTE TOP      ==(pn,x,y)

NOISE GET HEIGHT TILED BYTE    ==(pn,x,y,width,height)
NOISE GET HEIGHT TILED BYTE ABS==(pn,x,y,width,height)
NOISE GET HEIGHT TILED BYTE TOP==(pn,x,y,width,height)

~~~~~~~~~~~~~~~~~~~~~~~
SIMPLEX NOISE FUNCTIONS
~~~~~~~~~~~~~~~~~~~~~~~

value# = SIMPLEX NOISE 2D(octaves,persistence#,scale#,x#,y#)
value# = SIMPLEX NOISE 3D(octaves,persistence#,scale#,x#,y#,z#)
value# = SIMPLEX NOISE 4D(octaves,persistence#,scale#,x#,y#,z#,w#)

Return values between set bounds:

value# = SIMPLEX SCALED 2D(octaves,persistence#,scale#,lobound#,hibound#,x#,y#)
value# = SIMPLEX SCALED 3D(octaves,persistence#,scale#,lobound#,hibound#,x#,y#,z#)
value# = SIMPLEX SCALED 4D(octaves,persistence#,scale#,lobound#,hibound#,x#,y#,z#,w#)

~~~~~~~~~~~~~~~
BONUS FUNCTIONS
~~~~~~~~~~~~~~~

WL MATRIX NORMALISE==matrixID
value# = WL FSQRT==(num#)

~~~~~~~~~~~~~~~~~~~~~~
PERLIN NOISE FUNCTIONS
~~~~~~~~~~~~~~~~~~~~~~

Set up the permutation tables:

FN NOISE SEED seed

Standard noise functions for customising your own stuff:

value# = FN NOISE 1D(x#)
value# = FN NOISE 2D(x#,y#)
value# = FN NOISE 3D(x#,y#,z#)

Set up the Frequency, Persistence and octaves:

FN SETFPO frequency#,persistence#,octaves

Perlin noise functions:

value# = FN PNOISE 1D(x#)
value# = FN PNOISE 2D(x#,y#)
value# = FN PNOISE 3D(x#,y#,z#)

Ridged perlin noise effect (not tried yet):

value# = FN PNOISE RIDGE(x#,y#,z#,octaves,lacunarity#,gain#,offset#)

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, September 28, 2011

Rem ***** Main Source File *****

sync off : sync rate 60

NOISE SET PARAMS 0, 0.5, 0.1, 1.5, 8, 0

do
    for x=0 to 255
        for y=0 to 255
            v#=Noise Get Height tiled(0,x,y,256,256)
            if v#<0 then v#=0
            v#=v#*255
            c=v#
            if c<0 then c=0
            if c>255 then c=255
            dot x,y,rgb(c,c,c)
           next y
        next
    sync
    text 0,0,"Screen FPS : "+str$(screen fps())
loop

sync on : sync rate 60 : autocam off
set display mode 800,600,32 : set window off

position camera 0,500,0 : point camera 1024,0,1024

make matrix 1, 2048, 2048, 256, 256

NOISE SET PARAMS 0, 0.5, 0.1, 1.5, 6, 0

for x=0 to 255
    for y=0 to 255
        hgt = abs(NOISE GET HEIGHT TILED(0,x,y,256,256)) * 255
        set matrix height 1, x, y, hgt
    next
next

do
    shift matrix down 1
    shift matrix right 1
    update matrix 1
    sync
loop

rem make sure freq# and ampl# add up to 2.0 for best results

noise fast params 4, 0.01, 1.99, 255

sync on : sync rate 60 : sync

lock pixels

for x=0 to 256
    for y=0 to 256
        c# = ( (noise fast get2d(x,y)) * 255.0 )
        c = int(c#) and 255
        ink rgb(c,c,c)
        dot x,y
    next
next

unlock pixels



sp=0

ink 0xffffff,0xffffff

for x=0 to 200 step 10
    v# = NOISE FAST GET2D( x, x )
    s$ = ""
    s$ = str$(v#)
    text 256,sp,s$
    sp = sp + 12
next

sync

wait key

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, October 27, 2011

Rem ***** Main Source File *****

autocam off : sync on : sync rate 60 : sync

//
//img = PNoise_Make_texture(0, 0, 256, 255, 0, 0, 64, 2)

//
// set the colours and create the perlin texture
col1=rgb(000,000,128) : col2=rgb(160,080,000)
col3=rgb(032,160,032) : col4=rgb(200,200,200)
img=pn_make_tertext(1, 512, col1, col2, col3, col4, 0, 40)

paste image img,0,0
text 520, 0,hex$(col1)
text 520,12,hex$(col2)
text 520,24,hex$(col3)
text 520,36,hex$(col4)

sync
wait key
end

//
// Functions start here

//
// my 1st attempt to create a terrain type texture using the perlin noise

type pn_RGB
    r as integer
    g as integer
    b as integer
endtype

//
// nt = 0-3 (noise type)
// sprd = rgb spread value
function pn_make_tertext(seed, size, col1, col2, col3, col4, nt, sprd)
    dim lay(3) as pn_RGB
    
    // extract RGB values separately
    lay(0).r=RGBR(col1) : lay(0).g=RGBG(col1) : lay(0).b=RGBB(col1)
    lay(1).r=RGBR(col2) : lay(1).g=RGBG(col2) : lay(1).b=RGBB(col2)
    lay(2).r=RGBR(col3) : lay(2).g=RGBG(col3) : lay(2).b=RGBB(col3)
    lay(3).r=RGBR(col4) : lay(3).g=RGBG(col4) : lay(3).b=RGBB(col4)
    
    // init perlin noise
    NOISE FAST PARAMS 8, 0.02, 1.98, seed
    
    // setup the bitmap
    bm=find free bitmap():create bitmap bm,size,size
    
    // lock pixels for fast drawing
    lock pixels
    
    // start calculating pixels
    for x=0 to size-1
        for y=0 to size-1
            
            // get the noise value from the current point (-1 to 1)
            v#=NOISE FAST GET2D(x,y)
            
            // set the noise value according to the type
            v=int( pn_get_noisetype(v#,nt) )
            
            // get color layer and color value
            l=(v and 0xc0) >> 6     // layer 0-3
            v=(v and 0x3f) << 2     // reset to 0-255
            
            // calc spread of colours from the correct layer
            r=pn_colspread( lay(l).r, sprd )
            g=pn_colspread( lay(l).g, sprd )
            b=pn_colspread( lay(l).b, sprd )
            
            // plot the pixel
            dot x, y, rgb( r, g, b )
        next
    next
    // unlock pixels
    unlock pixels
    // get image
    img=find free image():get image img,0,0,size-1,size-1
    // delete bitmap and return image ID
    delete bitmap bm
endfunction img

function pn_colspread( c, s )
    a=c+rnd(s*2)-s
    if a<0
        a=0
    else
        if a>255
            a=255
        endif
    endif
endfunction a

function pn_get_noisetype(v#,ntype)
    select ntype
        case 0:
            v#=(v#+1.0)*127.0
            endcase
        case 1:
            v#=v#*255.0
            if v#<0.0
                v#=256.0-v#
            endif
            endcase
        case 2:
            v#=v#*255.0
            if v#<0.0
                v#=v#+256.0
            endif
            endcase
        case 3:
            v#=v#*255.0
            if v#<0.0
                v#=0.0
            endif
            endcase
    endselect
    if v#<0
        v#=0
    else
        if v#>255
            v#=255
        endif
    endif
endfunction v#

sync rate 60
sync on
sync

while scancode() <> 27
    x = rnd(512)
    y = rnd(512)
    
    lock pixels
    
    for w = 0 to 511
        for h = 0 to 511
            px# = w + x
            py# = h + y
            
            ` change the first value (octaves for detail)
            
            ` This call scales down the noise value and returns
            ` the value between the lo and hi boundary range
            v = simplex scaled 2d( 3, 1.0, 0.01, 0.0, 255.0, px#, py# )
            
            ` This call returns a value between -1.0 and +1.0
            `v = int( simplex noise 2d( 1, 1, 0.1, px#, py# ) * 255.0 )
            c = rgb( v, v, v )
            
            dot w, h, c
        next
    NEXT
    
    unlock pixels
    
    sync
    
    repeat
    UNTIL scancode() = 57
ENDWHILE

sync on
sync rate 60
autocam off
set display mode 800,600,32
set window position 0,0

position camera 0,500,0 : point camera 1024,0,1024

make matrix 1, 2048, 2048, 256, 256

NOISE SET PARAMS 0, 0.5, 0.1, 1.5, 6, 0

for x=0 to 256
    for y=0 to 256
        hgt = ABSrep(NOISE GET HEIGHT TILED(0,x,y,256,256)) * 255
        set matrix height 1, x, y, hgt
    next
next

do
    shift matrix down 1
    shift matrix right 1
    update matrix 1
    sync
loop

end

function ABSrep(value#)
   if value# < 0
      value# = 0-value#
   endif
endfunction value#

sync on
sync rate 0
sync sleep 1

Start = hitimer()
j as float = 0.0
i as float = 0.0
a as float
`i = 0
`j = 0
for b = 1 to 1000000
    inc i
    dec j
    a = myabs(i)
    a = myabs(j)
`    a = abs(i)
`    a = abs(j)
next
Finish = hitimer()

print Finish - Start
sync off
wait key
end

function myabs(a as float)
    if a < 0.0 then a = 0.0 - a
endfunction a

Rem Project: Dark Basic Pro Project
Rem Created: Friday, September 30, 2011

Rem ***** Main Source File *****
sync on

do
print
print "Hit any key to begin."
print
sync off
wait key

//function float
startF# = FTimer()
j# as float = 0.0
i# as float = 0.0
a# as float
for b = 1 to 1000000
    inc i#
    dec j#
    a# = myabs(i#)
    a# = myabs(j#)
next
finishF# = FTimer()
results# = finishF# - startF#
print "With Function - Float : " + str$(results#)
sync off

// ABS() float
startF# = FTimer()
iii# = 0.0
jjj# = 0.0
a# as float
for b = 1 to 1000000
    inc iii#
    dec jjj#
    a# = abs(iii#)
    a# = abs(jjj#)
next
finishF# = FTimer()
results# = finishF# - startF#
print "With C++ 7 DLL - Float : " + str$(results#)
sync off

//function integer
startF# = FTimer()
jj as integer = 0
ii as integer = 0
aa as integer
for b = 1 to 1000000
    inc ii
    dec jj
    aa = myabss(ii)
    aa = myabss(jj)
next
finishF# = FTimer()
results# = finishF# - startF#
print
print "With Function - Integer : " + str$(results#)
sync off

// ABS() integer
startF# = FTimer()
iii = 0
jjj = 0
for b = 1 to 1000000
    inc iii
    dec jjj
    a = abs(iii)
    a = abs(jjj)
next
finishF# = FTimer()
results# = finishF# - startF#
print "With C++ 7 DLL - Integer : " + str$(results#)
sync off

loop
end

function myabss(aa as integer)
    if aa < 0 then aa = 0 - aa
endfunction aa

function myabs(a# as float)
    if a# < 0.0 then a# = 0.0 - a#
endfunction a#

function FTimer()
    first# = timer() - last
    last = timer()
    total# = first# / 1000.0
endfunction total#

sync on : sync rate 60 : autocam off
set window off
set display mode 1024,768,32

noise set params 0, 0.75, 0.05, 1.25, 8, 0
img1 = create_planet_texture(512)

noise set params 0, 0.50, 0.08, 1.50, 6, 1
img2 = create_planet_texture(512)


obj1 = find free object()
make object sphere obj1,100,32,32
texture object obj1,img1

obj2 = find free object()
make object sphere obj2,101,32,32
texture object obj2,img2
set alpha mapping on obj2,50

position camera 0,0,-110 : point camera 0,0,0

do
    yrotate object obj1,wrapvalue(object angle y(obj1)+0.2)
    yrotate object obj2,wrapvalue(object angle y(obj2)+0.1)
    sync
loop

end

function create_planet_texture(size)
    bm = find free bitmap()
    create bitmap bm,size,size
    lock pixels
    for x=0 to size-1
        for y=0 to size-1
            v = ( noise get height tiled (0,x,y,size,size) ) * 255.0
            if v<0 then c=abs(v) : c=rgb(c,c,128)
            if v>=0 then c=rgb(v,192,v)
            dot x,y,c
        next
    next
    unlock pixels
    img = find free image()
    get image img,0,0,size-1,size-1
    delete bitmap bm
endfunction img

D3D_MAKE_3DTEXT Object ID, Font ID, String$, Depth#, Quality, Alignment