[MDX] DX2Dengine [Update 17.4.2010 17:22] mit Sourcecode Z-Buffer-Korrektur

FAtheone · 12. April 2010, 18:25

So. Meine DX2Dengine.

Beschreibung:

-DirectX 2D-Grafik einfach gemacht, zukunftsfähig, da über D3D, nicht DirectDraw
-Vollständig dokumentiert
-ID-system: Das spiel kann die Sprites einfach verwalten, ohne direkt die daten zu haben
-zBuffer-system: Sprites können auf Ebenen angeordnet werden und als ganzes Gelöscht und verschoben werden

Anforderungen:

-Managed DirectX SDK 9.0
-Programmiert mit .NET FW 3.5 (geht 2.0 ?)

Projekten muss ein Verweis auf:
Microsoft.DirectX
Microsoft.DirectX.Direct3D
Microsoft.DirectX.Direct3DX
hinzugefügt werden.

Lizenz steht im Sourcecode, aber hier nochmal:

DX2Dengine by FAtheone (C) 2010
Diese Klasse kann beliebig modifiziert und verbreitet werden, solange der Urheber (FAtheone)
in der Anwendung gennant bzw. die Lizenzbedingungen weitergegeben und für die neue Version übernommen werden.
Bestimmt für vb-paradise.de
Besonderen dank für hosting an Jay a.k.a. Toby dig3.net

Todo:
-Resource-Pool, sodass es jedes Bild nur einmal als Textur im Speicher gibt und dise beliebig oft verwendet werden kann
-Overload von InitEngine mit bereits erstelltem Device (THX to yeti2078)

Klasse im Anhang, VB-Code kommt im nächsten Post, da sost zu lang.

Dodo · 14. April 2010, 11:30

FAtheone schrieb:

Bestimmt für forum.vb-paradise.net

Bestimmt für eine nicht existierende URL??

FAtheone · 14. April 2010, 16:17

ist mir inzwischen auch schon aufgefallen
Ich muss sowieso updaten, da die bereitgestellte Version nicht so ohne weiteres funktioniert.
Alle Fehler wurden behoben (inkl. Linkfehler; danke an Dodo für den Hinweis)

FAtheone · 14. April 2010, 17:33

Code, 403 Zeilen

