Soooo,
liebes Forum Könnt ihr mir bei filgendem Code :
Bitte eine Möglichkeit erklären meine Plolygone zu texturieren?
Hab gar keine Idee wie ich anfangen soll.
liebes Forum Könnt ihr mir bei filgendem Code :
VB.NET-Quellcode
- Imports Microsoft.DirectX
- Imports Microsoft.DirectX.Direct3D
- Public Class Form1
- Public bmp As Texture
- Public Shared device As Microsoft.DirectX.Direct3D.Device
- Public Sub Initialize()
- Dim present As PresentParameters = New PresentParameters
- present.Windowed = True 'we?ll draw on a window
- present.SwapEffect = SwapEffect.Discard 'discuss later
- device = New Microsoft.DirectX.Direct3D.Device(0, DeviceType.Hardware, Me, CreateFlags.HardwareVertexProcessing, present)
- device.RenderState.CullMode = Cull.Clockwise & Cull.CounterClockwise
- device.RenderState.Lighting = False
- End Sub
- Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- kameraPosition = New Vector3(100, 500, 200)
- Kamera()
- End Sub
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True) 'Do not draw form?s background\
- Me.Height = 600
- Me.Width = 800
- Me.Text = "HI!!"
- Initialize()
- kameraPosition = New Vector3(0, 180, 0)
- kameratarget = New Vector3(400, 0, 400)
- Kamera()
- End Sub
- Public yhigh As Integer = 31
- Public richtung As Boolean = True
- Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
- If richtung = True Then
- yhigh = yhigh + 1
- Else
- yhigh = yhigh - 1
- End If
- If yhigh > 300 Then
- richtung = False
- End If
- If yhigh < 1 Then
- richtung = True
- End If
- Dim vertices1 As CustomVertex.PositionColored() = New CustomVertex.PositionColored(0 To 2) {} 'create an array of vertices
- vertices1(0).Position = New Vector3(0, 0, 0)
- vertices1(0).Color = Color.Green.ToArgb 'encode color in Argb
- vertices1(1).Position = New Vector3(0, 0, 5000)
- vertices1(1).Color = Color.Silver.ToArgb
- vertices1(2).Position = New Vector3(5000, 0, 0)
- vertices1(2).Color = Color.Silver.ToArgb
- Dim vertices2 As CustomVertex.PositionColored() = New CustomVertex.PositionColored(0 To 2) {} 'create an array of vertices
- vertices2(0).Position = New Vector3(5000, 0, 5000)
- vertices2(0).Color = Color.Green.ToArgb 'encode color in Argb
- vertices2(1).Position = New Vector3(0, 0, 5000)
- vertices2(1).Color = Color.Silver.ToArgb
- vertices2(2).Position = New Vector3(5000, 0, 0)
- vertices2(2).Color = Color.Silver.ToArgb
- device.Clear(ClearFlags.Target, Color.Aqua, 1.0, 0)
- device.BeginScene() 'all drawings after this line
- device.VertexFormat = CustomVertex.PositionColored.Format
- device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices1)
- device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices2)
- device.EndScene() 'all drawings before this line
- device.Present()
- Me.Invalidate() 'redraw
- End Sub
- 'kamera
- Public Shared view As Matrix
- Public kameraPosition As Vector3
- Public kameratarget As Vector3
- Public Sub Kamera()
- Dim up As New Vector3(0, 1, 0)
- Dim projection As Matrix = Matrix.PerspectiveFovRH(Math.PI / 4, Me.ClientSize.Width / Me.ClientSize.Height, 1, 8000)
- view = Matrix.LookAtRH(kameraPosition, kameratarget, up)
- device.Transform.View = view
- device.Transform.Projection = projection
- End Sub
- '
- End Class
Bitte eine Möglichkeit erklären meine Plolygone zu texturieren?
Hab gar keine Idee wie ich anfangen soll.