FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Reprise du développement et de la documentation
par Yannick Aujourd'hui à 1:23

» Une copie de Panoramic Editeur
par Jean Claude Hier à 21:03

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Hier à 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

» Est-ce qu'un fichier est inclus dans l'application ?
par Yannick Mar 15 Mai 2018 - 12:04

» Création d'une application avec Panoramic_Editor
par Klaus Mar 15 Mai 2018 - 0:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Incrustation d'image

Aller en bas 
AuteurMessage
JL35



Nombre de messages : 6257
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Incrustation d'image   Mar 6 Mai 2014 - 18:04

Une toute petite sub sans prétention, pour incruster une image f2$ dans une autre f1$, à un endroit donné de l'image réceptrice f1$.
- les deux fichiers image doivent être au format Jpg ou Bmp, rectangulaires (ou carrées  Very Happy )
- Si l'image incrustée déborde de l'image réceptrice, la partie débordante est perdue.
- L'image résultante est rendue dans le presse-papier, à sauvegarder éventuellement dans un fichier.
Le tout est en pur Panoramic:
Code:
SUB Incruste(f1$,f2$,x%,y%)
' Incrustation de l'image f1$ dans l'image f2$, en x%,y% de f1$.
' f1$ et f2$ sont au format BMP ou JPG. Si l'image incrustée déborde de l'image
' de base, la partie débordante est perdue.
' ***** L'image résultante est rendue dans le presse-papier. *****
DIM_LOCAL a$,i%,w%,h%,p%,p1%,p2%,v%(8),fm$
fm$ = "Z:\Imgtmp.bmp": ' <-- temporaire éventuelle, à ajuster
p% = 2000: WHILE OBJECT_EXISTS(p%)=1: p%=p%+1: END_WHILE
PICTURE p%: LEFT p%,-4000
IF UPPER$(FILE_EXTRACT_EXTENSION$(f1$)) = ".JPG"
    FILE_LOAD p%,f1$: FILE_SAVE p%,fm$: f1$ = fm$
END_IF
FILEBIN_OPEN_READ 9,f1$
    FILEBIN_POSITION 9,18: FILEBIN_BLOCK_READ 9,8,v%(0)
    w% = v%(0)+256*v%(1)+65536*v%(2)+16777216*v%(3): ' dimensions de l'image réceptrice
    h% = v%(4)+256*v%(5)+65536*v%(6)+16777216*v%(7)
FILEBIN_CLOSE 9
WIDTH p%,w%: HEIGHT p%,h%
FILE_LOAD p%,f1$
p1% = p%+1: WHILE OBJECT_EXISTS(p1%)=1: p1%=p1%+1: END_WHILE
IMAGE p1%
IF UPPER$(FILE_EXTRACT_EXTENSION$(f2$)) = ".JPG"
    p2% = p1%+1: WHILE OBJECT_EXISTS(p2%)=1: p2%=p2%+1: END_WHILE
    PICTURE p2%: LEFT p2%,-4000: FILE_LOAD p2%,f2$
    FILE_SAVE p2%,fm$: f2$ = fm$
END_IF
FILE_LOAD p1%,f2$: 2D_TARGET_IS p%: 2D_IMAGE_PASTE p1%,x%,y%
CLIPBOARD_COPY p%
2D_TARGET_IS 0: DELETE p%: DELETE p1%
IF OBJECT_EXISTS(p2%) = 1 THEN DELETE p2%
IF FILE_EXISTS(fm$) = 1 THEN FILE_DELETE fm$
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5359
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Incrustation d'image   Mar 6 Mai 2014 - 18:30

Pour les amateurs de photos, ça peut être intéressant.
Ou pour des jeux. Je vais tester.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6257
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Incrustation d'image   Mar 6 Mai 2014 - 20:58

Bonsoir Jean Claude,
Il y a sûrement des applications intéressantes, à voir...
Pour le fichier temporaire fm$, il vaut mieux mettre "C:\TEMP\..." c'est plus universel que mon Z:\...
(et s'il y a des questions, ça m'étonnerait quand même, dépêchez-vous, demain dès l'aube je prends la tangente pour 8 jours...  Very Happy )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: Incrustation d'image   Mar 6 Mai 2014 - 22:49

salut
j'ai ce message d'erreur
file already used pour la ligne
FILEBIN_OPEN_READ 9,f1$
vers la ligne 16
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
Contenu sponsorisé




MessageSujet: Re: Incrustation d'image   

Revenir en haut Aller en bas
 
Incrustation d'image
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» roll-over, zone réactive, image et son
» [résolu] Lien dans image survolée vers page html
» agrandir reduire une image en son centre
» Changement d'une image de fond
» Image défilante

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: