From 3c57dd931145d43f2b0aef96c4d178135956bf91 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Fri, 19 Apr 2024 05:13:10 +0200 Subject: Adding upstream version 2.10.36. Signed-off-by: Daniel Baumann --- plug-ins/script-fu/scripts/paste-as-pattern.scm | 61 +++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 plug-ins/script-fu/scripts/paste-as-pattern.scm (limited to 'plug-ins/script-fu/scripts/paste-as-pattern.scm') diff --git a/plug-ins/script-fu/scripts/paste-as-pattern.scm b/plug-ins/script-fu/scripts/paste-as-pattern.scm new file mode 100644 index 0000000..01381a2 --- /dev/null +++ b/plug-ins/script-fu/scripts/paste-as-pattern.scm @@ -0,0 +1,61 @@ +; GIMP - The GNU Image Manipulation Program +; Copyright (C) 1995 Spencer Kimball and Peter Mattis +; +; script-fu-paste-as-pattern +; Based on select-to-pattern by Cameron Gregory, http://www.flamingtext.com/ +; +; This program is free software: you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 3 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License +; along with this program. If not, see . + + +(define (script-fu-paste-as-pattern name filename) + (let* ((pattern-image (car (gimp-edit-paste-as-new-image))) + (pattern-draw 0) + (path 0)) + + (if (= TRUE (car (gimp-image-is-valid pattern-image))) + (begin + (set! pattern-draw (car (gimp-image-get-active-drawable pattern-image))) + (set! path (string-append gimp-directory + "/patterns/" + filename + (number->string pattern-image) + ".pat")) + + (file-pat-save RUN-NONINTERACTIVE + pattern-image pattern-draw path path + name) + + (gimp-image-delete pattern-image) + + (gimp-patterns-refresh) + (gimp-context-set-pattern name) + ) + (gimp-message _"There is no image data in the clipboard to paste.") + ) + ) +) + +(script-fu-register "script-fu-paste-as-pattern" + _"New _Pattern..." + _"Paste the clipboard contents into a new pattern" + "Michael Natterer " + "Michael Natterer" + "2005-09-25" + "" + SF-STRING _"_Pattern name" "My Pattern" + SF-STRING _"_File name" "mypattern" +) + +(script-fu-menu-register "script-fu-paste-as-pattern" + "/Edit/Paste as") -- cgit v1.2.3