Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Dav on October 26, 2020, 05:29:06 pm

Title: ColorIt - a coloring book kind of drawing program.
Post by: Dav on October 26, 2020, 05:29:06 pm
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) ---->   [ This attachment cannot be displayed inline in 'Print Page' view ]  

Default image...
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Coloring it....
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: ColorIt - a coloring book kind of drawing program.
Post by: Petr on October 27, 2020, 02:23:03 pm
Nice relax, Dav! :)
Title: Re: ColorIt - a coloring book kind of drawing program.
Post by: bplus on October 28, 2020, 04:44:06 pm
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 "?"

Title: Re: ColorIt - a coloring book kind of drawing program.
Post by: Petr on October 28, 2020, 05:34:05 pm
Animated images returning best output. Nice work, Bplus!
Title: Re: ColorIt - a coloring book kind of drawing program.
Post by: johnno56 on October 28, 2020, 06:30:34 pm
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.

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

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

Title: Re: ColorIt - a coloring book kind of drawing program.
Post by: Dav on October 28, 2020, 06:53:27 pm
Neat pic, @bplus.  It does look like a hard one to convert to a line drawing - I'll play around with too.   

- Dav
Title: Re: ColorIt - a coloring book kind of drawing program.
Post by: bplus on October 29, 2020, 11:42:39 am
Quote
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
  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
  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
  34.  
  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
  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
  47.  
  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
  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
  61.  
  62.  
Text Only | Text with Attachments