VB.NET-Quellcode

Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
Imports System.Drawing
''' <summary>
''' DX2Dengine by FAtheone (C) 2010
''' Diese Klasse kann beliebig modifiziert und verbreitet werden, solange der Urheber (FAtheone)
''' in der Anwendung gennant bzw. die Lizenzbedingungen weitergegeben und für die neue Version übernommen werden.
''' Bestimmt für http://www.vb-paradise.de
''' Besonderen dank für hosting an Jay a.k.a. Toby http://dig3.net
''' </summary>
''' <remarks></remarks>
Public Class DX2Dengine
Dim WithEvents dev As Device
Dim dsurface As Sprite
Dim sprIDs As List(Of Long)
Dim sprDat As List(Of D2DSpr)
Dim zBufOffsets As List(Of PointF)
Dim zBufIDs As List(Of Long)
Dim pp As New PresentParameters
Public Sub FinalizeEngine()
dsurface.Dispose()
dev.Dispose()
End Sub
''' <summary>
''' Initialisiert die DX2Dengine
''' </summary>
''' <param name="forControl">Control oder Form, auf der gezeichnet wird</param>
''' <param name="screen">Auflösung der Zeichenfläche</param>
''' <param name="Fullscreen">Vollbild</param>
''' <remarks></remarks>
Public Sub InitEngine(ByRef forControl As System.Windows.Forms.Control, ByVal screen As Size, ByVal Fullscreen As Boolean)
Dim disp As DisplayMode = Manager.Adapters.Default.CurrentDisplayMode
pp.BackBufferCount = 1
pp.BackBufferHeight = screen.Height
pp.BackBufferWidth = screen.Width
pp.BackBufferFormat = disp.Format
pp.EnableAutoDepthStencil = True
pp.AutoDepthStencilFormat = DepthFormat.D16
pp.SwapEffect = SwapEffect.Discard
pp.Windowed = Not Fullscreen
dev = New Device(0, DeviceType.Hardware, forControl.Handle, CreateFlags.SoftwareVertexProcessing, pp)
dsurface = New Sprite(dev)
'SPR und ZBUF Init
sprIDs = New List(Of Long)
sprDat = New List(Of D2DSpr)
zBufIDs = New List(Of Long)
zBufOffsets = New List(Of PointF)
'Default ZBUF
zBufIDs.Add(0)
zBufOffsets.Add(New Point(0, 0))
End Sub
''' <summary>
''' Rendert das aktuelle Bild und gibt es aus.
''' </summary>
''' <remarks></remarks>
Public Sub Render()
If dev Is Nothing Then Exit Sub
dev.Clear(ClearFlags.Target, Color.Gray, 1.0, 0)
dev.BeginScene()
dsurface.Begin(SpriteFlags.AlphaBlend)
For i = 0 To zBufIDs.Count - 1
For Each s As D2DSpr In sprDat
If s.draw Then
If s.zBufID = 0 Then
dsurface.Draw2D(s.Tex, s.rotPt, s.rotRad, s.Loc, &HFFFFFFFF)
Else
If s.zBufID = zBufIDs(i) Then
dsurface.Draw2D(s.Tex, s.rotPt, s.rotRad, PointF.Add(s.Loc, New SizeF(zBufOffsets(i))), &HFFFFFFFF)
End If
End If
End If
Next
Next
dsurface.End()
dev.EndScene()
dev.Present()
End Sub
#Region "Sprite OPS"
''' <summary>
''' Fügt ein Sprite mit standardeinstellungen hinzu und gibt dessen ID zurück.
''' Für spezielle einstellungen können die ChangeSprite...-Prozeduren genutzt werden
''' </summary>
''' <param name="img">Bilddaten des Sprites</param>
''' <param name="pos">Position des Sprites</param>
''' <returns>ID des Sprites</returns>
''' <remarks></remarks>
Public Function AddSprite(ByRef img As Bitmap, ByVal pos As PointF) As Long
Dim spID As Long = GetFreeID()
sprDat.Add(New D2DSpr)
With sprDat.Last
.Tex = New Texture(dev, img, Usage.Dynamic, Pool.Default)
.Loc = pos
.rotPt = New PointF(0, 0)
.rotRad = 0
.zBufID = 0
.draw = True
End With
sprIDs.Add(spID)
Return spID
End Function
''' <summary>
''' Ändert das Bild eines Sprites
''' </summary>
''' <param name="id">ID des Sprites, die bei dessen Erstellung zurückgegeben wurde</param>
''' <param name="img">Neues Bild</param>
''' <remarks></remarks>
Public Sub ChangeSpriteImage(ByVal id As Long, ByVal img As Bitmap)
If sprIDs.Contains(id) Then
sprDat(sprIDs.IndexOf(id)).Tex = New Texture(dev, img, Usage.Dynamic, Pool.Default)
Else
Throw New SpriteIDNotValidException("ChangeSpriteImage", "id", id)
End If
End Sub
''' <summary>
''' Ändert die Position eines Sprites
''' </summary>
''' <param name="id">ID des Sprites, die bei dessen Erstellung zurückgegeben wurde</param>
''' <param name="pos">Neue Position</param>
''' <remarks></remarks>
Public Sub ChangeSpriteLocation(ByVal id As Long, ByVal pos As PointF)
If sprIDs.Contains(id) Then
sprDat(sprIDs.IndexOf(id)).Loc = pos
Else
Throw New SpriteIDNotValidException("ChangeSpriteLocation", "id", id)
End If
End Sub
''' <summary>
''' Ändert die Rotation eines Sprites
''' </summary>
''' <param name="id">ID des Sprites, die bei dessen Erstellung zurückgegeben wurde</param>
''' <param name="rotCenter">Zentrum der Rotation, Standardwert ist der Bildmittelpunkt</param>
''' <param name="rotAngle">Drehwinkel in Radiant (Rad), 1° -> PI/180 rad</param>
''' <remarks></remarks>
Public Sub ChangeSpriteRotation(ByVal id As Long, ByVal rotCenter As PointF, ByVal rotAngle As Single)
If sprIDs.Contains(id) Then
With sprDat(sprIDs.IndexOf(id))
.rotPt = rotCenter
.rotRad = rotAngle
End With
Else
Throw New SpriteIDNotValidException("ChangeSpriteRotation", "id", id)
End If
End Sub
''' <summary>
''' Ändert den Rotationswinkel eines Sprites
''' </summary>
''' <param name="id">ID des Sprites, die bei dessen Erstellung zurückgegeben wurde</param>
''' <param name="rotAngle">Rotationswinkel in Radiant (Rad), 1° -> PI/180 rad</param>
''' <remarks></remarks>
Public Sub ChangeSpriteRotationAngle(ByVal id As Long, ByVal rotAngle As Single)
If sprIDs.Contains(id) Then
With sprDat(sprIDs.IndexOf(id))
.rotRad = rotAngle
End With
Else
Throw New SpriteIDNotValidException("ChangeSpriteRotationAngle", "id", id)
End If
End Sub
''' <summary>
''' Ändert den Rotationswinkel eines Sprites
''' </summary>
''' <param name="id">ID des Sprites, die bei dessen Erstellung zurückgegeben wurde</param>
''' <remarks></remarks>
Public Sub AddSpriteRotationAngle(ByVal id As Long, ByVal addAngle As Single)
If sprIDs.Contains(id) Then
With sprDat(sprIDs.IndexOf(id))
.rotRad += addAngle
Do While .rotRad < 0
.rotRad += Math.PI * 2
Loop
Do While .rotRad >= Math.PI * 2
.rotRad -= Math.PI * 2
Loop
End With
Else
Throw New SpriteIDNotValidException("AddSpriteRotationAngle", "id", id)
End If
End Sub
''' <summary>
''' Ändert den zBuffer (Ebene) eines Sprites
''' </summary>
''' <param name="id">ID des Sprites, die bei dessen Erstellung zurückgegeben wurde</param>
''' <param name="zbufID">ID des zBuffers, die bei dessen Erstellung zurückgegeben wurde</param>
''' <remarks></remarks>
Public Sub ChangeSpriteZBuffer(ByVal id As Long, ByVal zbufID As Long)
If sprIDs.Contains(id) Then
If zBufIDs.Contains(zbufID) Then
sprDat(sprIDs.IndexOf(id)).zBufID = zbufID
Else
Throw New zBufIDNotValidException("ChangeSpriteZBuffer", "zbufID", zbufID)
End If
Else
Throw New SpriteIDNotValidException("ChangeSpriteZBuffer", "id", id)
End If
End Sub
''' <summary>
''' Entfernt ein Sprite
''' </summary>
''' <param name="id">ID des Sprites, die bei dessen Erstellung zurückgegeben wurde</param>
''' <remarks></remarks>
Public Sub RemoveSprite(ByVal id As Long)
If sprIDs.Contains(id) Then
sprDat.RemoveAt(sprIDs.IndexOf(id))
sprIDs.Remove(id)
Else
Throw New SpriteIDNotValidException("RemoveSprite", "id", id)
End If
End Sub
''' <summary>
''' Entfernt alle Sprites
''' </summary>
''' <remarks></remarks>
Public Sub ClearSprites()
sprIDs.Clear()
sprDat.Clear()
End Sub
''' <summary>
''' Gibt eine freie Sprite-ID (NICHT ZBUFFER) zurück
''' </summary>
''' <returns>Freie Sprite-ID</returns>
''' <remarks></remarks>
Private Function GetFreeID() As Long
Dim id As Long = 0
Do Until Not sprIDs.Contains(id)
id += 1
Loop
Return id
End Function
''' <summary>
''' Löscht alle Sprites, die auf einem Bestimmten zBuffer liegen
''' </summary>
''' <param name="zBufID">ID des zBuffers, die bei dessen Erstellung zurückgegeben wurde</param>
''' <remarks></remarks>
Public Sub ClearZBuffer(ByVal zBufID As Long)
If zBufIDs.Contains(zBufID) Then
Dim killst As New List(Of Integer)
For s = sprDat.Count - 1 To 0
If sprDat(s).zBufID = zBufID Then killst.Add(s)
Next
For Each s As Integer In killst
sprDat.RemoveAt(s)
sprIDs.RemoveAt(s)
Next
Else
Throw New zBufIDNotValidException("ClearZBuffer", "zBufID", zBufID)
End If
End Sub
''' <summary>
''' Gibt eine Liste mit allen vergebenen Sprite-IDs zurück
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function ListSpriteIDs() As List(Of Long)
Return sprIDs
End Function
''' <summary>
''' Ändert die Sichtbarkeit eines Sprites
''' </summary>
''' <param name="id">ID des Sprites, die bei dessen Erstellung zurückgegeben wurde</param>
''' <param name="visible">Sichtbarkeit des Sprites</param>
''' <remarks></remarks>
Public Sub ChangeSpriteVisibility(ByVal id As Long, ByVal visible As Boolean)
If sprIDs.Contains(id) Then
sprDat(sprIDs.IndexOf(id)).draw = visible
Else
Throw New SpriteIDNotValidException("ChangeSpriteVisibility", "id", id)
End If
End Sub
#End Region
#Region "ZBuffer OPS"
''' <summary>
''' Gibt eine freie zBuffer-ID (NICHT SPRITE) zurück
''' </summary>
''' <returns>Freie zBuffer-ID</returns>
''' <remarks></remarks>
Private Function GetFreeZID() As Long
Dim id As Long = 0
Do Until Not zBufIDs.Contains(id)
id += 1
Loop
Return id
End Function
''' <summary>
''' Erzeugt einen neuen Z-Buffer und gibt dessen ID zurück
''' </summary>
''' <param name="initialOffset">Anfänglicher Ebenen-versatz. Kann über ChangeZBufOffset geändert werden</param>
''' <returns>ZBuffer-ID</returns>
''' <remarks></remarks>
Public Function AddZBuffer(ByVal initialOffset As Point) As Long
Dim res As Long = GetFreeZID()
zBufIDs.Add(res)
zBufOffsets.Add(initialOffset)
Return res
End Function
''' <summary>
''' Gibt eine Liste mit allen vergebenen Z-Buffer-IDs zurück.
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function ListZBufferIDs() As List(Of Long)
Return zBufIDs
End Function
''' <summary>
''' Ändert die Verschiebung einees Z-Buffers
''' </summary>
''' <param name="id">ID des Z-Buffers, die bei dessen Erstellung zurückgegeben wurde</param>
''' <param name="newOffset"></param>
''' <remarks></remarks>
Public Sub ChangeZBufferOffset(ByVal id As Long, ByVal newOffset As PointF)
If zBufIDs.Contains(id) Then
If id = 0 Then
Throw New zBufIDIsDefaultException("ChangeZBufferOffset")
Else
zBufOffsets(zBufIDs.IndexOf(id)) = newOffset
End If
Else
Throw New zBufIDNotValidException("ChangeZBufferOffset", "id", id)
End If
End Sub
#End Region
''' <summary>
''' DX2Dengine Sprite-Daten
''' </summary>
''' <remarks></remarks>
Private Class D2DSpr
''' <summary>
''' Textur (Bild)
''' </summary>
''' <remarks></remarks>
Public Tex As Texture
''' <summary>
''' Position
''' </summary>
''' <remarks></remarks>
Public Loc As PointF
''' <summary>
''' Rotationszentrum
''' </summary>
''' <remarks></remarks>
Public rotPt As PointF
''' <summary>
''' Rotationswinkel
''' </summary>
''' <remarks></remarks>
Public rotRad As Single
''' <summary>
''' zBuffer zugehörigkeit
''' </summary>
''' <remarks></remarks>
Public zBufID As Long
''' <summary>
''' Renderstatus
''' </summary>
''' <remarks></remarks>
Public draw As Boolean
End Class
Public Class SpriteIDNotValidException
Inherits Exception
Public var As String
Public val As Long
Public msg As String
Public Overrides ReadOnly Property Message() As String
Get
Return msg & " -> Die Sprite-ID ist nicht gültig! Variable: " & var & " Wert: " & val
End Get
End Property
Public Sub New(ByVal funcname As String, ByVal variable As String, ByVal value As Long)
var = variable
val = value
msg = funcname
End Sub
End Class
Public Class zBufIDNotValidException
Inherits Exception
Public var As String
Public val As Long
Public msg As String
Public Overrides ReadOnly Property Message() As String
Get
Return msg & " -> Die z-Buffer-ID ist nicht gültig! Variable: " & var & " Wert: " & val
End Get
End Property
Public Sub New(ByVal message As String, ByVal variable As String, ByVal value As Long)
msg = message
var = variable
val = value
End Sub
End Class
Public Class zBufIDIsDefaultException
Inherits Exception
Public msg As String
Public Overrides ReadOnly Property Message() As String
Get
Return msg & " -> Der zBuffer mit der ID 0 kann nicht modifiziert werden, da er der Standard-Buffer ist"
End Get
End Property
Public Sub New(ByVal message As String)
msg = message
End Sub
End Class
End Class

Sakeco · 15. April 2010, 19:48

Ich muss sowieso updaten, da die bereitgestellte Version nicht so ohne weiteres funktioniert.

Wann kommt denn das besagte Update?

FAtheone · 15. April 2010, 20:21

Bereits geschehen (siehe Titelleiste)
der Post ist somit hinfällig. Ich werde ihn kennzeichnen.

BTW: Feedback ist durchaus erwünscht.

yeti2078 · 15. April 2010, 22:17

Hey sieht echt nicht schlecht aus. Das Sprite-System ist mit der Z-Sortierung gut ausgearbeitet.

Kleiner Kritikpunkt:
Muss bei der Initialisierung wirklich ein neues Device erstellt werden?
Es wäre für manche Nutzer doch von Vorteil, wenn die Sprite-Engine auf ein schon erstelltes Device aufbaut.

Also in der Art eine weitere Overload-Funktion:

VB.NET-Quellcode

Public Sub InitEngine(ByRef original_device as Device)

FAtheone · 16. April 2010, 08:52

Kommt zusammen mit dem Resource-Pool in den To-Do-Queue

Im Moment mache ich allerdings mirt dieser Version ein Spiel (Sokoban) samt Editor; will heissen, dass es evtl. noch was dauert^^
Danke für die Anregung & gute Kritik.

jansteffen · 17. April 2010, 17:14

Wo is den die doku dazu? kannste vielleicht dazu n kleines tut schreiben mit beispielen? wär echt nett! :thumbsup:

FAtheone · 17. April 2010, 17:37

Mach ich

Die "Doku" ist bereits drin (XML-Kommntare)
Hier ein Beispiel:

VB.NET-Quellcode

Dim engine As New DX2Dengine
'Form.Load
engine.InitEngine(Me, Me.Size, False)
engine.AddSprite(My.Resources.TestSprite, New PointF(0,0))
'Form.Click
engine.Render()

Zeigt das "Testbild" in den Resourcen an, wenn auf das Form geklickt wurde.
Wie gesagt, die XML-Kommentare und IntelliSense sollten helfen, die anderen Funktionen zu verstehen.

Sakeco · 18. April 2010, 04:06

Folgender Fehler ohne irgendetwas am Source geändert zu haben:

Spoiler anzeigen

Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "Draw2D" mit diesen Argumenten aufgerufen werden kann:
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, srcRectangle As System.Drawing.Rectangle, destinationRectangle As System.Drawing.Rectangle, position As System.Drawing.Point, color As Integer)': Der Wert vom Typ "System.Drawing.PointF" kann nicht in "System.Drawing.Rectangle" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, srcRectangle As System.Drawing.Rectangle, destinationRectangle As System.Drawing.Rectangle, position As System.Drawing.Point, color As Integer)': Der Wert vom Typ "Single" kann nicht in "System.Drawing.Rectangle" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, srcRectangle As System.Drawing.Rectangle, destinationRectangle As System.Drawing.Rectangle, position As System.Drawing.Point, color As Integer)': Der Wert vom Typ "System.Drawing.PointF" kann nicht in "System.Drawing.Point" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, srcRectangle As System.Drawing.Rectangle, destinationRectangle As System.Drawing.Rectangle, position As System.Drawing.Point, color As System.Drawing.Color)': Der Wert vom Typ "System.Drawing.PointF" kann nicht in "System.Drawing.Rectangle" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, srcRectangle As System.Drawing.Rectangle, destinationRectangle As System.Drawing.Rectangle, position As System.Drawing.Point, color As System.Drawing.Color)': Der Wert vom Typ "Single" kann nicht in "System.Drawing.Rectangle" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, srcRectangle As System.Drawing.Rectangle, destinationRectangle As System.Drawing.Rectangle, position As System.Drawing.Point, color As System.Drawing.Color)': Der Wert vom Typ "System.Drawing.PointF" kann nicht in "System.Drawing.Point" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, srcRectangle As System.Drawing.Rectangle, destinationRectangle As System.Drawing.Rectangle, position As System.Drawing.Point, color As System.Drawing.Color)': Der Wert vom Typ "Integer" kann nicht in "System.Drawing.Color" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, rotationCenter As System.Drawing.Point, rotationAngle As Single, position As System.Drawing.Point, color As Integer)': Der Wert vom Typ "System.Drawing.PointF" kann nicht in "System.Drawing.Point" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, rotationCenter As System.Drawing.Point, rotationAngle As Single, position As System.Drawing.Point, color As Integer)': Der Wert vom Typ "System.Drawing.PointF" kann nicht in "System.Drawing.Point" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, rotationCenter As System.Drawing.Point, rotationAngle As Single, position As System.Drawing.Point, color As System.Drawing.Color)': Der Wert vom Typ "System.Drawing.PointF" kann nicht in "System.Drawing.Point" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, rotationCenter As System.Drawing.Point, rotationAngle As Single, position As System.Drawing.Point, color As System.Drawing.Color)': Der Wert vom Typ "System.Drawing.PointF" kann nicht in "System.Drawing.Point" konvertiert werden.
'Public Sub Draw2D(srcTexture As Microsoft.DirectX.Direct3D.Texture, rotationCenter As System.Drawing.Point, rotationAngle As Single, position As System.Drawing.Point, color As System.Drawing.Color)': Der Wert vom Typ "Integer" kann nicht in "System.Drawing.Color" konvertiert werden. C:\Users\Sakeco\Documents\Visual Studio 2008\Projects\DefendGermany\DefendGermany\DX2Dengine.vb 64 25 DefendGermany

Markiert wird folgendes in der Prozedur "Render":

VB.NET-Quellcode

dsurface.Draw2D(s.Tex, s.rotPt, s.rotRad, s.Loc, &HFFFFFFFF)

sowie

VB.NET-Quellcode

dsurface.Draw2D(s.Tex, s.rotPt, s.rotRad, PointF.Add(s.Loc, New SizeF(zBufOffsets(i))), &HFFFFFFFF)

FAtheone · 19. April 2010, 20:20

Interessant, da es bei mir geht... ohne Fehler XD
Nutzt du den Source aus dem Post, oder aus der Datei?

EDIT:

Versuche mal rotPt als Point statt PointF zu deklarieren...

developsoftware · 22. April 2010, 17:14

Ich habe genau den gleichen fehler und hab die heruntergeladene datei genutzt

HAB DEN FEHLER GEFUNDEN!
Es gehört:

VB.NET-Quellcode

dsurface.Draw2D(s.Tex, New Point(s.rotPt.X, s.rotPt.Y), s.rotRad, New Point(s.Loc.X, s.Loc.Y), &HFFFFFFFF)

FAtheone · 23. April 2010, 22:16

Das ist nicht die saubere Lösung.
Einfach Tile.rotPt in der Class-Definition als "Point" statt "PointF" deklarieren.
Im Sourcecode habe ich das bereits geändert.
Beides geht, aber deine Variante ist eine Implizite konvertierung von Double nach Integer, was er, im gegensatz zu PointF nach Point, scheibar problemlos frisst.

jansteffen · 24. April 2010, 14:12

Kann man irgendwie eine farbe als hintergrund definieren? ich will kein riesiges schwarzes bild einbinden...
ok, man kann mittels gdi eine bitmap schwarz fuellen und die dann draufzeichnen, aber das is dann schon etwas... nun ja! :rolleyes:

Edit: ich hab mir mal die freiheit genommen, alle pointf's in point's umzuwandeln, jetz kommt aber beim ausfuehren die vielsagende ausnahme meldung "Fehler in der anwendung" und markiert .Tex = New Texture(dev, img, Usage.Dynamic, Pool.Default)

FAtheone · 27. April 2010, 18:56

Hmm...
Point sollte man nur nehmen, wenn es zwingend notwendig ist.
Hintergrundfarbe kannst du in der Render-Sub ja anpassen ich such schnell mal die Zeile raus.

E:

Zeile 60

VB.NET-Quellcode

dev.Clear(ClearFlags.Target, Color.Gray, 1.0, 0)

Color.Gray -> Color.Black / Whatsoever

ich binde es bei einem Update mal mit ein.

jansteffen · 20. Mai 2010, 20:31

FAtheone schrieb:

ich binde es bei einem Update mal mit ein.

Wann kommt das Update den

? arbeitest du hierdran überhaubt noch? wäre schade...

FAtheone · 21. Mai 2010, 21:03

Ich habe diese Klasse in Zusammenhang mit einem Sokoban-Klon programmiert und werde nach dessen Vervollständigung weitere Features einbauen.

xzibitsebi · 4. Dezember 2010, 18:36

Hey,
mir ist bewusst das ich gerade ein altes Thema ausgrabe aber der Fehler besteht immer noch, ich habe denn Source Code benutzt und die angehangene Datei er zeigt mir immer noch denn bereits geposteten Fehler.
Hoffe trotzdem um eine Antwort.

jvbsl · 4. Dezember 2010, 19:20

und welcher Fehler denn? Welcher Code stammt von dir?

(@FAthone:

Anforderungen:

-Managed DirectX SDK 9.0
-Programmiert mit .NET FW 3.5 (geht 2.0 ?)

Anforderungen für den Endbenutzer sind dann "Microsoft DirectX Redistributable 9.0c" nicht, dass hier jemand dem Benutzer das SDK aufzwingt(müsste man nicht mal als Programmierer...)
und als Framework geht nicht nur 3.5 sondern auch 3.0 und 2.0 und 1.1 oder 1

[MDX] DX2Dengine [Update 17.4.2010 17:22] mit Sourcecode Z-Buffer-Korrektur

[MDX] DX2Dengine [Update 17.4.2010 17:22] mit Sourcecode Z-Buffer-Korrektur

FAtheone schrieb:

Sourcecode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

FAtheone schrieb:

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben