============================================== Ce qui marche: mer. avril 15 07:59:26 steph@hpcrob ~/2019_08_26/gimp $ tree ~/.config/GIMP/2.10/scripts/ /home/steph/.config/GIMP/2.10/scripts/ ├── resize-1000-2000_RGB.scm └── script-fu-calques-crobards.scm 0 directories, 2 files mer. avril 15 08:01:05 steph@hpcrob ~/2019_08_26/gimp $ ============================================== (define (script-fu-resize-1000-2000_RGB inImage inCalque) ; introduction de la fonction (gimp-image-undo-group-start inImage) ; ouverture du groupe d'annulation (gimp-image-resize ; instruction Resize inImage ; image active 1000 ; new-width 2000 ; new-height 0 ; offx 0 ; offy ) (gimp-layer-resize-to-image-size ; instruction Calque prend la taille de l image inCalque ; calque actif ) (if (not (= RGB (car (gimp-image-base-type inImage)))) (gimp-image-convert-rgb inImage)) ;(gimp-image-convert-rgb ; instruction Image en RGB ; inImage ; calque actif ;) (gimp-image-undo-group-end inImage) ; fermeture du groupe d'annulation (gimp-displays-flush) ; rafraichissement de l'affichage ) ; "/Filters/Tests/Resize 1000 2000..." (script-fu-register "script-fu-resize-1000-2000_RGB" "/MesScripts/Resize 1000 2000..." "Redimensionner l image au format 1000 par 2000" "Stephane Boireau" "Ce script est sous licence de logiciel libre Cecill-C - Voir http://www.cecill.info/" "14 avril 2020" "" SF-IMAGE "Image active" 0 SF-DRAWABLE "Calque actif" 0 ) ============================================== (define (script-fu-calques-crobards inImage inCalque) ; introduction de la fonction (gimp-image-undo-group-start inImage) ; ouverture du groupe d'annulation (if (not (= RGB (car (gimp-image-base-type inImage)))) (gimp-image-convert-rgb inImage)) ; Layer courant: (define calque_courant (car (gimp-image-get-active-layer inImage))) ; Ajout du calque dans l'image ; gimp-image-insert-layer ; Parametres : identifiant_image ; identifiant_calque Ce n'est pas le nom du calque ; parent(groupe ?) Pas clair... sans groupe créé, laisser 0 ; position_relative_du_calque 0 pour au-dessus du calque courant et 1 pour en-dessous ;(gimp-image-insert-layer inImage nom_du_calque 0 0) ;(gimp-image-insert-layer inImage "Cadres" 0 0) ;(gimp-image-insert-layer inImage "Cadres" 1 0) ;(gimp-image-insert-layer inImage inCalque 0) ;(gimp-image-insert-layer inImage nom_du_calque calque_courant 0) ; Invalid type for argument 2 gimp-image-insert-layer ;gimp-layer-new image width height type(RGB 0) name opacity(0-100) mode(normal 0) ;gimp-drawable-fill layer puis 0:foreground 1:background 2:blanc 3:transparent 4:pattern (define imgWidth (car (gimp-image-width inImage))) (define imgHeight (car (gimp-image-height inImage))) ; Creation d'un nouveau calque (define calque_ajoute (car (gimp-layer-new inImage imgWidth imgHeight 0 "Cadres" 100 0))) (gimp-layer-add-alpha calque_ajoute) (gimp-drawable-fill calque_ajoute 3) ; Le calque se positionne par rapport au calque actif: Avec 0, on est un au-dessus du claque courant (gimp-image-insert-layer inImage calque_ajoute 0 0) ;(gimp-image-insert-layer inImage calque_ajoute calque_courant 0) ; calque_ajoute ne peut être utilisé comme parent parce que ce n'est pas un élément groupe (define calque_ajoute (car (gimp-layer-new inImage imgWidth imgHeight 0 "Bulles" 100 0))) (gimp-layer-add-alpha calque_ajoute) (gimp-drawable-fill calque_ajoute 3) (gimp-image-insert-layer inImage calque_ajoute 0 0) ;(gimp-image-insert-layer inImage calque_ajoute calque_courant -1) ; Le calque se positionne par rapport au calque actif: Avec 1, on est un en-dessous (define calque_ajoute (car (gimp-layer-new inImage imgWidth imgHeight 0 "Fond" 100 0))) (gimp-drawable-fill calque_ajoute 2) (gimp-image-insert-layer inImage calque_ajoute 0 3) ;(gimp-image-insert-layer inImage calque_ajoute calque_courant 1) (gimp-image-undo-group-end inImage) ; fermeture du groupe d'annulation (gimp-displays-flush) ; rafraichissement de l'affichage ) ; "/Filters/Tests/Calques crobards..." (script-fu-register "script-fu-calques-crobards" "/MesScripts/Calques crobards..." "Ajout des calques classiques pour les crobards" "Stephane Boireau" "Ce script est sous licence de logiciel libre Cecill-C - Voir http://www.cecill.info/" "14 avril 2020" "" SF-IMAGE "Image active" 0 SF-DRAWABLE "Calque actif" 0 ) ==============================================