MP3D Engine Alpha 33

Applications, Games, Tools, User libs and useful stuff coded in PureBasic
Post Reply
mpz
Enthusiast
Enthusiast
Posts: 497
Joined: Sat Oct 11, 2008 9:07 pm
Location: Germany, Berlin > member German forum

Re: MP3D Engine Alpha 32

Post by mpz »

Hi Dobro,

if you use PB5.20 or PB5.21 use these lib please:

x86 for pb 520 and newer
http://www.flasharts.de/mpz/mp33/pb520/MP3D_Library.zip

on my pc works these codes fine:

Code: Select all

MP_Graphics3D (800,600,32,0)

camera=MP_CreateCamera() ; Kamera erstellen
light=MP_CreateLight(1) ; Es werde Licht
Mesh=MP_CreateCube() ; Und jetzt eine Würfel
MP_PositionEntity (Mesh,0,0,3) ; Position des Würfels

While Zaehler < 320 ; ==> Need more time, 60 is too low
  Zaehler + 1
   MP_TurnEntity (Mesh,0.3,0.2,0.1) 
   MP_RenderWorld () ; Hier gehts los
   MP_Flip () ;
Wend
MP_Close()
CloseWindow(0) ; dont forget these

;beep(440,1000) ; let a little Square  ??
;********************************************************************************************
Delay( 4000) ; wait 2 secondes == need more time 2s too low

MP_Graphics3D (800,600,32,0) ; no Screen Appear !! ???? ==> screen is here
MP_RenderWorld ()  ;  <<<<<<<<<<<<< Bug here ==> no crash, works
MP_Flip () ;

camera=MP_CreateCamera() ; Kamera erstellen
light=MP_CreateLight(1) ; Es werde Licht
Mesh=MP_CreateCube() ; Und jetzt eine Würfel
MP_PositionEntity (Mesh,0,0,3) ; Position des Würfels

While Zaehler < 600 ; ==> Need more time, 60 is too low
   Zaehler + 1
   MP_TurnEntity (Mesh,0.3,0.2,0.1) 
   MP_RenderWorld () ; Hier gehts los
   MP_Flip () ;
Wend
MP_Close()
CloseWindow(0)
;beep(440,1000)

Code: Select all

MP_Graphics3D (800,600,32,1)
While Zaehler < 230
   Zaehler + 1
   MP_RenderWorld () ; Hier gehts los
   MP_Flip () ;
Wend
MP_Close()
CloseWindow(0)
;beep(440,1000) ; let a little Square  ??
;********************************************************************************************
Delay( 2000) ; wait 2 secondes
MP_Graphics3D (800,600,32,1) ; no Screen Appear !! ???? ==> screen is here
MP_RenderWorld ()  ;  <<<<<<<<<<<<< Bug here ==> no bug here
MP_Flip () ;


While Zaehler < 400
   Zaehler + 1
   MP_RenderWorld () ; Hier gehts los
   MP_Flip () ;
Wend
MP_Close()
CloseWindow(0)
;beep(440,1000)
;

; EPB
Working on - MP3D Library - PB 5.73 version ready for download
Top
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:
Contact dobro

Re: MP3D Engine Alpha 32

Post by dobro »

yes! now it works! :D

[Mode KCC on ]
Image
[Mode KCC off ]

you do not you'll be misled archive yesterday? :mrgreen:

good, the main thing is that now it works ...
Congratulations and thank you to you :)

count on me to find you other problems :mrgreen:

friendly Michel :)
Image
■ Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
Top
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:
Contact dobro

Re: MP3D Engine Alpha 32

Post by dobro »

in the Help
the sample of "MP_TurnEntity" bug ...
"MP_WindowEvent() " not recognized

and "MP_DrawText (1,1,$FFFF0000,"Köper dreht mit folgenden Werten x = "+StrF(x)+" / y = "+StrF(y)+" / z = "+StrF(z),0)"
do not have good arguments

Example corrected : :)

Code: Select all

MP_Graphics3D (640,480,0,2) ; Erstelle ein WindowsFenster #Window = 0

MP_CreateCamera() ; Kamera erstellen
MP_CreateLight(1) ; Es werde Licht

Mesh=MP_CreateCube() ; Und jetzt eine Würfel
MP_PositionEntity (Mesh,0,0,3) ; Position des Würfels

