Minib3d and Windows 7

BlitzMax Forums/MiniB3D Module/Minib3d and Windows 7

*	(Posted 2009) [#1]

Does Minib3d work with Windows 7?

Jason W.

(Posted 2009) [#2]

I was able to get it to work on a x86 pc using Windows 7 Beta. I did not do much with it, but all the examples worked fine as well as a few things I programmed.

I did get BMax and MaxGUI installed on my new PC (i7 using Windows 7 64bit RC). Even build all modules worked correctly.

I can test to see if Mini3d will work with my build because I planned on installing the mod tonight.

Is there anything you would like for me to test?

Jason

*	(Posted 2009) [#3]

well running all the minib3d examples stop on Renderworld here.

Jason W.

(Posted 2009) [#4]

I'm still at work, but I'll check the examples again when I get home.

Jason

Jason W.

(Posted 2009) [#5]

Everything I tested worked fine once I applied the bugfix that Uncle posted: http://www.blitzbasic.com/Community/posts.php?topic=83935 (Thanks Uncle...this was driving me crazy until I found your post)

No Renderworld issues in Windows 7.

My setup if it helps:

i7 cpu
ati 4890
Windows 7 RC x64 bit

I applied the fix to the 'sidesign.mod', so you need to replace any 'Import "minib3d.bmx"' calls with 'Import sidesign.minib3d' (do not include the ').

Jason

*	(Posted 2009) [#6]

my setup is:
AMD Athlon 64 3400
ATI 2600 (AGP)
Windows 7 RC 32bit

done the sidesign things and the TModel.bmx fix but still dies on Renderworld

Jason W.

(Posted 2009) [#7]

Maybe something happed during the install.

Try these steps that I just performed on my new win 7 install:

1. Back up your work.
2. Uninstall bmax and deleted any left over folders (please back up your work because I want to play Elite Multiplayer).
3. Install the latest version of Bmax (1.33).
4. Open Explorer, go to your bmax folder, right-click on the bmax folder and select properties, go to the security tab and click the Advanced button, and click on the Owner tab and change the ownership to your user-id.
5. Right-click again on the bmax folder, and remove the read-only setting. Make sure you apply this to the sub-folders and files.
~~6. Install the latest version of MinGW (make sure you run the installer in admin mode): http://www.blitzbasic.com/Community/posts.php?topic=72892#814825 <--follow mark's instructions~~
6. See my post below on installing MinGW.
7. Install any modules (MaxGUI, miniB3d, etc) to the mod folder. Apply the minib3d fix that Uncle posted.
8. Open BMAX and do a build all modules.

If everything compiles without an error, then you should be ready to test miniB3d examples.

Good luck!

Jason

Jason W.

(Posted 2009) [#8]

Instead of follow mark's post exactly on installing MinGW, use the latest version, run the installer in admin mode, and exclude the Vista user option:

----------------------------------------
Mingw is the collection of C/C++ compilers and tools used to build BlitzMax on Windows.

You only need to install Mingw if you plan to rebuild Blitz Research or third party modules. BlitzMax can be used 'as is' to create applications without having to install Mingw.

As of ~~v1.26~~ v1.33, BlitzMax uses Mingw ~~v5-1-3~~ v5-1-4. The Mingw auto installer is available here:

~~http://sourceforge.net/project/downloading.php?group_id=2435&use_mirror=jaist&filename=MinGW-5.1.3.exe&2597933~~
http://sourceforge.net/project/downloading.php?group_id=2435&filename=MinGW-5.1.4.exe&a=148157

Make sure you run the installer in ADMIN mode

Select 'current' when asked which package to install.

Select 'MinGW base tools' and 'g++ compiler' when asked which components to install.

~~Vista users: Once installed, you will need to copy the contents of the MinGW\libexec\gcc\mingw32\3.4.2 directory into MinGW\bin.~~

Finally, make sure to add C:\MinGW\bin (or equivalent) to your system PATH environment variable. This can be done on most versions of windows by right-clicking 'My Computer' and selecting Properties/Advanced/Environment Variables.

You will also need to add a new environment variable, MINGW , setting it to C:\MinGW (or equivalent).

Bye!
Mark Sibly,
Blitz Research Ltd
----------------------------------

Jason

*	(Posted 2009) [#9]

Ok, ive reinstalled everything even the video drivers and nothing minib3d will work the demos coming with BlitzMax work fine (but they could be using the DX drivers so I will have to look at that)

I can compile modules and everything just every minib3d app stops DEAD on renderworld :(

Anyone have any ideas?

ziggy

(Posted 2009) [#10]

Update vid drivers?
I had similar issues on win7 and my crap intel card, and after going to the intel site and getting the latest drivers for win7 there, everything worked like a charm and now I'm having a great time playing with minib3d on my laptop. (except I can't get any 3D sound :( )

*	(Posted 2009) [#11]

Updated the drivers to the latest ones on www.ati.com that are for 32bit Windows7 but still no go it still crashes on the second pass of Renderworld.

Would be brilliant if I could run anything minib3d related :s

Warner

(Posted 2009) [#12]

On my XP laptop, minib3d also crashed on RenderWorld. If you open TGlobal.bmx and TMesh.bmx in the IDE, it will show at which line it crashes. At least, in debug mode, didn't try release.
I disabled VBO's (in minib3d.bmx USE_VBO=false). It then crashed on these lines in TMesh.bmx:

					glBindBufferARB(GL_ARRAY_BUFFER_ARB,0) ' reset - necessary for when non-vbo surf follows vbo surf
					glBindBufferARB(GL_ELEMENT_ARRAY_BUFFER_ARB,0)

I changed it into this:

If USE_VBO Then
  glBindBufferARB(GL_ARRAY_BUFFER_ARB,0) ' reset - necessary for when non-vbo surf follows vbo surf
  glBindBufferARB(GL_ELEMENT_ARRAY_BUFFER_ARB,0)
End If

And now it seems to run okay. Not sure if you have the same issue, since your program crashes on the second pass, but still it might be worth giving it a try.

*	(Posted 2009) [#13]

Still crashes maybe its something to do with my SapphireTech ATI 2600 graphics card, its recognised by ATI drivers in Windows7 bit not in XP/Vista for those OS's I have to use sapphiretech drivers (those also dont do OpenGL in Windows7 either :( )

Warner

(Posted 2009) [#14]

Then BMax shouldn't do other GL stuff as well. That can be tested. Have you tried running a minib3d example with it source files open in the IDE? When it crashes, the line it crashes on is shown in the IDE. You said it is RenderWorld, but if you have TGlobal.bmx open, it shows which line it crashes on inside RenderWorld. If that line is mesh.Update, open TMesh.bmx as well and try again. That way you can pretty precisely track which line causes the error. For me, it were the ~ARB lines above.

*	(Posted 2009) [#15]

It crashes at random points here its not just the ARB lines :(.

Warner

(Posted 2009) [#16]

I'm very curious what it could be. Does other GL stuff work?
Such as this: (2D)

SetGraphicsDriver GLMax2DDriver()

Graphics 640, 480

Repeat

	SetColor Rand(255), Rand(255), Rand(255)
	DrawOval Rand(640), Rand(480), 40, 40

	Flip

Until KeyHit(key_escape)

And this: (3D)

;Jeremy Paxman
;http://www.blitzmax.com/Community/posts.php?topic=84524
Strict

Type Entity

	' X/Y/Z camera position
	Field X:Float
	Field Y:Float
	Field Z:Float
	
	' X/Y/Z camera rotation
	Field RX:Float
	Field RY:Float
	Field RZ:Float
	
	Field LocalMatrix:Float[16]
	
	Field vertx:Float[1000]
	Field verty:Float[1000]
	Field vertz:Float[1000]
	Field vertexists[1000]
	Field normalx:Float[1000]
	Field normaly:Float[1000]
	Field normalz:Float[1000]
	Field normalexists[1000]
	
		Method CalcTransformation:Int ( Inverse:Int, Apply:Int, Save:Int )
		If Not Apply Then glPushMatrix
		Local M:Float[16]
		
		If Not Inverse Then
			Local qRX:TQuaternion = TQuaternion.CreateFromAxisAngle(1.0, 0.0, 0.0, -Self.RX)
			Local qRY:TQuaternion = TQuaternion.CreateFromAxisAngle(0.0, 1.0, 0.0, -Self.RY)
			Local qRZ:TQuaternion = TQuaternion.CreateFromAxisAngle(0.0, 0.0, 1.0, -Self.RZ)
			
			Local qRes1:TQuaternion = qRX.Multiply(qRY)
			Local qRes:TQuaternion = qRes1.Multiply(qRZ)
			qRes.CreateMatrix(Varptr M[0])
			
			glMultMatrixf M
			glTranslatef -Self.X, -Self.Y, -Self.Z
			
		Else
			Local qRX:TQuaternion = TQuaternion.CreateFromAxisAngle(1.0, 0.0, 0.0, Self.RX)
			Local qRY:TQuaternion = TQuaternion.CreateFromAxisAngle(0.0, 1.0, 0.0, Self.RY)
			Local qRZ:TQuaternion = TQuaternion.CreateFromAxisAngle(0.0, 0.0, 1.0, Self.RZ)
			
			Local qRes1:TQuaternion = qRZ.Multiply(qRY)
			Local qRes:TQuaternion = qRes1.Multiply(qRX)
			qRes.CreateMatrix(Varptr M[0])
			
			glTranslatef Self.X, Self.Y, Self.Z
			glMultMatrixf M
			
		EndIf
		
		If Save Then glGetFloatv(GL_MODELVIEW_MATRIX, Self.LocalMatrix)
		If Not Apply Then glPopMatrix
	End Method
	
	
	Method SaveTransformation:Int ( Inverse:Int=False )
		CalcTransformation Inverse, False, True
	End Method
	
	Method add_floor_verts()
		normalexists[0]=True
		normaly[0]=1.0
		normalz[0]=0.5
		
			vertexists[0]=True
		VertX[0]= -10.0
		verty[0]= -1.5
		vertz[0]= -10.0
		
		vertexists[1]=True
		VertX[1]= -10.0
		verty[1]= -1.5
		vertz[1]= 10.0
		
		vertexists[2]=True
		VertX[2]= 10.0
		verty[2]= -1.5
		vertz[2]= 10.0
		
		vertexists[3]=True
		VertX[3]= 10.0
		verty[3]= -1.5
		vertz[3]= -10.0
		
	
	EndMethod
	
	Method add_cube_Verts()	
		normalexists[0]=True
		Normaly[0]=1
		vertexists[0]=True
		VertX[0]= -1.0
		verty[0]= -1.0
		vertz[0]= 1.0
		vertexists[1]=True
		Vertx[1]=1.0 
		verty[1]=-1.0
		verty[1]=1.0
		vertexists[2]=True
		Vertx[2]= 1.0
		verty[2]= 1.0
		vertz[2]= 1.0
		vertexists[3]=True
		Vertx [3]=-1.0
		verty[3]= 1.0
		vertz[3]= 1.0
		
	
	EndMethod
	
	Method Move ( MoveX:Float, MoveY:Float, MoveZ:Float, AttendLocalMatrix:Int=True )
		' create a movement Vector
		Local V:Float[4] ; V[0]=MoveX ; V[1]=MoveY ; V[2]=MoveZ
		
		If AttendLocalMatrix Then
			glLoadIdentity
			Self.SaveTransformation True
			VectorMatrixMultiply(Varptr V[0], Varptr Self.LocalMatrix[0])
		EndIf
		
		Self.X = Self.X + V[0]
		Self.Y = Self.Y + V[1]
		Self.Z = Self.Z + V[2]
	End Method
	
EndType

Type TCamera
	
	Field X:Float
	Field Y:Float
	Field Z:Float
	
	Field RX:Float
	Field RY:Float
	Field RZ:Float
	
	Field FOV:Float
	Field Aspect:Float
	
	Field Near:Float
	Field Far:Float
	
	Field LocalMatrix:Float[16]
	
	
	Function Create:TCamera ( GraphWidth:Int, GraphHeight:Int, FOV:Float=45.0 )
		Local C:TCamera = New TCamera
		
		C.FOV    = FOV
		C.Aspect = Float(GraphWidth) / Float(GraphHeight)
		
		C.Near   = 0.1
		C.Far    = 100
		
		Return C
	End Function
	

	Method Move ( MoveX:Float, MoveY:Float, MoveZ:Float, AttendLocalMatrix:Int=True )
		Local V:Float[4] ; V[0]=MoveX ; V[1]=MoveY ; V[2]=MoveZ
		
		If AttendLocalMatrix Then
			glLoadIdentity
			Self.SaveTransformation True
			VectorMatrixMultiply(Varptr V[0], Varptr Self.LocalMatrix[0])
		EndIf
		Self.X = Self.X + V[0]
		Self.Y = Self.Y + V[1]
		Self.Z = Self.Z + V[2]
	End Method
	
	Method Turn ( TurnX:Float, TurnY:Float, TurnZ:Float, AttendLocalMatrix:Int=True )
		Local V:Float[4] ; V[0]=TurnX ; V[1]=TurnY ; V[2]=TurnZ
		
		If AttendLocalMatrix Then
			glLoadIdentity
			Self.SaveTransformation True
			VectorMatrixMultiply(Varptr V[0], Varptr Self.LocalMatrix[0])
		EndIf
		
		Self.RX = (Self.RX + V[0]) Mod 360
		Self.RY = (Self.RY + V[1]) Mod 360
		Self.RZ = (Self.RZ + V[2]) Mod 360
	End Method
	
	
	
	Method ApplyProjection:Int ( )
		gluPerspective Self.FOV, Self.Aspect, Self.Near, Self.Far
	End Method
	
	Method ApplyTransformation:Int ( Inverse:Int=False )
		CalcTransformation Inverse, True, False
	End Method
	
	Method SaveTransformation:Int ( Inverse:Int=False )
		CalcTransformation Inverse, False, True
	End Method
	
	Method CalcTransformation:Int ( Inverse:Int, Apply:Int, Save:Int )
		If Not Apply Then glPushMatrix
		Local M:Float[16]
		
		If Not Inverse Then
			Local qRX:TQuaternion = TQuaternion.CreateFromAxisAngle(1.0, 0.0, 0.0, -Self.RX)
			Local qRY:TQuaternion = TQuaternion.CreateFromAxisAngle(0.0, 1.0, 0.0, -Self.RY)
			Local qRZ:TQuaternion = TQuaternion.CreateFromAxisAngle(0.0, 0.0, 1.0, -Self.RZ)
			
			Local qRes1:TQuaternion = qRX.Multiply(qRY)
			Local qRes:TQuaternion = qRes1.Multiply(qRZ)
			qRes.CreateMatrix(Varptr M[0])
			
			glMultMatrixf M
			glTranslatef -Self.X, -Self.Y, -Self.Z
			
		Else
			Local qRX:TQuaternion = TQuaternion.CreateFromAxisAngle(1.0, 0.0, 0.0, Self.RX)
			Local qRY:TQuaternion = TQuaternion.CreateFromAxisAngle(0.0, 1.0, 0.0, Self.RY)
			Local qRZ:TQuaternion = TQuaternion.CreateFromAxisAngle(0.0, 0.0, 1.0, Self.RZ)
			
			Local qRes1:TQuaternion = qRZ.Multiply(qRY)
			Local qRes:TQuaternion = qRes1.Multiply(qRX)
			qRes.CreateMatrix(Varptr M[0])
			
			glTranslatef Self.X, Self.Y, Self.Z
			glMultMatrixf M
			
		EndIf
		
		If Save Then glGetFloatv(GL_MODELVIEW_MATRIX, Self.LocalMatrix)
		If Not Apply Then glPopMatrix
	End Method
	'#End Region
	
End Type


Type TQuaternion
		
		Field X:Float
		Field Y:Float
		Field Z:Float
		Field W:Float
		
		Function CreateFromAxisAngle:TQuaternion ( X:Float,Y:Float,Z:Float, Deg:Float )
			Local Quat:TQuaternion = New TQuaternion
			
			Local Angle:Float = Deg
			Local Result:Float = Sin(Angle/2.0)
			
			Quat.W = Cos(Angle/2.0)
			
			Quat.X = X * Result
			Quat.Y = Y * Result
			Quat.Z = Z * Result
			
			Return Quat
		End Function
		
		Method Multiply:TQuaternion ( Q2:TQuaternion )
			Local Q1:TQuaternion = Self
			Local Result:TQuaternion = New TQuaternion
			
			Result.W = Q1.W*Q2.W - Q1.X*Q2.X - Q1.Y*Q2.Y - Q1.Z*Q2.Z
			Result.X = Q1.W*Q2.X + Q1.X*Q2.W + Q1.Y*Q2.Z - Q1.Z*Q2.Y
			Result.Y = Q1.W*Q2.Y + Q1.Y*Q2.W + Q1.Z*Q2.X - Q1.X*Q2.Z
			Result.Z = Q1.W*Q2.Z + Q1.Z*Q2.W + Q1.X*Q2.Y - Q1.Y*Q2.X
			
			Return Result
		End Method
		
		Method CreateMatrix ( M:Float Ptr )
			Local Q:TQuaternion = Self
			M[ 0] = 1.0 - 2.0 * ( Q.Y * Q.Y + Q.Z * Q.Z )
			M[ 1] = 2.0 * (Q.X * Q.Y + Q.Z * Q.W)
			M[ 2] = 2.0 * (Q.X * Q.Z - Q.Y * Q.W)
			M[ 3] = 0.0
			
			M[ 4] = 2.0 * ( Q.X * Q.Y - Q.Z * Q.W )
			M[ 5] = 1.0 - 2.0 * ( Q.X * Q.X + Q.Z * Q.Z )
			M[ 6] = 2.0 * (Q.Z * Q.Y + Q.X * Q.W )
			M[ 7] = 0.0  
			
			M[ 8] = 2.0 * ( Q.X * Q.Z + Q.Y * Q.W )
			M[ 9] = 2.0 * ( Q.Y * Q.Z - Q.X * Q.W )
			M[10] = 1.0 - 2.0 * ( Q.X * Q.X + Q.Y * Q.Y )
			M[11] = 0.0  
			
			M[12] = 0 
			M[13] = 0
			M[14] = 0
			M[15] = 1.0
		End Method
		
End Type


' Helper function which multiplicates a vector with a matrix.
Function VectorMatrixMultiply(V:Float Ptr, M:Float Ptr)
	Local Res:Float[4]
	Res[0] = M[ 0]*V[0] + M[ 4]*V[1] + M[ 8]*V[2] + M[12]*V[3]
	Res[1] = M[ 1]*V[0] + M[ 5]*V[1] + M[ 9]*V[2] + M[13]*V[3]
	Res[2] = M[ 2]*V[0] + M[ 6]*V[1] + M[10]*V[2] + M[14]*V[3]
	Res[3] = M[ 3]*V[0] + M[ 7]*V[1] + M[11]*V[2] + M[15]*V[3]
	V[0]   = Res[0]
	V[1]   = Res[1]
	V[2]   = Res[2]
	V[3]   = Res[3]
End Function





' Example of usage
InitGL

Global Camera:TCamera = TCamera.Create(800, 600)
       Camera.Z = 5

Global cube:entity=New entity
cube.add_cube_verts()
Global Floorent:entity=New entity
Floorent.add_floor_verts()


MoveMouse 400,300 ; Global PMX:Int = MouseX(), PMY:Int = MouseY()
HideMouse()

While Not KeyHit(KEY_ESCAPE)
	
	' Clear OpenGL Color and Depth Buffer.
	glClear GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT
	
	' Apply camera projection and transformation.
	glMatrixMode GL_PROJECTION 
	glLoadIdentity 
	Camera.ApplyProjection
	glMatrixMode GL_MODELVIEW  
	glLoadIdentity
	Camera.CalcTransformation False, True, True 'non-inverse matrix
	
	' Update light position
	glLightfv GL_LIGHT0, GL_POSITION, [2.5, 0.7, 1.7, 0.0]
	
	CUBE.CALCTRANSFORMATION True,True,True
	' Draw the scene
	Drawcube
	
	glloadidentity
	camera.calctransformation False,True,True
	Floorent.calctransformation True,True,True
	drawfloor
	
	' Text
	glColor4f 1.0, 1.0, 1.0, 1.0
	glDisable GL_LIGHTING
	GLDrawText "W, A, S, D and Mouse to move", 10, 10
	GLDrawText "KP+ and KP- to change FOV: " + String(Int(Camera.FOV)) + " Degrees", 10, 30
	GLDrawText "ESC to Exit", 10, 50
	glEnable GL_LIGHTING
	
	' Swap buffers
	Flip


	' Controls
	Local MOVE_SPEED:Float = 0.05
	If KeyDown(KEY_A)           Then camera.Move(-MOVE_SPEED,        0.0,        0.0)
	If KeyDown(KEY_D)           Then Camera.Move( MOVE_SPEED,        0.0,        0.0)
	If KeyDown(KEY_W)           Then Camera.Move(        0.0,        0.0,-MOVE_SPEED)
	If KeyDown(KEY_S)           Then Cube.Move(        0.0,        0.0, MOVE_SPEED)
	If KeyDown(KEY_NUMADD)      Then Camera.FOV :+ .05
	If KeyDown(KEY_NUMSUBTRACT) Then Camera.FOV :- .05
	
	Local MouseXSpeed:Int=MouseX()-PMX
	Local MouseYSpeed:Int=MouseY()-PMY
	MoveMouse 400,300; PMX=MouseX(); PMY=MouseY()
	
	Camera.Turn(0.1*Float(-MouseYSpeed),0.1*Float(-MouseXSpeed),0,False)
	If Camera.RX < -90 Then Camera.RX = -90
	If Camera.RX >  90 Then Camera.RX = 90
		
Wend






Function InitGL()
	GLGraphics 800, 600, 0
	glClearColor 0.35686, 0.13333, 0.08627, 1.0
	glEnable GL_DEPTH_TEST
	glEnable GL_LIGHTING
	glEnable GL_LIGHT0
	glLightfv GL_LIGHT0, GL_AMBIENT,  [0.2, 0.2, 0.2, 1.0]
	glLightfv GL_LIGHT0, GL_DIFFUSE,  [0.8, 0.8, 0.8, 1.0]
	glLightfv GL_LIGHT0, GL_SPECULAR, [1.0, 1.0, 1.0, 1.0]
End Function

Function drawfloor()
glenable GL_LIGHTING

			glColor3f 1.0, 1.0, 1.0
	
	' Cube and Floor
	glBegin GL_QUADS
			For Local x=0 To floorent.vertx.length-1
		If floorent.vertexists[x]=True
		glvertex3f floorent.vertx[x],floorent.verty[x],floorent.vertz[x]
		EndIf
		Next
	glend
EndFunction

Function Drawcube()
	glEnable GL_LIGHTING
	glColor3f 1.0, 1.0, 1.0
	
	' Cube and Floor
	glBegin GL_QUADS
		' Front Face
		glnormal3f cube.normalx[0],cube.normaly[0],cube.normalz[0]
		For Local x=0 To cube.vertx.length-1
		If cube.vertexists[x]=True
		glvertex3f cube.vertx[x],cube.verty[x],cube.vertz[x]
		EndIf
		Next
		

		' Floor

		
	glEnd
	

End Function

*	(Posted 2009) [#17]

nope nothing GL works :(, it seems Windows7 doesnt like my sapphiretech HD2600 :(.

It runs perfectly with my ATI Radeon 9600 Pro :s

Warner

(Posted 2009) [#18]

:( That's bad. I believe that OpenGL should be supported. Maybe it will be better when W7 is officially released.

*	(Posted 2009) [#19]

I hope so otherwise I will stick with XP/Linux