Sorry your browser is not supported!

null = make matrix4(1)
print x vector4(1); ","; y vector4(1); ","; z vector4(1); ","; w vector4(1)
rotate y matrix4 1, 45
print x vector4(1); ","; y vector4(1); ","; z vector4(1); ","; w vector4(1)
wait key

Make Object Sphere 1, 10
ViewMatrix=100
r=Make Matrix4(ViewMatrix)
Sync Rate 0
Sync On
Do
   Set Cursor 0, 0
   Control Camera Using Arrowkeys 0, 2, 3
   View Matrix4 ViewMatrix
   Print "Arrow keys to move camera"
   Print
   PrintMatrix4(ViewMatrix)
   Sync
Loop


Function GetMatrix4Element1(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 1.0, 0.0, 0.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=X Vector4(126)
EndFunction Result#

Function GetMatrix4Element2(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 1.0, 0.0, 0.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=Y Vector4(126)
EndFunction Result#

Function GetMatrix4Element3(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 1.0, 0.0, 0.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=Z Vector4(126)
EndFunction Result#

Function GetMatrix4Element4(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 1.0, 0.0, 0.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=W Vector4(126)
EndFunction Result#

Function GetMatrix4Element5(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 1.0, 0.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=X Vector4(126)
EndFunction Result#

Function GetMatrix4Element6(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 1.0, 0.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=Y Vector4(126)
EndFunction Result#

Function GetMatrix4Element7(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 1.0, 0.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=Z Vector4(126)
EndFunction Result#

Function GetMatrix4Element8(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 1.0, 0.0, 0.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=W Vector4(126)
EndFunction Result#

Function GetMatrix4Element9(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 0.0, 1.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=X Vector4(126)
EndFunction Result#

Function GetMatrix4Element10(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 0.0, 1.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=Y Vector4(126)
EndFunction Result#

Function GetMatrix4Element11(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 0.0, 1.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=Z Vector4(126)
EndFunction Result#

Function GetMatrix4Element12(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 0.0, 1.0, 0.0
Transform Vector4 126, 126, Matrix
Result#=W Vector4(126)
EndFunction Result#

Function GetMatrix4Element13(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 0.0, 0.0, 1.0
Transform Vector4 126, 126, Matrix
Result#=X Vector4(126)
EndFunction Result#

Function GetMatrix4Element14(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 0.0, 0.0, 1.0
Transform Vector4 126, 126, Matrix
Result#=Y Vector4(126)
EndFunction Result#

Function GetMatrix4Element15(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 0.0, 0.0, 1.0
Transform Vector4 126, 126, Matrix
Result#=Z Vector4(126)
EndFunction Result#

Function GetMatrix4Element16(Matrix)
Result#=0.0
r=Make Vector4(126)
Set Vector4 126, 0.0, 0.0, 0.0, 1.0
Transform Vector4 126, 126, Matrix
Result#=W Vector4(126)
EndFunction Result#

Function PrintMatrix4(Matrix)
   M00#=GetMatrix4Element1(Matrix): M01#=GetMatrix4Element2(Matrix): M02#=GetMatrix4Element3(Matrix): M03#=GetMatrix4Element4(Matrix)
   M10#=GetMatrix4Element5(Matrix): M11#=GetMatrix4Element6(Matrix): M12#=GetMatrix4Element7(Matrix): M13#=GetMatrix4Element8(Matrix)
   M20#=GetMatrix4Element9(Matrix): M21#=GetMatrix4Element10(Matrix): M22#=GetMatrix4Element11(Matrix): M23#=GetMatrix4Element12(Matrix)
   M30#=GetMatrix4Element13(Matrix): M31#=GetMatrix4Element14(Matrix): M32#=GetMatrix4Element15(Matrix): M33#=GetMatrix4Element16(Matrix)
   Print "Matrix ", Matrix
   Print Str$(M00#), " ", Str$(M01#), " ", Str$(M02#), " ", Str$(M03#)
   Print Str$(M10#), " ", Str$(M11#), " ", Str$(M12#), " ", Str$(M13#)
   Print Str$(M20#), " ", Str$(M21#), " ", Str$(M22#), " ", Str$(M23#)
   Print Str$(M30#), " ", Str$(M31#), " ", Str$(M32#), " ", Str$(M33#)
EndFunction