PureBasic Forums - English

Code: Select all

InitSprite()
InitSprite3D()
InitKeyboard()
#PI=3.14159265
OpenScreen(1024,768,32,"Example 3")

S3DR_CreateZBuffer();must be called before Start3D() and S3DR_BeginReal3D()

LoadSprite(1,"yourspritehere.BMP",#PB_Sprite_Texture)

!extrn PB_S3DR_SelectTexture
!extrn PB_S3DR_Draw3D
x.f:y.f:mx.f:my.f
!macro S3DR_RotateAndZoom SpriteID,rad,z{
  !fld dword[v_#rad]
  !fchs; -radians
  !fldpi; PI
  !fld1  ; 1
  !fadd st0,st0; 2
  !fmul st0,st0; 4
  !fdivp st1,st0; PI/4
  !fsubp st1,st0; -radians-PI/4
  !fsincos;   cos(-radians-PI/4) and sin(-radians-PI/4)
  !fst dword[v_x]
  !fchs
  !fstp dword[v_mx]
  !fst dword[v_y]
  !fchs
  !fstp dword[v_my]
  !mov eax,SpriteID
  !call PB_S3DR_SelectTexture
  !push dword[v_#z] dword[v_mx] dword[v_y] dword[v_#z] dword[v_my] dword[v_mx] dword[v_#z] dword[v_y] dword[v_x] dword[v_#z] dword[v_x]
  !fld dword[v_my]
  !call PB_S3DR_Draw3D
  !}

zoom.f=5
Repeat  
  Start3D()
  S3DR_BeginReal3D()
  S3DR_ClearScreenAndZBuffer(#black)
  S3DR_UseTransparency(#S3DR_TRUE)

  radians.f+0.01:If radians>=2*#PI:radians=0:EndIf
  If zoom>=50:zi.b=0:ElseIf zoom<=1:zi.b=1:EndIf
  If zi.b:zoom+0.1:Else:zoom-0.1:EndIf
  
  !S3DR_RotateAndZoom 1,radians,zoom

  S3DR_EndReal3D()
  Stop3D()
  FlipBuffers():Delay(16)
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)

Code: Select all

Procedure RotatePoint3DX(X.f,Y.f,Z.f,RotX.f,OutX,OutY,OutZ)
  PokeF(OutX,X)
  PokeF(OutY,Y * Cos(RotX) + Z * -Sin(RotX))
  PokeF(OutZ,Y * Sin(RotX) + Z *  Cos(RotX))
EndProcedure

InitSprite()
InitSprite3D()
InitKeyboard()

OpenScreen(800,600,16,"Rotate around the x-axis")

S3DR_CreateZBuffer() ;must be called before Start3D() and S3DR_BeginReal3D()

CreateSprite(1,256,256,#PB_Sprite_Texture)

StartDrawing(SpriteOutput(1))
Circle(128,128,128,#blue)
DrawingMode(1)
DrawingFont(LoadFont(1,"Arial Black",24))
FrontColor(255,255,0)
Locate(5,90)
DrawText("Rotate around")
Locate(30,130)
DrawText("the x-axis")
StopDrawing()

Start3D()
S3DR_BeginReal3D()
S3DR_MoveCamera(0,0,-5)
S3DR_EndReal3D()
Stop3D()



Repeat
  
  Start3D()
  
  S3DR_BeginReal3D()
  S3DR_ClearScreenAndZBuffer(#black)
  
  S3DR_SelectTexture(1)
  S3DR_SetCullMode(#S3DR_NONE)
  
  If KeyboardPushed(#PB_Key_Left):S3DR_RotateCamera(-0.05,0,0):EndIf
  If KeyboardPushed(#PB_Key_Right):S3DR_RotateCamera( 0.05,0,0):EndIf
  
  If KeyboardPushed(#PB_Key_Up):S3DR_MoveCamera(0,0,0.1):EndIf
  If KeyboardPushed(#PB_Key_Down):S3DR_MoveCamera(0,0,-0.1):EndIf
  
  Angle.f+0.01
  
  RotatePoint3DX(-1, 1,0,Angle,@X1.f,@Y1.f,@Z1.f)
  RotatePoint3DX( 1, 1,0,Angle,@X2.f,@Y2.f,@Z2.f)
  RotatePoint3DX(-1,-1,0,Angle,@X3.f,@Y3.f,@Z3.f)
  RotatePoint3DX( 1,-1,0,Angle,@X4.f,@Y4.f,@Z4.f)
  
  S3DR_Draw3D(X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3,X4,Y4,Z4);draws the selected sprite
  
  S3DR_EndReal3D()
  Stop3D()
  
  FlipBuffers()
  
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)