0.20250205: add Scheme script

Author: zvezdochiot

LICENSE

@@ -1,30 +1,24 @@
-Public Domain Mark 1.0
- No Copyright
-
-    This work has been identified as being free of known restrictions
-    under copyright law, including all related and neighboring rights.
-
-    You can copy, modify, distribute and perform the work, even for
-    commercial purposes, all without asking permission. See Other
-    Information below.
-
- Other Information
-
-    The work may not be free of known copyright restrictions in all
-    jurisdictions.
-
-    Persons may have other rights in or related to the work, such as
-    patent or trademark rights, and others may have rights in how the
-    work is used, such as publicity or privacy rights.
-
-    In some jurisdictions moral rights of the author may persist beyond
-    the term of copyright. These rights may include the right to be
-    identified as the author and the right to object to derogatory
-    treatments.
-
-    Unless expressly stated otherwise, the person who identified the work
-    makes no warranties about the work, and disclaims liability for all
-    uses of the work, to the fullest extent permitted by applicable law.
-
-    When using or citing the work, you should not imply endorsement by
-    the author or the person who identified the work.
+This is free and unencumbered software released into the public domain.
+
+Anyone is free to copy, modify, publish, use, compile, sell, or
+distribute this software, either in source code form or as a compiled
+binary, for any purpose, commercial or non-commercial, and by any
+means.
+
+In jurisdictions that recognize copyright laws, the author or authors
+of this software dedicate any and all copyright interest in the
+software to the public domain. We make this dedication for the benefit
+of the public at large and to the detriment of our heirs and
+successors. We intend this dedication to be an overt act of
+relinquishment in perpetuity of all present and future rights to this
+software under copyright law.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+For more information, please refer to <https://unlicense.org>

resize-ris.py renamed to python/resize-ris.py

@@ -0,0 +1,51 @@
+(define (resize-ris image 
+                    drawable
+                    newwidth
+                    newheight)
+    (let*
+        (
+            (drawable  (car (gimp-image-active-drawable image)))
+            (oldwidth  (car (gimp-image-width image)))
+            (oldheight (car (gimp-image-height image)))
+            (new-layer-1 (car (gimp-layer-copy drawable TRUE)))
+            (new-layer-2 (car (gimp-layer-copy drawable TRUE)))
+            (new-layer-3 (car (gimp-layer-copy drawable TRUE)))
+        )
+    
+        (gimp-image-undo-group-start image)
+    
+        (gimp-image-insert-layer image new-layer-1 0 -1)
+        (gimp-image-insert-layer image new-layer-2 0 -1)
+        (gimp-layer-set-mode new-layer-2 LAYER-MODE-MULTIPLY-LEGACY)
+        (set! new-layer-1 (car (gimp-image-merge-down image new-layer-2 EXPAND-AS-NECESSARY)))
+
+        (gimp-image-insert-layer image new-layer-3 0 -1)
+        (gimp-layer-scale new-layer-3 newwidth newheight INTERPOLATION-CUBIC)
+        (gimp-layer-scale new-layer-3 oldwidth oldheight INTERPOLATION-CUBIC)
+
+        (gimp-layer-set-mode new-layer-3 LAYER-MODE-DIVIDE-LEGACY)
+        (set! new-layer-1 (car (gimp-image-merge-down image new-layer-3 EXPAND-AS-NECESSARY)))
+        (gimp-item-set-name new-layer-1 "RIS")
+
+        (gimp-image-scale-full image newwidth newheight INTERPOLATION-CUBIC)
+
+        (gimp-displays-flush)
+        
+        (gimp-image-undo-group-end image)
+    )
+)
+
+(script-fu-register "resize-ris"
+                    "_Resize RIS"
+                    "Resize used RIS (Reverse Interpolate Scale)"
+                    "zvezdochiot https://github.com/zvezdochiot"
+                    "This is free and unencumbered software released into the public domain."
+                    "2025-02-05"
+                    "*"
+                    SF-IMAGE       "Image"       0
+                    SF-DRAWABLE    "Drawable"    0
+                    SF-VALUE       "Width"       "1024"
+                    SF-VALUE       "Height"      "1024"
+)
+
+(script-fu-menu-register "resize-ris" "<Image>/Image/Transform")