Mouse Trail

[SierraKen]

I believe many months ago someone made something like this, but I thought I would freshen my memory. This is a small example of how to make your mouse pointer have a trail. Use your mouse wheel to increase and decrease the size of it. Thanks to b+ who once showed me how to make a fading trail.

Code: QB64: [Select]

1. _TITLE "Mouse Trail - Use Mouse Wheel to change size."
2. SCREEN _NEWIMAGE(800, 600, 32)
3. DO
4.     _LIMIT 50
5.     mouseWheel = 0
6.     DO WHILE _MOUSEINPUT
7.         mouseX = _MOUSEX
8.         mouseY = _MOUSEY
9.         mouseLeftButton = _MOUSEBUTTON(1)
10.         mouseRightButton = _MOUSEBUTTON(2)
11.         mouseMiddleButton = _MOUSEBUTTON(3)
12.         mouseWheel = mouseWheel + _MOUSEWHEEL
13.     LOOP
14.     IF mouseWheel > 0 THEN mwheel = mwheel + 5
15.     IF mouseWheel < 0 THEN mwheel = mwheel - 5
16.     IF mwheel < 1 THEN mwheel = 1
17.     IF mwheel > 300 THEN mwheel = 300
18.     CIRCLE (mouseX, mouseY), mwheel, _RGB32(0, 255, 0)
19.     PAINT (mouseX, mouseY), _RGB32(0, 255, 0)
20.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, 30), BF
21.     _DISPLAY
22. LOOP
23.  

[SMcNeill]

Wouldn’t this be an excellent case of using multiple screens for your work?

DisplayScreen = _NEWIMAGE(800, 600, 32)
WorkScreen = _NEWIMAGE(800, 600, 32)
MouseScreen = _NEWIMAGE(800, 600, 32)

SCREEN DisplayScreen

DO
    _SOURCE WorkScreen: _DEST WorkScreen
    ‘Draw on your work screen
    _SOURCE  MouseScreen
    ‘Draw the mouse trails
    _PUTIMAGE , WorkScreen, DisplayScreen
    _PUTIMAGE , MouseScreen, DisplayScreen
LOOP


Then you’d preserve the original screen while being able to fade out the trails that your mouse poops out behind itself.

[OldMoses]

OMG! I CAN'T GET AWAY FROM IT!  ;)

Nice job there. I'll be studying this one for future reference.

[bplus]

Ha, yeah learned that from Fellippe's fireworks I think and then warping through the stars. I was trying to do those trails without alpha fading (but I can do with different colors).

[SierraKen]

Thanks everyone. I just made my own Cats and Mouse game using this code. SMMcNeil, I also used your code, thanks! I'm going to make a new thread for my new game.