Sorry your browser is not supported!

            while (oDBP.LoopGDK)
            {
                for (int i = 1; i <= 64; i++)
                {
                    for (int j = 1; j <= 48; j++)
                    {
                        //oDB2D.Box(10, 10, 11, 11);      //12fps
                        //oDB2D.Dot(10, 10);              //4fps
                        //oDB2D.Circle(10, 10, 10);       //4fps
                    }
                }
                oDBDisplay.SetWindowTitle(oDBDisplay.ScreenFPS().ToString());
                oDBCore.Sync();
            }

sync on
sync rate 60

randomize timer()

dim squares(64,48,3)

count as integer
limit as integer
direction as boolean
mode as integer
modecount as integer
xrain as integer
yrain as integer

type entity
   variation as integer
   x as integer
   y as integer
endtype

dim entity(0) as entity

count = timer()
limit = 50
direction = 1
mode=1

do
if mode=1
 if timer()-count=>limit
    xrain=rnd(63)+1
    yrain=rnd(47)+1
    squares(xrain,yrain,1)=rnd(255) `Red
    squares(xrain,yrain,2)=rnd(255) `Green
    squares(xrain,yrain,3)=rnd(255) `Blue

    if direction=1
       inc limit
       if limit=80 then direction=0
    else
       dec limit
       if limit=5 then direction=1
    endif

    inc modecount
    if modecount=800
       mode=2
       modecount=0
       array insert at bottom entity(0)
       entity(0).variation = rnd(4)+1
       entity(0).x = rnd(63)+1
       entity(0).y = rnd(47)+1
    endif
    count=timer()
 endif
endif      


for i = 1 to 64
  for j = 1 to 48

     `top left corner
     if i=1 and j=1
        rtmp=(squares(2,1,1)+squares(1,2,1))/2
        if squares(i,j,1)>rtmp then dec squares(i,j,1)
        if squares(i,j,1)<rtmp then inc squares(i,j,1)
        gtmp=(squares(2,1,2)+squares(1,2,2))/2
        if squares(i,j,2)>gtmp then dec squares(i,j,2)
        if squares(i,j,2)<gtmp then inc squares(i,j,2)
        btmp=(squares(2,1,3)+squares(1,2,3))/2
        if squares(i,j,3)>btmp then dec squares(i,j,3)
        if squares(i,j,3)<btmp then inc squares(i,j,3)
     endif

     `top right corner
     if i=64 and j=1
        rtmp=(squares(i-1,1,1)+squares(i,2,1))/2
        if squares(i,j,1)>rtmp then dec squares(i,j,1)
        if squares(i,j,1)<rtmp then inc squares(i,j,1)
        gtmp=(squares(i-1,1,2)+squares(i,2,2))/2
        if squares(i,j,2)>gtmp then dec squares(i,j,2)
        if squares(i,j,2)<gtmp then inc squares(i,j,2)
        btmp=(squares(i-1,1,3)+squares(i,2,3))/2
        if squares(i,j,3)>btmp then dec squares(i,j,3)
        if squares(i,j,3)<btmp then inc squares(i,j,3)
     endif

     `bottom left corner
     if i=1 and j=48
        rtmp=(squares(2,j,1)+squares(1,j-1,1))/2
        if squares(i,j,1)>rtmp then dec squares(i,j,1)
        if squares(i,j,1)<rtmp then inc squares(i,j,1)
        gtmp=(squares(2,j,2)+squares(1,j-1,2))/2
        if squares(i,j,2)>gtmp then dec squares(i,j,2)
        if squares(i,j,2)<gtmp then inc squares(i,j,2)
        btmp=(squares(2,j,3)+squares(1,j-1,3))/2
        if squares(i,j,3)>btmp then dec squares(i,j,3)
        if squares(i,j,3)<btmp then inc squares(i,j,3)
     endif

     `bottom right corner
     if i=64 and j=48
        rtmp=(squares(i-1,j,1)+squares(i,j-1,1))/2
        if squares(i,j,1)>rtmp then dec squares(i,j,1)
        if squares(i,j,1)<rtmp then inc squares(i,j,1)
        gtmp=(squares(i-1,j,2)+squares(i,j-1,2))/2
        if squares(i,j,2)>gtmp then dec squares(i,j,2)
        if squares(i,j,2)<gtmp then inc squares(i,j,2)
        btmp=(squares(i-1,j,3)+squares(i,j-1,3))/2
        if squares(i,j,3)>btmp then dec squares(i,j,3)
        if squares(i,j,3)<btmp then inc squares(i,j,3)
     endif

     `top row
     if j=1 and i<>1 and i<>64
        rtmp=(squares(i-1,1,1)+squares(i+1,1,1)+squares(i,2,1))/3
        if squares(i,j,1)>rtmp then dec squares(i,j,1)
        if squares(i,j,1)<rtmp then inc squares(i,j,1)
        gtmp=(squares(i-1,2,2)+squares(i+1,2,2)+squares(i,2,2))/3
        if squares(i,j,2)>gtmp then dec squares(i,j,2)
        if squares(i,j,2)<gtmp then inc squares(i,j,2)
        btmp=(squares(i-1,3,3)+squares(i+1,3,3)+squares(i,2,3))/3
        if squares(i,j,3)>btmp then dec squares(i,j,3)
        if squares(i,j,3)<btmp then inc squares(i,j,3)
     endif

     `right row
     if i=64 and j<>1 and j<>48
        rtmp=(squares(i,j-1,1)+squares(i,j+1,1)+squares(i-1,j,1))/3
        if squares(i,j,1)>rtmp then dec squares(i,j,1)
        if squares(i,j,1)<rtmp then inc squares(i,j,1)
        gtmp=(squares(i,j-1,2)+squares(i,j+1,2)+squares(i-1,j,2))/3
        if squares(i,j,2)>gtmp then dec squares(i,j,2)
        if squares(i,j,2)<gtmp then inc squares(i,j,2)
        btmp=(squares(i,j-1,3)+squares(i,j+1,3)+squares(i-1,j,3))/3
        if squares(i,j,3)>btmp then dec squares(i,j,3)
        if squares(i,j,3)<btmp then inc squares(i,j,3)
     endif

     `bottom row
     if j=48 and i<>1 and i<>64
        rtmp=(squares(i-1,j,1)+squares(i+1,j,1)+squares(i,j-1,1))/3
        if squares(i,j,1)>rtmp then dec squares(i,j,1)
        if squares(i,j,1)<rtmp then inc squares(i,j,1)
        gtmp=(squares(i-1,j,2)+squares(i+1,j,2)+squares(i,j-1,2))/3
        if squares(i,j,2)>gtmp then dec squares(i,j,2)
        if squares(i,j,2)<gtmp then inc squares(i,j,2)
        btmp=(squares(i-1,j,3)+squares(i+1,j,3)+squares(i,j-1,3))/3
        if squares(i,j,3)>btmp then dec squares(i,j,3)
        if squares(i,j,3)<btmp then inc squares(i,j,3)
     endif

     `left row
     if i=1 and j<>1 and j<>48
        rtmp=(squares(1,j-1,1)+squares(1,j+1,1)+squares(2,j,1))/3
        if squares(i,j,1)>rtmp then dec squares(i,j,1)
        if squares(i,j,1)<rtmp then inc squares(i,j,1)
        gtmp=(squares(1,j-1,2)+squares(1,j+1,2)+squares(2,j,2))/3
        if squares(i,j,2)>gtmp then dec squares(i,j,2)
        if squares(i,j,2)<gtmp then inc squares(i,j,2)
        btmp=(squares(1,j-1,3)+squares(1,j+1,3)+squares(2,j,3))/3
        if squares(i,j,3)>btmp then dec squares(i,j,3)
        if squares(i,j,3)<btmp then inc squares(i,j,3)
     endif

     `middle
     if i<>1 and i<>64 and j<>1 and j<>48
        rtmp=(squares(i-1,j,1)+squares(i+1,j,1)+squares(i,j-1,1)+squares(i,j+1,1))/4
        if squares(i,j,1)>rtmp then dec squares(i,j,1)
        if squares(i,j,1)<rtmp then inc squares(i,j,1)
        gtmp=(squares(i-1,j,2)+squares(i+1,j,2)+squares(i,j-1,2)+squares(i,j+1,2))/4
        if squares(i,j,2)>gtmp then dec squares(i,j,2)
        if squares(i,j,2)<gtmp then inc squares(i,j,2)
        btmp=(squares(i-1,j,3)+squares(i+1,j,3)+squares(i,j-1,2)+squares(i,j+1,3))/4
        if squares(i,j,3)>btmp then dec squares(i,j,3)
        if squares(i,j,3)<btmp then inc squares(i,j,3)
     endif

     ink rgb(squares(i,j,1),squares(i,j,2),squares(i,j,3)),1
     box (i-1)*10,(j-1)*10,i*10,j*10
  next j