If CreateImage(0, 255, 255) ; Male schöne Textur
	
	Font = LoadFont(#PB_Any, "Arial"   , 138) 
	StartDrawing(ImageOutput(0))
		
		Box(0, 0, 128, 128,RGB(255,0,0))
		Box(128, 0, 128, 128,RGB(0,255,0))
		Box(0, 128, 128, 128,RGB(0,0,255))
		Box(128, 128, 128, 128,RGB(255,255,0))
		
		DrawingFont(FontID(Font))
		DrawingMode(#PB_2DDrawing_Transparent)
		DrawText(73,35,"5")
		
	StopDrawing() ; This is absolutely needed when the drawing operations are finished !!! Never forget it !
	
EndIf

Texture = MP_ImageToTexture(0) ; Create Texture from image 
MP_EntitySetTexture (Mesh, Texture ) ; textur to mesh

x.f = 0.1
y.f = 0.2
z.f = 0.3

While Not MP_KeyDown(#PB_Key_Escape) And Not WindowEvent() = #PB_Event_CloseWindow  ; Esc abfrage oder Windows Schliessen
	
	If MP_KeyDown(#PB_Key_1) : x -0.01 : EndIf
	If MP_KeyDown(#PB_Key_2) : x +0.01 : EndIf
	If MP_KeyDown(#PB_Key_3) : y -0.01 : EndIf
	If MP_KeyDown(#PB_Key_4) : y +0.01 : EndIf
	If MP_KeyDown(#PB_Key_5) : z -0.01 : EndIf
	If MP_KeyDown(#PB_Key_6) : z +0.01 : EndIf
	
	MP_DrawText (1,1,"Köper dreht mit folgenden Werten x = "+StrF(x)+" / y = "+StrF(y)+" / z = "+StrF(z),0,$FFFF0000)
	
	MP_TurnEntity (Mesh,x,y,z) 
	MP_RenderWorld() ; Erstelle die Welt
	MP_Flip () ; Stelle Sie dar
	
Wend 
; EPB
Image
■ Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
Top
mpz
Enthusiast
Enthusiast
Posts: 497
Joined: Sat Oct 11, 2008 9:07 pm
Location: Germany, Berlin > member German forum

Re: MP3D Engine Alpha 32

Post by mpz »

Hi dobro,

i am working on a new help file and check the help file demo, thanks.

P.S: The command "MP_WindowEvent() " was deleted, because you can use the normal "WindowEvent()" better


Greetings Michael
Working on - MP3D Library - PB 5.73 version ready for download
Top
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:
Contact dobro

Re: MP3D Engine Alpha 32

Post by dobro »

tell me
Image


the Function "MP_TurnCamera(*camera, -15, 0, 0,)"
is supposed run to : MP_TurnCamera(*camera, Pitch, Yaw, Roll)

it seems, rather function as :

MP_TurnCamera(*camera, Yaw, Roll, Pitch)

this is normal?

Code: Select all

MP_Graphics3D (640,480,0,2)
*camera=MP_CreateCamera()
MP_TurnCamera(  *camera, 0, 30, 0) ; This is a Roll no Yaw !!!!! 
MP_CreateLight(1) 
Mesh=MP_CreateCube() 
MP_PositionEntity (Mesh,0,0,3) 
If CreateImage(0, 255, 255) 
	Font = LoadFont(#PB_Any, "Arial"   , 138) 
	StartDrawing(ImageOutput(0))
		Box(0, 0, 128, 128,RGB(255,0,0))
		Box(128, 0, 128, 128,RGB(0,255,0))
		Box(0, 128, 128, 128,RGB(0,0,255))
		Box(128, 128, 128, 128,RGB(255,255,0))
		DrawingFont(FontID(Font))
		DrawingMode(#PB_2DDrawing_Transparent)
		DrawText(73,35,"5")
	StopDrawing() 
EndIf
Texture = MP_ImageToTexture(0) 
MP_EntitySetTexture (Mesh, Texture ) 
x.f = 0
y.f = 0.0
z.f = 0.0
While Not MP_KeyDown(#PB_Key_Escape) And Not WindowEvent() = #PB_Event_CloseWindow  ; Esc abfrage oder Windows Schliessen
	MP_RenderWorld() 
	MP_Flip () 
Wend 

; EPB
Image
■ Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
Top
User avatar
N_Gnom
User
User
Posts: 76
Joined: Fri Sep 13, 2013 3:20 pm
Location: Germany

Re: MP3D Engine Alpha 32

Post by N_Gnom »

In a version of mp3d mpz have fixed that problem....
it should be pitch , yaw, roll....

x = rotate on x axis
y = rotate on y axis
z = rotate(roll) on z axis

i say sometimes that i think camera and entity commands should be the same...moveentity(camera, x, y, z) is better than an seperate camera command....my two cents


this image looks better...smile Image
Top
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:
Contact dobro

Re: MP3D Engine Alpha 32

Post by dobro »

I have the Latest Version!

I read the documentation ... :

MP_TurnCamera (*camera, Pitch, Yaw, Roll)

but in reality it is:

MP_TurnCamera (*camera, Yaw, Roll, Pitch)

test my Sample ;)

ps: your aircraft is exactly the same image as mine! ....

there is no question here of the sense of rotation
but the order of the parameters of this fonction !

sorry my english is zero
I am French, and I do not speak English ..
Image
■ Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
Top
mpz
Enthusiast
Enthusiast
Posts: 497
Joined: Sat Oct 11, 2008 9:07 pm
Location: Germany, Berlin > member German forum

Re: MP3D Engine Alpha 32

Post by mpz »

Hi dobro,

i know i must rewrite the camera function and so it was a good idea to check them...

I have written in Blitzbasic3d a program to rotate a entity and a camera and i have written the same program in mp3d and what can i say, you find a bug. So i have made a new lib and i think the funktion
MP_RotateCamera (camera, pitch,yaw,roll)
MP_TurnCamera (camera, pitch,yaw,roll)
works now correct.

x86 for PB 511 and older
http://www.flasharts.de/mpz/mp33/pb511/MP3D_Library.zip

x86 for pb 520 and newer
http://www.flasharts.de/mpz/mp33/pb520/MP3D_Library.zip

I think about a next step to kill the commands and use only the entity commands like

MP_MoveCamera(Cam, x.f, y.f, z.f) -> MP_MoveEntity (Entity, x.f, y.f, z.f )
MP_PositionCamera (Cam, x.f, y.f, z.f) ->MP_PositionEntity (Entity, x.f, y.f, z.f )
MP_CameraGetX (Cam) ->MP_EntityGetX (Entity)
MP_CameraGetY (Cam) ->MP_EntityGetY (Entity)
MP_CameraGetZ (Cam) -> MP_EntitySetZ (Entity)
MP_RotateCamera (Cam, pitch.f, yaw.f, roll.f) ->MP_RotateEntity (Entity, pitch.f, yaw.f, roll.f)
MP_TurnCamera (Cam, pitch.f, yaw.f, roll.f) ->MP_TurnEntity (Entity, pitch.f, yaw.f, roll.f)
MP_CameraLookAt(Cam,x.f,y.f,z.f) -> MP_EntityLookAt (Entity,x.f,y.f,z.f)

Is these better and usefull?

Greetings Michael

Blitzbasic testcode

Code: Select all

Graphics3D 640,480 
SetBuffer BackBuffer() 

camera=CreateCamera() 
light=CreateLight() 

cone=CreateCube( ) 
PositionEntity cone,0,0,5 

While Not KeyDown( 1 ) 

; Change rotation values depending on the key pressed 
If KeyDown( 208 )=True Then pitch#=pitch#-1 
If KeyDown( 200 )=True Then pitch#=pitch#+1 
If KeyDown( 203 )=True Then yaw#=yaw#-1 
If KeyDown( 205 )=True Then yaw#=yaw#+1 
If KeyDown( 45 )=True Then roll#=roll#-1 
If KeyDown( 44 )=True Then roll#=roll#+1 

; Rotate cone using rotation values 
RotateEntity camera,pitch#,yaw#,roll# 
;RotateEntity cone,pitch#,yaw#,roll# 

RenderWorld 

Text 0,0,"Use cursor/Z/X keys to change cone rotation" 
Text 0,20,"Pitch: "+pitch# 
Text 0,40,"Yaw : "+yaw# 
Text 0,60,"Roll : "+roll# 

Flip 

Wend
MP3D Testcode

Code: Select all

MP_Graphics3D (640,480,0,2)

camera=MP_CreateCamera()
Mesh=MP_CreateCube()
light=MP_CreateLight(1)

MP_PositionEntity (Mesh,0,0,3)

While Not MP_KeyDown(#PB_Key_Escape) And Not WindowEvent() = #PB_Event_CloseWindow  ; Esc abfrage oder Windows Schliessen
  
  If MP_KeyDown(#PB_Key_Down) : pitch.f-1 : EndIf
  If MP_KeyDown(#PB_Key_Up) : pitch.f+1 : EndIf
  If MP_KeyDown(#PB_Key_Right) : yaw.f-1 : EndIf
  If MP_KeyDown(#PB_Key_Left) : yaw.f+1 : EndIf
  If MP_KeyDown(#PB_Key_X) : roll.f-1 : EndIf
  If MP_KeyDown(#PB_Key_Z) : roll.f+1 : EndIf
  
  MP_RotateCamera (camera, pitch,yaw,roll) 
  
;  MP_RotateEntity (Mesh, pitch,yaw,roll) 
  
  MP_DrawText(0,0,"Use cursor/Z/X keys to change cone rotation")
  MP_DrawText(0,20,"Pitch: "+StrF(pitch,3))
  MP_DrawText(0,40,"Yaw  : "+StrF(Yaw,3))
  MP_DrawText(0,60,"Roll : "+StrF(Roll,3))
  
  MP_RenderWorld()
  MP_Flip ()
Wend

; EPB
Working on - MP3D Library - PB 5.73 version ready for download
Top
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:
Contact dobro

Re: MP3D Engine Alpha 32

Post by dobro »

mpz wrote:
I think about a next step to kill the commands and use only the entity commands like

MP_MoveCamera(Cam, x.f, y.f, z.f) -> MP_MoveEntity (Entity, x.f, y.f, z.f )
MP_PositionCamera (Cam, x.f, y.f, z.f) ->MP_PositionEntity (Entity, x.f, y.f, z.f )
MP_CameraGetX (Cam) ->MP_EntityGetX (Entity)
MP_CameraGetY (Cam) ->MP_EntityGetY (Entity)
MP_CameraGetZ (Cam) -> MP_EntitySetZ (Entity)
MP_RotateCamera (Cam, pitch.f, yaw.f, roll.f) ->MP_RotateEntity (Entity, pitch.f, yaw.f, roll.f)
MP_TurnCamera (Cam, pitch.f, yaw.f, roll.f) ->MP_TurnEntity (Entity, pitch.f, yaw.f, roll.f)
MP_CameraLookAt(Cam,x.f,y.f,z.f) -> MP_EntityLookAt (Entity,x.f,y.f,z.f)

Is these better and usefull?

Greetings Michael

yes I like the idea
the camera is an Entity :)

it brings together the functions in the same folder (for the 'Help')

Thank you for your updates, manner Flash Gordon :)


I used your 3d engine for modification of my interpreter pseudo-logo (the language) in 3D mode, it works already very well in 2D mode :)
Image
■ Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
Top
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:
Contact dobro

Re: MP3D Engine Alpha 32

Post by dobro »

Request ! :)

I think it lacks a mode of Rotation! :)

one that will an object or the camera behaves like a plane! :lol:

that is to say that if given an upward inclination
then advances ... it continue the climb in altitude ....
(it's hard to explain in a language other than my own)

something like this picture:
Image

currently, the camera (or entity) can change Orientation , but if moves .. it does not follow the inclination
it moves horizontally, vertically, etc ...

that we permetre able to simulate the behavior of an aircraft, or a roller coaster ... ect .. therefore an object tilt follows a trajectory
or rather a path created by a oriantation ...

hoping that you understand my Chinese: lol:


in this code .....
we can not direct the camera in the direction of orientation .... :)
(and this is true for all entity)

Code: Select all

MP_Graphics3D (640,480,0,2)
*camera=MP_CreateCamera()

MP_CreateLight(1) 
Mesh=MP_CreateCube() 
MP_PositionEntity (Mesh,0,0,3) 
If CreateImage(0, 255, 255) 
	Font = LoadFont(#PB_Any, "Arial"   , 138) 
	StartDrawing(ImageOutput(0))
		Box(0, 0, 128, 128,RGB(255,0,0))
		Box(128, 0, 128, 128,RGB(0,255,0))
		Box(0, 128, 128, 128,RGB(0,0,255))
		Box(128, 128, 128, 128,RGB(255,255,0))
		DrawingFont(FontID(Font))
		DrawingMode(#PB_2DDrawing_Transparent)
		DrawText(73,35,"5")
	StopDrawing() 
EndIf
Texture = MP_ImageToTexture(0) 
MP_EntitySetTexture (Mesh, Texture ) 
x.f = 0
y.f = 0.0
z.f = 0.0
While Not MP_KeyDown(#PB_Key_Escape) And Not WindowEvent() = #PB_Event_CloseWindow  ; Esc abfrage oder Windows Schliessen
	if MP_KeyDown(#pb_key_up ) 
		poz=-0.05
		MP_MoveCamera(*camera, 0,0,0.5)   
		elseif MP_KeyDown(#pb_key_down )     
		poz=0.05
		MP_MoveCamera(*camera, 0,0,-0.5)  
		elseif MP_KeyDown( #pb_key_left ) 
		MP_MoveCamera(*camera,-0.5,0,0) 		
		elseif MP_KeyDown( #pb_key_right )   
		MP_MoveCamera(*camera,  0.5,0,0) 
		elseif  MP_KeyDown(#pb_key_pad0)
		MP_MoveCamera(*camera,  0,0.5,0 )  
		elseif MP_KeyDown(#pb_key_rightcontrol )  
		MP_MoveCamera(*camera,0,0.-0.5,0 ) 
		elseif MP_KeyDown( #pb_key_pageup) 
		MP_MoveCamera(*camera, 0,0.5,0)  
		elseif MP_KeyDown( #pb_key_pagedown )  
		MP_MoveCamera(*camera,0,-0.5,0) 
		
	endif
	
	
	if MP_MouseButtonDown(0) ;mousebutton ( #pb_mousebutton_left )
		quit=1
		MP_UseCursor(1) ; showcursor_(1) ; montre le curseur
	endif
	
	MP_TurnCamera(*camera, -MP_MouseDeltaY()/8, MP_MouseDeltaX()/8,0 )          ;dm_turnentity(*camera, mousedeltay ()/8, mousedeltax ()/8,0)
	
	
	MP_RenderWorld() 
	MP_Flip () 
Wend 



; 

; EPB

I had asked this, the creator of Dreamotion3D did it .. :)

if you can do it, it'll be great :D
it is indispensable to me for my 3D Logo :mrgreen:

with the aid of this kind of rotation, I could do this :
Image

in PureGolo3D , the code for this , is :

Code: Select all



  pinceau ligne
  couleur 255,100,50

   repete 36              ; repeat 36 
      repete 36           ; repeat 36 
        AV 5                ; Forward 5
        EL 10               ; Elevation 10 degres
      fin_repete           ; End_repeat
     RD 10                  ; Roll Right
   fin_repete             ; end Repeat
;)

this make a Tore-Donuts :)

The PureGolo 3d that time was not yet recursive

now my Puregolo 2D is recursive :)
So I can not wait, put in your 3D engine :)

Puregolo3D in Action here:
http://www.youtube.com/watch?v=7Rz6Wtpg ... e=youtu.be


Another Request :)
it lacks a function : MP_entityvisible(*tortue3d, flag.c=0)

to Make entity, visible or invisible :)
Image
■ Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
Top
Num3
PureBasic Expert
PureBasic Expert
Posts: 2812
Joined: Fri Apr 25, 2003 4:51 pm
Location: Portugal, Lisbon
Contact:
Contact Num3

Re: MP3D Engine Alpha 32

Post by Num3 »

Small bug, i downloaded the 32 bit version of the lastest release (32) but i cannot install it, because the installer says "Your operating system is not supported" eheh :lol:

I'm on Windows 8.1 x64, but I work only on x86 purebasic!

Also tried http://www.flasharts.de/mpz/Install_MP3D_32_x86.zip, but no cigar :P

Thanks in advance and keep up the good work!


-- EDIT --
Just unziped the installer a copied the files manually, all works now ;)
Top
User avatar
N_Gnom
User
User
Posts: 76
Joined: Fri Sep 13, 2013 3:20 pm
Location: Germany

Re: MP3D Engine Alpha 32

Post by N_Gnom »

@mpz: any news about it?
Top
mpz
Enthusiast
Enthusiast
Posts: 497
Joined: Sat Oct 11, 2008 9:07 pm
Location: Germany, Berlin > member German forum

Re: MP3D Engine Alpha 32

Post by mpz »

Hi to all,

yes it was a little bit quiet around mp3D. I work on some new features and work on old not yet ready thinks like:

@dobro I have made a new lib and have rewritten the camera function.
Please check this. The MP_EntityTurn(Camera...) works fine in my demos now. Hope i find the solution for it...

@N_Gnom
oh what have i done:
* rewritten the camera function
* have included the new function in all mp3d demos and test them
* have actulized the help files (but i am not ready with this, it is a *'**uc** job for me ;)

next steps:
* working on a dungeon with light map. You can open a b3d dungeon with light map and walk in the dungeon
* You car Demo you ask for. I think i have all newton physic for these now :)
* Ending the *"!*"* Help file

x86 for PB 511 and older
http://www.flasharts.de/mpz/mp33/pb511/MP3D_Library.zip

x86 for pb 522 and newer
http://www.flasharts.de/mpz/mp33/pb522/MP3D_Library.zip

Greetings Michael

Dobows file for testing:

Code: Select all

MP_Graphics3D (640,480,0,2)
*camera=MP_CreateCamera()

MP_CreateLight(1)
Mesh=MP_CreateCube()
MP_PositionEntity (Mesh,0,0,3)
If CreateImage(0, 255, 255)
   Font = LoadFont(#PB_Any, "Arial"   , 138)
   StartDrawing(ImageOutput(0))
      Box(0, 0, 128, 128,RGB(255,0,0))
      Box(128, 0, 128, 128,RGB(0,255,0))
      Box(0, 128, 128, 128,RGB(0,0,255))
      Box(128, 128, 128, 128,RGB(255,255,0))
      DrawingFont(FontID(Font))
      DrawingMode(#PB_2DDrawing_Transparent)
      DrawText(73,35,"5")
   StopDrawing()
EndIf
Texture = MP_ImageToTexture(0)
MP_EntitySetTexture (Mesh, Texture )
x.f = 0
y.f = 0.0
z.f = 0.0
While Not MP_KeyDown(#PB_Key_Escape) And Not WindowEvent() = #PB_Event_CloseWindow  ; Esc abfrage oder Windows Schliessen
   If MP_KeyDown(#PB_Key_Up )
      poz=-0.05
      MP_MoveEntity(*camera, 0,0,0.5)   
      ElseIf MP_KeyDown(#PB_Key_Down )     
      poz=0.05
      MP_MoveEntity(*camera, 0,0,-0.5) 
      ElseIf MP_KeyDown( #PB_Key_Left )
      MP_MoveEntity(*camera,-0.5,0,0)       
      ElseIf MP_KeyDown( #PB_Key_Right )   
      MP_MoveEntity(*camera,  0.5,0,0)
      ElseIf  MP_KeyDown(#PB_Key_Pad0)
      MP_MoveEntity(*camera,  0,0.5,0 ) 
      ElseIf MP_KeyDown(#PB_Key_RightControl ) 
      MP_MoveEntity(*camera,0,0.-0.5,0 )
      ElseIf MP_KeyDown( #PB_Key_PageUp)
      MP_MoveEntity(*camera, 0,0.5,0) 
      ElseIf MP_KeyDown( #PB_Key_PageDown ) 
      MP_MoveEntity(*camera,0,-0.5,0)
      
   EndIf
   
   If MP_MouseButtonDown(0) ;mousebutton ( #pb_mousebutton_left )
      quit=1
      MP_UseCursor(1) ; showcursor_(1) ; montre le curseur
   EndIf
   
   MP_TurnEntity(*camera, MP_MouseDeltaY()/8, MP_MouseDeltaX()/8,0 )          ;dm_turnentity(*camera, mousedeltay ()/8, mousedeltax ()/8,0)   
   
   MP_RenderWorld()
   MP_Flip ()
Wend



;

; EPB
Last edited by mpz on Tue Mar 18, 2014 11:32 pm, edited 1 time in total.
Working on - MP3D Library - PB 5.73 version ready for download
Top
User avatar
Psychophanta
Always Here
Always Here
Posts: 5153
Joined: Wed Jun 11, 2003 9:33 pm
Location: Anare
Contact:
Contact Psychophanta

Re: MP3D Engine Alpha 32

Post by Psychophanta »

Thanks MPZ, keep going!

By the way, it does not work in PB5.22 as i can see here.
http://www.zeitgeistmovie.com

while (world==business) world+=mafia;
Top
mpz
Enthusiast
Enthusiast
Posts: 497
Joined: Sat Oct 11, 2008 9:07 pm
Location: Germany, Berlin > member German forum

Re: MP3D Engine Alpha 32

Post by mpz »

Hi Psychophanta,

i have recomplied it with 5.22 but have not full tested it (but all tested demos works fine for now).

x86 for pb 522 and newer
http://www.flasharts.de/mpz/mp33/pb522/MP3D_Library.zip

Greetings Michael
Working on - MP3D Library - PB 5.73 version ready for download
Top
Post Reply

Return to “Applications - Feedback and Discussion”