DESCRIPTION.

La fonction FN_imgLoadAnimatedGIF() charge une animation depuis un fichier .gif en mémoire et retourne un pointeur pour sa localisation.

SYNTAXE.

kanimation = FN_imgLoadAnimatedGIF( fichier )

REMARQUES.

fichier doit être le nom d'un fichier d'animation au format .gif. L'emplacement de fichier peut être exprimé de façon relative ou absolue. Si le fichier comprend un canal alpha, coulmeur de transparence, celui-ci sera pris en compte lors de l'affichage de l'image. 

L'appel de la fonction FN_imgLoadAnimatedGIF() retourne une valeur numérique qui devra affecter une variable, indiquant par un pointeur l'emplacement de l'animation dans la mémoire. 

Note : Si la valeur retournée par la  fonction FN_imgLoadAnimatedGIF() est 0, zéro, cela indique que fichier n'a pas pu être ouvert. Il est donc important de controler cette valeur juste après l'appel de la fonction FN_imgLoadAnimatedGIF() afin de s'assurer que le programme ne cherche pas a afficher une image non chargée.

Rappel : la procédure PROC_imgInit devra toujours être appelée avant tout autre fonction ou procédure de imglib.bbc.

La fonction FN_imgLoadAnimatedGIF() est importée depuis le module imglib.bbc. 

RUBRIQUES.

Les dessins et les graphismes pour plus de détails sur la création de dessins et de graphismes.

La gestion des couleurs pour plus de détails sur la gestion des couleurs logiques et physiques.

EXEMPLE.

REM --- Importation des modules ---

REM --- Module de la bibliothèque BBC BASIC ---

INSTALL @lib$ + "imglib.bbc"

REM --- INITIALISATION GENERALE ---

PROC_imgInit

MODE 8

REM --- chargement des images ---

kanimation = FN_imgLoadAnimatedGIF( "monimage.gif" )

IF kanimation <> 0 THEN PROC_Afficher( kanimation ) ELSE PRINT "Le fichier animation est introuvable !"

REM --- Fin du programme ---

PROC_imgExit

END

REM --- Affichage avec zoom ---

DEF PROC_Afficher( Q )

PRINT "Appuyer sur Q pour quitter ... "

kimage = 0

REPEAT

kduree = FN_imgFrame( Q , kimage )

IF kduree <> 0 THEN kimage = kimage + 1 ELSE kimage = 0

PRINT TAB( 0 , 3 ) "Image : " ; kimage

PROC_imgPlot( Q , 640 , 500 , 1 , 1 , 0 )

ktouche$ = INKEY$( 10 )

UNTIL ktouche$ = "Q" OR ktouche$ = "q"

ENDPROC