next i

   if returnkey()=0 and waitkey=1 then waitkey=0

   sync

loop

oDBDisplay.SetWindowTitle(oDBDisplay.ScreenFPS().ToString());

Console.Clear();
Console.WriteLine(oDBDisplay.ScreenFPS().ToString());

while (oDBP.LoopGDK)
{
    int a = 0;
    while (++a <= 64)
    {
        int b = 0;
        while (++b <= 48)
        {
            //Empty
        }
    }

    oDBDisplay.SetWindowTitle(oDBDisplay.ScreenFPS().ToString());
    oDBCore.Sync();
}

while (oDBP.LoopGDK)
{
    int[] a = new int[47];
    foreach (int tmpA in a)
    {
        int[] b = new int[63];
        foreach (int tmpB in b)
        {
            //Empty
        }
    }

    oDBDisplay.SetWindowTitle(oDBDisplay.ScreenFPS().ToString());
    oDBCore.Sync();
}

oDBDisplay.SetDisplayMode(1024, 768, 32);
oDBDisplay.MaximiseWindow();
oDBCore.SyncOn();
oDBCore.SyncRate(0);

oDBCamera.AutoCamOff();
oDBInput.HideMouse();
oDBCamera.ColorBackdrop(0);

float amp = 20.0f;
int rows = 100;
int columns = 100;
float elasticity = 0.0002f;
float a = 0;
float b = 0;

oDBCamera.PositionCamera(rows / 2, rows/2, columns / 2.0f);
oDBCamera.YRotateCamera(-90);
oDBCamera.PointCamera(rows / 2, 0, columns / 2);

oDBBitmap.CreateBitmap(1, 10, 10);
oDB2D.BoxB(0, 0, 10, 10, oDB2D.RGBC(0, 255, 0), oDB2D.RGBC(255, 0, 0), oDB2D.RGBC(0, 0, 255), oDB2D.RGBC(0, 0, 0));
oDBImage.GetImage(1, 0, 0, 10, 10);
oDBBitmap.DeleteBitmap(1);

int num = rows * columns;
int[,] obnum = new int[rows + 1, columns + 1];
float[] v = new float[rows * columns];
oDBMatrix.MakeMatrix(1, rows, columns, rows, columns);
int ob = 0;
for (int x = 1; x <= rows; x++)
{
    for (int z = 1; z <= columns; z++)
    {
        obnum[x, z] = ob;
        ob++;
    }
}

oDBMatrix.PrepareMatrixTexture(1, 1, rows, columns);
int tile = 1;
for (int x = rows - 1; x >= 0; x--)
{
    for (int z = 0; z <= columns - 1; z++)
    {
        oDBMatrix.SetMatrixTile(1, z, x, tile);
        tile++;
    }
}

int starttime = oDBCore.Timer();
int time = 0;
int oldtime = 0;
float dtperloop = 0;
float totaldt = 0;
float dt = 0;
int loopnumber = 0;
float y = 0;
float theta = 0;
float distxp1 = 0;
float distxm1 = 0;
float distzp1 = 0;
float distzm1 = 0;
float vectorsumx = 0;
float vectorsumz = 0;
float vectorsum = 0;
int syncnumber = 0;
int calc = 0;

while (oDBP.LoopGDK)
{
    oDBText.Text(0, 0, oDBDisplay.ScreenFPS().ToString());
    time = oDBCore.Timer() - starttime;
    dtperloop = time - oldtime;
    totaldt = totaldt + dtperloop;
    oldtime = time;

    loopnumber++;
    if (loopnumber == 10)
    {
        loopnumber = 0;
        dt = totaldt / 10.0f;
        totaldt = 0;
    }

    oDBCamera.RollCameraRight(0.005f * dt);
    y = amp * oDBCore.SIN(theta);
    theta = theta + 0.01f * dt;
    oDBMatrix.SetMatrixHeight(1, (int)a, (int)b, y);
    for (int x = 1 + 1; x <= rows - 1; x++)
    {
        for (int z = 1 + 1; z <= columns - 1; z++)
        {
            if (x < rows)
            {
                distxp1 = oDBMatrix.GetMatrixHeight(1, x + 1, z) - oDBMatrix.GetMatrixHeight(1, x, z);
            }
            if (x > 1)
            {
                distxm1 = oDBMatrix.GetMatrixHeight(1, x - 1, z) - oDBMatrix.GetMatrixHeight(1, x, z);
            }
            if (z < columns)
            {
                distzp1 = oDBMatrix.GetMatrixHeight(1, x, z + 1) - oDBMatrix.GetMatrixHeight(1, x, z);
            }
            if (z > 1)
            {
                distzm1 = oDBMatrix.GetMatrixHeight(1, x, z - 1) - oDBMatrix.GetMatrixHeight(1, x, z);
            }
            vectorsumx = (distxp1 + distxm1);
            vectorsumz = (distzp1 + distzm1);
            vectorsum = vectorsumx + vectorsumz;
            a = vectorsum * elasticity;
            v[obnum[x, z]] = v[obnum[x, z]] + a * dt;
            if (v[obnum[x, z]] > 0.01f) v[obnum[x, z]] = 0.01f;
            if (v[obnum[x, z]] < -0.01f) v[obnum[x, z]] = -0.01f;
            oDBMatrix.SetMatrixHeight(1, x, z, oDBMatrix.GetMatrixHeight(1, x, z) + v[obnum[x, z]] * dt);
            if (oDBMatrix.GetMatrixHeight(1, x, z) > amp) oDBMatrix.SetMatrixHeight(1, x, z, amp);
            if (oDBMatrix.GetMatrixHeight(1, x, z) < -amp) oDBMatrix.SetMatrixHeight(1, x, z, -amp);
        }
    }
    oDBMatrix.UpdateMatrix(1);

    syncnumber++;
    if (syncnumber > 20)
    {
        if (calc == 0)
        {
            calc = oDBCore.Timer() - starttime;
            oDBDisplay.SetWindowTitle(calc.ToString());
        }
        oDBCore.Sync();
    }
}

set display mode 1024,768,32
sync on
sync rate 0
autocam off
hide mouse
color backdrop 0

amp#=20.0
rows=100
columns=100
elasticity#=0.0002
a=0
b=0

position camera rows/2,50,columns/2
yrotate camera -90
point camera rows/2,0,columns/2

create bitmap 1,10,10
box 0,0,10,10,rgb(0,255,0),rgb(255,0,0),rgb(0,0,255),rgb(255,255,0)
get image 1,0,0,10,10
delete bitmap 1

num=rows*columns
dim obnum(rows+1,columns+1)
dim v#(rows,columns)
make matrix 1,rows,columns,rows,columns
for x=1 to rows
for z=1 to columns
obnum(x,z)=ob
ob=ob+1
next z
next x

prepare matrix texture 1,1,rows,columns
tile=1
for x=rows-1 to 0 step -1
for z=0 to columns-1
set matrix tile 1,z,x,tile
inc tile
next z
next x

starttime=timer()

do

text 0,0,str$(screen fps())
time=timer()-starttime
dtperloop#=time-oldtime
inc totaldt#,dtperloop#
oldtime=time

inc loopnumber
if loopnumber=10
  loopnumber=0
  dt#=totaldt#/10.0
  totaldt#=0
endif

roll camera right 0.005*dt#
y#=amp#*sin(theta#)
theta#=theta#+0.01*dt#
set matrix height 1,a,b,y#
for x=1+1 to rows-1
for z=1+1 to columns-1
if x<rows
distxp1#=get matrix height(1,x+1,z)-get matrix height (1,x,z)
endif
if x>1
distxm1#=get matrix height(1,x-1,z)-get matrix height (1,x,z)
endif
if z<columns
distzp1#=get matrix height(1,x,z+1)-get matrix height (1,x,z)
endif
if z>1
distzm1#=get matrix height(1,x,z-1)-get matrix height (1,x,z)
endif
vectorsumx#=(distxp1#+distxm1#)
vectorsumz#=(distzp1#+distzm1#)
vectorsum#=vectorsumx#+vectorsumz#
a#=vectorsum#*elasticity#
v#(obnum(x,z))=v#(obnum(x,z))+a#*dt#
if v#(obnum(x,z))>0.01 then v#(obnum(x,z))=0.01
if v#(obnum(x,z))<-0.01 then v#(obnum(x,z))=-0.01
set matrix height 1,x,z,get matrix height(1,x,z)+v#(obnum(x,z))*dt#
if get matrix height(1,x,z)>amp# then set matrix height 1,x,z,amp#
if get matrix height(1,x,z)<-amp# then set matrix height 1,x,z,-amp#
next z
next x
update matrix 1

inc syncnumber
if syncnumber>20 then sync
loop