Gear3D on BlitzMax NG

[Yue]

I’ve managed to load the Gear3D freeware into BlitzMax NG. I guess this is a new learning process as I retake my Gear3D engine project. The interesting thing is that BlitzMax NG offers certain new things in relation to the native BlitzMax and that sounds very attractive to me. Well, it’s light for my computer system. So here begins my new adventure to learn more about Object Oriented programming. ?

Translated with http://www.DeepL.com/Translator

[Yue]

Monkey

'******************************************************** '# Module : Gear3D for Windows # '# Url : http://www.iris3dgames.ga # '# Programmer : Yue Rexie # '# Compiler : BlitzMax NG - http://www.blitzMax.org # '# # '#******************************************************* SuperStrict Module iris3dgames.gear3d ModuleInfo "Name :Gear3D For Windows" ModuleInfo "Versión : 0.0" ModuleInfo "Copyright: LGPL. Iris3D Games" ModuleInfo "URL: http://www.iris3dgames.ga" Import pub.win32 Local lib:Byte Ptr = LoadLibraryW("Gear3D.dll") Global InitG3D:Byte Ptr(alto%,ancho%) "win32" Global SetAppTitle:Byte Ptr(titulo$z) "win32" Global RenderStage:Byte Ptr() "win32" Global FlipStage:Byte Ptr() "win32" If lib% Then InitG3D% = GetProcAddress(lib,"_InitG3D") SetAppTitle% = GetProcAddress(lib,"_SetAppTitle") RenderStage% = GetProcAddress(lib,"_RenderStage") FlipStage% = GetProcAddress(lib,"_FlipStage") Else RuntimeError("Invalid Load lib!") End If ' Includes. Include "Types\TG3D.bmx"

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

'******************************************************** '# Module   : Gear3D for Windows         # '# Url : http://www.iris3dgames.ga         # '# Programmer : Yue Rexie         # '# Compiler     : BlitzMax NG - http://www.blitzMax.org # '# # '#******************************************************* SuperStrict       Module iris3dgames.gear3d   ModuleInfo "Name     :Gear3D For Windows" ModuleInfo "Versión  : 0.0" ModuleInfo "Copyright: LGPL. Iris3D Games" ModuleInfo "URL: http://www.iris3dgames.ga"   Import pub.win32       Local  lib:Byte Ptr = LoadLibraryW("Gear3D.dll")     Global InitG3D:Byte Ptr(alto%,ancho%) "win32" Global SetAppTitle:Byte Ptr(titulo$z) "win32" Global RenderStage:Byte Ptr() "win32" Global FlipStage:Byte Ptr() "win32"       If lib%  Then   InitG3D% = GetProcAddress(lib,"_InitG3D") SetAppTitle% =  GetProcAddress(lib,"_SetAppTitle") RenderStage% = GetProcAddress(lib,"_RenderStage") FlipStage% = GetProcAddress(lib,"_FlipStage")   Else   RuntimeError("Invalid Load lib!")   End If     ' Includes. Include "Types\TG3D.bmx"

The tests carried out at the moment, seem to show good results when creating a 3d module for windows with BlitzMax NG.

The most pleasant thing is to understand certain things such as encapsulation among other things focused on object-oriented programming.

Monkey

Framework iris3dgames.gear3d Import brl.basic SetAppTitle("Gear3D") TG3D.Start() Repeat RenderStage() FlipStage() Forever

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Framework iris3dgames.gear3d Import brl.basic   SetAppTitle("Gear3D")   TG3D.Start()       Repeat   RenderStage() FlipStage()   Forever

?

[Yue]

Monkey

Framework iris3dgames.gear3d Import brl.basic 'TApp.SetFullScreen() TApp.SetTitle("Gear3D | v.0.1 | Alpha") Local App:TApp = TApp.InitG3D(800,600) Repeat App.ClsScreen() App.RenderStage() App.DrawText(20,20,"Hello World!") App.DrawText(20,40,App.GetBtnX("WM_CLOSE")) App.DrawText(20,60,App.GetFps()) App.FlipStage() Until App.GetKeyHit(1) Or App.GetBtnX("WM_CLOSE")

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Framework iris3dgames.gear3d Import brl.basic   'TApp.SetFullScreen() TApp.SetTitle("Gear3D | v.0.1 | Alpha") Local App:TApp  = TApp.InitG3D(800,600)   Repeat       App.ClsScreen()     App.RenderStage()     App.DrawText(20,20,"Hello World!")     App.DrawText(20,40,App.GetBtnX("WM_CLOSE"))     App.DrawText(20,60,App.GetFps())       App.FlipStage()   Until App.GetKeyHit(1) Or App.GetBtnX("WM_CLOSE")

This is really crazy, when you don’t understand something I have to use brute force to understand it. And the FindWindowA command was the nightmare. But I already have a way to exit the application using the keys or when it is recognized that the X button on the title bar has been pressed.

[Yue]

This is usually fun when you already have a vague idea of what you want to do, and you have the necessary knowledge to try to carry out a project.

Today’s tests are successful, I can dump the module commands for BlitzMax NG to program in Lua Script, just add a small modification to each command, a letter at the beginning of each. For example.

Monkey

TApp.SetTitle("Game") // Module on BlitzMax NG. TApp.sSetTitle("Game") // Lua Script.

1 2 3 4

TApp.SetTitle("Game") // Module on BlitzMax NG. TApp.sSetTitle("Game") // Lua Script.

 

[Author]

Posts