Search this site
Embedded Files
Mon BBC SDL pas à pas
  • Accueil
  • BBC BASIC
  • BBC OS
  • BBC MODULES
  • RUBRIQUES
  • LIENS
Mon BBC SDL pas à pas
  • Accueil
  • BBC BASIC
  • BBC OS
  • BBC MODULES
  • RUBRIQUES
  • LIENS
  • More
    • Accueil
    • BBC BASIC
    • BBC OS
    • BBC MODULES
    • RUBRIQUES
    • LIENS

⇨ MENU ⇨ BIBLIOTHEQUE ⇨ imglib.bbc

PROC_imgSize()

DESCRIPTION.


La fonction PROC_imgPlot() retourne la largeur et la hauteur initiale d'une image chargée en mémoire.




SYNTAXE.


PROC_imgSize( image , largeur , hauteur )




REMARQUES.


image doit être l'identifiant de : 

- l'image créé avec l'appel de la fonction FN_imgLoad() ;

- l'image d'une animation désignée l'appel de la fonction FN_imgFrame().


largeur et hauteur doivent être les identifiants des variables qui recevront les valeur correspondantes. Si les variables identifiée par largeur et hauteur n'existent pas, elles seront crées .Si les variables identifiée par largeur et hauteur existe déjà, leur valeur seront modifiée.



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



La procédure PROC_imgSize() 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 ---

kimage = FN_imgLoad( "monimage.jpg" )

IF kimage <> 0 THEN

PROC_imgSize( kimage , klargeur , khauteur )

IF ( klargeur * 2 ) > 1200 THEN khorizontal = 1200 / ( klargeur * 2 ) ELSE khorizontal = 1

IF ( khauteur * 2 ) > 950 THEN kvertical = 950 / ( khauteur * 2 ) ELSE kvertical = 1

IF khorizontal < kvertical THEN kzoom = khorizontal ELSE kzoom = kvertical

PRINT "Zoom = "   kzoom

PROC_imgPlot( kimage , 640 , 500 , kzoom , kzoom , 0 )

ELSE 

PRINT "Le fichier image est introuvable !"

ENDIF


REM --- Fin du programme ---

PROC_imgExit

END

Votre aide est précieuse pour améliorer ce site, alors n'hésitez pas à faire part de

vos remarques, vos commentaires et de vos suggestions.

Dans la RETROGICIEL vous trouvez des suggestions simples et classiques pour

TESTER - DÉCOUVRIR - PRATIQUER - APPROFONDIR - EXPLORER

avec un exemple de résolution à télécharger pour vous inspirer.

Google Sites
Report abuse
Page details
Page updated
Google Sites
Report abuse