Hallo, mein fehler ist, dass etwas transparentes mit opentk falsch dargestellt wird, siehe anhang.
Der Load-code:
Spoiler anzeigen
Der Load-code:
VB.NET-Quellcode
- If Not IO.Directory.Exists(Application.StartupPath & "\Screenshots") Then
- IO.Directory.CreateDirectory(Application.StartupPath & "\Screenshots")
- End If
- GL.Enable(EnableCap.DepthTest)
- GL.DepthFunc(DepthFunction.Less)
- GL.Enable(EnableCap.Texture2D)
- GL.Enable(EnableCap.Blend)
- GL.Enable(EnableCap.AlphaTest)
- GL.BlendFunc(BlendingFactorSrc.SrcAlpha, BlendingFactorDest.OneMinusSrcAlpha)
- GL.ActiveTexture(TextureUnit.Texture0)
- ID = GL.GenTexture()
- GL.BindTexture(TextureTarget.Texture2D, ID)
- Dim bmp2 As Bitmap
- Dim bmp_data2 As Imaging.BitmapData
- bmp2 = Bitmap.FromFile(application.startuppath & "terrain" & ".png")
- bmp_data2 = bmp2.LockBits(New Rectangle(0, 0, bmp2.Width, bmp2.Height), Imaging.ImageLockMode.ReadOnly, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
- GL.TexImage2D(TextureTarget.Texture2D, 0, PixelInternalFormat.Rgba, bmp_data2.Width, bmp_data2.Height, 0,
- OpenTK.Graphics.OpenGL.PixelFormat.Bgra, PixelType.UnsignedByte, bmp_data2.Scan0)
- bmp2.UnlockBits(bmp_data2)
- GL.TexParameter(TextureTarget.Texture2D, TextureParameterName.TextureMinFilter, TextureMinFilter.Nearest)
- GL.TexParameter(TextureTarget.Texture2D, TextureParameterName.TextureMagFilter, TextureMagFilter.Nearest)