OpenTK Grafik Fehler

  • VB.NET
  • .NET (FX) 4.0

    OpenTK Grafik Fehler

    Hallo, mein fehler ist, dass etwas transparentes mit opentk falsch dargestellt wird, siehe anhang.
    Der Load-code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. If Not IO.Directory.Exists(Application.StartupPath & "\Screenshots") Then
    2. IO.Directory.CreateDirectory(Application.StartupPath & "\Screenshots")
    3. End If
    4. GL.Enable(EnableCap.DepthTest)
    5. GL.DepthFunc(DepthFunction.Less)
    6. GL.Enable(EnableCap.Texture2D)
    7. GL.Enable(EnableCap.Blend)
    8. GL.Enable(EnableCap.AlphaTest)
    9. GL.BlendFunc(BlendingFactorSrc.SrcAlpha, BlendingFactorDest.OneMinusSrcAlpha)
    11. GL.ActiveTexture(TextureUnit.Texture0)
    12. ID = GL.GenTexture()
    13. GL.BindTexture(TextureTarget.Texture2D, ID)
    14. Dim bmp2 As Bitmap
    15. Dim bmp_data2 As Imaging.BitmapData
    16. bmp2 = Bitmap.FromFile(application.startuppath & "terrain" & ".png")
    17. bmp_data2 = bmp2.LockBits(New Rectangle(0, 0, bmp2.Width, bmp2.Height), Imaging.ImageLockMode.ReadOnly, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    18. GL.TexImage2D(TextureTarget.Texture2D, 0, PixelInternalFormat.Rgba, bmp_data2.Width, bmp_data2.Height, 0,
    19. OpenTK.Graphics.OpenGL.PixelFormat.Bgra, PixelType.UnsignedByte, bmp_data2.Scan0)
    20. bmp2.UnlockBits(bmp_data2)
    21. GL.TexParameter(TextureTarget.Texture2D, TextureParameterName.TextureMinFilter, TextureMinFilter.Nearest)
    22. GL.TexParameter(TextureTarget.Texture2D, TextureParameterName.TextureMagFilter, TextureMagFilter.Nearest)
    Bilder

    • 22-59-03 15.03.2014.png

      2,14 MB, 1.280×962, 200 mal angesehen

Facebook
Telefonspende