[windows] Complete DirectX 3D engine for PB (source)

BackupUser · Post by **BackupUser** » Fri Sep 06, 2002 9:43 am

Code updated for 5.20+
Restored from previous forum. Originally posted by Danilo.

Here now a fully featured DirectX 3D engine
with Zoom and everything...

Code: Select all

#ScreenWidth  = 800 ;1600
#ScreenHeight = 600 ;1200
  
If InitSprite() = 0 Or InitKeyboard() = 0
   MessageRequester("ERROR","Cant init DirectX",0)
EndIf
  
Procedure.f GSin(Angle.f)
   ; Input : Angle ( 0 - 360 )
   ProcedureReturn Sin(Angle*(2*3.14159265/360))
EndProcedure 
  
Procedure.f GCos(Angle.f) 
   ; Input : Angle ( 0 - 360 )
   ProcedureReturn Cos(Angle*(2*3.14159265/360))
EndProcedure 
  
Structure myPoint 
x.l 
y.l 
EndStructure 
  
Dim Quadrat.myPoint(8) 
Radius       = 100
Depth        = Radius/2
speed.f      = 1.5
degree.f     = 30.0
#MiddleX     = #ScreenWidth  / 2
#MiddleY     = #ScreenHeight / 2
  
If OpenScreen(#ScreenWidth,#ScreenHeight,32,"Line-Test") = 0 : CloseScreen()
 If OpenScreen(#ScreenWidth,#ScreenHeight,24,"Line-Test") = 0 : CloseScreen()
  If OpenScreen(#ScreenWidth,#ScreenHeight,16,"Line-Test") = 0 : CloseScreen()
   If OpenScreen(#ScreenWidth,#ScreenHeight,8,"Line-Test") = 0 : CloseScreen()
      MessageRequester("ERROR", "Cant open "+Str(#ScreenWidth)+"x"+Str(#ScreenHeight)+" DirectX Screen",0): End
EndIf:EndIf:EndIf:EndIf
   
   Repeat
    FlipBuffers()
    If IsScreenActive()
      ClearScreen(0)
      
      Offset = Depth/2
      Quadrat(1)\x = #MiddleX-Offset + GSin(degree)*Radius
      Quadrat(1)\y = #MiddleY+Offset + GCos(degree)*Radius
      Quadrat(2)\x = #MiddleX-Offset + GSin(degree+90)*Radius
      Quadrat(2)\y = #MiddleY+Offset + GCos(degree+90)*Radius
      Quadrat(3)\x = #MiddleX-Offset - GSin(degree)*Radius
      Quadrat(3)\y = #MiddleY+Offset - GCos(degree)*Radius
      Quadrat(4)\x = #MiddleX-Offset - GSin(degree+90)*Radius
      Quadrat(4)\y = #MiddleY+Offset - GCos(degree+90)*Radius
      
      Quadrat(5)\x = Quadrat(1)\x + Depth
      Quadrat(5)\y = Quadrat(1)\y - Depth
      Quadrat(6)\x = Quadrat(2)\x + Depth
      Quadrat(6)\y = Quadrat(2)\y - Depth
      Quadrat(7)\x = Quadrat(3)\x + Depth
      Quadrat(7)\y = Quadrat(3)\y - Depth
      Quadrat(8)\x = Quadrat(4)\x + Depth
      Quadrat(8)\y = Quadrat(4)\y - Depth
      
      
      StartDrawing(ScreenOutput())
         DrawingMode(1)
         
         For a = 1 To 50
             c = Random(255)
             Box(Random(#ScreenWidth),Random(#ScreenHeight),Random(4),Random(4),RGB(c,c,c))
         Next a
         
         FrontColor(RGB(color,color,0))
         If colorflag = 0
            color + 2 : If color = 254 : colorflag = 1 : EndIf
         Else
            color - 2 : If color =   0 : colorflag = 0 : EndIf
         EndIf
         
         DrawText(100,10,"Use CursorKeys to control speed and z00m")
         
         
         FrontColor(RGB($FF,$FF,$00))
         
         
         ;DrawText("Degree: "+Using("000",Abs(degree-360)))
         DrawText(#MiddleX-Radius-100,#MiddleY-Radius,"degree: "+StrF(Abs(degree-360),2))
         
          
         DrawText(#MiddleX-Radius-100,#MiddleY-Radius-15,"Speed: "+StrF(speed,2))
         
         
         DrawText(#MiddleX-Radius-100,#MiddleY-Radius+15,"z00m: "+StrF(Radius/10,1))
         
         ; Background Quadrat
         LineXY(Quadrat(5)\x,Quadrat(5)\y, Quadrat(6)\x, Quadrat(6)\y, $0000FF)
         LineXY(Quadrat(6)\x,Quadrat(6)\y, Quadrat(7)\x, Quadrat(7)\y, $FF0000)
         LineXY(Quadrat(7)\x,Quadrat(7)\y, Quadrat(8)\x, Quadrat(8)\y, $FF00FF)
         LineXY(Quadrat(8)\x,Quadrat(8)\y, Quadrat(5)\x, Quadrat(5)\y, $FF38AA)
         
         ; connections between the Quadrats
         LineXY(Quadrat(1)\x,Quadrat(1)\y, Quadrat(5)\x, Quadrat(5)\y, $555555)
         LineXY(Quadrat(2)\x,Quadrat(2)\y, Quadrat(6)\x, Quadrat(6)\y, $777777)
         LineXY(Quadrat(3)\x,Quadrat(3)\y, Quadrat(7)\x, Quadrat(7)\y, $999999)
         LineXY(Quadrat(4)\x,Quadrat(4)\y, Quadrat(8)\x, Quadrat(8)\y, $BBBBBB)
         
         
         ; Foreground Quadrat
         LineXY(Quadrat(1)\x,Quadrat(1)\y, Quadrat(2)\x, Quadrat(2)\y, $00FFFF)
         LineXY(Quadrat(2)\x,Quadrat(2)\y, Quadrat(3)\x, Quadrat(3)\y, $00FF00)
         LineXY(Quadrat(3)\x,Quadrat(3)\y, Quadrat(4)\x, Quadrat(4)\y, $FFFF00)
         LineXY(Quadrat(4)\x,Quadrat(4)\y, Quadrat(1)\x, Quadrat(1)\y, $5115F5)
         
      StopDrawing()
      degree - speed.f
      If degree = 360.0
       degree = 0.0 + degree-360
      EndIf
      
      ExamineKeyboard()
      If KeyboardPushed(#PB_Key_Right): speed  + 0.01 : EndIf
      If KeyboardPushed(#PB_Key_Left ): speed  - 0.01 : EndIf
      If KeyboardPushed(#PB_Key_Up   ): Radius + 1    : EndIf
      If KeyboardPushed(#PB_Key_Down ): Radius - 1    : EndIf
      
      If Radius = #MiddleY-Offset
        Radius = #MiddleY-Offset
      EndIf
      Depth = Radius/2
      
      Delay(1)
    Else
      Delay(200)
    EndIf
   Until KeyboardPushed(#PB_Key_Escape)

Hope to see some cool 3D games from you
in the future...

cya,
...Danilo

(registered PureBasic user)

BackupUser · Post by **BackupUser** » Fri Sep 06, 2002 12:23 pm

Restored from previous forum. Originally posted by BalrogSoft.

Originally posted by Danilo

Here now a fully featured DirectX 3D engine
with Zoom and everything...

Hope to see some cool 3D games from you
in the future...

cya,
...Danilo

(registered PureBasic user)

Im sory danilo, but this is not really a 3d engine, this code dont have perspective, you must transform the 3d coords to 2d coords to be a really 3d engine, each point in 3d will be in 2d coords:

Code: Select all

X2D.f=Distance.f*X3D.f/Z3D.f
Y2D.f=Distance.f*Y3D.f/Z3D.f

Distance.f is the distance from the viewer, if is very low the world displays with a lot of perspective, and a high value dont show perspective, i use for my 3d engine the value of 500 and show nice...

Bye, Balrog Soft.
Sorry for my bad english...

Balrog Soft
Amiga and PC Coder
http://www.balrogsoftware.com
[url]mailto:balrog@balrogsoftware.com[/url]

BackupUser · Post by **BackupUser** » Fri Sep 06, 2002 8:49 pm

Restored from previous forum. Originally posted by Danilo.

Hey BalrogSoft, dont take it seriously

It was only a joke, see the smileys...

Every kid knows that this isnt a 3D engine.

And some lines of code dont make a ENGINE,
so there isnt a 3D engine officially
available for PB yet (traumatic

)..
Some people (like you) wrote some little
tests, but _I_ dont call that a 3D ENGINE.

cya,
...Danilo

(registered PureBasic user)

BackupUser · Post by **BackupUser** » Sat Sep 07, 2002 10:16 am

Restored from previous forum. Originally posted by traumatic.

danilo