Sorry your browser is not supported!

function creatthedirt()
// This sets up the Matrix for the size and the texture.
make matrix 1,1500,1500,100,100
prepare matrix texture 1,2,1,1

// This is setup so that the Heightmap can attach itself to the
// Matrix that was created.
paste image 1,0,0

for x=0 to 100     // This loop sets up the hieght of the map
   for y=0 to 100
      PixelBrightness#=rgbr(point(x,y))
      set matrix height 1,x,y,PixelBrightness#
      
      // Trying to work in the Shadow based off the direction of the Vertice is facing. ( Not working yet )
      // SET MATRIX NORMAL Matrix Number, TileX, TileZ, NX,    NY,   NZ
      nx# = SunxPos : ny# = (sin(SunyPos)+1.0)/2.0 : nz# = SunzPos
      set matrix normal 1, x, y, nx#, ny#, nz# 
   next x
next y

// After the above Map to Matrix connection, it updates the Matrix for the screen.
Update matrix 1
endfunction

` create three vectors
null = make vector3(1)
null = make vector3(2)
null = make vector3(3)

` set the vectors to three neighbouring points XYZ = (10, 50, 11), (10, 50, 12) and (11, 51, 11)
set vector3 1, 10, 50, 11
set vector3 2, 10, 50, 12
set vector3 3, 11, 51, 11

