0

剪辑/查看问题不确定

我只是想在窗口形式（使用OpenTK）中旋转和缩放一个矩形框（线不是四边形）这很简单，但是当我缩放/缩放线条的部分时，它们不应该被剪裁

尝试使用透视和深度范围等以及观察，缩放绘图而不是移动相机等。但我似乎无法获得我想要的行为。

问题视频： http ://www.youtube.com/watch?v=sDV4_LKOgVc&feature=youtu.be

Private Sub GlControl1_Paint(sender As Object, e As PaintEventArgs) Handles GlControl1.Paint
    If (_STARTED = False) Then Return

    'Set Up
    GL.Clear(ClearBufferMask.ColorBufferBit)
    GL.Clear(ClearBufferMask.DepthBufferBit)


    Dim eye = New Vector3(cam_x, cam_y, cam_z)
    Dim lookat = New Vector3(cam_x - Pan_X / GlControl1.Width, cam_y - pan_Y / GlControl1.Height, cam_z + look_z)
    Dim camera = Matrix4.LookAt(eye, lookat, Vector3.UnitY)

    TextBox1.Text = cam_x.ToString + ", " + cam_y.ToString + ", " + cam_z.ToString
    GL.MatrixMode(MatrixMode.Modelview)

    GL.LoadIdentity()
    GL.LoadMatrix(camera)


    'Draw Items

    'Perform panning action
    'Applies to all items in GL window
    GL.Translate(Pan_X / GlControl1.Width, pan_Y / GlControl1.Height, 0.0)

    'Initial View Angle
    'GL.Rotate(45, 1.0, 1.0, 0.0)

    If show_axes Then draw_axes()


    GL.PushMatrix() 'Save matrix

    'Perform rotations
    GL.Rotate(CType(_Part.XRotation, Single), 1.0F, 0.0F, 0.0F)
    GL.Rotate(CType(_Part.YRotation, Single), 0.0F, 1.0F, 0.0F)
    GL.Rotate(CType(_Part.ZRotation, Single), 0.0F, 0.0F, 1.0F)

    'Resize
    'GL.Scale(Zoom, Zoom, Zoom)

    GL.PushMatrix() ' Save Matrix for center translation
    GL.Translate(-_Part.Length / 2, -_Part.Thickness / 2, _Part.Width / 2)   'Center Object

    'Draw the box
    draw_object(CSng(_Part.Length), CSng(_Part.Width), CSng(_Part.Thickness))


    GL.PopMatrix()


    GlControl1.SwapBuffers()

End Sub

    Private Sub GlControl1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
    If e.Delta > 0 Then
        'Zoom = CSng(Zoom + Zoom_inc)
        cam_z -= cam_inc
    Else
        'Zoom = CSng(Zoom - Zoom_inc)
        cam_z += cam_inc
    End If
    GlControl1.Invalidate()
End Sub
4

2 回答 2

0

如果您使用类似gluPerspective()确保zNear是正数且非零的东西。

于 2013-01-28T20:26:31.830 回答
0

我想到了。我做对了，但 OpenTK 希望你像这样声明视角

Dim perspective1 As Matrix4 = OpenTK.Matrix4.CreatePerspectiveFieldOfView(MathHelper.PiOver4, _CSng((GlControl1.Width) / (GlControl1.Height)), 0.1, 1000)

GL.LoadMatrix(perspective1)

这似乎很奇怪。使用 MathHelper.PiOver4 而不是 45.0f 解决了问题

于 2013-01-29T19:12:04.210 回答