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
» Button_picture
par pascal10000 Aujourd'hui à 11:41

» Pourquoi le compilateur stagne
par Minibug Aujourd'hui à 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Aujourd'hui à 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Aujourd'hui à 10:03

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Marc Aujourd'hui à 10:00

» KGF_dll - nouvelles versions
par pascal10000 Hier à 17:27

» Mah-Jong européen new-look
par Minibug Mar 12 Déc 2017 - 22:31

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Incrustation d'image

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



Nombre de messages : 6018
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 : 5086
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 : 6018
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: