fill in the color of an area with different color borders

[Petr]

No source, just quest!

Hello. When creating pictures using commands in QB64, I encountered a problem while I needed to paint a certain area where the sides were not bordered by the same color as the PAINT command requires. I'm working on my own alternative for PAINT. So far, I have this suggestion: I get boundaries of color borders, no matter what the color is, then I create a virtual screen where are only painted borders between colors. Follows the scan and copiyng the different pixels to the original screen (for this are borders draw with different color from copyed area). However, this seems to me to be too harsh. Does anyone have a better suggestion or did anyone try to solve it?

[RhoSigma]

Before you spend hours to code what you suggested, just take a look into the DRF-Polygons folder of my Libraries collection (see signature). In file polygons.bm you'll find a FillPolygon function which just need to know the polygon's corners.

[Petr]

Thank You RhoSigma, perfect idea, i try it!

[bplus]

Hi Petr,

I am presently working on some general Pathfinder code. Already the first part of it could be used to "Paint" from a given point A whether bounded or not by "Obstacles" this "Paint"ing can even be shaded/colored according to degree of separation from point "A" (going around obstacles would add to degree of separation). It would be, of course very much slower than normal paint because it is not build in but conditions can be modified to say whether to "PAINT" or not and in what manner. It should be easy to modify for your purpose but also "harsh" way to do things, as you put it.

[RhoSigma]

Only limitation with the polygon routines is, they just use INTEGERs  as color parameter, which is sufficient for upto 256 colors. If you wanna use it in 32 bit mode you have to go in and change it to LONGs.

[bplus]

Here is hastey mod for a Paint like program:

Code: QB64: [Select]

