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
» A propos des attributs de fichier
par Oscaribout Aujourd'hui à 1:53

» Problème de math
par Marc37 Hier à 23:04

» Problème de math
par braveen Hier à 21:40

» I Love You
par papydall Hier à 19:22

» Un petit "coucou" à tous les Panoramiciens !
par mindstorm Hier à 17:06

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Incrustation d'image

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



Nombre de messages : 5953
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 : 5040
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 : 5953
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 : 65
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 :: Vos sources, vos utilitaires à partager-
Sauter vers: