Differenze tra le versioni di "Sfumare radialmente un'immagine mediante le funzioni esterne del API di ImageMagick"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
Il sistema ''ImageMagick'' consente di creare, modificare e convertire immagini bitmap. Può altresì leggere e scrivere immagini di oltre 200 formati. | Il sistema ''ImageMagick'' consente di creare, modificare e convertire immagini bitmap. Può altresì leggere e scrivere immagini di oltre 200 formati. | ||
| − | Per poter fruire in Gambas delle risorse, è necessario avere installata nel sistema e richiamare la seguente libreria condivisa: "''libMagickWand-6.Q16.so. | + | Per poter fruire in Gambas delle risorse, è necessario avere installata nel sistema e richiamare la seguente libreria condivisa: "''libMagickWand-6.Q16.so.6.0.0'' ". |
| Riga 7: | Riga 7: | ||
Mostriamo un esempio pratico: | Mostriamo un esempio pratico: | ||
| − | Library "libMagickWand-6.Q16: | + | Library "libMagickWand-6.Q16:6.0.0" |
Private Enum MagickFalse = 0, MagickTrue | Private Enum MagickFalse = 0, MagickTrue | ||
| Riga 42: | Riga 42: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| − | + | Dim bo As Boolean | |
| − | + | Dim magickwand As Pointer | |
| − | + | Dim fileimmagine, nuovofile As String | |
| − | + | ||
fileimmagine = "<FONT Color=gray>''/percorso/del/file/immagine''</font>" | fileimmagine = "<FONT Color=gray>''/percorso/del/file/immagine''</font>" | ||
nuovofile = "<FONT Color=gray>''/percorso/del/nuovo/file/dell'immagine/spostata''</font>" | nuovofile = "<FONT Color=gray>''/percorso/del/nuovo/file/dell'immagine/spostata''</font>" | ||
| Riga 71: | Riga 71: | ||
'''End''' | '''End''' | ||
| − | |||
'''Private''' Procedure Termina(mw As Pointer) <FONT Color=gray>' ''Libera la memoria e termina il programma''</font> | '''Private''' Procedure Termina(mw As Pointer) <FONT Color=gray>' ''Libera la memoria e termina il programma''</font> | ||
| Riga 80: | Riga 79: | ||
'''End''' | '''End''' | ||
| − | |||
Versione delle 19:02, 22 feb 2022
Il sistema ImageMagick consente di creare, modificare e convertire immagini bitmap. Può altresì leggere e scrivere immagini di oltre 200 formati.
Per poter fruire in Gambas delle risorse, è necessario avere installata nel sistema e richiamare la seguente libreria condivisa: "libMagickWand-6.Q16.so.6.0.0 ".
Le risorse di questa libreria ci consentono - fra l'altro - di sfumare un'immagine con un effetto vortice.
Mostriamo un esempio pratico:
Library "libMagickWand-6.Q16:6.0.0"
Private Enum MagickFalse = 0, MagickTrue
' void MagickWandGenesis(void)
' Initializes the MagickWand environment.
Private Extern MagickWandGenesis()
' MagickWand *NewMagickWand(void)
' Returns a wand required for all other methods in the API.
Private Extern NewMagickWand() As Pointer
' MagickBooleanType MagickReadImage(MagickWand *wand,const char *filename)
' Reads an image or image sequence.
Private Extern MagickReadImage(wand As Pointer, filename As String) As Boolean
' MagickBooleanType MagickRadialBlurImage(MagickWand *wand, const double angle)
' Blurs an image.
Private Extern MagickRadialBlurImage(wand As Pointer, blur As Float)
' MagickBooleanType MagickWriteImages(MagickWand *wand, const char *filename,const MagickBooleanType adjoin)
' Writes an image or image sequence.
Private Extern MagickWriteImages(wand As Pointer, filename As String, adjoin As Boolean) As Boolean
' MagickWand *DestroyMagickWand(MagickWand *wand)
' Deallocates memory associated with an MagickWand.
Private Extern DestroyMagickWand(wand As Pointer) As Pointer
' void MagickWandTerminus(void)
' Terminates the MagickWand environment.
Private Extern MagickWandTerminus()
Public Sub Main()
Dim bo As Boolean
Dim magickwand As Pointer
Dim fileimmagine, nuovofile As String
fileimmagine = "/percorso/del/file/immagine"
nuovofile = "/percorso/del/nuovo/file/dell'immagine/spostata"
MagickWandGenesis()
magickwand = NewMagickWand()
bo = MagickReadImage(magickwand, fileimmagine)
If bo = MagickFalse Then
Termina(magickwand, pw)
Error.Raise("Impossibile caricare l'immagine !")
Endif
' Modifica l'immagine con l'effetto sfumato con vortice:
MagickRadialBlurImage(magick_wand, 50.0)
bo = MagickWriteImages(magickwand, nuovofile, MagickTrue)
If bo = MagickFalse Then
Termina(magickwand, pw)
Error.Raise("Impossibile creare il nuovo file dell'immagine sfumata !")
Endif
Termina(magickwand, pw)
End
Private Procedure Termina(mw As Pointer) ' Libera la memoria e termina il programma
DestroyMagickWand(mw)
Wait 0.01
MagickWandTerminus()
End
