GIMP Script-fu

Hex Artifact Content
Login

Artifact f81f476d508010f1dde9190a3ff47afc602425fc:


0000: 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69  ; This program i
0010: 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b  s free software;
0020: 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72   you can redistr
0030: 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20  ibute it and/or 
0040: 6d 6f 64 69 66 79 0a 3b 20 69 74 20 75 6e 64 65  modify.; it unde
0050: 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74  r the terms of t
0060: 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50  he GNU General P
0070: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73  ublic License as
0080: 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 20   published by.; 
0090: 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72  the Free Softwar
00a0: 65 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69  e Foundation; ei
00b0: 74 68 65 72 20 76 65 72 73 69 6f 6e 20 32 20 6f  ther version 2 o
00c0: 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f  f the License, o
00d0: 72 0a 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74  r.; (at your opt
00e0: 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76  ion) any later v
00f0: 65 72 73 69 6f 6e 2e 0a 3b 0a 3b 20 54 68 69 73  ersion..;.; This
0100: 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74   program is dist
0110: 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68  ributed in the h
0120: 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c  ope that it will
0130: 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 20 62 75   be useful,.; bu
0140: 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41  t WITHOUT ANY WA
0150: 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20  RRANTY; without 
0160: 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64  even the implied
0170: 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 20 4d   warranty of.; M
0180: 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f  ERCHANTABILITY o
0190: 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20  r FITNESS FOR A 
01a0: 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f  PARTICULAR PURPO
01b0: 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 20 47  SE.  See the.; G
01c0: 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69  NU General Publi
01d0: 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f  c License for mo
01e0: 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 28 64 65  re details...(de
01f0: 66 69 6e 65 20 28 73 63 72 69 70 74 2d 66 75 2d  fine (script-fu-
0200: 73 67 2d 61 6e 69 6d 2d 73 65 74 74 69 6e 67 73  sg-anim-settings
0210: 20 69 6d 61 67 65 20 64 72 61 77 61 62 6c 65 20   image drawable 
0220: 72 65 71 2d 64 65 6c 61 79 20 72 65 71 2d 6d 6f  req-delay req-mo
0230: 64 65 29 0a 20 20 28 64 65 66 69 6e 65 20 28 67  de).  (define (g
0240: 65 74 2d 76 69 73 69 62 6c 65 73 20 69 6d 61 67  et-visibles imag
0250: 65 29 0a 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70  e).    (let loop
0260: 20 28 28 6c 61 79 65 72 73 20 28 76 65 63 74 6f   ((layers (vecto
0270: 72 2d 3e 6c 69 73 74 20 28 63 61 64 72 20 28 67  r->list (cadr (g
0280: 69 6d 70 2d 69 6d 61 67 65 2d 67 65 74 2d 6c 61  imp-image-get-la
0290: 79 65 72 73 20 69 6d 61 67 65 29 29 29 29 0a 20  yers image)))). 
02a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76                (v
02b0: 69 73 69 62 6c 65 73 20 27 28 29 29 20 29 0a 20  isibles '()) ). 
02c0: 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 3f 20       (if (null? 
02d0: 6c 61 79 65 72 73 29 0a 20 20 20 20 20 20 20 20  layers).        
02e0: 28 69 66 20 28 6e 75 6c 6c 3f 20 76 69 73 69 62  (if (null? visib
02f0: 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 76  les).          v
0300: 69 73 69 62 6c 65 73 20 20 20 20 20 20 20 20 20  isibles         
0310: 20 20 20 20 3b 20 27 72 65 76 65 72 73 65 27 20      ; 'reverse' 
0320: 63 61 6e 27 74 20 68 61 6e 64 6c 65 20 4e 49 4c  can't handle NIL
0330: 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 76 65  .          (reve
0340: 72 73 65 20 76 69 73 69 62 6c 65 73 29 20 29 20  rse visibles) ) 
0350: 3b 20 72 65 74 61 69 6e 20 74 6f 70 2d 74 6f 2d  ; retain top-to-
0360: 62 6f 74 74 6f 6d 20 6f 72 64 65 72 0a 20 20 20  bottom order.   
0370: 20 20 20 20 20 28 6c 6f 6f 70 20 28 63 64 72 20       (loop (cdr 
0380: 6c 61 79 65 72 73 29 0a 20 20 20 20 20 20 20 20  layers).        
0390: 20 20 20 20 20 20 28 69 66 20 28 7a 65 72 6f 3f        (if (zero?
03a0: 20 28 63 61 72 20 28 67 69 6d 70 2d 64 72 61 77   (car (gimp-draw
03b0: 61 62 6c 65 2d 67 65 74 2d 76 69 73 69 62 6c 65  able-get-visible
03c0: 20 28 63 61 72 20 6c 61 79 65 72 73 29 29 29 29   (car layers))))
03d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
03e0: 20 76 69 73 69 62 6c 65 73 0a 20 20 20 20 20 20   visibles.      
03f0: 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20            (cons 
0400: 28 63 61 72 20 6c 61 79 65 72 73 29 20 76 69 73  (car layers) vis
0410: 69 62 6c 65 73 29 20 29 29 29 29 29 0a 20 20 28  ibles) ))))).  (
0420: 67 69 6d 70 2d 69 6d 61 67 65 2d 75 6e 64 6f 2d  gimp-image-undo-
0430: 67 72 6f 75 70 2d 73 74 61 72 74 20 69 6d 61 67  group-start imag
0440: 65 29 0a 20 20 28 6c 65 74 20 28 28 6c 61 79 65  e).  (let ((laye
0450: 72 73 20 28 67 65 74 2d 76 69 73 69 62 6c 65 73  rs (get-visibles
0460: 20 69 6d 61 67 65 29 29 29 0a 20 20 20 20 28 69   image))).    (i
0470: 66 20 28 7a 65 72 6f 3f 20 28 6c 65 6e 67 74 68  f (zero? (length
0480: 20 6c 61 79 65 72 73 29 29 0a 20 20 20 20 20 20   layers)).      
0490: 28 67 69 6d 70 2d 6d 65 73 73 61 67 65 20 22 4e  (gimp-message "N
04a0: 65 65 64 20 61 74 20 6c 65 61 73 74 20 6f 6e 65  eed at least one
04b0: 20 76 69 73 69 62 6c 65 20 6c 61 79 65 72 22 29   visible layer")
04c0: 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 70  .      (while (p
04d0: 61 69 72 3f 20 6c 61 79 65 72 73 29 0a 20 20 20  air? layers).   
04e0: 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 75 6c       (let* ((ful
04f0: 6c 2d 6e 61 6d 65 20 28 73 74 72 62 72 65 61 6b  l-name (strbreak
0500: 75 70 20 28 63 61 72 20 28 67 69 6d 70 2d 64 72  up (car (gimp-dr
0510: 61 77 61 62 6c 65 2d 67 65 74 2d 6e 61 6d 65 20  awable-get-name 
0520: 28 63 61 72 20 6c 61 79 65 72 73 29 29 29 20 22  (car layers))) "
0530: 28 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20  (")).           
0540: 20 20 20 20 28 6c 61 79 65 72 2d 6e 61 6d 65 20      (layer-name 
0550: 28 63 61 72 20 66 75 6c 6c 2d 6e 61 6d 65 29 29  (car full-name))
0560: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0570: 28 70 61 72 2d 6e 61 6d 65 20 22 22 29 0a 20 20  (par-name "").  
0580: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f               (mo
0590: 64 65 20 22 22 29 0a 20 20 20 20 20 20 20 20 20  de "").         
05a0: 20 20 20 20 20 20 28 64 65 6c 61 79 20 22 22 29        (delay "")
05b0: 20 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f   ).          (co
05c0: 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28  nd.            (
05d0: 28 6f 72 20 28 3d 20 72 65 71 2d 6d 6f 64 65 20  (or (= req-mode 
05e0: 30 29 20 28 3d 20 72 65 71 2d 6d 6f 64 65 20 33  0) (= req-mode 3
05f0: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )).             
0600: 20 28 73 65 74 21 20 6d 6f 64 65 20 22 22 29 20   (set! mode "") 
0610: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28  ).            ((
0620: 3d 20 72 65 71 2d 6d 6f 64 65 20 31 29 0a 20 20  = req-mode 1).  
0630: 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74              (set
0640: 21 20 6d 6f 64 65 20 22 20 28 63 6f 6d 62 69 6e  ! mode " (combin
0650: 65 29 22 29 20 29 0a 20 20 20 20 20 20 20 20 20  e)") ).         
0660: 20 20 20 28 28 3d 20 72 65 71 2d 6d 6f 64 65 20     ((= req-mode 
0670: 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  2).             
0680: 20 28 73 65 74 21 20 6d 6f 64 65 20 22 20 28 72   (set! mode " (r
0690: 65 70 6c 61 63 65 29 22 29 20 29 29 0a 20 20 20  eplace)") )).   
06a0: 20 20 20 20 20 20 20 28 73 65 74 21 20 66 75 6c         (set! ful
06b0: 6c 2d 6e 61 6d 65 20 28 63 64 72 20 66 75 6c 6c  l-name (cdr full
06c0: 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20  -name)).        
06d0: 20 20 28 77 68 69 6c 65 20 28 70 61 69 72 3f 20    (while (pair? 
06e0: 66 75 6c 6c 2d 6e 61 6d 65 29 20 3b 3b 20 66 6f  full-name) ;; fo
06f0: 72 20 65 61 63 68 20 70 61 72 65 6e 74 68 65 74  r each parenthet
0700: 69 63 61 6c 2c 20 73 65 65 20 69 66 20 69 74 20  ical, see if it 
0710: 69 73 20 61 20 64 65 6c 61 79 20 6f 72 20 61 20  is a delay or a 
0720: 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20  mode.           
0730: 20 28 6c 65 74 20 28 28 6f 70 74 69 6f 6e 20 28   (let ((option (
0740: 73 74 72 69 6e 67 2d 74 72 69 6d 20 28 63 61 72  string-trim (car
0750: 20 28 73 74 72 62 72 65 61 6b 75 70 20 28 63 61   (strbreakup (ca
0760: 72 20 66 75 6c 6c 2d 6e 61 6d 65 29 20 22 29 22  r full-name) ")"
0770: 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20  ))))).          
0780: 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20      (cond.      
0790: 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69            ((stri
07a0: 6e 67 2d 63 69 3d 3f 20 6f 70 74 69 6f 6e 20 22  ng-ci=? option "
07b0: 63 6f 6d 62 69 6e 65 22 29 0a 20 20 20 20 20 20  combine").      
07c0: 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20              (if 
07d0: 28 3d 20 72 65 71 2d 6d 6f 64 65 20 30 29 20 3b  (= req-mode 0) ;
07e0: 3b 20 4b 65 65 70 0a 20 20 20 20 20 20 20 20 20  ; Keep.         
07f0: 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21             (set!
0800: 20 6d 6f 64 65 20 22 20 28 63 6f 6d 62 69 6e 65   mode " (combine
0810: 29 22 29 20 29 29 0a 20 20 20 20 20 20 20 20 20  )") )).         
0820: 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d         ((string-
0830: 63 69 3d 3f 20 6f 70 74 69 6f 6e 20 22 72 65 70  ci=? option "rep
0840: 6c 61 63 65 22 29 0a 20 20 20 20 20 20 20 20 20  lace").         
0850: 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3d 20           (if (= 
0860: 72 65 71 2d 6d 6f 64 65 20 30 29 20 3b 3b 20 4b  req-mode 0) ;; K
0870: 65 65 70 0a 20 20 20 20 20 20 20 20 20 20 20 20  eep.            
0880: 20 20 20 20 20 20 20 20 28 73 65 74 21 20 6d 6f          (set! mo
0890: 64 65 20 22 20 28 72 65 70 6c 61 63 65 29 22 29  de " (replace)")
08a0: 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20   )).            
08b0: 20 20 20 20 28 28 63 68 61 72 2d 6e 75 6d 65 72      ((char-numer
08c0: 69 63 3f 20 28 73 74 72 69 6e 67 2d 72 65 66 20  ic? (string-ref 
08d0: 6f 70 74 69 6f 6e 20 30 29 29 0a 20 20 20 20 20  option 0)).     
08e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66               (if
08f0: 20 28 3d 20 72 65 71 2d 64 65 6c 61 79 20 30 29   (= req-delay 0)
0900: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0910: 20 20 20 20 20 28 73 65 74 21 20 64 65 6c 61 79       (set! delay
0920: 20 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20   (string-append 
0930: 22 28 22 20 6f 70 74 69 6f 6e 20 22 29 22 29 29  "(" option ")"))
0940: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0950: 20 20 20 20 20 28 73 65 74 21 20 64 65 6c 61 79       (set! delay
0960: 20 22 22 29 20 29 29 29 3b 3b 20 63 6c 65 61 72   "") )));; clear
0970: 20 64 65 6c 61 79 20 66 6f 72 20 2d 31 20 6f 72   delay for -1 or
0980: 20 66 6f 72 20 70 6f 73 69 74 69 76 65 20 72 65   for positive re
0990: 71 75 65 73 74 0a 20 20 20 20 20 20 20 20 20 20  quest.          
09a0: 20 20 20 20 28 73 65 74 21 20 66 75 6c 6c 2d 6e      (set! full-n
09b0: 61 6d 65 20 28 63 64 72 20 66 75 6c 6c 2d 6e 61  ame (cdr full-na
09c0: 6d 65 29 29 20 29 29 0a 20 20 20 20 20 20 20 20  me)) )).        
09d0: 20 20 28 69 66 20 28 3e 20 72 65 71 2d 64 65 6c    (if (> req-del
09e0: 61 79 20 30 29 0a 20 20 20 20 20 20 20 20 20 20  ay 0).          
09f0: 20 20 28 73 65 74 21 20 64 65 6c 61 79 20 28 73    (set! delay (s
0a00: 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 28 22  tring-append "("
0a10: 20 28 6e 75 6d 62 65 72 2d 3e 73 74 72 69 6e 67   (number->string
0a20: 20 72 65 71 2d 64 65 6c 61 79 29 20 22 6d 73 29   req-delay) "ms)
0a30: 22 29 29 20 29 0a 20 20 20 20 20 20 20 20 20 20  ")) ).          
0a40: 28 67 69 6d 70 2d 64 72 61 77 61 62 6c 65 2d 73  (gimp-drawable-s
0a50: 65 74 2d 6e 61 6d 65 20 28 63 61 72 20 6c 61 79  et-name (car lay
0a60: 65 72 73 29 20 28 73 74 72 69 6e 67 2d 61 70 70  ers) (string-app
0a70: 65 6e 64 20 6c 61 79 65 72 2d 6e 61 6d 65 20 64  end layer-name d
0a80: 65 6c 61 79 20 6d 6f 64 65 29 29 0a 20 20 20 20  elay mode)).    
0a90: 20 20 20 20 20 20 28 73 65 74 21 20 6c 61 79 65        (set! laye
0aa0: 72 73 20 28 63 64 72 20 6c 61 79 65 72 73 29 29  rs (cdr layers))
0ab0: 0a 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20  .          ).   
0ac0: 20 20 20 20 20 29 0a 20 20 20 20 20 20 29 0a 20       ).      ). 
0ad0: 20 20 20 29 0a 20 20 28 67 69 6d 70 2d 69 6d 61     ).  (gimp-ima
0ae0: 67 65 2d 75 6e 64 6f 2d 67 72 6f 75 70 2d 65 6e  ge-undo-group-en
0af0: 64 20 69 6d 61 67 65 29 0a 20 20 28 67 69 6d 70  d image).  (gimp
0b00: 2d 64 69 73 70 6c 61 79 73 2d 66 6c 75 73 68 29  -displays-flush)
0b10: 0a 20 20 29 0a 0a 28 73 63 72 69 70 74 2d 66 75  .  )..(script-fu
0b20: 2d 72 65 67 69 73 74 65 72 20 22 73 63 72 69 70  -register "scrip
0b30: 74 2d 66 75 2d 73 67 2d 61 6e 69 6d 2d 73 65 74  t-fu-sg-anim-set
0b40: 74 69 6e 67 73 22 0a 20 22 5f 53 65 74 74 69 6e  tings". "_Settin
0b50: 67 73 2e 2e 2e 22 20 3b 3b 20 6d 69 67 68 74 20  gs..." ;; might 
0b60: 6c 69 6b 65 20 74 6f 20 6b 65 65 70 20 69 74 20  like to keep it 
0b70: 73 65 70 61 72 61 74 65 20 66 72 6f 6d 20 74 68  separate from th
0b80: 65 20 73 74 61 6e 64 61 72 64 20 70 6c 75 67 69  e standard plugi
0b90: 6e 73 0a 20 22 53 65 74 20 74 68 65 20 46 72 61  ns. "Set the Fra
0ba0: 6d 65 20 64 65 6c 61 79 20 61 6e 64 20 6d 6f 64  me delay and mod
0bb0: 65 20 6f 66 20 47 49 46 20 61 6e 69 6d 61 74 69  e of GIF animati
0bc0: 6f 6e 73 20 62 79 20 72 65 6e 61 6d 69 6e 67 20  ons by renaming 
0bd0: 76 69 73 69 62 6c 65 20 6c 61 79 65 72 73 2e 22  visible layers."
0be0: 0a 20 22 53 61 75 6c 20 47 6f 6f 64 65 22 0a 20  . "Saul Goode". 
0bf0: 22 53 61 75 6c 20 47 6f 6f 64 65 22 0a 20 22 33  "Saul Goode". "3
0c00: 2f 31 31 2f 32 30 30 36 22 0a 20 22 2a 22 0a 20  /11/2006". "*". 
0c10: 53 46 2d 49 4d 41 47 45 20 20 20 20 22 49 6d 61  SF-IMAGE    "Ima
0c20: 67 65 22 20 20 20 20 30 0a 20 53 46 2d 44 52 41  ge"    0. SF-DRA
0c30: 57 41 42 4c 45 20 22 44 72 61 77 61 62 6c 65 22  WABLE "Drawable"
0c40: 20 30 0a 20 53 46 2d 41 44 4a 55 53 54 4d 45 4e   0. SF-ADJUSTMEN
0c50: 54 20 22 44 65 6c 61 79 3a 20 28 31 2d 31 30 30  T "Delay: (1-100
0c60: 30 30 20 6d 53 2c 20 30 3d 4b 65 65 70 2c 20 2d  00 mS, 0=Keep, -
0c70: 31 3d 43 6c 65 61 72 29 22 20 27 28 20 31 30 30  1=Clear)" '( 100
0c80: 20 2d 31 20 31 30 30 30 30 20 31 20 31 30 20 30   -1 10000 1 10 0
0c90: 20 31 20 29 0a 20 53 46 2d 4f 50 54 49 4f 4e 20   1 ). SF-OPTION 
0ca0: 22 4d 6f 64 65 3a 22 20 27 28 20 22 4b 65 65 70  "Mode:" '( "Keep
0cb0: 22 20 22 28 63 6f 6d 62 69 6e 65 29 22 20 22 28  " "(combine)" "(
0cc0: 72 65 70 6c 61 63 65 29 22 20 22 43 6c 65 61 72  replace)" "Clear
0cd0: 22 29 0a 20 29 0a 28 73 63 72 69 70 74 2d 66 75  "). ).(script-fu
0ce0: 2d 6d 65 6e 75 2d 72 65 67 69 73 74 65 72 20 22  -menu-register "
0cf0: 73 63 72 69 70 74 2d 66 75 2d 73 67 2d 61 6e 69  script-fu-sg-ani
0d00: 6d 2d 73 65 74 74 69 6e 67 73 22 0a 20 20 22 3c  m-settings".  "<
0d10: 49 6d 61 67 65 3e 2f 46 69 6c 74 65 72 73 2f 41  Image>/Filters/A
0d20: 6e 69 6d 61 74 69 6f 6e 22 0a 20 20 29 0a        nimation".  ).