hi all, just got back of holiday so i will be updating the download on sunday with one that has a better FPS
View distance has been reduced now, i was going to add fog to further hide objects in the distance, but im using an old laptop, so i dont think it supports fogging, View Distance is now set at 5000, but I will try to reduce it some more if needed, 5000 is enough to fit the whole Newton Terrain Example in screen in its original size.
I thought about what StOrM3 said about not automatically activating AVI Globals to increase speed, but all that was being activated was the following.
SetupAVI: Global AVICaptureActive As Integer
Global AVImage As Integer
AVImage = Find Free Image()
Get Image AVImage,0,0,10,10,1
Return
During the loop if AVI Recording is not activated then when the function is called then this is the only line which is run
If AVICaptureActive = 0 Then ExitFunction 0
theres no actual increase in FPS from what i could see by removing this, but i will change it so its only activated when needed, as for why AVI recording was so slow, i think that is down to grabbing the screen area and saving each frame as an img before movin it to the AVI File, I did think about removing the AVI Recording feature all together as in its current state it runs far too slow when recording, (or on my Laptop anyway), AVI Recording is currently done using BlitzAVI, Although its a BlitzBasic DLL, Its better than any DBPro DLL i could find as it allows you to pick compression for a smaller file size.
I've also removed the skinning\theme functions as its only a visual thing as isnt necessary, if need be then i will add a dual boot with XP on my laptop so i can activate the windows themes with a manifest file, (BlueGui Manifest file only works if compiled under XP), But without the Themes DLL and Functions, its a few FPS Extra, and it wasnt actually being used at the moment.
Culling is automatically activated on all created objects except the water plain, this is because when i activate culling on the water, the object disappears, and im unsure why.
FPS is now at 33 on my laptop when water is set to maximum quality, (Big improvement on above download), but if you reduce the texture quality and disable reflection\refraction on the water all which can be done via the new water menu, then on my laptop it doubles the FPS Rate to 50\60.
I am going through it now as you suggested to see what integers can be changed to Boolean, ect as you said, its only a bit, but it adds up, I know that i have a lot of Globals for Menu Items which BlueGui and DBPro dosnt need, (as shown in code below), but i find that that this makes it easier to edit the code.
CreateToolbarWin: ` Create MenuBar ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mMenuBar As Integer : mMenubar = CreateMenu(DBWin)
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mFile As Integer : mFile = CreateMenuSub(mMenubar,"&File" ,"" )
Global mNew As Integer : mNew = CreateMenuItem(mFile ,"&New" ,"" )
Global mOpen As Integer : mOpen = CreateMenuItem(mFile ,"&Open" ,"" )
Global mSave As Integer : mSave = CreateMenuItem(mFile ,"&Save" ,"" )
Global mSaveAs As Integer : mSaveAs = CreateMenuItem(mFile ,"Save &As" ,"" ) : AddMenuSplitter mFile
Global mExportDBCode As Integer : mExportDBCode = CreateMenuItem(mFile ,"Export DarkBasic Code","" ) : AddMenuSplitter mFile
Global mExit As Integer : mExit = CreateMenuItem(mFile ,"E&xit" ,"" )
Global mEdit As Integer : mEdit = CreateMenuSub(mMenubar,"&Edit" ,"" )
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mView As Integer : mView = CreateMenuSub(mMenubar,"&View" ,"" )
Global mShowStatusbar As Integer : mShowStatusbar = CreateMenuItem(mView ,"Show Statusbar" ,"" )
Global mShowToolbar As Integer : mShowToolbar = CreateMenuItem(mView ,"Show Toolbar" ,"" )
Global mShowTabs As Integer : mShowTabs = CreateMenuItem(mView ,"Show Tabs" ,"" ) : AddMenuSplitter mView
Global mShowProjectManager As Integer : mShowProjectManager = CreateMenuItem(mView ,"Show Project Manager" ,"" )
Global mShowProperties As Integer : mShowProperties = CreateMenuItem(mView ,"Show Properties" ,"" )
Global mShowNotes As Integer : mShowNotes = CreateMenuItem(mView ,"Show Project Notes" ,"" )
Global mShowCamWin As Integer : mShowCamWin = CreateMenuItem(mView ,"Show Camera Controls" ,"" ) : AddMenuSplitter mView
Global mSystemProperties As Integer : mSystemProperties = CreateMenuItem(mView ,"Change System Theme" ,AppPath$+"Images\Theme.bmp")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mTools As Integer : mTools = CreateMenuSub(mMenubar,"&Tools" ,"" )
Dim mToolDim(10) As Integer : Set Dir AppPath$+"Tools\" : Perform Checklist For Files
For Value = 3 to Checklist Quantity() : Add To Stack mToolDim()
mToolDim(Array Count(mToolDim())) = CreateMenuItem(mTools,Checklist String$(Value),"")
Next Value : Empty Checklist
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mWindow As Integer : mWindow = CreateMenuSub(mMenubar,"&Window" ,"" )
Global mWindowAlignL As Integer : mWindowAlignL = CreateMenuItem(mWindow,"Align &Left" ,"" )
Global mWindowAlignR As Integer : mWindowAlignR = CreateMenuItem(mWindow,"Align &Right" ,"" )
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mHelp As Integer : mHelp = CreateMenuSub(mMenubar,"&Help" ,"" )
Global mHelpReport As Integer : mHelpReport = CreateMenuItem(mHelp ,"Report A Problem" ,"" )
Global mHelpAbout As Integer : mHelpAbout = CreateMenuItem(mHelp ,"About" ,"" )
` Main Toolbar ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ToolbarItemCount = -1
Global Toolbar As Integer : Toolbar = CreateToolbar(DBWin) : AddStandardToolbarButtons toolbar
Global ToolbarNewProject As Integer : ToolbarNewProject = ToolbarItemCount+1 : AddToolbarButton Toolbar,TOOLBAR_NEW ,0,"New Project" : Inc ToolbarItemCount,1
Global ToolbarOpenProject As Integer : ToolbarOpenProject = ToolbarItemCount+1 : AddToolbarButton toolbar,TOOLBAR_OPEN,0,"Open Project" : Inc ToolbarItemCount,1
Global ToolbarSaveProject As Integer : ToolbarSaveProject = ToolbarItemCount+1 : AddToolbarButton toolbar,TOOLBAR_SAVE,0,"Save Project" : Inc ToolbarItemCount,1 : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarDarkBasic As Integer : ToolbarDarkBasic = AddToolbarBtn(Toolbar,AppPath$+"Images/DarkBasic.bmp" ,1,"View Game Code" ) : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarPhysicsOnOff As Integer : ToolbarPhysicsOnOff = AddToolbarBtn(Toolbar,AppPath$+"Images/Physics.bmp" ,1,"Enable\Disable Physics" ) : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarShadows As Integer : ToolbarShadows = AddToolbarBtn(Toolbar,AppPath$+"Images/Shadow.bmp" ,1,"Enable\Disable Shadows" ) : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarCamFPS As Integer : ToolbarCamFPS = AddToolbarBtn(Toolbar,AppPath$+"Images/Cam FPS.bmp" ,1,"Set Camera to FPS Position")
Global ToolbarCamRPG As Integer : ToolbarCamRPG = AddToolbarBtn(Toolbar,AppPath$+"Images/Cam RPG.bmp" ,1,"Set Camera to RPG Position") : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarAVI As Integer : ToolbarAVI = AddToolbarBtn(Toolbar,AppPath$+"Images/AVI.bmp" ,0,"Media Capture Controls" ) : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarHelpBtn As Integer : ToolbarHelpBtn = ToolbarItemCount+1 : AddToolbarButton Toolbar,TOOLBAR_HELP,0,"Help" : Inc ToolbarItemCount,1
Global mAVI As Integer : mAVI = CreatePopupMenu()
Global mAVIStartStop As Integer : mAVIStartStop = CreateMenuItem(mAVI,"Start Recording AVI" ,"")
Global mAVIOpen As Integer : mAVIOpen = CreateMenuItem(mAVI,"Open My Recorded Videos","") : AddMenuSplitter mAVI
Global mScreenshot As Integer : mScreenshot = CreateMenuItem(mAVI,"Take Screenshot" ,"")
Global mScreenshotOpen As Integer : mScreenshotOpen = CreateMenuItem(mAVI,"Open My Screenshots" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global Tabs As Integer : Tabs = CreateTabs(0,GadgetClientHeight(Toolbar),9000,45,DBWin) : SetPanelBorderStyle Tabs,BORDER_NONE
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"Default Objects" : Panel = CreatePanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AddStandardToolbarButtons toolbar : ToolbarItemCount = -1
Global ToolbarObjects As Integer : ToolbarObjects = CreateToolbar(Panel) : AttachGadget Tabs,0,Panel : AddStandardToolbarButtons ToolbarObjects
Global ToolbarObjectLoad As Integer : ToolbarObjectLoad = ToolbarItemCount+1 : AddToolbarButton ToolbarObjects,TOOLBAR_OPEN,0,"Import Object" : Inc ToolbarItemCount,1 : AddToolbarSplitter ToolbarObjects : Inc ToolbarItemCount,1
Global ToolbarObjectFPSC As Integer : ToolbarObjectFPSC = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/FPSC.bmp" ,0,"Import Last Created FPSC Level")
Global ToolbarObjectEntity As Integer : ToolbarObjectEntity = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Entity.bmp" ,0,"Import FPSC Entity" ) : AddToolbarSplitter ToolbarObjects : Inc ToolbarItemCount,1
Global ToolbarObjectBox As Integer : ToolbarObjectBox = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Box.bmp" ,0,"Create Object Box" )
Global ToolbarObjectSphere As Integer : ToolbarObjectSphere = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Sphere.bmp" ,0,"Create Object Sphere" )
Global ToolbarObjectCylinder As Integer : ToolbarObjectCylinder = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Cylinder.bmp",0,"Create Object Cylinder")
Global ToolbarObjectCone As Integer : ToolbarObjectCone = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Cone.bmp" ,0,"Create Object Cone" ) : AddToolbarSplitter ToolbarObjects : Inc ToolbarItemCount,1
Global ToolbarObjectPlain As Integer : ToolbarObjectPlain = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Plain.bmp" ,0,"Create Object Plain" )
Global ToolbarObjectTriangle As Integer : ToolbarObjectTriangle = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Triangle.bmp",0,"Create Object Triangle")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"Terrain" : Panel = CreatePanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AttachGadget Tabs,1,Panel : ToolbarItemCount = -1
Global ToolbarTerrain As Integer : ToolbarTerrain = CreateToolbar(Panel) : AddStandardToolbarButtons ToolbarTerrain
Global ToolbarTerrainLoad As Integer : ToolbarTerrainLoad = ToolbarItemCount+1 : AddToolbarButton ToolbarTerrain,TOOLBAR_OPEN ,0,"Create Terain" : Inc ToolbarItemCount,1
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"BSP World" : Panel = createPanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AttachGadget Tabs,2,Panel : ToolbarItemCount = -1
Global ToolbarBSP As Integer : ToolbarBSP = CreateToolbar(Panel) : AddStandardToolbarButtons ToolbarBSP
Global ToolbarBSPLoad As Integer : ToolbarBSPLoad = ToolbarItemCount+1 : AddToolbarButton ToolbarBSP,TOOLBAR_OPEN ,0,"Import a BSP World File" : Inc ToolbarItemCount,1
Global ToolbarBSPDelete As Integer : ToolbarBSPDelete = ToolbarItemCount+1 : AddToolbarButton ToolbarBSP,TOOLBAR_DELETE,0,"Delete the a BSP" : Inc ToolbarItemCount,1
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"Lights" : Panel = CreatePanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AttachGadget Tabs,3,Panel : ToolbarItemCount = -1
Global ToolbarLight As Integer : ToolbarLight = CreateToolbar(Panel)
Global ToolbarLightAdd As Integer : ToolbarLightAdd = AddToolbarBtn(ToolbarLight,AppPath$+"Images/Empty.bmp",0,"Add a Light Source")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"Sky" : Panel = CreatePanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AttachGadget Tabs,4,Panel : ToolbarItemCount = -1
Global ToolbarSky As Integer : ToolbarSky = CreateToolbar(Panel) : AddStandardToolbarButtons ToolbarSky
Global ToolbarSkyLoad As Integer : ToolbarSkyLoad = ToolbarItemCount+1 : AddToolbarButton ToolbarSky,TOOLBAR_OPEN,0,"Change SkySphere" : Inc ToolbarItemCount,1
Global ToolbarSkyDelete As Integer : ToolbarSkyDelete = ToolbarItemCount+1 : AddToolbarButton ToolbarSky,TOOLBAR_DELETE,0,"Delete SkySphere" : Inc ToolbarItemCount,1
` Create Statusbar ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global Statusbar As Integer : Statusbar = CreateStatusBar(DBWin)
Global StatusPanel_ActiveTool As Integer : StatusPanel_ActiveTool = 1 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_ActiveTool ,"Active Tool"
Global StatusPanel_ItemsSelected As Integer : StatusPanel_ItemsSelected = 2 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_ItemsSelected,"0 Items Selected"
Global StatusPanel_PolyCount As Integer : StatusPanel_PolyCount = 3 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_PolyCount ,"On Screen Poly Count = 0"
Global StatusPanel_CameraView As Integer : StatusPanel_CameraView = 4 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_CameraView ,"Camera View = FPS"
Global StatusPanel_FPS As Integer : StatusPanel_FPS = 5 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_FPS ,"FPS = 0"
` Create Right Click Menu's ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mSkySphere As Integer : mSkySphere = CreatePopupMenu()
Global mSkySphereChange As Integer : mSkySphereChange = CreateMenuItem(mSkySphere ,"Change SkySphere" ,"")
Global mSkySphereRemove As Integer : mSkySphereRemove = CreateMenuItem(mSkySphere ,"Remove SkySphere" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mSkySphere2 As Integer : mSkySphere2 = CreatePopupMenu()
Global mSkySphereAdd As Integer : mSkySphereAdd = CreateMenuItem(mSkySphere2,"Add SkySphere" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mObject As Integer : mObject = CreatePopupMenu()
Global mObjectPreview As Integer : mObjectPreview = CreateMenuItem(mObject ,"Preview Object" ,"") : AddMenuSplitter mObject
Global mObjectTile As Integer : mObjectTile = CreateMenuItem(mObject ,"Tile Object" ,"")
Global mObjectClone As Integer : mObjectClone = CreateMenuItem(mObject ,"Clone Object" ,"") : AddMenuSplitter mObject
Global mObjectPosition As Integer : mObjectPosition = CreateMenuItem(mObject ,"Position Object" ,"")
Global mObjectRotate As Integer : mObjectRotate = CreateMenuItem(mObject ,"Rotate Object" ,"")
Global mObjectResize As Integer : mObjectResize = CreateMenuItem(mObject ,"Resize Object" ,"") : AddMenuSplitter mObject
Global mObjectTexturing As Integer : mObjectTexturing = CreateMenuSub(mObject ,"Object Texture" ,"")
Global mObjectTexture As Integer : mObjectTexture = CreateMenuItem(mObjectTexturing,"Select Object Texture" ,"")
Global mObjectRemoveTexture As Integer : mObjectRemoveTexture = CreateMenuItem(mObjectTexturing,"Remove Object Texture" ,"")
Global mObjectEditTexture As Integer : mObjectEditTexture = CreateMenuItem(mObjectTexturing,"Edit Object Texture" ,"")
Global mObjectColor As Integer : mObjectColor = CreateMenuItem(mObject ,"Color Object" ,"") : AddMenuSplitter mObject
Global mObjectShaders As Integer : mObjectShaders = CreateMenuSub(mObject ,"Shaders" ,"") : AddMenuSplitter mObject
Global mObjectSHologram As Integer : mObjectSHologram = CreateMenuItem(mObjectShaders ,"Hologram White" ,"")
Global mObjectSPhongHologram As Integer : mObjectSPhongHologram = CreateMenuItem(mObjectShaders ,"Hologram Blue" ,"")
Global mObjectSUFOGlass As Integer : mObjectSUFOGlass = CreateMenuItem(mObjectShaders ,"Crystal And Glass" ,"")
Global mObjectSCartoon As Integer : mObjectSCartoon = CreateMenuItem(mObjectShaders ,"Cartoon" ,"")
Global mObjectSMetal As Integer : mObjectSMetal = CreateMenuItem(mObjectShaders ,"Metal" ,"")
Global mObjectSSphereMapping As Integer : mObjectSSphereMapping = CreateMenuItem(mObjectShaders ,"Sphere Mapping" ,"")
Global mObjectSReliefMapping As Integer : mObjectSRelief = CreateMenuSub( mObjectShaders ,"Relief Mapping" ,"")
Global mObjectSReliefMappingOpen As Integer : mObjectSReliefOpen = CreateMenuItem(mObjectSRelief ,"Open Relief Mapping Image" ,"") : AddMenuSplitter mObjectSRelief
Dim mShaderReliefDim(0) As Integer : Set Dir AppPath$+"Resources\FX\Relief Mapping\Defaults\" : Perform Checklist For Files
For Value = 3 to Checklist Quantity() : Add To Stack mShaderReliefDim()
mShaderReliefDim(Array Count(mShaderReliefDim())) = CreateMenuItem(mObjectSRelief,Checklist String$(Value),"")
Next Value : Empty Checklist
Global mObjectSOffsetMapping As Integer : mObjectSOffsetMapping = CreateMenuItem(mObjectShaders ,"Rock Wall, (Offset Mapping)" ,"")
Global mObjectSFallingCover As Integer : mObjectSFallingCover = CreateMenuSub( mObjectShaders ,"Falling Cover" ,"")
Global mObjectSFallingCoverOpen As Integer : mObjectSFallingCoverOpen = CreateMenuItem(mObjectSFallingCover,"Open Falling Cover Texture" ,"") : AddMenuSplitter mObjectSFallingCover
Dim mShaderFallingCoverDim(0) As Integer : Set Dir AppPath$+"Resources\FX\Falling Cover\Defaults\" : Perform Checklist For Files
For Value = 3 to Checklist Quantity() : Add To Stack mShaderFallingCoverDim()
mShaderFallingCoverDim(Array Count(mShaderFallingCoverDim())) = CreateMenuItem(mObjectSFallingCover,Fast Left$(Checklist String$(Value),Len(Checklist String$(Value))-4),"")
Next Value : Empty Checklist
Global mObjectSFur As Integer : mObjectSFur = CreateMenuSub( mObjectShaders ,"Fur" ,"")
Global mObjectSReliefMappingOpen As Integer : mObjectSReliefOpen = CreateMenuItem(mObjectSFur ,"Open Fur Mask Image" ,"") : AddMenuSplitter mObjectSFur
Dim mShaderFurDim(0) As Integer : Set Dir AppPath$+"Resources\FX\Fur\Defaults\" : Perform Checklist For Files
For Value = 3 to Checklist Quantity() : Add To Stack mShaderFurDim()
mShaderFurDim(Array Count(mShaderFurDim())) = CreateMenuItem(mObjectSFur,Fast Left$(Checklist String$(Value),Len(Checklist String$(Value))-4),"")
Next Value : Empty Checklist
Global mObjectSReflection As Integer : mObjectSReflection = CreateMenuItem(mObjectShaders ,"Reflection" ,"")
Global mObjectCull As Integer : mObjectCull = CreateMenuItem(mObject ,"Cull Object" ,"")
Global mObjectGhost As Integer : mObjectGhost = CreateMenuItem(mObject ,"Ghost Object" ,"")
Global mObjectReflective As Integer : mObjectReflective = CreateMenuItem(mObject ,"Reflective" ,"")
Global mObjectWireFrame As Integer : mObjectWireFrame = CreateMenuItem(mObject ,"WireFrame" ,"")
Global mObjectBounds As Integer : mObjectBounds = CreateMenuItem(mObject ,"Bounds" ,"") : AddMenuSplitter mObject
Global mObjectAnim As Integer : mObjectAnim = CreateMenuSub(mObject ,"Animation" ,"") : AddMenuSplitter mObject
Global mObjectAnimPlay As Integer : mObjectAnimPlay = CreateMenuItem(mObjectAnim ,"Play" ,"")
Global mObjectAnimPause As Integer : mObjectAnimPause = CreateMenuItem(mObjectAnim ,"Pause" ,"")
Global mObjectAnimStop As Integer : mObjectAnimStop = CreateMenuItem(mObjectAnim ,"Stop" ,"") : AddMenuSplitter mObjectAnim
Global mObjectAnimNext As Integer : mObjectAnimNext = CreateMenuItem(mObjectAnim ,"Next Frame" ,"")
Global mObjectAnimPrevious As Integer : mObjectAnimPrevious = CreateMenuItem(mObjectAnim ,"Previous Frame" ,"")
Global mObjectSave As Integer : mObjectSave = CreateMenuSub(mObject ,"Export Object" ,"")
Global mObjectSaveDBO As Integer : mObjectSaveDBO = CreateMenuItem(mObjectSave ,"Export DarkBasic Object (dbo)","")
Global mObjectSaveX As Integer : mObjectSaveX = CreateMenuItem(mObjectSave ,"Export DirectX Object (x)" ,"")
Global mObjectFPSCExport As Integer : mObjectFPSCExport = CreateMenuItem(mObjectSave ,"Export FPSC Entity" ,"") : AddMenuSplitter mObject
Global mObjectDelete As Integer : mObjectDelete = CreateMenuItem(mObject ,"Delete Object" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mLight As Integer : mLight = CreatePopupMenu()
Global mLightClone As Integer : mLightClone = CreateMenuItem(mLight,"Clone Light" ,"") : AddMenuSplitter mLight
Global mLightPosition As Integer : mLightPosition = CreateMenuItem(mLight,"Position Light" ,"")
Global mLightRotate As Integer : mLightRotate = CreateMenuItem(mLight,"Rotate Light" ,"")
Global mLightColor As Integer : mLightColor = CreateMenuItem(mLight,"Color Light" ,"") : AddMenuSplitter mLight
Global mLightDelete As Integer : mLightDelete = CreateMenuItem(mLight,"Delete Light" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mWater As Integer : mWater = CreatePopupMenu()
Global mWaterTextureSize As Integer : mWaterTextureSize = CreateMenuSub( mWater ,"Texture Size" ,"") : AddMenuSplitter mWater
Global mWaterTextureSize1024 As Integer : mWaterTextureSize1024 = CreateMenuItem(mWaterTextureSize,"1024" ,"")
Global mWaterTextureSize512 As Integer : mWaterTextureSize512 = CreateMenuItem(mWaterTextureSize,"512" ,"")
Global mWaterTextureSize256 As Integer : mWaterTextureSize256 = CreateMenuItem(mWaterTextureSize,"256" ,"")
Global mWaterReflection As Integer : mWaterReflection = CreateMenuItem(mWater ,"Enable Reflection" ,"") : SetMenuItemChecked mWater,mWaterReflection,1
Global mWaterRefraction As Integer : mWaterRefraction = CreateMenuItem(mWater ,"Enable Refraction" ,"") : SetMenuItemChecked mWater,mWaterRefraction,1 : SetMenuItemChecked mWaterTextureSize,mWaterTextureSize1024,1
Return
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
I might aswell remove the Physics Buttons and the Newton Physics at the moment as its not implimented at the moment, that may give a few extra FPS, also there is an Issue with shadows that i need to fix.
StOrM3, If you have altered any of the include files, then can you email them to me saying whats been changed, (on link below), as i said above i will post a new download on sunday with the better FPS.