1. _TITLE "PathFinder Paint mod"
2. 'QB64 X 64 version 1.2 20180228/86  from git b301f92
3. 'started 2018-08-11 when Colbalt asked about A* pathfinder
4. ' He has now 2018-08-12 posted a QB64 version that is nice!
5.  
6. ' 2018-08-11 started PathFinder 1
7. ' 2018-08-12 almost working but buggy backtract to point A after point B is found.
8. ' 2018-08-13 PathFinder Paint mod
9. ' Mod and test first part of buggy PathFinder 1 as a custom PAINT program.
10. ' This will Paint until point B has been found,
11. ' one could put point B outside the ww, wh range of screen
12. ' which is where the paint would stop with this code.
13.  
14.  
15. DEFINT A-Z
16. CONST ww = 800
17. CONST wh = 600
18. CONST sq = 50
19. CONST maxx = 16 'image width
20. CONST maxy = 12 'image height
21.  
22. SCREEN _NEWIMAGE(ww, wh, 32)
23. _SCREENMOVE (1280 - ww) / 2 + 30, (760 - wh) / 2
24. RANDOMIZE TIMER
25.  
26. 'not using
27. TYPE xytype
28.     x AS INTEGER
29.     y AS INTEGER
30. END TYPE
31.  
32. DIM SHARED ax, ay, bx, by 'start x, y and end x, y of path
33.  
34. 'board can be all or part of points from an image
35. DIM SHARED board(1 TO maxx, 1 TO maxy) AS STRING * 6
36. DO
37.     'create a random board / image
38.     FOR y = 1 TO maxy
39.         FOR x = 1 TO maxx
40.             board(x, y) = " "
41.         NEXT
42.     NEXT
43.     'with these obstacles there is no guarantee a path will exist
44.     'obstacles could be color values, dpending on how you DIM board
45.     FOR i = 1 TO maxx * maxy * .7
46.         ox = rand(1, maxx): oy = rand(1, maxy)
47.         WHILE (ox = ax AND oy = ay) OR (ox = bx AND ox = by)
48.             ox = rand(1, maxx): oy = rand(1, maxy)
49.         WEND
50.         board(ox, oy) = "O"
51.     NEXT
52.     ax = rand(1, maxx): ay = rand(1, maxy)
53.     bx = rand(1, maxx): by = rand(1, maxy)
54.     WHILE ax = bx AND ay = by
55.         bx = rand(1, maxx): by = rand(1, maxy)
56.     WEND
57.     board(ax, ay) = "A"
58.     board(bx, by) = "B"
59.     displayB
60.     _TITLE "Painting from Blue to Red until it is reached,  press esc to quit... spacebar to continue..."
61.  
62.     'display board and allow user to see blue start square and red stop square
63.     WHILE NOT _KEYDOWN(32)
64.         IF _KEYDOWN(27) THEN END
65.         _LIMIT 100
66.     WEND
67.  
68.     parentF = 1: tick = 0: parentx = 0
69.     WHILE parentF = 1 AND parentx = 0
70.         IF _KEYDOWN(27) THEN END
71.         parentF = 0: tick = tick + 1
72.         'IF tick > maxx * maxy THEN EXIT WHILE   'this was crude infinite loop stopper
73.         ystart = max(ay - tick, 1): ystop = min(ay + tick, maxy)
74.  
75.         FOR y = ystart TO ystop
76.             xstart = max(ax - tick, 1): xstop = min(ax + tick, maxx)
77.             'PRINT ystart, ystop, xstart, xstop
78.             'END
79.             FOR x = xstart TO xstop
80.                 'check out the neighbors
81.                 IF x - 1 >= 1 THEN xxstart = x - 1 ELSE xxstart = x
82.                 IF x + 1 <= maxx THEN xxstop = x + 1 ELSE xxstop = x
83.                 IF y - 1 >= 1 THEN yystart = y - 1 ELSE yystart = y
84.                 IF y + 1 <= maxy THEN yystop = y + 1 ELSE yystop = y
85.                 IF RTRIM$(board(x, y)) = "" THEN 'unpainted spot, you can set any color rannge condition here
86.                     changes$ = ""
87.                     FOR yy = yystart TO yystop
88.                         FOR xx = xxstart TO xxstop
89.                             IF xx <> x OR yy <> y THEN
90.  
91.                                 'connection to a previous painted point or start A point?
92.                                 IF RTRIM$(board(xx, yy)) = "A" OR INSTR(RTRIM$(board(xx, yy)), ",") > 0 THEN 'found a parent to assign to cell
93.                                     'paint this point or rec
94.                                     board(x, y) = LTRIM$(STR$(xx)) + "," + LTRIM$(STR$(yy))
95.                                     frec (x - 1) * sq + 5, (y - 1) * sq + 5, x * sq - 5, y * sq - 5, _RGB32(60 + tick * 15, 60 + tick * 15, 60 + tick * 15)
96.                                     parentF = 1 'so will continue looping
97.                                 END IF
98.  
99.                             END IF
100.                         NEXT
101.                     NEXT
102.  
103.  
104.                 ELSEIF RTRIM$(board(x, y)) = "A" OR INSTR(board(x, y), ",") > 0 THEN 'see if B is a neighbor
105.  
106.                     'do we have a condition to quit painting, otherwise will quit when screen is full or no new parent is assigned
107.                     FOR yy = yystart TO yystop
108.                         FOR xx = xxstart TO xxstop
109.                             IF xx <> x OR yy <> y THEN
110.                                 IF RTRIM$(board(xx, yy)) = "B" THEN 'B conects to x, y
111.                                     parentx = x: parenty = y 'from this we should be able to backtrack to A
112.                                     EXIT WHILE
113.                                 END IF
114.                             END IF
115.                         NEXT
116.                     NEXT
117.                 END IF
118.             NEXT
119.         NEXT
120.         '_DISPLAY
121.         _LIMIT 2
122.     WEND
123.     IF parentx = 0 THEN
124.         rgb 999
125.         LOCATE 10, 15: PRINT "No connection from A to B, press esc to quit... spacebar to continue..."
126.     END IF
127.     WHILE NOT _KEYDOWN(32)
128.         IF _KEYDOWN(27) THEN END
129.         _LIMIT 100
130.     WEND
131. LOOP UNTIL _KEYDOWN(27)
132.  
133. SUB displayB
134.     CLS
135.     FOR y = 1 TO maxy
136.         FOR x = 1 TO maxx
137.             SELECT CASE RTRIM$(board(x, y))
138.                 CASE IS = "": k& = _RGB32(0, 0, 0)
139.                 CASE IS = "A": k& = _RGB32(0, 0, 200)
140.                 CASE IS = "B": k& = _RGB32(230, 0, 0)
141.                 CASE IS = "O": k& = _RGB32(250, 255, 0)
142.                     'CASE ELSE: k = 30
143.             END SELECT
144.             frec (x - 1) * sq + 5, (y - 1) * sq + 5, x * sq - 5, y * sq - 5, k&
145.         NEXT
146.     NEXT
147. END SUB
148. SUB rec (x1, y1, x2, y2, rgbN&)
149.     LINE (x1, y1)-(x2, y2), rgbN&, B
150. END SUB
151. SUB frec (x1, y1, w, h, rgbN&)
152.     LINE (x1, y1)-(w, h), rgbN&, BF
153. END SUB
154. SUB rgb (n) ' New (even less typing!) New Color System 1000 colors with up to 3 digits
155.     s3$ = RIGHT$("000" + LTRIM$(STR$(n)), 3)
156.     r = VAL(MID$(s3$, 1, 1)): IF r THEN r = 28 * r + 3
157.     g = VAL(MID$(s3$, 2, 1)): IF g THEN g = 28 * g + 3
158.     b = VAL(MID$(s3$, 3, 1)): IF b THEN b = 28 * b + 3
159.     COLOR _RGB32(r, g, b)
160. END SUB
161. FUNCTION rand% (lo%, hi%)
162.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
163. END FUNCTION
164. FUNCTION min (n1, n2)
165.     IF n1 > n2 THEN min = n2 ELSE min = n1
166. END FUNCTION
167. FUNCTION max (n1, n2)
168.     IF n1 < n2 THEN max = n2 ELSE max = n1
169. END FUNCTION
170. FUNCTION leftOf$ (source$, of$)
171.     posOf = INSTR(source$, of$)
172.     IF posOf > 0 THEN leftOf$ = MID$(source$, 1, posOf - 1)
173. END FUNCTION
174. FUNCTION rightOf$ (source$, of$)
175.     posOf = INSTR(source$, of$)
176.     IF posOf > 0 THEN rightOf$ = MID$(source$, posOf + LEN(of$))
177. END FUNCTION
178.  
179.  

