Mouse coords in a larger than screen world?

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|483\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Mouse coords in a larger than screen world?
Fri, 19 Oct 2007, 14:37
spinal	I have taken the string code from the showcase and am attempting to get it working on a scrolling background. So far, I have managed to get the string to appear in the correct position on the background, but I am having trouble getting the mouse location from the perspective of the background, rather than the screen. Graphics 640,480,0,2 Global tail_len = 20 ; pixel length between the nodes (10 * what we need) Global tail_nodes = 60 ; How many sections the tail is Dim nodes_x(tail_nodes) ; X position of each node Dim nodes_y(tail_nodes) ; Y position bgimage=LoadImage("background.jpg") ; for scrolling the bg Global scroll_x=0 Global scroll_y=0 For x=1 To tail_nodes nodes_x(x) = MouseX()10 nodes_y(x) = MouseY()10 Next ;HidePointer SetBuffer BackBuffer() Repeat Cls DrawBlock bgimage,-scroll_x,-scroll_y move_tail() draw_tail() Flip 1 Until KeyHit(1) End Function draw_tail() For t=1 To tail_nodes x1 = nodes_x(t-1)/10 y1 = nodes_y(t-1)/10 x2 = nodes_x(t)/10 y2 = nodes_y(t)/10 Color 0,0,0 Line(-scroll_x+x1,-scroll_y+y1,-scroll_x+x2,-scroll_y+y2) Next Color 128,128,255 Rect nodes_x(0)/10-1,nodes_y(0)/10-1,3,3,1 End Function Function move_tail() ; lets change this To that nice scroller code nodes_x(0) = nodes_x(0)+(( (MouseX()+ -scroll_x)10)-nodes_x(0))/16 nodes_y(0) = nodes_y(0)+(( (MouseY()+ -scroll_y)10)-nodes_y(0))/16 scroll_x=(nodes_x(0)/10)-128 scroll_y=(nodes_y(0)/10)-96 If scroll_x<0 Then scroll_x=0 If scroll_y<0 Then scroll_y=0 For x=1 To tail_nodes rotation = ATan2(nodes_y(x)-nodes_y(x-1),nodes_x(x)-nodes_x(x-1)) pos_x = nodes_x(x-1) + tail_len * Cos(rotation) pos_y = nodes_y(x-1) + tail_len * Sin(rotation) nodes_x(x) = pos_x nodes_y(x) = pos_y Next End Function --v -=-=- Check out my excellent homepage!
Fri, 19 Oct 2007, 16:03
Forklift_Fred	Er... you've lost me ever so slightly. I don't mean to be rude but what are you trying to do? I'm guessing it's to do with the blue dot/square? Where is it supposed to be? At the moment it's half way between the string and the mouse but I've not dug deep enough to understand why that is. -=-=- Come rain or shine...
Fri, 19 Oct 2007, 16:28
spinal	the blue square should float towards the mouse pointer, and should also be at the end of the string. If you move to the top left of the screen, where the background image does not scroll, see how it acts? I am trying to get that, but on a scrolling background. -=-=- Check out my excellent homepage!
Fri, 19 Oct 2007, 16:47
Forklift_Fred	OK, I see it. I take it you need it to relate to background otherwise you could just use the normal MouseX() and MouseY() I'll have to drill right into the workings but it's got to be a maths problem so I should get there... -=-=- Come rain or shine...
Fri, 19 Oct 2007, 16:59
spinal	Thanks Fred. I've tried loads of things, but couldn't get it. In short for anyone else who wants to try, I want to find the mouse coords relative to the background image, not relative to the screen/window. -=-=- Check out my excellent homepage!
Fri, 19 Oct 2007, 19:23
Forklift_Fred	Sorry Spinal I seem to have tied myself in knots. I think I've ended up defeating the object! It should be a simple displacement but I think you might need a separate variable to offset after your calculations. Calculate your new position to chase the pointer, then offset it for the scroll. I'll take another look tomorrow but I have to go to work so it won't be until the evening. -=-=- Come rain or shine...
Sat, 20 Oct 2007, 06:06
GoliX	I've had a mess about and managed to get it all to scroll ok, the problem is as it scrolls the tail flicks ahead of the mouse, so it's flowing backwards. I'll keep trying but this is what I have so far(bit butchered). Graphics 640,480,0,2 Global tail_len = 20 ; pixel length between the nodes (10 * what we need) Global tail_nodes = 60 ; How many sections the tail is Dim nodes_x(tail_nodes) ; X position of each node Dim nodes_y(tail_nodes) ; Y position bgimage=LoadImage("background.jpg") ; for scrolling the bg Global scroll_x=0 Global scroll_y=0 For x=1 To tail_nodes nodes_x(x) = MouseX()10 nodes_y(x) = MouseY()10 Next ;HidePointer SetBuffer BackBuffer() Repeat Cls Origin -scroll_x,-scroll_y DrawBlock bgimage,0,0 move_tail() draw_tail() Flip 1 Until KeyHit(1) End Function draw_tail() For t=1 To tail_nodes sx = (nodes_x(0)/10)+scroll_x sy = (nodes_y(0)/10)+scroll_y x1 = (nodes_x(t-1)/10)+scroll_x y1 = (nodes_y(t-1)/10)+scroll_y x2 = (nodes_x(t)/10)+scroll_x y2 = (nodes_y(t)/10)+scroll_y Color 0,0,0 Line(scroll_x+x1,scroll_y+y1,scroll_x+x2,scroll_y+y2) Next Color 128,128,255 ;Rect (nodes_x(0)/10-1)+scroll_x,(nodes_y(0)/10-1)+scroll_y,3,3,1 Rect scroll_x+sx-1,scroll_y+sy-1,3,3,1 End Function Function move_tail() ; lets change this To that nice scroller code ;nodes_x(0) = nodes_x(0)+(( (MouseX()+ -scroll_x)10)-nodes_x(0))/16 ;nodes_y(0) = nodes_y(0)+(( (MouseY()+ -scroll_y)10)-nodes_y(0))/16 nodes_x(0) = nodes_x(0)+(( (MouseX() -scroll_x)10)-nodes_x(0))/16 nodes_y(0) = nodes_y(0)+(( (MouseY() -scroll_y)10)-nodes_y(0))/16 If MouseX() > GraphicsWidth()-200 Then scroll_x=scroll_x+1;=(nodes_x(0)/10)-128 If MouseY() > GraphicsHeight()-200 Then scroll_y=scroll_y+1;=(nodes_y(0)/10)-96 If MouseX() < 200 Then scroll_x=scroll_x-1 If MouseY() < 200 Then scroll_y=scroll_y-1 ;If scroll_x<0 Then scroll_x=0 ;If scroll_y<0 Then scroll_y=0 For x=1 To tail_nodes rotation = ATan2(nodes_y(x)-nodes_y(x-1),nodes_x(x)-nodes_x(x-1)) pos_x = nodes_x(x-1) + tail_len * Cos(rotation) pos_y = nodes_y(x-1) + tail_len * Sin(rotation) nodes_x(x) = pos_x nodes_y(x) = pos_y Next End Function --v
Sat, 20 Oct 2007, 07:17
spinal	It seems that the background is scrolling differently from the string, I need the string to be placed correctly on the background. -=-=- Check out my excellent homepage!
Sat, 20 Oct 2007, 13:18
Forklift_Fred	If you take out the scroll variables from this part of the move_tail() function nodes_x(0) = nodes_x(0)+(( (MouseX()+ -scroll_x)10)-nodes_x(0))/16 nodes_y(0) = nodes_y(0)+(( (MouseY()+ -scroll_y)10)-nodes_y(0))/16 --v The string sticks to the background and node 0 chases the pointer... I don't understand why node 1 doesn't follow it though, since each node's position is based on the previous... -=-=- Come rain or shine...
Sat, 20 Oct 2007, 14:25
spinal	if your talking about the blue(ish) squre, its not rendered with the scroll data, but on screen instead. I have noticed that the offset between the mouse pointer and the first point is the same as the scroll distance. -=-=- Check out my excellent homepage!
Sat, 20 Oct 2007, 17:30
spinal	this seems to work, although is a million times too fast. Any adeas? Graphics 256,192,0,2 Global tail_len = 6 ; pixel length between the nodes (10 * what we need) Global tail_nodes = 30 ; How many sections the tail is Dim nodes_x(tail_nodes) ; X position of each node Dim nodes_y(tail_nodes) ; Y position bgimage=LoadImage("background.jpg") ; for scrolling the bg Global scroll_x=0 Global scroll_y=0 For x=1 To tail_nodes nodes_x(x) = MouseX() nodes_y(x) = MouseY() Next ;HidePointer SetBuffer BackBuffer() Repeat Cls DrawBlock bgimage,-scroll_x,-scroll_y move_tail() draw_tail() Flip 1 Until KeyHit(1) End Function draw_tail() For t=1 To tail_nodes x1 = nodes_x(t-1) y1 = nodes_y(t-1) x2 = nodes_x(t) y2 = nodes_y(t) Color 255,255,255 Line(-scroll_x+x1,-scroll_y+y1,-scroll_x+x2,-scroll_y+y2) ; Rect(-scroll_x+x1,-scroll_y+y1,3,3,1) ; Plot -scroll_x+x1,-scroll_y+y1 Next ; Color 128,128,255 Plot MouseX(),MouseY() ; Rect nodes_x(0)/10-1,nodes_y(0)/10-1,3,3,1 End Function Function move_tail() nodes_x(0)=MouseX()+scroll_x nodes_y(0)=MouseY()+scroll_y scroll_x=(nodes_x(0))-128 scroll_y=(nodes_y(0))-96 If scroll_x<0 Then scroll_x=0 If scroll_y<0 Then scroll_y=0 For x=1 To tail_nodes rotation = ATan2(nodes_y(x)-nodes_y(x-1),nodes_x(x)-nodes_x(x-1)) pos_x = nodes_x(x-1) + tail_len * Cos(rotation) pos_y = nodes_y(x-1) + tail_len * Sin(rotation) nodes_x(x) = pos_x nodes_y(x) = pos_y Next End Function --v -=-=- Check out my excellent homepage!
Sun, 21 Oct 2007, 04:29
Jayenkai	NewMX=((Float(MouseX())-(256/2)) / 8)+(256/2) NewMY=((Float(MouseY())-(192/2)) / 8)+(192/2) ; ^ Speed, alter for difficulty factor ;) nodes_x(0)=NewMX+scroll_x nodes_y(0)=NewMY+scroll_y --v But it does mess up when you hit the edge.. Perhaps remove the Edge code..? -=-=- ''Load, Next List!''