PSET redraw problem (pics included)

[winterslam]

I have a picturebox and it draws circles according to the movement of the mouse pointer




It stores the x-y coordinates in a collection object.

Private Sub picCamera_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Dim var As New Entity

If Shift = 1  Then          
            picCamera.Circle (x, y), 25, vbRed  
            var.x = x
            var.y = x
            var.t = route.Count + 1
            route.Add var
           
End If
End Sub

When I redraw the coordinates in the collection, the following is the shape. It looks completely different. It is supposed to be the same as the original shape.

For i = 1 To route.Count
            x = route.Item(i).x
            y = route.Item(i).y          
            frmCamera.picCamera.Circle (x, y), 25, vbRed       

Next i

By the way, just ignore "Time step". It doesn't mean anything.

[LaVolpe]

The issue may be in your PSet routine? You didn't post that.

[winterslam]

The issue may be in your PSet routine? You didn't post that.

Oops. Sorry. Wrong title
It's not PSET.
It's circle


I use circle because dots produced by PSET aren't thick enough

[LaVolpe]

Then can you show us your routine where you redraw the circles? The error is probably there.

[si_the_geek]

Actually the error is in the code which is already shown... if you look at the second picture, all of the circles are in a line which points directly to the origin, which implies that the same values are being used for x and y.

If you look at the numbers on the right of each picture, you can see that is the case, and this part of the code is the culprit:

            var.x = x
            var.y = x

[LaVolpe]

duh, good eyes, good catch!