Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Petr on August 13, 2018, 02:04:10 pm

Title: fill in the color of an area with different color borders
Post by: Petr on August 13, 2018, 02:04:10 pm
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?
Title: Re: fill in the color of an area with different color borders
Post by: RhoSigma on August 13, 2018, 02:11:32 pm
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.
Title: Re: fill in the color of an area with different color borders
Post by: Petr on August 13, 2018, 02:25:18 pm
Thank You RhoSigma, perfect idea, i try it!
Title: Re: fill in the color of an area with different color borders
Post by: bplus on August 13, 2018, 02:39:13 pm
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.
Title: Re: fill in the color of an area with different color borders
Post by: RhoSigma on August 13, 2018, 02:42:03 pm
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.
Title: Re: fill in the color of an area with different color borders
Post by: bplus on August 13, 2018, 03:52:35 pm
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
  25.  
  26. 'not using
  27. TYPE xytype
  28.     x AS INTEGER
  29.     y AS INTEGER
  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
  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
  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
  148. SUB rec (x1, y1, x2, y2, rgbN&)
  149.     LINE (x1, y1)-(x2, y2), rgbN&, B
  151. SUB frec (x1, y1, w, h, rgbN&)
  152.     LINE (x1, y1)-(w, h), rgbN&, BF
  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)
  161. FUNCTION rand% (lo%, hi%)
  162.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
  164. FUNCTION min (n1, n2)
  165.     IF n1 > n2 THEN min = n2 ELSE min = n1
  167. FUNCTION max (n1, n2)
  168.     IF n1 < n2 THEN max = n2 ELSE max = n1
  170. FUNCTION leftOf$ (source$, of$)
  171.     posOf = INSTR(source$, of$)
  172.     IF posOf > 0 THEN leftOf$ = MID$(source$, 1, posOf - 1)
  174. FUNCTION rightOf$ (source$, of$)
  175.     posOf = INSTR(source$, of$)
  176.     IF posOf > 0 THEN rightOf$ = MID$(source$, posOf + LEN(of$))
  178.  
  179.  
Title: Re: fill in the color of an area with different color borders
Post by: Petr on August 13, 2018, 04:28:19 pm
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"
  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
  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&
  93.  
Title: Re: fill in the color of an area with different color borders
Post by: FellippeHeitor on August 13, 2018, 04:43:27 pm
This may give you ideas: https://rosettacode.org/wiki/Bitmap/Flood_fill
Text Only | Text with Attachments