PureBasic

bonjour
glClear sert à nettoyer l'ecran (le tampon)
glClearcolor dit de quelle couleur nettoyer le tampon ( inutile de l'utiliser à chaque boucle , un seul appel suffit avant la boucle)

en gros ces 2 commandes corespondent avec 2D drawing à : box(0,0,longueur,hauteur , couleur)

dans ton programme ...

merci pour vos aides .

voici le programme "demo" corrigé pour la version 32bits et 64bits

c'est juste une erreur de copier-coller entre "CallFunctionFast" et "CallCFunctionFast"


IncludeFile "filtres.pbi"
UseModule filtres


;---------------------------------------------------------

#img1 = 1 ...

Jacobus , pour la version 32bits , ce n'est pas gagné , il doit me reste 2 vieux P4 , ca fait longtemps que je suis en 64bits

SPH , oui tu as raison , je vais essayer "github"

merci falsam.

pour la suite , si j'arrive a utiliser "github" , je ne devrais pas trop modifier les programmes de ce ...

le dernier

autre.pbi
; Procédure thread pour l'effet "Charcoal" sur une image ARGB 32 bits

Procedure.f RandomFloat(min.f=0.0, max.f=1.0)
ProcedureReturn min + (max - min) * Random(1000000) / 1000000.0
EndProcedure


Procedure ContrastColour(Colour,Scale.f)
; ContrastPixel(Red(Colour),Scale ...

les "fx"

fx.pbi

Procedure Diffuse_MT(*p.parametre)
Protected i, x, y, px, py, a, b, var, alpha
Protected lg = *p\lg
Protected ht = *p\ht
Protected opt = *p\option[0]
Protected totalPixels = lg * ht
Protected *srcPixel.Pixel32
Protected *dstPixel.Pixel32
Protected *mask = *p\mask

; Clamp ...

les filtres "mix"

mix l'image 1 avec l'image 2

mix.bpi

Macro Filtre_entete_mix(nom)
If param\info_active
param\typ = #Filter_Type_mix
param\name = nom
param\remarque = ""
param\info[0] = "invert image"
param\info[1] = "neg image 1"
param\info[2] = "neg image 2"
param\info[3 ...

les filtres "deform"

deform.pbi
Procedure Ellipse_MT(*p.parametre)
Protected start, stop
Protected *source = *p\addr[0]
Protected *cible = *p\addr[1]
Protected lg = *p\lg
Protected ht = *p\ht

Protected cx.f = (*p\option[1] * lg) / 100
Protected cy.f = (*p\option[2] * ht) / 100
Protected ...

les filtres "couleur"

couleur.pbi

Procedure Balance_MT(*p.parametre)
Protected i, pixel.l, a.l, r.l, g.l, b.l
Protected factorR = *p\option[0]
Protected factorG = *p\option[1]
Protected factorB = *p\option[2]
Protected totalPixels = *p\lg * *p\ht
Protected *srcPixel.Pixel32
Protected ...

oui , le programme n'est pas du tout intuitif , à la base je ne modifiais qu'une image , puis de nouvelles options ont ete ajoutees, je me suis concentré sur les filtres , pas sur la programme.
ce n'est qu'une demo,elle ne me sert que pour pour tester les filtres.( je prefere travailler avec l'image ...

bonjour ,
je n'ai pas testé mon programme en 32bits , seulement en 64bits.
je regarde ca.

reduction de couleur type dither

dither.pbi
; ------------------------------------------------------------------------------
; Macro : Atkinson_sp
; Description :
; Diffuse l’erreur de quantification vers un pixel voisin,
; selon la matrice d'Atkinson (diviseur 8).
; Paramètres :
; mul ...

les detections de contour

edge_detection.pbi

Macro edge_detection_decalre()
Protected *source = *param\addr[0]
Protected *cible = *param\addr[1]
Protected lg = *param\lg
Protected ht = *param\ht
Protected mul.f = *param\option[0]
Protected toGray = *param\option[2]
Protected inverse ...

les filtres "blur" partie 2

blur.pbi

;----------------

Procedure blur_box_create_limit(lg, ht, rx, ry, loop)
Protected i, ii, e
clamp(rx, 1, 100)
clamp(ry, 1, 100)
Protected dx = lg - 1
Protected dy = ht - 1
If rx > dx : rx = dx : EndIf
If ry > dy : ry = dy : EndIf
Protected nrx = rx + 1 ...

le fichier est trop long

les filtres "blur" partie 1

blur.pbi

Macro Bilateral_DomainTransform1D_declare(length)
Protected *buf = param\addr[0] ; pointeur vers l'image source
Protected *temp = param\addr[1] ; pointeur vers le buffer temporaire
Protected *expLUT = param\addr[2] ; pointeur vers ...

la demo



IncludeFile "filtres.pbi"
UseModule filtres


;---------------------------------------------------------

#img1 = 1
#img2 = 2
#img3 = 3
#save = 4
#save2 = 5
#quit = 6
#mask_e = 7
#mask_d = 8
#mask_n = 9
#copy1 = 10
#copy2 = 11
#copy3 = 12

#source1 = 1
#source2 = 2
#mask = 3
#miniature ...