separer une mage couleur

L'utilisation et la création des scripts.
Répondre
JL Penninckx
Messages : 127
Enregistré le : 31 août 2017, 08:36

separer une mage couleur

Message par JL Penninckx »

salut,

C'est mon premier script, et pour mes besoins j'ai besoins de séparer la couche verte des images APN que j'ai et de sauvegarder cette image.

je but sur la partie de sauvegarde qui refuse obstinement de fonctionner.
(jai besoin de sauvegarder une image verte avec un indice-i pour pouvoir les réutiliser ensuite sous PRISM)

comment dois-je faire? merci d'avance ce votre aide.


Resetdlgbox
TypeFileList=7
adddlgbox TypeFileList " fichier couleur a traiter"

dispdlgbox ModalResult

if (ModalResult=1)

getdlgbox ListeFile$ NbFile

// split des images couleurs
for i=1 NbFile
// j'ouvre l'image
open img ListeFile$
//je separe les plan couleurs
SPLIT_COLOR_IMG img imgR imgV imgB
//je ferme ce qui ne me sert a rien...
close imgR
close imgB
//je sauvegarde dans mon dossier
SaveCPA imgV C:\Users\pinx7\Desktop"ESSAIS.CPA"
//je ferme la derniere image.
close imgV

close imgV
next i



au fait y a t'il moyen de faire plus rapidement sans ouvrir les images ?
JL Penninckx
Messages : 127
Enregistré le : 31 août 2017, 08:36

Re: separer une mage couleur

Message par JL Penninckx »

euh... je crois que j'ai reussi: :lol: :lol: :lol:

j'ai remplacé ma ligne de sauvegarde par cela:


STR I I$
chemin$="C:\Users\pinx7\Desktop\AA\ESSAIS-"+i$+".CPA"
SaveCPA imgV chemin$
Marc DELDEM
Messages : 1264
Enregistré le : 20 juin 2009, 01:01

Re: separer une mage couleur

Message par Marc DELDEM »

Salut,

La fonction OPEN permet d'ouvrir un fichier image.
Tu peux ajouter un paramètre optionnel à la fin pour que l'image, qui sera ouverte par Prism et affichée, soit masquée immédiatement après son chargement, avec le paramètre MINIMIZE.

Code : Tout sélectionner

OPEN  Img  Chem$  [MINIMIZE]
REM Nom de l'image
Input "Nom de l'image : " Name$

REM Get the directory of the image
REM in the String Directory$
GetRepName Directory$

Open Image Directory$+Name$ MINIMIZE

PRINT "Cliquer sur PLAY !"
PAUSE
Close Image
Marc
Répondre