From 5c1676dfe6d2f3c837a5e074117b45613fd29a72 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 20:30:19 +0200 Subject: Adding upstream version 2.10.34. Signed-off-by: Daniel Baumann --- plug-ins/script-fu/scripts/gradient-example.scm | 81 +++++++++++++++++++++++++ 1 file changed, 81 insertions(+) create mode 100644 plug-ins/script-fu/scripts/gradient-example.scm (limited to 'plug-ins/script-fu/scripts/gradient-example.scm') diff --git a/plug-ins/script-fu/scripts/gradient-example.scm b/plug-ins/script-fu/scripts/gradient-example.scm new file mode 100644 index 0000000..3157c88 --- /dev/null +++ b/plug-ins/script-fu/scripts/gradient-example.scm @@ -0,0 +1,81 @@ +; GIMP - The GNU Image Manipulation Program +; Copyright (C) 1995 Spencer Kimball and Peter Mattis +; +; Gradient example script --- create an example image of a custom gradient +; Copyright (C) 1997 Federico Mena Quintero +; federico@nuclecu.unam.mx +; +; 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-gradient-example width + height + gradient-reverse) + (let* ( + (img (car (gimp-image-new width height RGB))) + (drawable (car (gimp-layer-new img width height RGB + "Gradient example" 100 LAYER-MODE-NORMAL))) + + ; Calculate colors for checkerboard... just like in the gradient editor + + (fg-color (* 255 (/ 2 3))) + (bg-color (* 255 (/ 1 3))) + ) + + (gimp-image-undo-disable img) + (gimp-image-insert-layer img drawable 0 0) + + ; Render background checkerboard + + (gimp-context-push) + + (gimp-context-set-foreground (list fg-color fg-color fg-color)) + (gimp-context-set-background (list bg-color bg-color bg-color)) + (plug-in-checkerboard RUN-NONINTERACTIVE img drawable 0 8) + + (gimp-context-pop) + + ; Render gradient + + (gimp-context-push) + + (gimp-context-set-gradient-reverse gradient-reverse) + (gimp-drawable-edit-gradient-fill drawable + GRADIENT-LINEAR 0 + FALSE 0 0 + TRUE + 0 0 (- width 1) 0) + + (gimp-context-pop) + + ; Terminate + + (gimp-image-undo-enable img) + (gimp-display-new img) + ) +) + +(script-fu-register "script-fu-gradient-example" + _"Custom _Gradient..." + _"Create an image filled with an example of the current gradient" + "Federico Mena Quintero" + "Federico Mena Quintero" + "June 1997" + "" + SF-ADJUSTMENT _"Width" '(400 1 2000 1 10 0 1) + SF-ADJUSTMENT _"Height" '(30 1 2000 1 10 0 1) + SF-TOGGLE _"Gradient reverse" FALSE +) + +(script-fu-menu-register "script-fu-gradient-example" + "") -- cgit v1.2.3