;CreateMeshCone(meridien,2,2,0)
Code: Select all
;Comtois 01/05/06
;PB4.0 Beta 11
Resultat = MessageRequester("Cone 3D","Full Screen ?",#PB_MessageRequester_YesNo)
If Resultat = 6
FullScreen=1
Else
FullScreen=0
EndIf
;- Initialisation
If InitEngine3D() = 0
MessageRequester( "Erreur" , "Impossible d'initialiser la 3D , vérifiez la présence de engine3D.dll" , 0 )
End
ElseIf InitSprite() = 0 Or InitKeyboard() = 0
MessageRequester( "Erreur" , "Impossible d'initialiser DirectX 7 Ou plus" , 0 )
End
EndIf
If Fullscreen
OpenScreen(800,600,32,"Cone 3D")
Else
OpenWindow(0,0, 0, 800 , 600 ,"Cone 3D",#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),0,0, 800 , 600,0,0,0)
EndIf
Macro MaCouleur(Rouge,Vert,Bleu)
Rouge << 16 + Vert << 8 + Bleu
EndMacro
Global Angle.f,Pas.f, CameraMode.l
Global *VBuffer,*IBuffer
Global meridien.l
meridien=90
Structure Vertex
px.f
py.f
pz.f
nx.f
ny.f
nz.f
Couleur.l
U.f
V.f
EndStructure
Structure FTriangle
f1.w
f2.w
f3.w
EndStructure
Procedure CreateMeshCone(m, rb.f, h.f, rt.f)
;m = méridien
;h = hauteur
;rb = Rayon de la base
;rt = rayon troncature (haut du cône)
;Les normales sont calculées pour un cône :
;rb = 2
;h = 2
;rt = 1
;Pour un cône plus général , il faut éventuellement utiliser la pondération par les angles
If m<3 Or h < 0 Or rb < 0 Or rt < 0
ProcedureReturn 0
EndIf
NbSommet = 4*(m+1)+2
*VBuffer = AllocateMemory(SizeOf(Vertex)*Nbsommet)
*PtrV.Vertex = *VBuffer
;Sommet en bas du cone
Coul = $FF ; Pas utilisé dans cette démo
For i = 0 To m
theta.f =2*#PI*i/m
*PtrV\px = rb * Cos(theta)
*PtrV\py = 0
*PtrV\pz = rb * Sin(theta)
*PtrV\nx = *PtrV\px * 4
*PtrV\ny = 4 - *PtrV\py
*PtrV\nz = *PtrV\pz * 4
*PtrV\couleur = Coul
*PtrV\u = Theta / (2.0*#PI)
*PtrV\v = 0
*PtrV + SizeOf(Vertex)
Next i
;Sommet en haut du cone
For i = 0 To m
theta.f =2*#PI*i/m
*PtrV\px = rt * Cos(theta)
*PtrV\py = h
*PtrV\pz = rt * Sin(theta)
*PtrV\nx = *PtrV\px * 4
*PtrV\ny = 4 - *PtrV\py
*PtrV\nz = *PtrV\pz * 4
*PtrV\couleur = Coul
*PtrV\u = Theta / (2.0*#PI)
*PtrV\v = 1
*PtrV + SizeOf(Vertex)
Next i
;Sommet face bas du cone
For i = 0 To m
theta.f =2*#PI*i/m
*PtrV\px = rb * Cos(theta)
*PtrV\py = 0
*PtrV\pz = rb * Sin(theta)
*PtrV\nx = 0
*PtrV\ny = -1
*PtrV\nz = 0
*PtrV\couleur = Coul
*PtrV\u = Theta / (2.0*#PI)
*PtrV\v = 1
*PtrV + SizeOf(Vertex)
Next i
;Sommet face haut du cone
For i = 0 To m
theta.f =2*#PI*i/m
*PtrV\px = rt * Cos(theta)
*PtrV\py = h
*PtrV\pz = rt * Sin(theta)
*PtrV\nx = 0
*PtrV\ny = 1
*PtrV\nz = 0
*PtrV\couleur = Coul
*PtrV\u = Theta / (2.0*#PI)
*PtrV\v = 1
*PtrV + SizeOf(Vertex)
Next i
;Centre bas
*PtrV\px = 0
*PtrV\py = 0
*PtrV\pz = 0
*PtrV\nx = 0
*PtrV\ny = -1
*PtrV\nz = 0
*PtrV\couleur = Coul
*PtrV\u = 0.5
*PtrV\v = 0.5
*PtrV + SizeOf(Vertex)
;Centre haut
*PtrV\px = 0
*PtrV\py = h
*PtrV\pz = 0
*PtrV\nx = 0
*PtrV\ny = 1
*PtrV\nz = 0
*PtrV\couleur = Coul
*PtrV\u = 0.5
*PtrV\v = 0.5
;Les facettes
NbTriangle = 4*m
*IBuffer=AllocateMemory(SizeOf(FTriangle)*NbTriangle)
*PtrF.FTriangle=*IBuffer
For i=0 To m-1
*PtrF\f3=i
*PtrF\f2=i + 1
*PtrF\f1=m + i + 2
*PtrF + SizeOf(FTriangle)
*PtrF\f1=i
*PtrF\f3=m + i + 2
*PtrF\f2=m + i + 1
*PtrF + SizeOf(FTriangle)
Next i
;Face bas
For i=0 To m-1
*PtrF\f1= 4 * m + 4
*PtrF\f2= 2 * m + 2 + i
*PtrF\f3= 2 * m + 3 + i
*PtrF + SizeOf(FTriangle)
Next i
;Face Haut
For i=0 To m-1
*PtrF\f1= 4 * m + 5
*PtrF\f3= 3 * m + 3 + i
*PtrF\f2= 3 * m + 4 + i
*PtrF + SizeOf(FTriangle)
Next i
If CreateMesh(0,100)
Flag = #PB_Mesh_Vertex | #PB_Mesh_Normal | #PB_Mesh_UVCoordinate | #PB_Mesh_Color
SetMeshData(0,Flag ,*VBuffer,NbSommet)
SetMeshData(0,#PB_Mesh_Face,*IBuffer,NbTriangle)
ProcedureReturn 1
Else
ProcedureReturn 0
EndIf
EndProcedure
;-Mesh
;CreateMeshCone(meridien,2,2,0)
CreateMeshCone(meridien,2,2,1)
;-Texture
CreateTexture(0,128, 128)
StartDrawing(TextureOutput(0))
Box(0, 0, 128, 128, $FFFF00)
StopDrawing()
;-Material
CreateMaterial(0,TextureID(0))
;-Entity
CreateEntity(0,MeshID(0),MaterialID(0))
ScaleEntity(0,30,30,30)
;-Camera
CreateCamera(0, 0, 0 , 100 , 100)
MoveCamera(0,0,0,-400)
CameraLookAt(0,EntityX(0),EntityY(0),EntityZ(0))
;-Light
AmbientColor(RGB(105,105,105))
CreateLight(0,RGB(255,255,55),EntityX(0)+150,EntityY(0),EntityZ(0))
CreateLight(1,RGB(55,255,255),EntityX(0)-150,EntityY(0),EntityZ(0))
CreateLight(2,RGB(55,55,255),EntityX(0),EntityY(0)+150,EntityZ(0))
CreateLight(3,RGB(255,55,255),EntityX(0),EntityY(0)-150,EntityZ(0))
pas = 0.8
Repeat
;ClearScreen(0)
If fullscreen = 0
While WindowEvent() : Wend
EndIf
Angle + Pas
RotateEntity(0,angle,angle/2,-Angle)
If ExamineKeyboard()
If KeyboardReleased(#PB_Key_F1)
CameraMode=1-CameraMode
CameraRenderMode(0,CameraMode)
EndIf
EndIf
RenderWorld()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape) 
