Dav's Doodle Dandy - animated image drawing.

[Dav]

@bplus:  Thanks! Really helpful code.  I took it apart, and I think it can fit in very easily into a drawing program.  The only thing I added was the IF length > size% THEN part before drawing the length, because I'm using large radius sizes for brushes and no need to draw in the length unless gaps are larger than the size% (it slowed it down on really large circle radius sizes). 

I really appreciate that code!

- Dav

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2.  
3. CLS , _RGB(255, 255, 255)
4.  
5. clr& = _RGB(200, 100, 50)
6. size% = 50
7.  
8. DO
9.     WHILE _MOUSEINPUT: WEND
10.  
11.     mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
12.  
13.     IF mb THEN
14.  
15.         IF lastmx AND lastmy THEN
16.             stepx = lastmx - mx
17.             stepy = lastmy - my
18.             length = INT((stepx ^ 2 + stepy ^ 2) ^ .5)
19.  
20.             IF length THEN
21.                 dx = stepx / length
22.                 dy = stepy / length
23.  
24.                 IF length > size% THEN
25.  
26.                     FOR i = 0 TO length
27.                         FOR d = 1 TO size% STEP .2
28.                             CIRCLE (mx + dx * i, my + dy * i), d, clr&
29.                         NEXT
30.                     NEXT
31.  
32.                 END IF
33.  
34.             ELSE
35.                 FOR d = 1 TO size% STEP .2
36.                     CIRCLE (mx, my), d, clr&
37.                 NEXT
38.             END IF
39.  
40.         END IF
41.         lastmx = mx: lastmy = my
42.     ELSE
43.         lastmx = 0: lastmy = 0
44.     END IF
45.  
46. LOOP
47.  
48.  

[bplus]

Yeah I thought it easy to implement and easy for changing radius = brush size.

@Dav might also be handy to change radius with mouse wheel.

[Dav]

@Dav might also be handy to change radius with mouse wheel.

That sounds like a good idea. I don’t have a mouse wheel for testing it out, but I can add in the code anyway. Currently The brush size is changed with the +/-keys. 

I hope to post a new player and demo file soon to show the new updates, the maker program is taking the most work.

Btw @bplus, do you have a GitHub page or place where your put all you code snippets? You sure have a ton of golden nuggets people can learn from.

- Dav

[bplus]

@Dav thanks, I am thinking this app might be perfect for your right click popup menu.

Btw @bplus, do you have a GitHub page or place where your put all you code snippets? You sure have a ton of golden nuggets people can learn from.

I have a few choice items stashed or linked in this thread that I add to now and then
https://www.qb64.org/forum/index.php?topic=1511.0

[Dav]

@Dav thanks, I am thinking this app might be perfect for your right click popup menu.

Yeah, I'm doing a right click menu thing for it, trying to combine a menu it with a color picker. 

I getting a weird hangup/delay with the IDE (v1.5) programming this.  It's like the IDE is checking syntax or something, and it has to think for about 15 seconds and freezes.  Then all is well.  Happened a few times.  Nothing I can narrow down yet - not sure if it happens when typing or clicking on a new line.  I'll try to catch what I'm doing when the freeze happens.

- Dav

[Dav]

@bplus: I was still getting occasional gaps in when drawing fast long lines. After playing around with it for a while, adding the little stilldown flag resulted in absolutely no gaps in the drawing line now.

Btw, your way of polling mouse input is best (WHILE _MOUSEINPUT: WEND).  My way was causing a noticeable drawing drag (mi = _MOUSEINPUT).   

The code below is the method I'm going with -  runs pretty smooth on even large brush size% numbers.

- Dav

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2.  
3. CLS , _RGB(255, 255, 255)
4.  
5. clr& = _RGB(0, 0, 0)
6. size% = 15
7.  
8. DO
9.  
10.     'mi = _MOUSEINPUT
11.     WHILE _MOUSEINPUT: WEND
12.  
13.     mx = _MOUSEX: my = _MOUSEY
14.     mb1 = _MOUSEBUTTON(1)
15.  
16.     IF mb1 THEN
17.         IF stilldown = 1 THEN
18.             stepx = lastmx - mx
19.             stepy = lastmy - my
20.             length = INT((stepx ^ 2 + stepy ^ 2) ^ .5)
21.             dx = stepx / length
22.             dy = stepy / length
23.             FOR i = 0 TO length
24.                 FOR d = 1 TO size%
25.                     CIRCLE (mx + dx * i, my + dy * i), d, clr&
26.                 NEXT
27.             NEXT
28.         ELSE
29.             FOR d = 1 TO size% STEP .2
30.                 CIRCLE (mx, my), d, clr&
31.             NEXT
32.         END IF
33.         lastmx = mx: lastmy = my
34.         stilldown = 1
35.     ELSE
36.         stilldown = 0
37.     END IF
38.  
39.     _LIMIT 300
40.  
41. LOOP
42.  

[bplus]

@bplus: I was still getting occasional gaps in when drawing fast long lines. After playing around with it for a while, adding the little stilldown flag resulted in absolutely no gaps in the drawing line now.

Yeah as I said I had a Windows Update waiting in wings and was getting bogged down and interrupts and Not Responding crap with everything I did while testing the mouse drawing. I did notice occasional jumps but wasn't sure if Windows was just being obnoxious until I stopped and did update.

@Dav your solution here is smooth as silk! nice fix.