Barbouille (Pure_autoPaint)

[RSBasic]

Can you download here?
Barbouille: http://www.rsbasic.de/backupprogramme/Barbouille.zip
Pure Auto paint: http://www.rsbasic.de/backupprogramme/P ... opaint.zip

[marc_256]

Thanks RSBasic

marc

[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!

[davido]

@dobro,
Very nice. Thank you.

[dobro]

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



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/

[marc_256]

Hi dobro,

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

marc,

[dobro]

version 1.12 (same link )
improvement, style, "Van Gogh"



by Barbouille :


Certainly, I am still far from the results with dynamic auto painter

but I will see, the shape of my brushes, for this particular style

[Tenaja]

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.

[dobro]

So, bitdefender, is not a Anti-virus, but an anti-ALL


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

[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 )


only Brosse 9


Crayon


Crayon Grey level


Flocon


"Impressionism"


"van goght"


Vermicelles


vieille


"pop art"


"aquarelle"

[blueb]

Thanks Dobro, very slick.

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

[dobro]

if you become rich with, think of me

[walbus]

Very nice !

[kvitaliy]

Thanks Dobro!
Can you share the source EDGE Cederavic, Ligt++, Ligt--, Contrast etc?
Please!!!

[dobro]

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 )

Code: Select all

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

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