Paint Image

[Petr]

Just a note. Each _NEWIMAGE screen has a RGBA32 background 0,0,0,0, this changes to 0,0,0,255 when CLS is used.

[Petr]

I didn't find my original fill program, so wrote it again. It's not fast, but he doesn't mind the alpha. I'll keep doing it. I will add padding support. The program does not need to know the color number of the color border, the boundaries of the filled color can be different.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. CIRCLE (400, 400), 150, &HFFFF0000
3. LINE (300, 450)-(500, 150), &H4AEEC2F7, B
4. LINE (370, 370)-(430, 430), &HFFFF0000, BF
5. CIRCLE (400, 300), 460, &H1744F3FF
6.  
7. Fill 400, 200, &H4AEEC2F7
8. Fill 400, 300, &HFFFFFF00
9. Fill 1, 1, &HFFFFFFFF
10. Fill 200, 440, &HE0FFFFFF
11. Fill 400, 500, &HDF00FF00
12.  
13.  
14.  
15.  
16.  
17. SUB Fill (x AS INTEGER, y AS INTEGER, clr AS _UNSIGNED LONG)
18.     TYPE border
19.         X AS INTEGER
20.         Y AS INTEGER
21.     END TYPE
22.     'z bodu plneni jede vpravo a udela caru od bodu plneni k okraji. Tyto body zapise do pole.
23.     'from fill points X, Y go to right and draw line. This points are writed to array B.
24.  
25.     REDIM B(0) AS border
26.     DIM bck AS _UNSIGNED LONG
27.     bck = POINT(x, y)
28.     px = x: py = y
29.  
30.  
31.  
32.     WHILE bck = POINT(px, py)
33.         REDIM _PRESERVE B(i) AS border
34.  
35.         B(i).X = px
36.         B(i).Y = py
37.         i = i + 1
38.         px = px + 1
39.     WEND
40.     ' od x do prava
41.     '-----------------------------------------------------------------------------------------
42.     'from fill points X, Y go to left, points are writed to array B, draw line.
43.  
44.  
45.     px = x: py = y
46.     WHILE bck = POINT(px, py)
47.         REDIM _PRESERVE B(i) AS border
48.  
49.         B(i).X = px
50.         B(i).Y = py
51.         i = i + 1
52.         px = px - 1
53.     WEND
54.  
55.     i = 0
56.     'od X do leva
57.     'Start in: REDIM (C)....  from all points in array B fill to bottom. Write this points to array C.
58.  
59.  
60.     REDIM C(0) AS border
61.     'vyplni vechny body od predchozi linie plneni smerem dolu.
62.     FOR p = 0 TO UBOUND(b)
63.         Fx = B(i).X
64.         Fy = B(i).Y
65.         WHILE bck = POINT(Fx, Fy)
66.             PSET (Fx, Fy), clr~&
67.             C(j).X = Fx
68.             C(j).Y = Fy
69.             Fy = Fy + 1
70.             j = j + 1
71.             REDIM _PRESERVE C(j) AS border
72.         WEND
73.         i = i + 1
74.     NEXT p
75.  
76.  
77.     'vyplni predchozi linie plneni smerem nahoru
78.     'from all points in array B fill to ceiling. Write this points to array C.
79.  
80.     i = 0
81.     FOR p = 0 TO UBOUND(b)
82.         Fx = B(i).X
83.         Fy = B(i).Y - 1
84.         WHILE bck = POINT(Fx, Fy)
85.             PSET (Fx, Fy), clr~&
86.             C(j).X = Fx
87.             C(j).Y = Fy
88.             Fy = Fy - 1
89.             j = j + 1
90.             REDIM _PRESERVE C(j) AS border
91.         WEND
92.         i = i + 1
93.     NEXT p
94.  
95.  
96.     'nize: z bodu v poli C jet vlevo a vpravo, nahoru a dolu.
97.     'do this 4x:
98.     'look if neigthbour point is BCK. Starting points are contained in Array C. Look to left, right, up and down. If this color is BCK, fill it until
99.     'is color other than BCK. Write this points to array B. After then is S selected and loop go again. After then write values from array B to array C
100.     'and search again. Total search: 4x.
101.  
102.  
103.     REDIM B(0) AS border
104.  
105.     FOR search = 1 TO 4
106.         i = 0
107.         FOR p = 0 TO UBOUND(c)-1
108.             FOR s = 1 TO 4
109.                 Fx = C(p).X
110.                 Fy = C(p).Y
111.  
112.                 SELECT CASE s
113.                     CASE 1: Sx = 1: sy = 0
114.                     CASE 2: Sx = -1: sy = 0
115.                     CASE 3: sy = 1: Sx = 0
116.                     CASE 4: sy = -1: Sx = 0
117.                 END SELECT
118.  
119.                 WHILE bck = POINT(Fx + Sx, Fy + sy)
120.                     PSET (Fx + Sx, Fy + sy), clr
121.                     Fx = Fx + Sx
122.                     Fy = Fy + sy
123.                     B(i).X = Fx
124.                     B(i).Y = Fy
125.                     i = i + 1
126.                     REDIM _PRESERVE B(i) AS border
127.                 WEND
128.             NEXT s
129.         NEXT p
130.  
131.  
132.         REDIM C(i - 1) AS border
133.         FOR L = 0 TO i - 1
134.             C(L).X = B(L).X
135.             C(L).Y = B(L).Y
136.         NEXT
137.     NEXT search
138.     ERASE C
139.     ERASE B
140. END SUB
141.  

[bplus]

Hi Petr,

Looks like it just does the color it lands on at x, y, also looks pretty fast compared to my effort:
https://www.qb64.org/forum/index.php?topic=1914.msg111421#msg111421

Did you compare times with Steve's Magic filler?

[Petr]

BPlus, this example show better, what can you do with my fill program, what PAINT can not do:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. CIRCLE (400, 400), 150, &HFFFF0000
3. LINE (300, 450)-(500, 150), &H4AEEC2F7, BF
4. LINE (370, 370)-(430, 430), &HFFFF0000, BF
5. CIRCLE (400, 300), 460, &H1744F3FF
6. PRINT "How to fill the black area in a circle now, without damaging the square? - others color borders"
7. PRINT "Press key..."
8. SLEEP
9.  
10.  
11.  
12.  
13. Fill 400, 530, &HADFFFFFF
14.  
15.  
16.  
17.  
18.  
19. SUB Fill (x AS INTEGER, y AS INTEGER, clr AS _UNSIGNED LONG)
20.     TYPE border
21.         X AS INTEGER
22.         Y AS INTEGER
23.     END TYPE
24.     'z bodu plneni jede vpravo a udela caru od bodu plneni k okraji. Tyto body zapise do pole.
25.     'from fill points X, Y go to right and draw line. This points are writed to array B.
26.  
27.     REDIM B(0) AS border
28.     DIM bck AS _UNSIGNED LONG
29.     bck = POINT(x, y)
30.     px = x: py = y
31.  
32.  
33.  
34.     WHILE bck = POINT(px, py)
35.         REDIM _PRESERVE B(i) AS border
36.  
37.         B(i).X = px
38.         B(i).Y = py
39.         i = i + 1
40.         px = px + 1
41.     WEND
42.     ' od x do prava
43.     '-----------------------------------------------------------------------------------------
44.     'from fill points X, Y go to left, points are writed to array B, draw line.
45.  
46.  
47.     px = x: py = y
48.     WHILE bck = POINT(px, py)
49.         REDIM _PRESERVE B(i) AS border
50.  
51.         B(i).X = px
52.         B(i).Y = py
53.         i = i + 1
54.         px = px - 1
55.     WEND
56.  
57.     i = 0
58.     'od X do leva
59.     'Start in: REDIM (C)....  from all points in array B fill to bottom. Write this points to array C.
60.  
61.  
62.     REDIM C(0) AS border
63.     'vyplni vechny body od predchozi linie plneni smerem dolu.
64.     FOR p = 0 TO UBOUND(b)
65.         Fx = B(i).X
66.         Fy = B(i).Y
67.         WHILE bck = POINT(Fx, Fy)
68.             PSET (Fx, Fy), clr~&
69.             C(j).X = Fx
70.             C(j).Y = Fy
71.             Fy = Fy + 1
72.             j = j + 1
73.             REDIM _PRESERVE C(j) AS border
74.         WEND
75.         i = i + 1
76.     NEXT p
77.  
78.  
79.     'vyplni predchozi linie plneni smerem nahoru
80.     'from all points in array B fill to ceiling. Write this points to array C.
81.  
82.     i = 0
83.     FOR p = 0 TO UBOUND(b)
84.         Fx = B(i).X
85.         Fy = B(i).Y - 1
86.         WHILE bck = POINT(Fx, Fy)
87.             PSET (Fx, Fy), clr~&
88.             C(j).X = Fx
89.             C(j).Y = Fy
90.             Fy = Fy - 1
91.             j = j + 1
92.             REDIM _PRESERVE C(j) AS border
93.         WEND
94.         i = i + 1
95.     NEXT p
96.  
97.  
98.     'nize: z bodu v poli C jet vlevo a vpravo, nahoru a dolu.
99.     'do this 4x:
100.     'look if neigthbour point is BCK. Starting points are contained in Array C. Look to left, right, up and down. If this color is BCK, fill it until
101.     'is color other than BCK. Write this points to array B. After then is S selected and loop go again. After then write values from array B to array C
102.     'and search again. Total search: 4x.
103.  
104.  
105.     REDIM B(0) AS border
106.  
107.     FOR search = 1 TO 4
108.         i = 0
109.         FOR p = 0 TO UBOUND(c)-1
110.             FOR s = 1 TO 4
111.                 Fx = C(p).X
112.                 Fy = C(p).Y
113.  
114.                 SELECT CASE s
115.                     CASE 1: Sx = 1: sy = 0
116.                     CASE 2: Sx = -1: sy = 0
117.                     CASE 3: sy = 1: Sx = 0
118.                     CASE 4: sy = -1: Sx = 0
119.                 END SELECT
120.  
121.                 WHILE bck = POINT(Fx + Sx, Fy + sy)
122.                     PSET (Fx + Sx, Fy + sy), clr
123.                     Fx = Fx + Sx
124.                     Fy = Fy + sy
125.                     B(i).X = Fx
126.                     B(i).Y = Fy
127.                     i = i + 1
128.                     REDIM _PRESERVE B(i) AS border
129.                 WEND
130.             NEXT s
131.         NEXT p
132.  
133.  
134.         REDIM C(i - 1) AS border
135.         FOR L = 0 TO i - 1
136.             C(L).X = B(L).X
137.             C(L).Y = B(L).Y
138.         NEXT
139.     NEXT search
140.     ERASE C
141.     ERASE B
142. END SUB
143.  

