si tu fait un jeu de course de dingue, ou un fps de folie qui intéresse un éditeur, les 150$ ne seront pas un obstacle, loin de là... et t'auras probablement d'autres soucis bien plus sérieux.kelebrindae a écrit :payer 150$
il y a une commande purebasic, mmh,tmyke a écrit :basculer sur le clavier AZERTY.
Code : Tout sélectionner
KeyboardMode(#PB_Keyboard_International) Le watermark peut etre genant au depart, mais on l'oubli vite. Il est certain qu'apres, pour diffuser ses creations,kelebrindae a écrit :Très joli !
Les possibilités graphiques sont alléchantes, et le moteur physique a l'air plutôt bien aussi; ça donne envie.
C'est juste dommage qu'il faille payer 150$ pour se débarrasser du logo "powered by True Vision 3D", j'avais vaguement espéré que ce serait gratuit; DreamMotion3D m'a donné de mauvaises habitudes, je suppose...
beauregard a écrit :il y a une commande purebasic, mmh,tmyke a écrit :basculer sur le clavier AZERTY.Code : Tout sélectionner
KeyboardMode(#PB_Keyboard_International)
mais comme laisse entendre plus haut, il faut tout simplement faire un codageCode : Tout sélectionner
; ------------------------------------------------------------
; TV3D exemples
;
; Exemple 2 : exemple pour creation ;manuel; de mesh
; Historique :
; xx/03/09 19:16 TMyke
;
; ------------------------------------------------------------
; Include files
IncludePath "Includes\" : IncludeFile "pbTV3D.pbi"
EnableExplicit
Global hwnd.l
Global *engine.TVEngine
Global *global_scene.TVScene
Global *tv_input.TVInputEngine
Global *mesh.TVMesh
Global *camera.TVCamera
Global Quit.l, i.l
Declare updateCamera()
Procedure.l MyCylinder(Radius.f, Height.f, Sides.f)
Protected Theta.f ;Current Angle
Protected Inc.f ;Angular increment
Protected x.f ;x coord
Protected y.f ;y coord
Protected z.f ;z coord
Protected i.l ;Integer
;Mesh.SetPrimitiveType TV_TRIANGLESTRIP
;TVMesh_SetPrimitiveType(*mesh.TVMesh,ePrimitiveType.l)
TVMesh_SetPrimitiveType(mesh,#TV_TRIANGLESTRIP)
;Cylinder Precision
Inc = 2 * #PI / Sides ;where each side has two triangles
Theta = 0
For i = 0 To Sides
;Calculate Vertices
x = Radius * Cos(Theta)
y = Height
z = Radius * Sin(Theta)
;Vertex at the top of the cylinder
;Mesh.AddVertex x, 0, z, 0, 0, 0
;TVMesh_AddVertex.l(*mesh.TVMesh,x.f,y.f,z.f,nx.f,ny.f,nz.f,tu1.f,tv1.f,tu2.f=0.0,tv2.f=0,color.l=0)
TVMesh_AddVertex.l(*mesh, x, 0, z, 0, 0, 0, 0, 0, 0, 0, 0)
;Vertex at the bottom of the cylinder
;Mesh.AddVertex x, y, z, 0, 0, 0
TVMesh_AddVertex.l(*mesh, x, y, z, 0, 0, 0, 0, 0, 0, 0, 0)
Theta = Theta + Inc
Next
ProcedureReturn *mesh
EndProcedure
;----------------------------------------------------------
; ouverture d'une fenetre
*engine = TVGraphics3D(800, 600)
;----------------------------------------------------------
; TV3D n'est pas seulement un moteur 3D, mais un moteur de
; jeux. Donc, on lui spécifie la creation d'une scene, ce qui
; initialise en quelque sortie tous les éléments du moteur 3D
*global_scene = TVScene_Create()
TVScene_SetBackgroundColor( 0.1, 0.1, 0.2)
; limitation du frame rate à la fréquence de rafraichissement de l'écran
TVEngine_SetVSync(*global_scene , #True)
*mesh = MyCylinder(10,10,3)
;----------------------------------------------------------
; creation d'un Mesh, vide, que l'on appel "cube",
; ; rataché à notre scene
; *cube = TVScene_CreateMeshBuilder("cube")
; creation dessus d'un simple cube
; on veut voir nos face quelque soit 'orientation
; TVMesh_SetCullMode(*cube, #TV_DOUBLESIDED)
; ; ajout d'une face
; TVMesh_AddFace(*cube, 0)
; ; ajout d'un certain nombre de vertices
; For i = 0 To 11
; TVMesh_AddVertexEx(*cube, ?Vertex+32*i, 32)
; Next
;----------------------------------------------------------
; creation d'une camera
*camera = TVCamera_Create()
TVCamera_SetPosition(*camera, 0,0,-5)
;----------------------------------------------------------
; creation d'un device Input pour la gestion des entré (souris et clavier ici)
TVInput_Create()
TVInput_Initialize( #True, #True)
;
Repeat
TVMesh_RotateY(*mesh, 0.01,0)
; gestion touche et freecamera
updateCamera()
; boucle de rendu
TVEngine_Clear(*engine, #False)
TVMesh_Render(*mesh)
TVEngine_RenderToScreen(*engine)
Until Quit=1
; end
Global angx.f, angy.f, mDown.l
Procedure updateCamera()
Protected mx.l, my.l
Protected bt1.L, bt2.l, bt3.l, bt4.l, btroll.l
TVInput_GetMouseState(@mx , @my , @bt1 , @bt2, @bt3, @bt4 , @btroll )
If bt1
If mDown=0
mDown=11
Else
angx = mx*0.15
angy = my*0.15
TVCamera_Turn(*camera, DEG2RAD(angy), DEG2RAD(angx), 0)
EndIf
Else
mDown=0
EndIf
If TVInput_IsKeyPressed.l(#TV_KEY_UP)
TVCamera_MoveRelative(*camera,0.005 * TVEngine_AccurateTimeElapsed.f(*engine),0,0, #True)
EndIf
If TVInput_IsKeyPressed.l(#TV_KEY_DOWN)
TVCamera_MoveRelative(*camera,-0.005 * TVEngine_AccurateTimeElapsed.f(*engine),0,0, #True)
EndIf
If TVInput_IsKeyPressed.l(#TV_KEY_ESCAPE)
Quit=1
EndIf
EndProcedure
c'est étrange. au début j'utilisais Japbe, pour tester mais finallement l'ide officiel me suffit. çà doit être une histoire de direction, Dobro ayant déjà rencontré ce type de problème, mmh, fait donc un copier/coller des 2 .dll dans, heu, le dossier où, heu, on partage les trucs, hum.GeBonet a écrit :Ouais... Possible, mais alors pourquoi avec JaPBe aucun problème ?
Je regarde cela, et en rentrant du boulot demain, je pense pouvoir te donner le code valide.Patrick88 a écrit :j'ai tenté (en vain) de convertir un petit code vb de création de mesh avec addvertex, un peu comme j'avais bidouillé avec opengl, mais il y des paramétres sur la fonction qui sont restés obscurs...
en vb ça donne :
Mesh.AddVertex x, 0, z, 0, 0, 0 (tout simple)
la fonction qui m'a semblé le plus proche
;TVMesh_AddVertex.l(*mesh.TVMesh,x.f,y.f,z.f,nx.f,ny.f,nz.f,tu1.f,tv1.f,tu2.f=0.0,tv2.f=0,color.l=0)
arg!
TVMesh_AddVertex.l(*mesh, x, 0, z, 0, 0, 0, 0, 0, 0, 0, 0)
le code vb convertit en pb (j'ai bidouillé l'exemple 2 qui me paraissait le plus proche )
pat
Je ne connais pas JaPBe, et je n'ai donc pas essayé. Avec l'IDE de base, et en installant commeGeBonet a écrit :Ouais... Possible, mais alors pourquoi avec JaPBe aucun problème ?
