home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / fireanim-1_1.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-12-27  |  7.2 KB  |  211 lines
  1. ; Fire animation script for The GIMP
  2. ; Version 0.5
  3. ; Copyright (c) 1998 / 1999
  4. ; Vidar Madsen <vidar@prosalg.no>
  5. ;
  6. ; --- Introduction ---
  7. ; Basically, it takes an image (with an alpha-channel), and sets
  8. ; it on fire. ;-) The user can specify how many frames should be
  9. ; used, and which gradient to use to color the flames. The defaults
  10. ; ought to work nicely most of the time, though.
  11. ;
  12. ; --- ChangeLog ---
  13. ;  6. Feb 1999: v0.5 - Fixed to work with GIMP 1.1.x. Thanks to Seth
  14. ;                      Burgess for pointing out the differences.
  15. ; 11. Aug 1998: v0.4 - Background layer is now working!
  16. ; 11. Aug 1998:      - Fixed a tiny float bug
  17. ; 11. Aug 1998: v0.3 - Added angle and distance
  18. ;            Thanks to Dan Everton <deverton@cit.gu.edu.au>
  19. ;  8. Aug 1998:      - Added some code to add a custom background
  20. ;            It is _NOT_ working at the moment, though!
  21. ;  5. Aug 1998:      - Added some error-checking
  22. ;  5. Aug 1998: v0.2 - Made the script create a new image
  23. ;  4. Aug 1998:      - Uses 'plug-in-spread' instead of randomize
  24. ;  4. Aug 1998: v0.1 - First public release!
  25. ;
  26. ; --- Disclaimer ---
  27. ; This program is free software; you can redistribute it and/or modify
  28. ; it under the terms of the GNU General Public License as published by
  29. ; the Free Software Foundation; either version 2 of the License, or
  30. ; (at your option) any later version.
  31. ; 
  32. ; This program is distributed in the hope that it will be useful,
  33. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  34. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  35. ; GNU General Public License for more details.
  36.  
  37. (define (script-fu-fireanim-doit image drawable mask xoffs yoffs)
  38.   (plug-in-spread 1 image drawable 1 1)
  39.   (gimp-levels drawable 0 1 255 1.0 0 242)
  40.   (gimp-selection-layer-alpha mask)
  41.   (plug-in-noisify 1 image drawable FALSE 2.0 2.0 2.0 0.0)
  42.   (gimp-selection-grow image 1)
  43.   (plug-in-noisify 1 image drawable FALSE 0.3 0.3 0.3 0.0)
  44.   (gimp-selection-grow image 2)
  45.   (plug-in-gauss-rle TRUE image drawable 1.0 TRUE TRUE)
  46.   (gimp-selection-none image)
  47.   (gimp-channel-ops-offset drawable TRUE 0 xoffs yoffs)
  48.   (gimp-selection-layer-alpha mask)
  49.   (gimp-palette-set-background '(255 255 255))
  50.   (gimp-edit-fill drawable)
  51.   (gimp-selection-none image)
  52. )
  53.  
  54. (define (script-fu-fireanim-prep image drawable orig gradient)
  55.   (gimp-levels drawable 0 1 200 1.0 0 255)
  56.   (gimp-gradients-set-active gradient)
  57.   (plug-in-gradmap TRUE image drawable)
  58.   (gimp-selection-all image)
  59.   (gimp-selection-layer-alpha orig)
  60.   (gimp-edit-copy orig)
  61.   (gimp-floating-sel-anchor (car (gimp-edit-paste drawable FALSE)))
  62.   (gimp-selection-none image)
  63. )
  64.  
  65. (define (script-fu-fireanim-copylayer dstimage dstdrawable srcimage srcdrawable)
  66.   (gimp-selection-all dstimage)
  67.   (gimp-edit-clear dstdrawable)
  68.   (gimp-selection-none dstimage)
  69.   (gimp-selection-all srcimage)
  70.   (gimp-edit-copy srcdrawable)
  71.   (gimp-floating-sel-anchor (car (gimp-edit-paste dstdrawable FALSE)))
  72. )
  73.  
  74.  
  75. (define (script-fu-fireanim origimage origdrawable nframes oframes pframes
  76.     gradient framerate angle distance usebackgnd backgnd)
  77.  
  78.   (if (< nframes oframes) (error "Number of frames < overlap-frames!"))
  79.   (gimp-gradients-set-active gradient)
  80.  
  81.   (set! width (car (gimp-image-width origimage)))
  82.   (set! height (car (gimp-image-height origimage)))
  83.   (set! xoffs (* distance (sin (* angle (/ 3.141592654 180)))))
  84.   (set! yoffs (- 0 (* distance (cos (* angle (/ 3.141592654 180))))))
  85.   (set! image (car (gimp-channel-ops-duplicate origimage)))
  86.   (set! drawable (car (gimp-image-get-active-layer image)))
  87.  
  88.   (gimp-image-disable-undo image)
  89.  
  90.   (set! numlayers (car (gimp-image-get-layers image)))
  91.   (set! layerlist (cadr (gimp-image-get-layers image)))
  92.   (set! count numlayers)
  93.   (while (> count 0)
  94.     (set! count (- count 1))
  95.     (if (not (= (aref layerlist count) drawable))
  96.         (gimp-image-remove-layer image (aref layerlist count))
  97.     )
  98.   )
  99.  
  100.   (if (= usebackgnd TRUE) (begin
  101.     (set! bgimage (car (gimp-drawable-image backgnd)))
  102.     (set! bgcopy (car (gimp-layer-new image width height RGBA_IMAGE "bgcopy" 100 NORMAL)))
  103.     (gimp-image-add-layer image bgcopy 0)
  104.     (script-fu-fireanim-copylayer image bgcopy bgimage backgnd)
  105.     (gimp-layer-set-visible bgcopy FALSE)
  106.   ))
  107.  
  108.   (set! frame (car (gimp-layer-new image width height RGBA_IMAGE "frame" 100 NORMAL)))
  109.  
  110.   (gimp-palette-set-background '(0 0 0))
  111.   (gimp-selection-all image)
  112.   (gimp-edit-fill frame)
  113.  
  114.   (gimp-palette-set-background '(255 255 255))
  115.   (gimp-selection-layer-alpha drawable)
  116.   (gimp-edit-fill frame)
  117.  
  118.   (gimp-image-add-layer image frame 0)
  119.   (gimp-layer-set-visible frame FALSE)
  120.  
  121.   (gimp-layer-set-visible drawable FALSE)
  122.  
  123.   (set! count 0)
  124.   (while (< count pframes)
  125.     (script-fu-fireanim-doit image frame drawable xoffs yoffs)
  126.     (set! count (+ count 1))
  127.   )
  128.  
  129.   (set! larray (cons-array (+ nframes oframes 1)))
  130.   (set! count 1)
  131.   (while (<= count (+ nframes oframes))
  132.     (script-fu-fireanim-doit image frame drawable xoffs yoffs)
  133.     (set! newlayer (car (gimp-layer-copy frame TRUE)))
  134.     (script-fu-fireanim-prep image newlayer drawable gradient)
  135.     (if (= usebackgnd TRUE) (begin
  136.         (set! bglayer (car (gimp-layer-copy bgcopy TRUE)))
  137.         (gimp-image-add-layer image newlayer 0)
  138.         (gimp-image-add-layer image bglayer 1)
  139.         (gimp-layer-set-visible bglayer TRUE)
  140.         (gimp-layer-set-visible newlayer TRUE)
  141.         (set! newlayer (car (gimp-image-merge-visible-layers image 2)))
  142.     ))
  143.     (aset larray count newlayer) 
  144.     (gimp-layer-set-name newlayer
  145.         (string-append "Frame " (number->string count) " (" (number->string framerate) "ms) (replace)"))
  146.     (if (= usebackgnd FALSE) (begin
  147.         (gimp-image-add-layer image newlayer 0)
  148.     ))
  149.     (gimp-layer-set-visible newlayer FALSE)
  150.     (set! count (+ count 1))
  151.   )
  152.  
  153.   (gimp-layer-set-visible drawable FALSE)
  154.  
  155.   (set! count 1)
  156.   (while (<= count oframes)
  157.     (set! opac (* 100 (- 1.0 (/ count (+ oframes 1)))))
  158.     (set! framea (aref larray count))
  159.     (set! frameb (aref larray (+ count nframes)))
  160.     (gimp-layer-set-visible framea TRUE)
  161.     (gimp-layer-set-visible frameb TRUE)
  162.     (gimp-layer-set-opacity frameb opac)
  163.     (set! framea (car (gimp-image-merge-visible-layers image 2)))
  164.     (aset larray count framea)
  165.     (gimp-layer-set-visible framea FALSE)
  166.     (set! count (+ count 1))
  167.   )
  168.  
  169.   (set! count 1)
  170.   (while (<= count nframes)
  171.     (set! framea (aref larray count))
  172.     (gimp-layer-set-visible framea TRUE)
  173.     (set! count (+ count 1))
  174.   )
  175.  
  176.   (gimp-image-set-active-layer image framea)
  177.   (gimp-image-remove-layer image drawable)
  178.   (gimp-image-remove-layer image frame)
  179.   (if (= usebackgnd TRUE)
  180.     (gimp-image-remove-layer image bgcopy)
  181.   )
  182.  
  183.   (gimp-display-new image)
  184.  
  185.   (gimp-selection-none image)
  186.   (gimp-selection-none origimage)
  187.   (gimp-image-enable-undo image)
  188.   (gimp-displays-flush)
  189. )
  190.  
  191. (script-fu-register
  192.     "script-fu-fireanim"
  193.     "<Image>/Script-Fu/Animators/FireAnim"
  194.     "FireAnim"
  195.     "Vidar Madsen <vidar@prosalg.no>"
  196.     "Vidar Madsen"
  197.     "6. Feb 1999"
  198.     "RGBA"
  199.     SF-IMAGE "Input Image" 0
  200.     SF-DRAWABLE "Input Drawable" 0
  201.     SF-VALUE "# of frames" "15"
  202.     SF-VALUE "Overlap frames" "6"
  203.     SF-VALUE "Prep frames" "15"
  204.     SF-VALUE "Gradient" "\"Incandescent\""
  205.     SF-VALUE "Framerate (ms)" "50"
  206.     SF-VALUE "Angle (Degrees)" "0"
  207.     SF-VALUE "Distance" "2"
  208.     SF-TOGGLE "Use background?" FALSE
  209.     SF-DRAWABLE "Background" 0
  210. )
  211.