Windows GDI w/ DirectX

Blitz3D Forums/Blitz3D Programming/Windows GDI w/ DirectX

Knight #51 (Posted 2009) [#1]

Ya'll know those functions to draw triangles,rectangles,circles, and stuff?? Well if I made a Userlib that draws a triangle using the Windows GDI, can I use it in DirectX applications?

Knight #51 (Posted 2009) [#2]

Yeah!!! Got my triangle to work :D Anybody know why it's flickering so much though?

Warner (Posted 2009) [#3]

Most likely because the Windows GDI and the DirectX output screen are alternating their update instruction. So at one point, the GDI is showing, and at another point the DX output object.

Kryzon (Posted 2009) [#4]

There's already a GDI decls in the code archives. You surely don't need to make another userlib.

Knight #51 (Posted 2009) [#5]

I'm just trying to make it for fun :D Anyway, I know have my rotating triangle and circular movement for the spaceship. Unfortunately right know I'm taking a break so I haven't had time to combine the two files together (I made one a while back). :) Here is my code (the commented-out functions are my userlib functions). The triangle and rotation: Graphics 1024,768,0,2 SetBuffer BackBuffer() SeedRnd(MilliSecs()) AutoMidHandle True HidePointer AppTitle "Asteroids" ;SetDC(SystemProperty("AppHWND")) Global fps = CreateTimer(60) Global x = GraphicsWidth()/2 Global y = GraphicsHeight()/2 Global radius = 100 Global angle = 10 Dim verts(3,3) While Not KeyHit(1) WaitTimer(fps) Cls If KeyDown(200) Then radius = radius + 1 If KeyDown(208) Then radius = radius - 1 ;reposition the triangle's x,y coords to the pos of the mouse x = MouseX() y = MouseY() ;increase the triangle's angle angle = angle + 1 ;reposition the triangle's vertices ;v1 verts(1,1) = x+radius*Cos(angle) verts(1,2) = y+radius*Sin(angle) Plot verts(1,1),verts(1,2) ;v2 verts(2,1) = x+radius*Cos(angle+120) verts(2,2) = y+radius*Sin(angle+120) Plot verts(2,1),verts(2,2) ;v3 verts(3,1) = x+radius*Cos(angle+240) verts(3,2) = y+radius*Sin(angle+240) Plot verts(3,1),verts(3,2) ;Lines Line(verts(1,1),verts(1,2),verts(2,1),verts(2,2)) Line(verts(2,1),verts(2,2),verts(3,1),verts(3,2)) Line(verts(3,1),verts(3,2),verts(1,1),verts(1,2)) ;; Color 255,0,0 Plot x,y Color 0,255,0 Text 10,10,size Text 10,25,"360/3: " + Float(360/3) ;Text verts(1,1)-10,verts(1,2)-15, "V1" ;Text verts(2,1)-10,verts(2,2)-15, "V2" ;Text verts(3,1)-10,verts(3,2)-15, "V3" ;Triangle(Float(x),Float(y),Float(radius),Float(angle)) Flip Wend The circular movement: Graphics 1024,768,0,2 SetBuffer BackBuffer() SeedRnd(MilliSecs()) Type player Field x#,y# Field xv#,yv#,vel#, accel#, decel#, maxvel# Field angle% End Type Global p.player = New player p\x# = Float(GraphicsWidth()/2) p\y# = Float(GraphicsHeight()/2) p\xv# = 0.0 p\yv# = 0.0 p\vel# = 0.2 p\accel# = 0.01 p\decel# = 0.01 p\maxvel# = 3.8 p\angle = 50 Global angle# = 0 While Not KeyHit(1) Cls Color 255,0,0 Oval p\x#,p\y#,25,25,True If KeyDown(200) And p\vel# < p\maxvel# p\vel# = p\vel# + p\accel# EndIf If Not KeyDown(200) If p\vel# > 0.01 p\vel# = p\vel# - p\decel# EndIf EndIf ;slowly adjust to angle If angle# <= Cos(p\angle) angle# = angle# + 1 EndIf If angle# >= Cos(p\angle) angle# = angle# - 1 EndIf If angle# <= Sin(p\angle) angle# = angle# + 1 EndIf If angle# >= Sin(p\angle) angle# = angle# - 1 EndIf If p\xv# >= p\maxvel# Then p\xv# = p\maxvel# If p\yv# >= p\maxvel# Then p\yv# = p\maxvel# p\xv# = Cos(p\angle#)*p\vel p\yv# = Sin(p\angle#)*p\vel p\x# = p\x# + p\xv# p\y# = p\y# + p\yv# If KeyDown(203) p\angle = p\angle - 2.6 EndIf If KeyDown(205) p\angle = p\angle + 2.6 EndIf If p\angle >= 360 Then p\angle = 0 ;fire tragectory depends on cosine and sine of the player' angle Color 0,255,0 Text 10,10, "Constant Velocity: " + p\vel# Text 10,25, "Player X: " + p\x# Text 10,40, "Player Y: " + p\y# Text 10,55, "Player Angle: " + p\angle Flip Wend [edit]Combining files...Done Circlular Movement/Rotation: Graphics 1024,768,0,2 SetBuffer BackBuffer() SeedRnd(MilliSecs()) AutoMidHandle True HidePointer AppTitle "Asteroids" ;SetDC(SystemProperty("AppHWND")) Global fps = CreateTimer(60) Global x = GraphicsWidth()/2 Global y = GraphicsHeight()/2 Global radius = 100 Global angle = 0 Type player Field x#,y# Field xv#,yv#,vel#, accel#, decel#, maxvel# Field angle% End Type Global p.player = New player p\x# = Float(GraphicsWidth()/2) p\y# = Float(GraphicsHeight()/2) p\xv# = 0.0 p\yv# = 0.0 p\vel# = 0.2 p\accel# = 0.01 p\decel# = 0.01 p\maxvel# = 3.8 p\angle = 50 Global angle2# = 0 Dim verts(3,3) While Not KeyHit(1) WaitTimer(fps) Cls If KeyDown(78) Then radius = radius + 1 If KeyDown(74) Then radius = radius - 1 ;reposition the triangle's x,y coords to the pos of the mouse x = MouseX() y = MouseY() ;decrease the triangle's angle If KeyDown(203) angle = angle - 1 EndIf ;increase the triangle's angle If KeyDown(205) angle = angle + 1 EndIf ;reposition the triangle's vertices ;v1 verts(1,1) = p\x+radius*Cos(angle+180) verts(1,2) = p\y+radius*Sin(angle+180) Plot verts(1,1),verts(1,2) ;v2 verts(2,1) = p\x+radius*Cos(angle+120+180) verts(2,2) = p\y+radius*Sin(angle+120+180) Plot verts(2,1),verts(2,2) ;v3 verts(3,1) = p\x+radius*Cos(angle+240+180) verts(3,2) = p\y+radius*Sin(angle+240+180) Plot verts(3,1),verts(3,2) ;Lines Line(verts(1,1),verts(1,2),verts(2,1),verts(2,2)) Line(verts(2,1),verts(2,2),verts(3,1),verts(3,2)) Line(verts(3,1),verts(3,2),verts(1,1),verts(1,2)) ;; Color 255,0,0 Plot x,y Color 0,255,0 Text 10,70,"360/3: " + Float(360/3) ;Text verts(1,1)-10,verts(1,2)-15, "V1" ;Text verts(2,1)-10,verts(2,2)-15, "V2" ;Text verts(3,1)-10,verts(3,2)-15, "V3" ;Triangle(Float(x),Float(y),Float(radius),Float(angle)) Color 255,0,0 ;Oval p\x#,p\y#,25,25,True If KeyDown(200) And p\vel# < p\maxvel# p\vel# = p\vel# + p\accel# EndIf If Not KeyDown(200) If p\vel# > 0.01 p\vel# = p\vel# - p\decel# EndIf EndIf ;slowly adjust to angle If angle2# <= Cos(p\angle) angle2# = angle2# + 1 EndIf If angle2# >= Cos(p\angle) angle2# = angle2# - 1 EndIf If angle2# <= Sin(p\angle) angle2# = angle2# + 1 EndIf If angle2# >= Sin(p\angle) angle2# = angle2# - 1 EndIf If p\xv# >= p\maxvel# Then p\xv# = p\maxvel# If p\yv# >= p\maxvel# Then p\yv# = p\maxvel# p\xv# = Cos(p\angle#)*p\vel p\yv# = Sin(p\angle#)*p\vel p\x# = p\x# + p\xv# p\y# = p\y# + p\yv# If KeyDown(203) p\angle = p\angle - 1 EndIf If KeyDown(205) p\angle = p\angle + 1 EndIf ;restrictions If p\x >= GraphicsWidth()+10 Then p\x = 0 If p\x < 0 Then p\x = GraphicsWidth()+10 If p\y >= GraphicsHeight()+10 Then p\y = 0 If p\y < 0 Then p\y = GraphicsHeight()+10 If p\angle >= 360 Then p\angle = 0 ;fire tragectory depends on cosine and sine of the player' angle Color 0,255,0 Text 10,10, "Constant Velocity: " + p\vel# Text 10,25, "Player X: " + p\x# Text 10,40, "Player Y: " + p\y# Text 10,55, "Player Angle: " + p\angle Flip Wend Sorry that it's not well commented or stucturarly nice;I just threw it together.