[Petr]

Thank you all for your reply, i try it in own way, so here is VERY SLOW source code. Now i go to study RhoSigma and Bplus code.

Code: QB64: [Select]

1. ' paint first pre - alternative. Program logic:
2. '- User set coordinates and output color (border color is NOT NEED)
3. '- Program find colors borders in easyest way. Create virtual screen and draw borders.
4. '- Use QB64 statement PAINT in this virtual screen and then copy colored area back to visible screen
5. '- Kill arrays and virtual screen and return back.
6.  
7. 'It is first version, extreme slow!
8.  
9. 'If is something "super", so has not big value. So this is named super.....slow.....wait........Sub :-D
10. 'in true, i thing about - how do it many months. Because i have not enough time, i started this many times in different ways. First -   I wanted to do this by moving the X, Y pointer
11. 'along the Y axis up to the border of the colors, and then copying the border of the color boundaries and reducing its radius at each turn. Unfortunately, when using a circle, the pointer
12. 'has always run away. It was fun, but I did not to laugh ...
13.  
14. SCREEN _NEWIMAGE(800, 600, 256)
15.  
16.  
17. CIRCLE (400, 300), 250, 78
18. CIRCLE (400, 300), 450, 88
19. LINE (100, 100)-(400, 400), 14, BF
20. LINE (300, 300)-(500, 500), 25, B
21.  
22.  
23. SuperPaint 338, 349, 12
24. SuperPaint 531, 219, 25
25. SuperPaint 436, 451, 11
26. SuperPaint 715, 242, 110
27.  
28. PRINT "press any key"
29. SLEEP
30.  
31. LINE (100, 100)-(400, 400), 14, BF
32. LINE (300, 300)-(500, 500), 25, B
33. 'in position 350, 350 is now area with different color borders. Standard PAINT statement can not be used.
34.  
35. SuperPaint 350, 350, 60
36.  
37. SuperPaint 408, 1, 99
38. SuperPaint 779, 15, 9
39.  
40.  
41.  
42.  
43. SUB SuperPaint (x AS INTEGER, y AS INTEGER, clr AS LONG)
44.     Background& = POINT(x, y)
45.     W = _WIDTH(0)
46.     H = _HEIGHT(0)
47.     DIM O(W, H) AS INTEGER
48.  
49.     FOR Sy = 0 TO H - 1
50.         FOR sx = 1 TO W - 2
51.             IF POINT(sx, Sy) <> POINT(sx + 1, Sy) THEN
52.                 oldsx = sx
53.                 O(sx, Sy) = 1
54.             END IF
55.     NEXT sx, Sy
56.  
57.     FOR sx = 0 TO W - 1
58.         FOR Sy = 0 TO H - 1
59.             IF POINT(sx, Sy) <> POINT(sx, Sy + 1) THEN
60.                 oldsy = Sy
61.                 O(sx, Sy) = 1
62.             END IF
63.     NEXT Sy, sx
64.     i = 0
65.     bclr& = 255
66.     SELECT CASE _PIXELSIZE(_DEST)
67.         CASE 1: bclr& = clr& - 1: Depth = 256
68.         CASE 4: bclr& = _RGB32(clr& - 1, clr&, clr&): Depth = 32
69.     END SELECT
70.     my& = _DEST
71.     virtual& = _NEWIMAGE(W, H, Depth)
72.     _DEST virtual&
73.     FOR Sy = 0 TO H
74.         FOR sx = 0 TO W
75.             IF O(sx, Sy) THEN
76.                 PSET (sx, Sy), bclr&
77.             END IF
78.     NEXT sx, Sy
79.     _DEST virtual&
80.     PAINT (x, y), clr&, bclr&
81.     ERASE O
82.     FOR sx = 0 TO W
83.         FOR Sy = 0 TO H
84.             _SOURCE virtual&
85.             _DEST my&
86.             IF POINT(sx, Sy) = clr& THEN PSET (sx, Sy), clr&
87.             IF POINT(sx - 1, Sy) = clr& THEN PSET (sx, Sy), clr&
88.             IF POINT(sx, Sy - 1) = clr& THEN PSET (sx, Sy), clr&
89.     NEXT Sy, sx
90.     _DEST my&
91.     _FREEIMAGE virtual&
92. END SUB
93.  

[FellippeHeitor]

This may give you ideas: https://rosettacode.org/wiki/Bitmap/Flood_fill