Sorry your browser is not supported!

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

autocam off
position camera 500, 500, 100
point camera 500, 0, 500

cls rgb(0, 128, 0)
ink rgb(255, 0, 0)
box 0, 0, 128, 128
ink rgb(0, 0, 255)
box 0, 128, 128, 256
get image 1, 0, 0, 512, 512

 make matrix 1,1000,1000,25,25
 prepare matrix texture 1, 1, 2, 2
 position matrix 1,0,0,0
 randomize matrix 1,rnd(100)
 update matrix 1
 
 texture backdrop 1
 
 do
   sync
 loop

Matrix=1
Box 0, 0, 100, 100, RGB(255,255,128), RGB(255,0,0), RGB(0,255,128), RGB(0,0,255)
Get Image 1, 1, 1, 100, 100

MatrixWidth#=100.0
MatrixHeight#=100.0
MatrixXSegments=10
MatrixZSegments=10

Randomize timer()

Make Matrix Matrix, MatrixWidth#, MatrixHeight#, MatrixXSegments, MatrixZSegments
Randomize Matrix Matrix, 3
Prepare Matrix Texture Matrix, 1, 1, 1
Set Matrix Matrix, 0, 0, 0, 0, 0, 0, 1
Update Matrix Matrix

`BFM added the cone object, and objects rotate just fine, but not matrix ;_;
make object cone 1,10

Position Camera 50, 10, -100

Load Dll "DBProBasic3DDebug.dll", 1
`Load Dll "DBProMatrixDebug.dll", 1

X#=0.0
Y#=0.0
Z#=0.0
Axis$="X"

Sync Rate 0
Sync On
Do
   Print "Dll exist" ;dll exist(1)
	Print "Dll call exist" ; dll call exist(1, "?XRotate@@YAXHM@Z")
	
	Control Camera Using ArrowKeys 0, .1, 1
   Set Cursor 0, 0
   Print "Code By Dmitry K"
   Print "Press 1 to select X axis, 2 to Y axis, 3 to Z axis"
   Print "Keys +\- to increase\decrease axis angle"
   Print "Current rotation axis = ", Axis$
   If Inkey$()="1" Then Axis$="X"
   If Inkey$()="2" Then Axis$="Y"
   If Inkey$()="3" Then Axis$="Z"

   If ((Axis$="X") And ((Timer()-oTimer)>100))
      If Inkey$()="+"
         X#=WrapValue(X#+90.0)
         Call Dll 1, "?XRotate@@YAXHM@Z", 1, X#
         oTimer=Timer()
      EndIf
      If Inkey$()="-"
         X#=WrapValue(X#-90.0)
         Call Dll 1, "?XRotate@@YAXHM@Z", 1, X#
         oTimer=Timer()
      EndIf
   EndIf

   If ((Axis$="Y") And ((Timer()-oTimer)>100))
      If Inkey$()="+"
         Y#=WrapValue(Y#+90.0)
         Call Dll 1, "?YRotate@@YAXHM@Z", 1, Y#
         oTimer=Timer()
      EndIf
      If Inkey$()="-"
         Y#=WrapValue(Y#-90.0)
         Call Dll 1, "?YRotate@@YAXHM@Z", 1, Y#
         oTimer=Timer()
      EndIf
   EndIf

   If ((Axis$="Z") And ((Timer()-oTimer)>100))
      If Inkey$()="+"
         Z#=WrapValue(Z#+90.0)
         Call Dll 1, "?ZRotate@@YAXHM@Z", 1, Z#
         oTimer=Timer()
      EndIf
      If Inkey$()="-"
         Z#=WrapValue(Z#-90.0)
         Call Dll 1, "?ZRotate@@YAXHM@Z", 1, Z#
         oTimer=Timer()
      EndIf
   EndIf

   Sync
Loop

sync on : sync rate 60

cls rgb(255,255,255)
ink rgb(0,0,0),0
box 64,0,128,64
get image 1,0,0,128,64,1

s=16

make matrix 1,s*32,s*8,32,8
make matrix 2,s*32,1,32,8

for m=1 to 2
   set matrix m,0,0,1,1,1,0,1
   prepare matrix texture m,1,2,1
   fill matrix m,0,1
   t=0
   for g=0 to 7
      for f=0 to 30 step 2
         set matrix tile m,f+t,g,2
      next f
      t=1-t
   next g
   if m=2
      position matrix m,0,0,s*8
      for f=0 to 32
         for g=0 to 8
            set matrix height m,f,g,g*s
         next g
      next f
   endif
   update matrix m
next m

position camera -50,50,-50
turn camera right 45
do
   control camera using arrowkeys 0,5,2
   sync
loop