PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

Barbouille (Pure_autoPaint)

https://www.purebasic.fr/english/viewtopic.php?t=53477

Page 4 of 5

Re: Barbouille (Pure_autoPaint)

Posted: Sat Apr 30, 2016 9:56 pm
by RSBasic
Can you download here?
Barbouille: http://www.rsbasic.de/backupprogramme/Barbouille.zip
Pure Auto paint: http://www.rsbasic.de/backupprogramme/P ... opaint.zip

Re: Barbouille (Pure_autoPaint)

Posted: Sat Apr 30, 2016 10:18 pm
by marc_256
Thanks RSBasic

marc

Re: Barbouille (Pure_autoPaint)

Posted: Sat Apr 30, 2016 11:19 pm
by JHPJHP
Hi dobro,

Very impressive. The numerous options and combination of options allow for an endless number of effects and styles that can be applied to any image.

Cheers!

Re: Barbouille (Pure_autoPaint)

Posted: Sat Apr 30, 2016 11:28 pm
by davido
@dobro,
Very nice. Thank you.

Re: Barbouille (Pure_autoPaint)

Posted: Sun May 01, 2016 9:05 am
by dobro
marc_256 wrote:Hi dobro,

I liked to download your software to use it.
But bitdefender is blocking your website ??
Do you know this ...

thanks,
marc

I see no reason for my site to be blacklisted ... by BitDefender. ?!


the mode ( "mode semi-auto "), checked

Image

provides the ability to draw by step
Each click on the Draw button, draw a step

the parameter NB de coup" rule the number of brush strokes
taille_x, taille_y this is brush size
we can settle quickly with the up and down arrow keys up and down size of brush

we can also draw at any time with the mouse directly into the screen :)
the size of brush is ,in this case, randomized

taking care to choose a brush style

Thanks to ALL :)



[reedit]
I have the answer ....
my website is blacklisted by BitDefender
look at here :

https://www.virustotal.com/fr/url/bfe14 ... 462096527/

Re: Barbouille (Pure_autoPaint)

Posted: Sun May 01, 2016 12:15 pm
by marc_256
Hi dobro,

before i used NOD32 by ESET
now i use bitdefender ... :shock:

marc,

Re: Barbouille (Pure_autoPaint)

Posted: Sun May 01, 2016 1:03 pm
by dobro
version 1.12 (same link )
improvement, style, "Van Gogh"

Image

by Barbouille :
Image :)

Certainly, I am still far from the results with dynamic auto painter
Image
but I will see, the shape of my brushes, for this particular style :)

Re: Barbouille (Pure_autoPaint)

Posted: Sun May 01, 2016 8:12 pm
by Tenaja
dobro wrote:I see no reason for my site to be blacklisted ... by BitDefender. ?!
I use BitDefender, and it blocks 95% of my personal compilations. Sometimes a tiny change will unexpectedly cause a program to get blocked.

At least BD has a simple "false positive" report system, and I've received BD updates within minutes of submitting a report. My guess would be that it hones in on a pattern found in a virus written with PB, and flags it by default.

I figure the more false positives we report, the better it will get at avoiding them. When I'm compiling, I temporarily disable the AV so I can submit everything that is flagged.

Re: Barbouille (Pure_autoPaint)

Posted: Mon May 02, 2016 9:01 am
by dobro
So, bitdefender, is not a Anti-virus, but an anti-ALL :mrgreen:


m writing a Bitdefender, which meets me
that I have to scan my computer, and I send them the report !!

what I have done ...
even if the blocking only affects my website .. I have trouble to understand, they offered me a scan of my computer ....

I await their reply

Re: Barbouille (Pure_autoPaint)

Posted: Wed May 04, 2016 2:13 pm
by dobro
Barbouille 1.4
http://michel.dobro.free.fr/STLINE/down ... uille-1-4/

fixes multiple bugs
on brushes,

the postEffect effects use the parameter transparency
the "semi automatic"
recalibration of all modes "brush" and Style

Samples :
(Pointe Venus a Tahiti )
Image

only Brosse 9
Image

Crayon
Image

Crayon Grey level
Image

Flocon
Image

"Impressionism"
Image

"van goght"
Image

Vermicelles
Image

vieille
Image

"pop art"
Image

"aquarelle"
Image

:)

Re: Barbouille (Pure_autoPaint)

Posted: Wed May 04, 2016 3:06 pm
by blueb
Thanks Dobro, very slick. :mrgreen:

Now I can create my own masterpieces by "Van Blueb" with my 13" x 19" color printer (Canon iP8720 printer) :D

Re: Barbouille (Pure_autoPaint)

Posted: Wed May 04, 2016 3:24 pm
by dobro
:lol: :lol:

if you become rich with, think of me ;)

Re: Barbouille (Pure_autoPaint)

Posted: Wed May 04, 2016 7:23 pm
by walbus
Very nice !

Re: Barbouille (Pure_autoPaint)

Posted: Thu May 05, 2016 11:17 am
by kvitaliy
Thanks Dobro!
Can you share the source EDGE Cederavic, Ligt++, Ligt--, Contrast etc?
Please!!!

Re: Barbouille (Pure_autoPaint)

Posted: Thu May 05, 2016 11:21 am
by dobro
kvitaliy wrote:Thanks Dobro!
Can you share the source EDGE Cederavic, Ligt++, Ligt--, Contrast etc?
Please!!!

look here :
http://www.purebasic.fr/french/viewtopi ... ic#p151169


Else , for the post Effects :

i grab the color of pixel (or color in the Array )

Code: Select all

Couleur=point(x,y) ; recup la Couleur  de la toile(pas de l'image d'origine )

and the effect principe :

Light+++

Code: Select all

t=20 ; taux d'augmentation de la lumiere
r=red(Couleur)+t :if t+r>255:r=255:endif
v=green(Couleur)+t :if t+v>255:v=255:endif
b=blue(Couleur)+t :if t+b>255:b=255:endif
Couleur=rgba(r,v,b,transparence)  ; ajoute un degres de transparence    ;; "Couleur" as light +++
;the traitment is finish
; "Couleur" as light +++


light---

Code: Select all

t=20 ; taux d'augmentation de la lumiere
r=red(Couleur)-t :if r-t<1:r=1:endif
v=green(Couleur)-t :if v-t<1:v=1:endif
b=blue(Couleur)-t :if b-t<1:b=1:endif
Couleur=rgba(r,v,b,transparence)  ; ajoute un degres de transparence   ; "Couleur" as light ---
contrast+++

Code: Select all

t=20 ; taux d'augmentation du contraste
r=red(Couleur)+t :if t+r>126:r=r+t:endif
r=red(Couleur)+t :if t+r<126:r=r-t:endif
;
v=green(Couleur)+t :if t+v>126:v=v+t:endif
v=green(Couleur)+t :if t+v<126:v=v-t:endif
;
b=blue(Couleur)+t :if t+b>126:b=b+t:endif
b=blue(Couleur)+t :if t+b<126:b=b-t:endif
if r>255:r=255:endif
if v>255:v=255:endif
if b>255:b=255:endif
Couleur=rgba(r,v,b,transparence)  ; ajoute un degres de transparence ; "Couleur" as contrast ++++

Contrast ----

Code: Select all

t=20 ; taux d'augmentation du contrast
r=red(Couleur)-t :if r-t>126:r=r-t:endif
r=red(Couleur)-t :if r-t<126:r=r+t:endif
;
v=green(Couleur)-t :if v-t>126:v=v-t:endif
v=green(Couleur)-t :if v-t<126:v=v+t:endif
;
b=blue(Couleur)-t :if b-t>126:b=b-t:endif
b=blue(Couleur)-t :if b-t<126:b=b+t:endif
if r>255:r=255:endif
if v>255:v=255:endif
if b>255:b=255:endif
Couleur=rgba(r,v,b,transparence)  ; ajoute un degres de transparence ; "Couleur" as contrast ----
grey level

Code: Select all

r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
Couleur=(r+v+b)/3
Couleur=rgba(Couleur,Couleur,Couleur,transparence) 
Case 6 ; only black
r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
Couleur=(r+v+b)/3
if Couleur<100
	Couleur=rgba(Couleur,Couleur,Couleur,transparence) 
Else
	Couleur=rgba(255,255,255,transparence)  ; ; "Couleur" as grey level
Endif
only color

Code: Select all

r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
	
if r<50 and v<50 and b<50 and r<>b and r<>v and b<>v
	Couleur=rgba(255,255,255,transparence) 
Else
	Couleur=rgba(r,v,b,transparence) 
Endif
; ; "Couleur" as color only


Only Black

Code: Select all

r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
Couleur=(r+v+b)/3
if Couleur<100
	Couleur=rgba(Couleur,Couleur,Couleur,transparence) 
Else
	Couleur=rgba(255,255,255,transparence) 
Endif
 ; "Couleur" as Black only


red +++

Code: Select all

r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
if r<235 
	Couleur=rgba(r+20,v,b,transparence)   ; r-20 for Red ----
Else
	Couleur=rgba(r,v,b,transparence) 
Endif
 ; "Couleur" as Red +++
Green ++++

Code: Select all

r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
if v<235 
	Couleur=rgba(r,v+20,b,transparence)  ; v-20 for Green ----
Else
	Couleur=rgba(r,v,b,transparence) 
Endif
; "Couleur" as Green +++
Blue ++++

Code: Select all

r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
if b<235 
	Couleur=rgba(r,v,b+20,transparence)  ; b-20 for Blue ---
Else
	Couleur=rgba(r,v,b,transparence) 
Endif
; "Couleur" as blue +++

yellow +++

Code: Select all

r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
if r<235 and v<235
	Couleur=rgba(r+20,v+20,b,transparence)  ; r-20 ,v-20 for yellow ---
Else
	Couleur=rgba(r,v,b,transparence) 
Endif
;; "Couleur" as yellow +++

to sepia

Code: Select all

r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
gris=(r+v+b)/3
r=gris-20
v=r
b=r
if r<1:r=1:endif
if v<1:v=1:endif
if b<1:b=1:endif
if r+60>254
	r=255-560
endif
if v+40>254
	v=255-40
endif
Couleur=rgba(r+60,v+40,gris,transparence)  ; couleur as Sepia
black-black

Code: Select all

Couleur=image_tab_origine(x, y)
r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)
if (r+v+b)/3 <50
	Couleur=rgba(r,v,b,transparence)  ; couleur with only black <50
endif
Negativ zone (Marvel :lol: )

Code: Select all

r=red(Couleur)
v=green(Couleur)
b=blue(Couleur)

Couleur= ~Couleur ; here couleur as negativ zone ...

;)
All times are UTC+01:00
Page 4 of 5

Powered by phpBB® Forum Software © phpBB Limited