` now calculate two vectors representing the directions of the second two points from the first point
subtract vector3 2, 2, 1
subtract vector3 3, 3, 1

` vectors 2 and 3 are now parallel to the surface at the first point
` their cross-product will be perpendicular to both and hence perpendicular to the surface
cross product vector3 3, 2, 3

` check that the vector is pointing upwards rather than downwards (or you could do some experimenting yourself
` to see which way the vectors are pointing)

if y vector3(3) < 0 then multiply vector3 3, -1

` finally normalize your vector so it has length 1

normalize vector3 3, 3

print x vector3(3), " ", y vector3(3), " ", z vector3(3)
wait key

hide light 0 `turn off the generic area lighting
make light 1 `make a light to attach to the selector rod

 position light 1,vx#,60,vz# `position mapping light

normx = (z1-z2)*(y3-y2)-(y1-y2)*(z3-z2);
normy = (x1-x2)*(z3-z2)-(z1-z2)*(x3-x2);
normz = (y1-y2)*(x3-x2)-(x1-x2)*(y3-y2);
normlength = sqrt(sqr(normx)+sqr(normy)+sqr(normz));
normx /= normlength;
normy /= normlength;
normz /= normlength;

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 15, 2011

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

sync on
sync rate 60
autocam off

dot 0,0,0xff0000 : dot 1,0,0xdd0000 : dot 0,1,0xdd0000 : dot 1,1,0xff0000
get image 1, 0,0,2,2

set normalization on

make matrix 1,100,100,5,5
randomize matrix 1,15
prepare matrix texture 1, 1, 1, 1
`fill matrix 1,0,1

for x=1 to 5
    for y=1 to 5
        `set matrix normal 1,x,y,0,1,0
    next
next

hide light 0
make light 1
set spot light 1,5,25
set light range 1,500

position camera 0,10,0

do
    mx# = mousemovex() / 4.0
    my# = mousemovey() / 4.0
    
    move camera left ( leftkey() - rightkey() ) * 2.0
    move camera ( upkey() - downkey() ) * 2.0
    
    xrotate camera wrapvalue( camera angle x() + my# )
    yrotate camera wrapvalue( camera angle y() + mx# )
    
    position light 1, camera position x(),camera position y(),camera position z()
    rotate light 1, camera angle x(),camera angle y(),camera angle z()
    
    `update matrix 1
    
    sync
loop

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, September 15, 2011

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

sync on
sync rate 60
autocam off

dot 0,0,0xff0000 : dot 1,0,0xdd0000 : dot 0,1,0xdd0000 : dot 1,1,0xff0000
get image 1, 0,0,2,2

set normalization on

make matrix 1,100,100,5,5
randomize matrix 1,15
prepare matrix texture 1, 1, 1, 1
`fill matrix 1,0,1

for x=1 to 5
    for y=1 to 5
        x1# = (100.0/5.0)*x
        x2# = (100.0/5.0)*(x-1)
        x3# = (100.0/5.0)*x
        
        y1# = get ground height(1,(100.0/5.0)*x    ,(100.0/5.0)*y)
        y2# = get ground height(1,(100.0/5.0)*(x-1),(100.0/5.0)*y)
        y3# = get ground height(1,(100.0/5.0)*x    ,(100.0/5.0)*(y-1))
        
        z1# = (100.0/5.0)*y
        z2# = (100.0/5.0)*y
        x3# = (100.0/5.0)*(y-1)
        
        normx# = (z1#-z2#)*(y3#-y2#)-(y1#-y2#)*(z3#-z2#)
        normy# = (x1#-x2#)*(z3#-z2#)-(z1#-z2#)*(x3#-x2#)
        normz# = (y1#-y2#)*(x3#-x2#)-(x1#-x2#)*(y3#-y2#)
        
        normlength# = sqrt((normx#*normx#)+(normy#*normy#)+(normz#*normz#))
        
        normx# = normx# / normlength#
        normy# = normy# / normlength#
        normz# = normz# / normlength#

        set matrix normal 1,x,y,normx#,normy#,normz#
    next
next

hide light 0
make light 1
set spot light 1,5,25
set light range 1,500

position camera 0,10,0

do
    mx# = mousemovex() / 4.0
    my# = mousemovey() / 4.0
    
    move camera left ( leftkey() - rightkey() ) * 2.0
    move camera ( upkey() - downkey() ) * 2.0
    
    xrotate camera wrapvalue( camera angle x() + my# )
    yrotate camera wrapvalue( camera angle y() + mx# )
    
    position light 1, camera position x(),camera position y(),camera position z()
    rotate light 1, camera angle x(),camera angle y(),camera angle z()
    
    `update matrix 1
    
    sync
loop

set display mode desktop width(), desktop height(), 32
sync on : sync rate 60 : sync

autocam off
position camera 800, 200, 0
point camera 0, 0, 0

set directional light 0, 0.0, -0.7, 0.7

make matrix 1, 1000, 1000, 64, 64
stepX# = 1000/64.0
stepZ# = 1000/64.0
set matrix texture 1, 0, 1
load image "grass_T.bmp", 1
prepare matrix texture 1, 1, 4, 4
position matrix 1, -500, 0, -500

` create three vectors
null = make vector3(1)
null = make vector3(2)
null = make vector3(3)

for x = 0 to 64
  for z = 0 to 64
    set matrix height 1, x, z, 50+50*sin((x+z)*12)
  next z
next x

` now calculate normals from height data
for x = 1 to 63
  for z = 1 to 63
    setMatrixNormal(1, x, z, stepX#, stepZ#)
  next z
next x

update matrix 1

repeat
  if inkey$()="w"
    set matrix wireframe on 1
  else
    set matrix wireframe off 1
  endif
  sync
until spacekey()

end

function setMatrixNormal(matId,tX,tZ,stepX#,stepZ#)
  ` set the vectors to three neighbouring points
  set vector3 1, tX*stepX#, get ground height(1, tX*stepX#,tZ*stepZ#), tZ*stepZ#
  set vector3 2, tX*stepX#, get ground height(1, tX*stepX#,(tZ+1)*stepZ#), (tZ+1)*stepZ#
  set vector3 3, (tX+1)*stepX#, get ground height(1, (tX+1)*stepX#,tZ*stepZ#), tZ*stepZ#

  ` now calculate two vectors representing the directions of the second two points from the first point
  subtract vector3 2, 2, 1
  subtract vector3 3, 3, 1

  ` vectors 2 and 3 are now parallel to the surface at the first point
  ` their cross-product will be perpendicular to both and hence perpendicular to the surface
  cross product vector3 3, 2, 3

  ` check that the vector is pointing upwards rather than downwards (or you could do some experimenting yourself
  ` to see which way the vectors are pointing)

  if y vector3(3) < 0 then multiply vector3 3, -1

  ` finally normalize your vector so it has length 1
  normalize vector3 3, 3
  set matrix normal 1, tX, tZ, x vector3(3), y vector3(3), z vector3(3)
endfunction

   sync on
   sync rate 60
   autocam off

   rem normals from the matrix tiles
   nx as float
   ny as float
   nz as float

   rem light position and angle
   angle = 0
   radius = 180
   lightX = 0
   lightZ = 0

   rem matrix width and height
   matrixWidth = 100
   matrixHeight = 100

   rem hide light 0
   hide light 0

   rem make light and position
   make light 1
   position light 1,0,40,0

   rem turn ambient light off
   set ambient light 0

   rem create three vectors
   null = make vector3(1)
   null = make vector3(2)
   null = make vector3(3)

   rem make temp texture for ground
   ink rgb(0,255,0),0
   box 0,0,1,1
   get image 1,0,0,1,1

   rem make matrix and texture it
   make matrix 1, matrixWidth, matrixHeight, 30, 30
   prepare matrix texture 1,1,1,1

   rem the matrix last tileX and last tileZ number
   tileX = 30
   tileZ = 30

   rem loop through the matrix tiles
   for x = 1 to tileX
      for z = 1 to tileZ

         rem make a randomm height
         heightFlag = rnd(3)

         rem use a different height
         if heightFlag = 0 then tempHeight# = 0.01
         if heightFlag = 1 then tempHeight# = 0.02*2
         if heightFlag = 2 then tempHeight# = 0.03*3
         if heightFlag = 3 then tempHeight# = 0.04*4

         rem generate terrain slope
         set matrix height 1, x, z, (tempHeight#*100)

         rem get the tileX and tileZ normals and light y position
         nx = x
         ny = light position y(1)
         nz = z

         rem put the tileX and tileZ normals in the vectors
         set vector3 1, nx, ny, nz
         set vector3 2, nx, ny, nz+1
         set vector3 3, nx+1, ny+1, nz

         rem now calculate two vectors representing the directions of the second two points from the first point
         subtract vector3 2, 2, 1
         subtract vector3 3, 3, 1

         rem vectors 2 and 3 are now parallel to the surface at the first point
         rem their cross-product will be perpendicular to both and hence perpendicular to the surface
         cross product vector3 3, 2, 3

         rem check that the vector is pointing upwards rather than downwards (or you could do some experimenting yourself
         rem to see which way the vectors are pointing)
         if y vector3(3) < 0 then multiply vector3 3, -1

         rem finally normalize your vector so it has length 1
         normalize vector3 3, 3

         rem get normals from the vector
         set matrix normal 1, x, z ,x vector3(3), y vector3(3) ,z vector3(3)

      next z
   next x
update matrix 1

set camera range 1,1000000
position camera matrixWidth/2, 100, matrixHeight/2
point camera matrixWidth/2, 0, matrixHeight/2

do

   rem make the light go around in a circle
   inc angle
   lightX = cos(angle) * radius
   lightZ = sin(angle) * radius

   rem position the light with radius
   position light 1, lightX-radius, 10, lightZ-radius
   point light 1,0,0,0

   rem loop through the matrix tiles
   for x = 1 to tileX
      for z = 1 to tileZ

         rem get the tileX and tileZ normals and light y position
         nx = x
         ny = light position y(1)
         nz = z

         rem put the tileX and tileZ normals in the vectors
         set vector3 1, nx, ny, nz
         set vector3 2, nx, ny, nz+1
         set vector3 3, nx+1, ny+1, nz

         rem now calculate two vectors representing the directions of the second two points from the first point
         subtract vector3 2, 2, 1
         subtract vector3 3, 3, 1

         rem vectors 2 and 3 are now parallel to the surface at the first point
         rem their cross-product will be perpendicular to both and hence perpendicular to the surface
         cross product vector3 3, 2, 3

         rem check that the vector is pointing upwards rather than downwards (or you could do some experimenting yourself
         rem to see which way the vectors are pointing)
         if y vector3(3) < 0 then multiply vector3 3, -1

         rem finally normalize your vector so it has length 1
         normalize vector3 3, 3

         rem get normals from the vector
         set matrix normal 1, x, z ,x vector3(3), y vector3(3) ,z vector3(3)

      next z
   next x
   update matrix 1

   text 20,20,"x vector3(3): "+str$(x vector3(3))
   text 20,40,"y vector3(3): "+str$(y vector3(3))
   text 20,60,"z vector3(3): "+str$(z vector3(3))
   text 20,80,"lightX: "+str$(lightX)
   text 20,100,"lightZ: "+str$(lightZ)
   text 20,120,"angle: "+str$(angle)

   sync
loop

set display mode desktop width(), desktop height(), 32
sync on : sync rate 60 : sync

autocam off
position camera 250, 500, 10
point camera 0, 0, 0

   rem light position and angle
  global angle = 0
  global radius = 180
  global lightX = -250
  global lightZ = -250
make matrix 1, 1000, 1000, 64, 64
stepX# = 1000/64.0
stepZ# = 1000/64.0
set matrix texture 1, 0, 1
load image "C:\texture.bmp", 1
prepare matrix texture 1, 1, 4, 4
position matrix 1, -500, 0, -500

` create three vectors
null = make vector3(1)
null = make vector3(2)
null = make vector3(3)

for x = 0 to 64
  for z = 0 to 64
    set matrix height 1, x, z, 50+50*sin((x+z)*12)
  next z
next x

` now calculate normals from height data
for x = 1 to 63
  for z = 1 to 63
    setMatrixNormal(1, x, z, stepX#, stepZ#)
  next z
next x

update matrix 1

repeat
   inc angle
   lightX = cos(angle) * radius
   lightZ = sin(angle) * radius

   rem position the light with radius
   position light 0, lightX-radius, 250, lightZ-radius
   point light 0, 0, 0, 0
  sync
until spacekey()

end

function setMatrixNormal(matId,tX,tZ,stepX#,stepZ#)
  ` set the vectors to three neighbouring points
  set vector3 1, tX*stepX#, get ground height(1, tX*stepX#,tZ*stepZ#), tZ*stepZ#
  set vector3 2, tX*stepX#, get ground height(1, tX*stepX#,(tZ+1)*stepZ#), (tZ+1)*stepZ#
  set vector3 3, (tX+1)*stepX#, get ground height(1, (tX+1)*stepX#,tZ*stepZ#), tZ*stepZ#

  ` now calculate two vectors representing the directions of the second two points from the first point
  subtract vector3 2, 2, 1
  subtract vector3 3, 3, 1

  ` vectors 2 and 3 are now parallel to the surface at the first point
  ` their cross-product will be perpendicular to both and hence perpendicular to the surface
  cross product vector3 3, 2, 3

  ` check that the vector is pointing upwards rather than downwards (or you could do some experimenting yourself
  ` to see which way the vectors are pointing)

  if y vector3(3) < 0 then multiply vector3 3, -1

  ` finally normalize your vector so it has length 1
  normalize vector3 3, 3
  set matrix normal 1, tX, tZ, x vector3(3), y vector3(3), z vector3(3)
endfunction

set display mode desktop width(), desktop height(), 32
sync on : sync rate 60 : sync

autocam off
position camera 250, 500, 10
point camera 0, 0, 0

   rem light position and angle
  global angle = 0
  global radius = 180
  global lightX = -250
  global lightZ = -250
make matrix 1, 1000, 1000, 64, 64
stepX# = 1000/64.0
stepZ# = 1000/64.0
set matrix texture 1, 0, 1
load image "grass.jpg", 1
prepare matrix texture 1, 1, 4, 4
position matrix 1, -500, 0, -500

rem load heightmap
load image "heightmap2.jpg",2,1

` create three vectors
null = make vector3(1)
null = make vector3(2)
null = make vector3(3)

rem paste heightmap
paste image 2,0,0
for x = 0 to 64
  for z = 0 to 64

      rem make sure the pixel color of the heightmap is above 0 and below 256
      if rgbr(point(x,z)) > 0 and rgbr(point(x,z)) < 256

         rem get the heights off the heightmap
         height# = height#+rgbr(point(x,z))

         rem smooth the heights down
         height# = height#/2

      endif

      rem plugin in the height# in the sin()
      set matrix height 1, x, z, 64+64*sin(height#/14)
  next z
next x
cls
` now calculate normals from height data
for x = 1 to 64
  for z = 1 to 64
    setMatrixNormal(1, x, z, stepX#, stepZ#)
  next z
next x

update matrix 1

repeat

   inc angle
   lightX = cos(angle) * radius
   lightZ = sin(angle) * radius

   rem position the light with radius
   position light 0, lightX-radius,250/8, lightZ-radius
   point light 0, 0, 0, 0
  sync
until spacekey()

end

function setMatrixNormal(matId,tX,tZ,stepX#,stepZ#)
  ` set the vectors to three neighbouring points
  set vector3 1, tX*stepX#, get ground height(1, tX*stepX#,tZ*stepZ#), tZ*stepZ#
  set vector3 2, tX*stepX#, get ground height(1, tX*stepX#,(tZ+1)*stepZ#), (tZ+1)*stepZ#
  set vector3 3, (tX+1)*stepX#, get ground height(1, (tX+1)*stepX#,tZ*stepZ#), tZ*stepZ#

  ` now calculate two vectors representing the directions of the second two points from the first point
  subtract vector3 2, 2, 1
  subtract vector3 3, 3, 1

  ` vectors 2 and 3 are now parallel to the surface at the first point
  ` their cross-product will be perpendicular to both and hence perpendicular to the surface
  cross product vector3 3, 2, 3

  ` check that the vector is pointing upwards rather than downwards (or you could do some experimenting yourself
  ` to see which way the vectors are pointing)

  if y vector3(3) < 0 then multiply vector3 3, -1

  ` finally normalize your vector so it has length 1
  normalize vector3 3, 3
  set matrix normal 1, tX, tZ, x vector3(3), y vector3(3), z vector3(3)
endfunction