home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 February / PCWorld_2001-02_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / burn-in-anim-11a.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-12-27  |  6.8 KB  |  191 lines
  1. ;
  2. ;  burn-in-anim.scm  V1.01  -  script for the GIMP 1.1
  3. ;
  4. ;  Copyright (C) 7/2000 Roland Berger (robe@align.de)
  5. ; 
  6. ;  Let text appear with a "burn-in" SFX and fade out.
  7. ;  Source must be a (text) layer with alpha
  8. ;
  9. ;  Homepage: http://fuchur.leute.server.de/burn_in/
  10. ;  Copying: GNU Public License http://www.gnu.org
  11. ;
  12.  
  13. (define (script-fu-burn-in-anim org-img org-layer glow-color bg-bl-color
  14.     fadeout bl-width corona-width show-glow optimize speed)
  15.  
  16. (let* (
  17.     ;--- main variable: "bl-x" runs from 0 to layer-width
  18.     (bl-x 0)
  19.     (frame-nr 0)
  20.     (old-fg (car (gimp-palette-get-foreground)))
  21.     (old-bg (car (gimp-palette-get-background))) )
  22.  
  23.     (if (< speed 1)
  24.     (set! speed (* -1 speed)) )
  25.  
  26. ;--- work on a copy
  27.     (set! img (car (gimp-channel-ops-duplicate org-img)))
  28. ;    (gimp-image-disable-undo img) 
  29.     (gimp-image-undo-disable img) 
  30.     (if (> (car (gimp-drawable-type org-layer)) 1 )
  31.         (gimp-convert-rgb img))
  32.     (set! source-layer (aref (cadr (gimp-image-get-layers img)) 0 ))
  33.     (set! source-layer-width (car (gimp-drawable-width  source-layer)))
  34.  
  35. ;--- hide any layer, cause we want to "merge visible layers" later
  36.     (if (> (car (gimp-image-get-layers img)) 1)
  37.     (gimp-message "Will only process top layer! Alpha mask required!"))
  38.     (gimp-layer-set-visible source-layer FALSE)
  39.  
  40. ;--- process layers with pixel-speed
  41. (while (< bl-x (+ source-layer-width bl-width))
  42.     (set! bl-layer (car (gimp-layer-copy source-layer TRUE)))
  43.     (set! bl-layer-name (string-append "fr-nr"
  44.     (number->string frame-nr 10) ) )
  45.  
  46.     (gimp-image-add-layer img bl-layer -2)
  47.     (gimp-layer-set-name bl-layer bl-layer-name)
  48.     (gimp-layer-set-visible bl-layer TRUE)
  49.     (gimp-layer-set-preserve-trans bl-layer TRUE)
  50.     (gimp-layer-add-alpha bl-layer)
  51.  
  52. ;--- add a blend mask
  53. ;    (gimp-selection-layer-alpha img bl-layer)
  54.     (gimp-selection-layer-alpha bl-layer)
  55.     (set! bl-mask (car (gimp-layer-create-mask bl-layer BLACK-MASK)))
  56.     (gimp-image-add-layer-mask img bl-layer bl-mask)
  57.     (set! bl-layer-width source-layer-width)
  58.     (set! bl-height      (car (gimp-drawable-height bl-layer)))
  59.  
  60.     (set! bl-x-off (- bl-x     bl-width))
  61.     (set! bl-x-off (+ bl-x-off (car  (gimp-drawable-offsets bl-layer))))
  62.     (set! bl-y-off             (cadr (gimp-drawable-offsets bl-layer)))
  63.  
  64. ;--- add blend selection
  65.     (gimp-rect-select img bl-x-off bl-y-off bl-width bl-height REPLACE 0 0)
  66.     (if (= fadeout FALSE)
  67.     (let* (
  68.         (nofadeout-bl-x-off (car (gimp-drawable-offsets bl-layer)))
  69.         (nofadeout-bl-width (+ nofadeout-bl-x-off bl-x)))
  70.         
  71.         (gimp-rect-select img nofadeout-bl-x-off bl-y-off
  72.         nofadeout-bl-width bl-height REPLACE 0 0)))
  73.  
  74. ;--- blend to trans
  75.     (gimp-gradients-set-active "Default")
  76.     (if (= fadeout TRUE)
  77. ;        (gimp-blend img bl-mask CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE
  78. ;            FALSE 0 0
  79. ;        bl-x-off 0 (+ bl-x-off bl-width) 0) )
  80.         (gimp-blend bl-mask CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE
  81.             FALSE 0 0
  82.         bl-x-off 0 (+ bl-x-off bl-width) 0) )
  83.     (if (= fadeout FALSE)
  84.     (begin
  85.     (gimp-palette-set-foreground '(255 255 255))
  86. ;    (gimp-bucket-fill img bl-mask FG-BUCKET-FILL NORMAL 100 255 0 0 0) ) )
  87.     (gimp-bucket-fill bl-mask FG-BUCKET-FILL NORMAL 100 255 0 0 0) ) )
  88.  
  89.     (gimp-image-remove-layer-mask img bl-layer APPLY)
  90.  
  91. ;--- add bright glow in front
  92. (if (= show-glow TRUE) (begin
  93.     ;--- add some brightness to whole text
  94.     (if (= fadeout TRUE)
  95. ;    (gimp-brightness-contrast img bl-layer 100 0))
  96.     (gimp-brightness-contrast bl-layer 100 0))
  97.  
  98.     ;--- blend glow color inside the letters
  99.     (gimp-palette-set-foreground glow-color)
  100. ;    (gimp-blend img bl-layer FG-TRANS NORMAL LINEAR 100 0 REPEAT-NONE
  101. ;            FALSE 0 0
  102. ;           (+ bl-x-off bl-width)                      0
  103. ;        (- (+ bl-x-off bl-width) (* corona-width 7)) 0)
  104.     (gimp-blend bl-layer FG-TRANS NORMAL LINEAR 100 0 REPEAT-NONE
  105.             FALSE 0 0
  106.            (+ bl-x-off bl-width)                      0
  107.         (- (+ bl-x-off bl-width) (* corona-width 7)) 0)
  108.  
  109.     ;--- add a corona
  110. ;    (gimp-selection-layer-alpha img bl-layer)
  111.     (gimp-selection-layer-alpha bl-layer)
  112.     (gimp-selection-sharpen img)
  113.     (gimp-selection-grow img corona-width)
  114.     (gimp-layer-set-preserve-trans bl-layer FALSE)
  115.     (gimp-selection-feather img corona-width)
  116.     (gimp-palette-set-foreground glow-color)
  117. ;    (gimp-blend img bl-layer FG-TRANS NORMAL LINEAR 100 0 REPEAT-NONE
  118. ;            FALSE 0 0
  119. ;        (- (+ bl-x-off bl-width) corona-width) 0
  120. ;        (- (+ bl-x-off bl-width) (* corona-width 5)) 0)
  121. ;    ))
  122.     (gimp-blend bl-layer FG-TRANS NORMAL LINEAR 100 0 REPEAT-NONE
  123.             FALSE 0 0
  124.         (- (+ bl-x-off bl-width) corona-width) 0
  125.         (- (+ bl-x-off bl-width) (* corona-width 5)) 0)
  126.     ))
  127.  
  128. ;--- merge with background color
  129.     (set! bg-layer (car (gimp-layer-copy source-layer FALSE)))
  130.     (gimp-image-add-layer img bg-layer -1)
  131.     (gimp-image-lower-layer img bg-layer)
  132.     (set! bg-layer-name (string-append "bg-"
  133.     (number->string frame-nr 10) ) )
  134.     (gimp-layer-set-name bg-layer bg-layer-name)
  135.     (gimp-layer-set-visible bg-layer TRUE)
  136.     (gimp-palette-set-foreground bg-bl-color)
  137.     (gimp-selection-all img)
  138.     (gimp-layer-set-preserve-trans bg-layer FALSE)
  139. ;    (gimp-bucket-fill img bg-layer FG-BUCKET-FILL NORMAL 100 255 0 0 0)
  140.     (gimp-bucket-fill bg-layer FG-BUCKET-FILL NORMAL 100 255 0 0 0)
  141.     (set! blended-layer (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
  142.     ;(set! blended-layer bl-layer)
  143.     (gimp-layer-set-visible blended-layer FALSE)
  144.  
  145. ;--- end of loop
  146.     (set! frame-nr (+ frame-nr 1))
  147.     (set! bl-x     (+ bl-x speed))
  148. )
  149.  
  150.  
  151. (gimp-selection-none img)
  152. (gimp-image-remove-layer img source-layer)
  153. (gimp-image-set-filename img "burn-in")
  154.  
  155. (if (= optimize TRUE) (begin
  156. ;    (gimp-convert-indexed img TRUE 250)
  157.     (gimp-convert-indexed img 1 0 253 0 1 "foo")
  158.     (set! img-out (car (plug-in-animationoptimize 0 img bl-layer)))
  159.     ))
  160.  
  161. (gimp-layer-set-visible (aref (cadr (gimp-image-get-layers img)) 0 ) TRUE)
  162. ;(gimp-image-enable-undo img)
  163. (gimp-image-undo-enable img)
  164. (gimp-image-clean-all img)
  165. (set! img-display (car (gimp-display-new img)))
  166. (gimp-palette-set-foreground old-fg)
  167. (gimp-palette-set-background old-bg)
  168.  
  169. (gimp-displays-flush)
  170.  
  171. ))
  172.  
  173. (script-fu-register "script-fu-burn-in-anim"
  174.             "<Image>/Script-Fu/Animators/Burn-In"
  175.             "Burn-in like SFX from a text layer with alpha"
  176.             "Roland Berger robe@align.de"
  177.             "Roland Berger"
  178.             "July 2000"
  179.             "RGBA GRAYA INDEXEDA"
  180.             SF-IMAGE "The Image" 0
  181.             SF-DRAWABLE "Layer to animate" 0
  182.             SF-COLOR "Glow color" '(255 255 255)
  183.             SF-COLOR "BG color" '(0 0 0)
  184.             SF-TOGGLE "Fadeout?" TRUE
  185.             SF-VALUE "Fadeout width" "300"
  186.             SF-VALUE "Corona width" "15"
  187.             SF-TOGGLE "Add glowing?" TRUE
  188.             SF-TOGGLE "Prepare saving as GIF?" FALSE
  189.             SF-VALUE "Pixel/frame" "200"
  190. )
  191.