gimp/pingus_flatten_animation.scm at master · Pingus/gimp · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
;;  Pingus Gimp Scripts
;;  Copyright (C) 2011 Ingo Ruhnke <grumbel@gmail.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 <http:;;www.gnu.org/licenses/>.

(define (script-fu-pingus-flatten-animation image drawable multi-directional)
  (let* ((layers (gimp-image-get-layers image))
	 (num-layers  (car layers))
	 (layer-array (cadr layers))
	 (width  (car (gimp-image-width image)))
	 (height (car (gimp-image-height image))))

    (gimp-undo-push-group-start image)

    (if (= multi-directional 1)
        (gimp-image-resize image (* width num-layers) (* height 2) 0 0)
        (gimp-image-resize image (* width num-layers) height 0 0))

    (let ((idx 0))
      (while (< idx num-layers)
             (let ((layer (vector-ref layer-array idx)))
               (gimp-layer-translate layer
                                     (* (- num-layers idx 1) width)
                                     0)
               (set! idx (+ idx 1)))))

    (if (= multi-directional 1)
        (let ((idx 0))
          (while (< idx num-layers)
                 (let ((layer (vector-ref layer-array idx)))

                   (let ((new-layer (car (gimp-layer-copy layer FALSE))))
                     (gimp-image-add-layer image new-layer 0)
                     (gimp-layer-translate new-layer
                                           0
                                           height)
                     (gimp-drawable-transform-flip-simple new-layer ORIENTATION-HORIZONTAL TRUE 0 FALSE))

                   (set! idx (+ idx 1))))))

    (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)

    (gimp-undo-push-group-end image)

    (gimp-displays-flush)))

;; Register the function with the GIMP:
(script-fu-register
 "script-fu-pingus-flatten-animation"
 "<Image>/Filters/Pingus/Flatten Animation" ; menu entry
 "Flatten an animation consisting of one layer per frame" ; description
 "Ingo Ruhnke"
 "Copyright (C) 2011 Ingo Ruhnke <grumbel@gmail.com>"
 "September 12, 2011"
 "RGBA RGB INDEXED*"
 SF-IMAGE    "Image"    0
 SF-DRAWABLE "Drawable" 0
 SF-TOGGLE "Multi Directional" FALSE)

;; EOF ;;