I didn't compare speed with Steve. There's no point in proving I'm better :)  (THIS IS JOKE!)
Frankly, I will use this function to draw an image, and then I will put the finished image on the screen in a program. Using color filling while running a program is nonsense. This is an unnecessary load on the processor. I will not solve the speed, I will solve the fill - so as in the  QB4.5. I do not share claim, that working with a program below 256 colors is a waste of time. Not for me.

[TempodiBasic]

about Petr's affirmation

Just a note. Each _NEWIMAGE screen has a RGBA32 background 0,0,0,0, this changes to 0,0,0,255 when CLS is used.

i'll go on and I try this study of POINT in SCREEN 32bit

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. DIM kolor AS _UNSIGNED LONG
3. DIM C1 AS _UNSIGNED LONG, C2 AS _UNSIGNED LONG, C3 AS _UNSIGNED LONG, C4 AS _UNSIGNED LONG, C5 AS _UNSIGNED LONG
4. PRINT " USING COLORS AS VARIABLE _UNSIGNED LONG"
5. PRINT "LET'S SEE DIFFERENCE BETWEEN POINT ON NATIVE BACKGROUND "
6. PRINT "  POINT    POINT+BACKGROUND       KOLOR     BLACK BACKGROUND"
7. C1 = _RGBA32(0, 127, 127, 10)
8. C2 = _RGBA32(10, 100, 20, 100)
9. C3 = _RGBA32(10, 10, 127, 150)
10. C4 = _RGBA32(127, 10, 10, 200)
11. C5 = _RGBA32(200, 100, 4, 230)
12. FOR a = 1 TO 5 STEP 1
13.     IF a = 1 THEN kolor = C1
14.     IF a = 2 THEN kolor = C2
15.     IF a = 3 THEN kolor = C3
16.     IF a = 4 THEN kolor = C4
17.     IF a = 5 THEN kolor = C5
18.     CIRCLE (400, 200), a * 10, kolor
19.     LOCATE a + 3, 1: PRINT POINT(400, 200 + a * 10), POINT(400, 200 + a * 10) + POINT(400, 200), kolor, POINT(400, 200)
20.     CIRCLE (200, 200), a * 10, POINT(400, 200 + a * 10)
21. NEXT a
22. VIEW PRINT 20 TO 29
23. VIEW SCREEN(1, 300)-(798, 598), , _RGBA32(1, 127, 127, 255)
24. CLS
25. PRINT " NOW AFTER CLS WITH BLACK BACKGROUND "
26. PRINT "  POINT      POINT+BACKGROUND       KOLOR     BLACK BACKGROUND"
27. FOR a = 1 TO 5 STEP 1
28.     IF a = 1 THEN kolor = C1
29.     IF a = 2 THEN kolor = C2
30.     IF a = 3 THEN kolor = C3
31.     IF a = 4 THEN kolor = C4
32.     IF a = 5 THEN kolor = C5
33.     CIRCLE (400, 500), a * 10, kolor
34.     LOCATE a + 23, 1: PRINT POINT(400, 500 + a * 10), POINT(400, 500 + a * 10) + POINT(400, 500), kolor, POINT(400, 500)
35.     CIRCLE (200, 500), a * 10, POINT(400, 500 + a * 10)
36. NEXT a
37.  
38. SLEEP

with this results
 

but tiese results show that in screen 32bit the color are merged to that are yet on the screen so as Petr suggests  before original black background is RGBA 0 0 0 0   while after CLS it becomes 0 0 0 255 getting a different value with POINT!

Good this!
 

and this one !
 

[SMcNeill]

Hint:  Use CLS, 0

[TempodiBasic]

Steve
Thanks for tip so we can force to use black RGBA 0,0,0,0

result after CLS,0 is the same as in original screen 32bit