Rotate and Scale Mesh Shape

[King Mocker]

Thanks Steve.

Here is a modified section of the affected code.

Don't forget to add:
Dim k as integer
....or just remove the Option _Explicit line at the top.

Code: (Select All)

    k = _KeyHit
    Select Case k And Not 32
        Case 81: If Abs(dx) > 1 Then
                If Abs(dx) >= 1 And Abs(dx) <= maxdxy Then dx = Sgn(dx) * Abs(dx) - (Sgn(dx) * 1)
            End If

        Case 87: If Abs(dx) < maxdxy Then
                If Abs(dx) >= 1 And Abs(dx) <= maxdxy Then dx = Sgn(dx) * Abs(dx) + (Sgn(dx) * 1)
            End If
        Case 69: If Abs(dy) < maxdxy Then
                If Abs(dy) >= 1 And Abs(dy) <= maxdxy Then dy = Sgn(dy) * Abs(dy) + (Sgn(dy) * 1)
            End If
        Case 68: If Abs(dy) > 1 Then
                If Abs(dy) >= 1 And Abs(dy) <= maxdxy Then dy = Sgn(dy) * Abs(dy) - (Sgn(dy) * 1)
            End If
    End Select