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
» Mais qui a le focus ?
par Klaus Aujourd'hui à 11:48

» Mac OS X sierra
par Irikte Aujourd'hui à 11:38

» Concours de Morpions
par Froggy One Aujourd'hui à 10:29

» Synedit Parameters
par Jean Claude Aujourd'hui à 10:08

» Bienvenue à Irikte
par UltraVox Aujourd'hui à 10:04

» Recherche de traductions de mots (@Klaus).
par Klaus Aujourd'hui à 9:44

» Version instantanée V 0.9.28i10 du 24/06/2017
par Yannick Hier à 22:52

» Panoramic et ses curiosités
par Jack Hier à 8:15

» Utilitaire de suppression de fichiers
par Yannick Ven 23 Juin 2017 - 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Incrustation d'image

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



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

MessageSujet: Incrustation d'image   Mar 6 Mai 2014 - 19: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 : 4937
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Incrustation d'image   Mar 6 Mai 2014 - 19: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 : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Incrustation d'image   Mar 6 Mai 2014 - 21: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 : 64
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: Incrustation d'image   Mar 6 Mai 2014 - 23: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
Voir le sujet précédent Voir le sujet suivant 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 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: