Objet PICTURE

Bonjour,

Quelques idées concernant l'objet PICTURE:

1- imaginons une application avec un objet picture de 640x400 comme zone de travail.
Si je charge dedans une image qui fasse 1280x800 px, il serait intéressant d'avoir la possibilité de pouvoir activer les ascenseurs verticaux et horizontaux.
En gros avoir la possibilité de faire un BAR_BOTH sur un objet picture et de pouvoir visualiser le contenu de l'image en fonction de la position des ascenseurs...

2- De la même manière:
Avoir la possibilité de faire un ZOOM_FACTOR sur un picture.
Dans l'exemple précédent mon image ne rentre pas entierement dans le picture, elle fait le double.
Si je voulais afficher la totalité de l'image dans mon picture 1, j'appliquerai un "ZOOM_FACTOR 1, 0.5"

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

Salut Nardo,
Pour avoir la totalité de l'image quelles que soient ses dimensions, il y a STRETCH_ON, mais évidemment les ascenseurs ce serait bien pratique.
Sans parler du zoom variable...

Et il faut connaître les dimensions de l'image pour dimensionner le picture en conséquence (cas du stretch_on), pour que l'image ne soit pas déformée.

Salut JL35 ! Very Happy

Tu as tout à fait raison, c'est pour cela que je suis en train de déterrer un vieux post (voir ici) ! Wink

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

Effectivement, j'en avais un peu bavé là-dessus, et ce traitre de jjn4 en fouillant dans ses archives antédiluviennes avait fini par me trouver une image pour laquelle ça ne marchait pas (ça devait être un daguerréotype).
Pour les images en bmp c'est ultra simple, et pour les jpg je me sers couramment du s/p suivant, sans problème (jjn4, regarde ailleurs !), qui marche pour moi dans 100% des cas (c'est du Panoramic pur, sans ajout d'ingrédients externes, sinon il y a d'autres solutions en dll, vbs etc.):

Code:: Dimima:
' Recherche des dimensions en pixels (largeur et hauteur) d'une image f$
' aux formats Jpg ou Bmp, rendues dans wi% et hi% (erreur si er$ <> "")
er$ = "": a$ = UPPER$(FILE_EXTRACT_EXTENSION$(f$))
IF a$ <>".JPG" AND a$ <> ".BMP" THEN er$ = "Format incorrect": RETURN
DIM v%(20), ii%, offs%, posit%, ad, sz
IF LABEL("reter") = 0 THEN LABEL reter
FILEBIN_OPEN_READ 1, f$: sz = FILEBIN_SIZE(1)
IF a$ = ".JPG"
FOR ii% = 1 TO 2: FILEBIN_READ 1, v%(ii%): NEXT ii%
IF v%(1) <> 255 OR v%(2) <> 216 THEN er$ = "en-tête non FFD8.": GOTO reter
ad = 0: offs% = 0
REPEAT
REPEAT
posit% = ad + 2 + offs%
IF posit% >= sz THEN er$ = "FFCx non trouvé.": GOTO reter
FILEBIN_POSITION 1, posit%
FOR i% = 1 TO 4: FILEBIN_READ 1, v%(i%): NEXT i%
IF v%(1) <> 255 THEN er$ = "Chaînage incorrect": GOTO reter
offs% = 256*v%(3) + v%(4)
ad = FILEBIN_POS(1) - 4
UNTIL (v%(2) >= 192 AND v%(2) <= 195): ' # FFC0 à FFC3
FOR ii% = 1 TO 5: FILEBIN_READ 1, v%(ii%): NEXT ii%
UNTIL v%(1) = 8
hi% = 256*v%(2) + v%(3): wi% = 256*v%(4) + v%(5)
ELSE
FILEBIN_POSITION 1, 18
FOR ii% = 1 TO 8: FILEBIN_READ 1, v%(ii%): NEXT ii%
wi% = v%(1) + 256*v%(2) + 256*256*v%(3) + 256*256*256*v%(4)
hi% = v%(5) + 256*v%(6) + 256*256*v%(7) + 256*256*256*v%(8)
END_IF
reter:
FILEBIN_CLOSE 1
FREE v%: FREE ii%: FREE offs%: FREE posit%: FREE ad: FREE sz
RETURN

Je vois que tu l'as remis au gout du jour... Wink

(on est 2 à l'avoir fait !... Very Happy

)

Quand au strech_on je ne sais plus exactement pour qu'elle raison, mais je me suis fait piégé une fois avec et depuis je préfère m'en passer car c'est ce que j'appelle un "faux ami"...

De mémoire : interaction avec d'autres fonctions -> ça strech pas le contenu mais le contenant...

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

?
Je ne crois pas avoir eu de problème particulier avec le stretch_on, sauf qu'il faut refaire le File_Load à chaque fois si on redimensionne, exemple de zoom (arrière):

Code:: LABEL Dimima
DIM f$, wp%, wi%, hi%, er$, a$
f$ = "C:\Graph\Jpg\Goldgate.jpg": ' image quelconque
GOSUB Dimima

PICTURE 1: STRETCH_ON 1
FOR wp% = 640 TO 64 STEP -10
WIDTH 1,wp%: HEIGHT 1, wp%*hi%/wi%: FILE_LOAD 1, f$
WAIT 20
NEXT wp%
END

Dimima:
' Recherche des dimensions en pixels (largeur et hauteur) d'une image f$
' aux formats Jpg ou Bmp, rendues dans wi% et hi% (erreur si er$ <> "")
er$ = "": a$ = UPPER$(FILE_EXTRACT_EXTENSION$(f$))
IF a$ <>".JPG" AND a$ <> ".BMP" THEN er$ = "Format incorrect": RETURN
DIM vi%(20), ii%, offs%, posit%, adi, szi
IF LABEL("reter") = 0 THEN LABEL reter
FILEBIN_OPEN_READ 1, f$: szi = FILEBIN_SIZE(1)
IF a$ = ".JPG"
FOR ii% = 1 TO 2: FILEBIN_READ 1, vi%(ii%): NEXT ii%
IF vi%(1) <> 255 OR vi%(2) <> 216 THEN er$ = "en-tête non FFD8.": GOTO reter
adi = 0: offs% = 0
REPEAT
REPEAT
posit% = adi + 2 + offs%
IF posit% >= szi THEN er$ = "FFCx non trouvé.": GOTO reter
FILEBIN_POSITION 1, posit%
FOR ii% = 1 TO 4: FILEBIN_READ 1, vi%(ii%): NEXT ii%
IF vi%(1) <> 255 THEN er$ = "Chaînage incorrect": GOTO reter
offs% = 256*vi%(3) + vi%(4)
adi = FILEBIN_POS(1) - 4
UNTIL (vi%(2) >= 192 AND vi%(2) <= 195): ' # FFC0 à FFC3
FOR ii% = 1 TO 5: FILEBIN_READ 1, vi%(ii%): NEXT ii%
UNTIL vi%(1) = 8
hi% = 256*vi%(2) + vi%(3): wi% = 256*vi%(4) + vi%(5)
ELSE
FILEBIN_POSITION 1, 18
FOR ii% = 1 TO 8: FILEBIN_READ 1, vi%(ii%): NEXT ii%
wi% = vi%(1) + 256*vi%(2) + 256*256*vi%(3) + 256*256*256*vi%(4)
hi% = vi%(5) + 256*vi%(6) + 256*256*vi%(7) + 256*256*256*vi%(8)
END_IF
reter:
FILEBIN_CLOSE 1
FREE vi%: FREE ii%: FREE offs%: FREE posit%: FREE adi: FREE szi
RETURN

Je me souviens que tu t'étais penché là-dessus toi aussi...

Pour te donner une idée :
rajoute ces 2 lignes dans ta boucle:

Code:: 2D_TARGET_IS 1
2D_RECTANGLE 10,10,WIDTH(1)/2,HEIGHT(1)/2

Pour maniper après sur ton image, il te faut connaitre le ratio de réduction du STRECH_ON et ensuite appliquer ce même ratio sur toutes les commandes 2D que tu fais par la suite...
C'est pas une nouveauté, tel que STRETCH_ON est défini, c'est un fonctionnement normal mais à l'utilisation, ce n'est pas pratique...
du coup je n'utilise jamais cette commande...

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

Ça je le savais, effectivement comme tu dis il faut connaître le ratio et l'appliquer à toutes les commandes 2D. J'ai publié quelque part ici un programme avec un traitement d'image sur laquelle on peut appliquer une grille repère, et pour tracer la grille il faut appliquer le ratio.
Certes c'est un peu acrobatique, mais bon, on y arrive, le ratio c'est toi qui le fixes (toujours connaissant les dimensions de l'image, et du picture, évidemment)...

Et si tu as une grande image stretchée, il faut varier la largeur des tracés en fonction du ratio, sinon une ligne d'1 pixel par exemple sera invisible (compressée comme l'image).

Mon idée concernant le "ZOOM_FACTOR" serait que cette commande soit une sorte de strech_on paramétrable...
c'est l'utilisateur qui défini le ratio...
mais cela ne trouverait un intérêt que si, on puisse déplacer le contenu du picture avec des ascenseurs...

Bon, ce n'est qu'une idée,
j'aurais certainement du la mettre dans "bavardage"... pour éviter les levés de bouclier qui risquent de ne pas tarder à venir Wink

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

Ben non, cette idée a tout à fait sa place ici, c'est fait pour ça.
Et je confirme que les ascenseurs dans un picture ce serait bien pratique.
Mais bon, je ne suis pas sûr que ça va figurer dans les priorités de Jack...

Sauf erreur de ma part la DLL de Klaus permet de redimensionner une image.
A vérifier, mais je crois bien avoir lu ça, si ma mémoire ne me joue pas de tours...

Il me semble si ma mémoire est bonne avoir eu le pb suivant avec le stretch_on,

déclaration d'un picture N de type rectangulaire style (120x80) ou inversement,
chargement d'une image de dimensions carrés style (40x40)
le stretch_on étire mon image jusqu'aux limites du picture et affraid

déforme l'image...

la méthode de récup des dimensions d'une image tout panoramic, je ne connais que celle de Klaus
mais bon faut une image qui soit plus petite que le picture.

Sinon...
...a vos dll s !...prêt !, partez !!!!!

Je crois que vous allez tous finir par en revenir
à ma demande sur les dimensions d'une image.... Laughing

@Jicehel:
Oui, ma DLL a une fonction qui permet de redimensionner une image contenue dans le presse-papier. Et d'en connaître aussi les dimensions exactes.

Il suffit de charger une image dans un objet IMAGE (donc sans visualisation) par FILE_LOAD, puis de la copier dans le presse-papier par CLIPBOARD_COPY. Tu peux ensuite obtenir les dimensions exactes de cette image dans le presse-papier, calculer les nouvelles dimensions, puis la redimensionner dans le presse-papier. Ensuite, tu la récupères par CLIPBOARD_PASTE dans un IMAGE ou un PICTURE, puis tu continues normalement.

Ces fonctions sont dans la rubrique gestion d'image, et sont:
ResizePicture redimensionner l'image du presse-papier
GetClipboardPictureWidth retourner la largeureur de l'image dans le presse-papier
GetClipboardPictureHeight retourner la hauteur de l'image dans le presse-papier

C'est très simple à utiliser.

Un petit lien pour ceux qui saurait faire une dll à partir de çà : lienen VB ou celui là lien java

@ Klaus,

le problème de "Image N", c'est qu'il n'accepte que les *.bmp et pas les *.jpg

edit : un lien pour toi Laughing

ici et ici moi j'ai du mal à savoir de quoi qu' il parle... Laughing

Je vais voir ce que je peux faire avec ce lien. Merci.

En attendant, au lieu d'utiliser un IMAGE, tu peux de la même manière utiliser un PICTURE que tu as caché par HIDE - et tu as accès aux JPG...

Jicehel a écrit:: Sauf erreur de ma part la DLL de Klaus permet de redimensionner une image.
A vérifier, mais je crois bien avoir lu ça, si ma mémoire ne me joue pas de tours...

Oui mais je crois que le redimensionnement est "destructif"...
je ne sais pas qu'elle méthode emploi Klaus (bilineaire/bicubique/lanczos/...) mais dans tous les cas, il y perte d'info lors d'un redimensionnement (ordre : reduction + augmentation) de l'image.
Je ne crache pas sur cette solution car elle a le mérite d'exister (merci Klaus !) mais je trouve que les possibilités des objets PICTURES ne sont pas exploitées à fond en Panoramic...
Imagine que tu veux t'amuser à faire un petit editeur d'image... ça va être chaud !!! Wink

