Barbouille (Pure_autoPaint)

Share your advanced PureBasic knowledge/code with the community.
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:

Barbouille (Pure_autoPaint)

Post by dobro »

(Windows only ! )


Recently, I got a Small Graphics Tablet, Wacom

searching for a program to go with drawing, I first found Painter 12
hum ... too expensive for me, but very interresting!

especially mode "AutoPaint"
able to "paint" automatically, a photo ...

Cool .... then I found Dynamic AutoPainter!
this level simulation painter .. is very powerful!
there's a view here:

http://www.youtube.com/watch?v=oZOuWw71ZZ4


I say, "but how do you it??" :shock:

(2 and a half seconds later (yes I'm pretty slow at the moment))
I had the solution! :)

I take Purebasic and I put to work!
Here is a first result

Originally Photo
Image

Here Painting, output (xxx secondes after ), Of my Pure_Autopaint
Image :)
the pure impressionist style no ? : D

Here is the code of my prg ...

I just ask you to run it, before watching, how it works ... just to keep the magic :)

the result begins to see after Phase 8! , Be patient .... wait until the paint before criticizing: lol:
preferably rather choose a landscape image ... but it works well with the People Pictures :)

Code:
code being too big to fit on the forum
here is the link to the executable and the source


http://michel.dobro.free.fr/STLINE/down ... uto-paint/


the principle here uses a simple shapes (round, Square, Circle, Elipse)

but of course you can, especially using complex forms Brush
Vary in Style and Make "Impressionism", a watercolor, "Wet on Wet", "cubism" etc :)

link for Barbouille :
http://michel.dobro.free.fr/STLINE/down ... uille-1-4/
Last edited by dobro on Wed May 04, 2016 2:36 pm, edited 28 times in total.
Image
Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
LuCiFeR[SD]
666
666
Posts: 1033
Joined: Mon Sep 01, 2003 2:33 pm

Re: Pure_autoPaint

Post by LuCiFeR[SD] »

dobro, that is awesome! :) Very very nice indeed. Thank you for sharing!
davido
Addict
Addict
Posts: 1890
Joined: Fri Nov 09, 2012 11:04 pm
Location: Uttoxeter, UK

Re: Pure_autoPaint

Post by davido »

Impressionist, maybe. :)

Impressed, yes! 8)

Thank you for sharing. :D
DE AA EB
User avatar
Rings
Moderator
Moderator
Posts: 1435
Joined: Sat Apr 26, 2003 1:11 am

Re: Pure_autoPaint

Post by Rings »

great idea dobro, thx for sharing
SPAMINATOR NR.1
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:

Re: Pure_autoPaint

Post by dobro »

Thanks All
Image
Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:

Re: Pure_autoPaint

Post by dobro »

Version Optimizing by Graph100 (french Forum)

10 Second for Résult ! :)

Code Page 1 top topic
Last edited by dobro on Fri Feb 15, 2013 11:35 pm, edited 7 times in total.
Image
Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
IdeasVacuum
Always Here
Always Here
Posts: 6426
Joined: Fri Oct 23, 2009 2:33 am
Location: Wales, UK
Contact:

Re: Pure_autoPaint

Post by IdeasVacuum »

Top-notch effect, very impressive. 8)
IdeasVacuum
If it sounds simple, you have not grasped the complexity.
User avatar
Tenaja
Addict
Addict
Posts: 1959
Joined: Tue Nov 09, 2010 10:15 pm

Re: Pure_autoPaint

Post by Tenaja »

Hey, that's pretty fun.

Replace the current line with this to get the filerequester patterns to work:

Code: Select all

					File_image$=OpenFileRequester("Load Picture",File_image$,"*.jpg|*.jpg|*.png|*.png|*.bmp|*.bmp|*.*|*.*",0)
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:

Re: Pure_autoPaint

Post by dobro »

Thanks ;

I modified the Last code
adding a 2 Paint Style Cross "Croix" and "Croix2"
it shows how to add a new style :)

and English interface now ;)
Image
Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:

Re: Pure_autoPaint

Post by dobro »

the different styles

Gallerie des Styles

LE Style "Impressionisme"

Image

Le Style "Croix"
Image

Le Style "Croix Creuse"
Image

Le Style "Vermicelle"
Image


Le Style "pointillisme"
Image


Le Style "Flocon"
Image

Le Style "Aquarelle"
Image

Le Style "Cederavic"
Image

Le Style "Pop_Art"
Image
Last edited by dobro on Sun Feb 17, 2013 5:12 pm, edited 6 times in total.
Image
Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
SFSxOI
Addict
Addict
Posts: 2970
Joined: Sat Dec 31, 2005 5:24 pm
Location: Where ya would never look.....

Re: Pure_autoPaint

Post by SFSxOI »

That is pretty nice, good job. :)

Maybe adding a control to vary the 'intensity/depth' of the applied effects?
The advantage of a 64 bit operating system over a 32 bit operating system comes down to only being twice the headache.
yrreti
Enthusiast
Enthusiast
Posts: 546
Joined: Tue Oct 31, 2006 4:34 am

Re: Pure_autoPaint

Post by yrreti »

dobro :shock: + :shock: + :shock:

That is some excellent and amazing work. WOW!
And I might add. Fun to play with.
Thanks much for sharing.

yrreti
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:

Re: Pure_autoPaint

Post by dobro »

SFSxOI wrote:Maybe adding a control to vary the 'intensity/depth' of the applied effects?

in To Do list :)


I just refresh code for the possibility of resized ;)
Image
Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:

Re: Pure_autoPaint

Post by dobro »

The Aquarrel Style :) (gouach style ?)

Image

this is the first style that actually uses a paint just be created
for the one I turned to Style "pointillism" in procedure Aquarelle

Then I apply an algorithm (which I will improve)
the interest is to be able to intervene after the fact, here I draw an ellipse with transparency ...
to give the side "Water" .. this is far from perfect, but I made ​​a working basis :)
to work on the canvas after the fact can stuff a lot, I think ... highlight as blacks, the red blue etc. ..
it opens the door to the "been treated to" for example :)

I use here an earthquake horizontal pixel color read on .. canvas and not on the reference image :)

ps: I have the opportunity to save the pref size of the window ...
Image
Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
User avatar
dobro
Enthusiast
Enthusiast
Posts: 766
Joined: Sun Oct 31, 2004 10:54 am
Location: France
Contact:

Re: Pure_autoPaint

Post by dobro »

New style Of Cederavic on the French forum

Image

:)
Image
Windows 98/7/10 - PB 5.42
■ sites : http://michel.dobro.free.fr/
Post Reply