icon 'flinging' ?

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|719\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> icon 'flinging' ?
Sat, 08 Aug 2009, 15:42
spinal	OK, i have a simple menu, where using the cursor keys you can scroll left and right. I want to add the ability to fling the icons (left and right still) with the mouse. I know this is done with simple physics, like speed = abs(mouse_start - mouse_release) speed = speed - decay_rate icon = icon + speed But i couldn't get the two methods to play nice with each other. Can anyone offer any assistance? Graphics 256,192,0,2 icon_pic = CreateImage(64,64) SetBuffer ImageBuffer(icon_pic) Color 1,1,1 Rect 4,4,56,56,1 Color 255,255,255 Rect 4,4,56,56,0 Dim icon' For temp = 1 To 39 icon(temp) = temp*64 Next scroll = 128 scroll_target = 128 SetBuffer FrontBuffer() While Not KeyHit(1) If KeyDown(203) And scroll = scroll_target Then scroll_target = scroll_target + 64 End If If KeyDown(205) And scroll = scroll_target Then scroll_target = scroll_target - 64 End If If scroll_target > 128 Then scroll_target = 128 If scroll_target < -2368 Then scroll_target = -2368 If scroll < scroll_target Then scroll = scroll + 4 If scroll > scroll_target Then scroll = scroll - 4 Cls Text 111,164,"Open" Rect 98,102,60,80,0 For temp = 0 To 39 If icon(temp)+scroll > -64 And icon(temp)+scroll < 280 Then DrawImage icon_pic,icon(temp)+scroll -32,100 Text icon(temp)+scroll -10,130,temp End If Next Flip Wend End --v -=-=- Check out my excellent homepage!
Sat, 08 Aug 2009, 16:03
Phoenix	Graphics 256,192,0,2 icon_pic = CreateImage(64,64) SetBuffer ImageBuffer(icon_pic) Color 1,1,1 Rect 4,4,56,56,1 Color 255,255,255 Rect 4,4,56,56,0 Dim icon' For temp = 1 To 39 icon(temp) = temp*64 Next scroll# = 128 scroll_target = 128 scroll_speed# = 0.0 SetBuffer BackBuffer() While Not KeyHit(1) If(MouseDown(1)) scroll_speed# = MouseXSpeed() ;MoveMouse(128, 96) Else MouseXSpeed() ; Needed to make Blitz update the internal mouse x speed variable EndIf If(scroll_speed < 0) Then scroll_speed = scroll_speed + .5 If(scroll_speed > 0) Then scroll_speed = scroll_speed - .5 scroll = scroll + scroll_speed If KeyDown(203) And scroll = scroll_target Then scroll_target = scroll_target + 64 End If If KeyDown(205) And scroll = scroll_target Then scroll_target = scroll_target - 64 End If ;If scroll_target > 128 Then scroll_target = 128 ;If scroll_target < -2368 Then scroll_target = -2368 ;If scroll < scroll_target Then scroll = scroll + 4 ;If scroll > scroll_target Then scroll = scroll - 4 Cls Text 111,164,"Open" Rect 98,102,60,80,0 For temp = 0 To 39 If icon(temp)+scroll > -64 And icon(temp)+scroll < 280 Then DrawImage icon_pic,icon(temp)+scroll -32,100 Text icon(temp)+scroll -10,130,temp End If Next Flip Wend End --v Is this what you mean?
Sat, 08 Aug 2009, 16:40
Phoenix	Graphics 256,192,0,2 icon_pic = CreateImage(64,64) SetBuffer ImageBuffer(icon_pic) Color 1,1,1 Rect 4,4,56,56,1 Color 255,255,255 Rect 4,4,56,56,0 Dim icon' For temp = 1 To 39 icon(temp) = temp64 Next scroll# = 128 scroll_target = 128 scroll_speed# = 0.0 scrolling_with_mouse = False SetBuffer BackBuffer() While Not KeyHit(1) If(MouseDown(1)) scroll_speed# = MouseXSpeed() scrolling_with_mouse = True Else MouseXSpeed() ; Needed to make Blitz update the internal mouse x speed variable EndIf If(scrolling_with_mouse) If(scroll_speed < 0) Then scroll_speed = scroll_speed + .5 If(scroll_speed > 0) Then scroll_speed = scroll_speed - .5 scroll = scroll + scroll_speed If(Abs(scroll_speed) = 0 ) scrolling_with_mouse = False scroll = Int(Float(scroll)/128)128 scroll_target = scroll EndIf EndIf If(scrolling_with_mouse = False) If KeyDown(203) And scroll = scroll_target Then scroll_target = scroll_target + 64 End If If KeyDown(205) And scroll = scroll_target Then scroll_target = scroll_target - 64 End If EndIf If(scroll < scroll_target) Then scroll = scroll + 4 If(scroll > scroll_target) Then scroll = scroll - 4 If scroll > 128 Then scroll = 128 If scroll < -2368 Then scroll = -2368 Cls Text 111,164,"Open" Rect 98,102,60,80,0 For temp = 0 To 39 If icon(temp)+scroll > -64 And icon(temp)+scroll < 280 Then DrawImage icon_pic,icon(temp)+scroll -32,100 Text icon(temp)+scroll -10,130,temp End If Next Flip Wend End --v Misread your post. Perhaps this is better.
Sun, 09 Aug 2009, 09:19
spinal	Thats about it! I redone it in C and added it to my project. Now just a couple more animations to do, then i release it -=-=- Check out my excellent homepage!