61.9621391296
Randomize Timer()
`FOV#=RND(3600)/10.0
`Set Camera Fov FOV#
Backdrop On
Sync Rate 0
Sync On
Do
Text 10, 10, "Function GetCurrentFOV() by Dmitry Kuschev"
Text 10, 50, "FOV# = "+Str$(FOV#)
Text 10, 70, "GetCurrentFOV() = "+Str$(GetCurrentFOV())
Sync
Loop
Function GetCurrentFOV()
r=Make Matrix4(100)
r=Make Vector4(101)
Projection Matrix4 100
Set Vector4 101, 1.0, 0.0, 0.0, 0.0
Transform Vector4 101, 101, 100
GetFOVResult#=Atan(1.0/(X Vector4(101)*((Screen Width()*1.0)/(Screen Height()*1.0))))*2.0
If GetFOVResult# <= 0.0 Then Inc GetFOVResult#, 360.0
r=Delete Matrix4(100)
r=Delete Vector4(101)
EndFunction GetFOVResult#
Specs: P4 2.4GHz, DIMM 256 266Mhz, 60GB HD 7200rpm ATA-133, GeForce 4 MX440, CD-RW+DVD, WinXP