ColorIt - a coloring book kind of drawing program.

[Dav]

This isn't a serious program, I just felt making something while enjoying a cup of coffee today.  You color a line drawing image with basic colors, like you would with a coloring book image using crayons.   Select a color, fill in color where desired.  There's an undo & restart.  The line drawing supplied here was done with @SierraKen 's paint Pixels 8 app posted on this forum.  You can replace my default image with one of your own, just name it colorit-image.png and make it 700x700.  There are 3 files in the .zip - make sure they all are in the same directory. 

- Dav

Download source (36k) ----> 

colorit.zip

Default image...
 

Coloring it....
 

[Petr]

Nice relax, Dav! :)

[bplus]

Hi Dav,

I had an idea for converting an image to a ColorIt Layout here is first crude attempt taking this image:
 

and getting shades outlined in black with shades in for grey scales:
 

Probably have better luck with cartoon or less detailed images ;-))
PS, some blunder is causing white line at bottom edge as circled with "?"

[Petr]

Animated images returning best output. Nice work, Bplus!

[johnno56]

Bplus,

I think that some of the problem may be with the image itself. On average, the 'colour' level is quite flat. Not a lot of differences between colours. (see attched) Perhaps a 'daytime' image may work better. I even tried converting to 'cartoon' in Gimp. It kind of worked but needed greater contrast in colours.

 

Curious. Is it possible for you to modify 'your' cartoon step to draw slightly thicker lines?

[Dav]

Neat pic, @bplus.  It does look like a hard one to convert to a line drawing - I'll play around with too.   

- Dav

[bplus]

Curious. Is it possible for you to modify 'your' cartoon step to draw slightly thicker lines?

@johnno56

Yes, anywhere you:

Code: QB64: [Select]

1. pset(x,y), black

use:

Code: QB64: [Select]

1. circle_fill x, y, smallRadius, black

instead, you can do that!

I also had more intense grey scales by using a much smaller nRound (see code) variable, screen shot was at 64 rounding to 4 shades use 5, 10, 15... for different scales of detail.

Code: QB64: [Select]

1. _TITLE "ColorIt Experiment:  a few SLEEP steps press any..." 'b+ 2020-10-28
2. ' Attempt at making a coloring book outlines.
3. ' Results: well maybe this will help layout your masterpiece :)
4.  
5. ' The last image is black outlines with shading or grey level hints
6.  
7. DEFLNG A-Z
8. DIM SHARED xmax, ymax
9. img = _LOADIMAGE("Halloween.jpg", 32)
10. xmax = _WIDTH(img&)
11. ymax = _HEIGHT(img&)
12. SCREEN _NEWIMAGE(xmax, ymax, 32)
13. _DELAY .25
14. _SCREENMOVE _MIDDLE
15. DIM gs(xmax, ymax), gs2(xmax, ymax)
16. _PUTIMAGE , img
17. nRound = 64 'this rounds to 4 shades of gray  <<<<<<<<<<<<<<< adjust number of levels = 255 / nRound
18. FOR y = 0 TO ymax - 1
19.     FOR x = 0 TO xmax - 1
20.         c~& = POINT(x, y)
21.         r = _RED32(c~&)
22.         g = _GREEN32(c~&)
23.         b = _BLUE32(c~&)
24.         gs(x, y) = INT(((r + g + b) / 3) / nRound) * nRound 'round the grey
25.     NEXT
26. NEXT
27. SLEEP
28. COLOR , &HFFFFFFFF: CLS
29. FOR y = 0 TO ymax - 1
30.     FOR x = 0 TO xmax - 1
31.         PSET (x, y), _RGB32(gs(x, y), gs(x, y), gs(x, y), 90)
32.     NEXT
33. NEXT
34.  
35. SLEEP
36. COLOR , &HFFFFFFFF: CLS
37. FOR y = 0 TO ymax - 1
38.     FOR x = 0 TO xmax - 1
39.         IF gs(x, y) <> gs(x + 1, y) THEN PSET (x, y), &HFF000000: gs2(x, y) = 1
40.     NEXT
41. NEXT
42. FOR x = 0 TO xmax - 1
43.     FOR y = 0 TO ymax - 1
44.         IF gs(x, y) <> gs(x, y + 1) THEN PSET (x, y), &HFF000000: gs2(x, y) = 1
45.     NEXT
46. NEXT
47.  
48. SLEEP
49. COLOR , &HFFFFFFFF: CLS
50. FOR x = 0 TO xmax - 1
51.     FOR y = 0 TO ymax - 1
52.         IF gs2(x, y) THEN PSET (x, y), &HFF000000
53.     NEXT
54. NEXT
55.  
56. FOR y = 0 TO ymax - 1
57.     FOR x = 0 TO xmax - 1
58.         PSET (x, y), _RGB32(gs(x, y), gs(x, y), gs(x, y), 90)
59.     NEXT
60. NEXT
61.  
62.