Flood fill KO
Bon, j'ai réussi à faire marcher le floodfill grâce aux bons conseil de KLAUS.
Le problème, qui était déjà annoncé dans le post, c'est le problème de mémoire.
(et de lenteur).
Une petite question : les programmes compilés sont-ils plus rapide que les programmes en debug?
Je n'ai pas encore fait l'investissement de la version et donc pas fait de test sur PPC (asus 730 et Asus 620BT).
Une question : est-ce que l'on peu changer la largeur du pinceau.
CF le permet à priori. Comment peut-on faire avec Basic4PPC?
Un grand merci à KLAUS pour son aide.
Sub floodFill(xi,yi,colfil,colpix)
'Fill the selected area
If xi < 0 OR xi >= maxsize-1 Then Return
If yi < 0 OR yi >= maxsize-1 Then Return
If colfil = colpix Then Return 'avoid endless loop
' call the library to do the fill and save the result
Image1.image = flood.Fill(Image1.Image, xi, yi, colfil, colpix)
End Sub
appel de la routine
drw1.DrawLine(pen1.Value,londeb+dlon,latdeb-dlat,lonact+dlon,latact-dlat) '// 2
'essai de floodfill
If A1>1 Then
colorback =image1.Color
floodFill(londeb-8,latdeb-8,cred,colorback)
End If
image1.Refresh
A1=A1+1
'positionnement de la fenetre sur le milieu de l'affichage
|