(c'est un exemple, je serai dingue de faire un truc pareil alors qu'il existe GIMP)

Tu vas travailler avec un IMAGE et un PICTURE dans lequel tu vas recopier des portions d'image + toutes les manips avec le CLIPBOARD pour effectuer toutes ces opérations...

Euh... je l'ai fait avec ma chaîne de traitement d'images. Ca vaut ce que ça vaut, mais pour construire des illustrations, des fonds d'écran pour des jeux, même pour placer des bulles d'info ou des clip-art dans de vraies photos - tout ça peut avoir son intérêt.

Attention Klaus,
Je ne dénigre pas ton boulot, loin de là ! Smile

Ce que je veux dire, c'est qu'actuellement afficher une image dans une fenêtre tout en conservant sa taille d'origine relève de l'exploit...
Wink

Exact. Il y a pourtant une solution:
1. obtenir les dimensions réelles de l'image, par un moyen quelconque (comme via mes fonctions DLL)
2. dimensionner un picture aux bonnes dimensions ==> des ascenseurs apparaissent , mais on les IGNORE !
3. charger l'image dans l'objet image ==> on ne voir forcément qu'une partie et c'est normal
4. déclarer 2 objets scroll_bar, un vertical, un horizontal, placés le long des bords de la form, de sorte qu'ils soient entièrement visibles SANS utiliser les ascenseurs de la form
5. établir MIN des deux scroll_bar à 0
6. établir MAX de la scroll_bar verticale à hauteur de l'image - hauteur visible de la form
7. établie MAX de la scroll_bar horizontale à la largeur de l'image - largeur visible de la form
8. établir les deus POSITION à 0
9. faire un ON_CHANGE sur la barre verticale qui fait TOP image,0-position(scroll_bar_verticale)
10. faire un ON_CHANGE sur la barre horizontale qui fait LEFT image,0-position(scroll_bar_horizontale)

Et voilà - on peut scroller la grande image, sans perturber la position des autres objets de la form !

@ Klaus,

Je suis un peu en retard, j'avais le cerveau occupé par une nouvelle idée d'application.
Tu me dis que l'on peut passer par un picture à la place de Image N, oui ! mais on en revient
à ta solution du picture géant et de la zonne noire à mesurer pour calculer la dimension.

ce que je trouve "un ptit peu bete", c'est que ces dimensions sont affichés dans la fenêtre de
l'explorateur windows quand on sélectionne une image de la fenêtre.
Il doit bien y avoir un moyen de les récupérer sans faire un prog de 15 pages...
(je suis du sud, je vois toujours très grand Laughing

)

ma volonté de récupérer ces dimensions est justement de pouvoir créer un picture
aux dimensions de l'image sans l'altérer.

J'ai pris le lien sur ton post de 18h42 et je vais en faire une fonction dans KGF.dll. Patience... c'est en cours.

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

Sinon Ygeronimi regarde mon petit s/p plus haut (Dimima), pur panoramic, ça marche pour bmp et jpg.

Comme promis, la fonction est dans KGF.dll, et la doc est à jour (groupe de gestion des images).

Voici comment on s'en sert (exemple présent dans la doc):

Code:: ' test_AnalyzeJPG.bas
dim jpg$, larg%, haut%, res%
dll_on "KGF.dll"

open_dialog 1
jpg$ = file_name$(1)
if jpg$="_" then terminate
res% = dll_call3("AnalyzeJPG",adr(jpg$),adr(larg%),adr(haut%))
if res%=1
message "erreur"
else
message "Largeur: "+str$(larg%)+" Hauteur: "+str$(haut%)
end_if
dll_off
terminate

» probleme d'affichage avec l'objet picture
» bizarrerie avec mark_off sur click d'un objet picture
» Détermine si oui ou non un objet est PARENT d'un autre objet
» Version instantanée du 17 juillet 2011: PANORAMIC V 0.9.22i1
» Objet Tab ( détacher un objet )