3D text

  • VB.NET

    3D text

    VB.NET-Quellcode

    1. Dim angel As Single = 0
    2. Dim distanc As Single = 0
    3. Dim asd As Single = 1
    4. Dim dev As Device
    5. Dim pP As PresentParameters
    7. Private Sub New1()
    8. pP = New PresentParameters
    9. pP.Windowed = True
    10. pP.SwapEffect = SwapEffect.Discard
    11. pP.EnableAutoDepthStencil = True
    12. pP.AutoDepthStencilFormat = DepthFormat.D16
    13. dev = New Device(0, DeviceType.Hardware, Panel1.Handle, CreateFlags.SoftwareVertexProcessing, pP)
    14. End Sub
    16. Sub render()
    17. dev.Clear(ClearFlags.ZBuffer Or ClearFlags.Target, Color.Aquamarine, 1, 0)
    18. dev.Transform.Projection = Matrix.PerspectiveFovLH(Math.PI / 4, 1, 1, 10)
    19. dev.Transform.View = Matrix.LookAtLH(New Vector3(0, 0, 5), New Vector3(), New Vector3(0, asd, 0))
    21. dev.RenderState.Lighting = True
    22. dev.Lights(0).Type = LightType.Directional
    23. dev.Lights(0).Position = New Vector3(0, 0, 5)
    24. dev.Lights(0).Direction = New Vector3(0, 0, -1)
    25. dev.Lights(0).Diffuse = Color.White
    26. dev.Lights(0).Attenuation0 = 0.2
    27. dev.Lights(0).Range = 1000
    28. dev.Lights(0).Enabled = True
    29. dev.Lights(0).Update()
    30. dev.RenderState.FogStart = 7
    31. dev.RenderState.FogEnd = 10
    32. dev.RenderState.FogColor = Color.Aquamarine
    33. dev.RenderState.FogTableMode = FogMode.Linear
    34. dev.RenderState.FogEnable = True
    37. dev.BeginScene()
    40. Dim font As New System.Drawing.Font("Arial", 1.0F, GraphicsUnit.Millimeter)
    41. Dim glyph As GlyphMetricsFloat() = New GlyphMetricsFloat(1) {}
    42. Dim m As Mesh = Mesh.TextFromFont(dev, font, "Hallo", 1.0F, 1.0F, glyph)
    46. dev.EndScene()
    47. dev.Present()
    48. End Sub


    wenn ich das render dann entsteht nichts warum?? ?(

Facebook
Telefonspende