home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2002 April / pcpro0402.iso / essentials / graphics / Gimp / gimp.exe / Main / color-cycling.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2002-01-17  |  9.9 KB  |  254 lines
  1. ; **********************************************************************
  2. ; *  Color cycling animation script
  3. ; *  Daniel Cotting (cotting@mygale.org)
  4. ; **********************************************************************
  5. ; *  Official homepages: http://www.mygale.org/~cotting
  6. ; *                      http://cotting.citeweb.net
  7. ; *                      http://village.cyberbrain.com/cotting
  8. ; **********************************************************************    
  9. ; Makes a copy of your image and creates an animation of the active layer
  10. ; with the help of the alienmap plug-in. The animation may be saved with 
  11. ; the gif-plug-in. 
  12. ; **********************************************************************
  13. ; It is recommended to start the alienmap plug-in, to fiddle about with
  14. ; the parameters until you have found optimal start va lues. Then put 
  15. ; these values in the appropriate edit fields in the animation dialog.
  16. ; Now you can change the values in the alienmap plug-in to find interes-
  17. ; ting end values. After you have inserted these new values in the cor-
  18. ; responding fields of the animation script, you can start the calcula-
  19. ; tion of the animation. The script will create a new picture with a la-
  20. ; yer for each animation frame.    With each new frame the start values 
  21. ; will gradually turn into the specified end values, creating an amazing
  22. ; effect of color cycling.
  23. ; **********************************************************************
  24.  
  25.  
  26. ; The GIMP -- an image manipulation program
  27. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  28. ; 
  29. ; This program is free software; you can redistribute it and/or modify
  30. ; it under the terms of the GNU General Public License as published by
  31. ; the Free Software Foundation; either version 2 of the License, or
  32. ; (at your option) any later version.  
  33. ; 
  34. ; This program is distributed in the hope that it will be useful,
  35. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  36. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  37. ; GNU General Public License for more details.
  38. ; 
  39. ; You should have received a copy of the GNU General Public License
  40. ; along with this program; if not, write to the Free Software
  41. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  42. ;
  43. ;
  44. ; **********************************************************************
  45. ; Original file:
  46. ; waves-anim.scm   version 1.00   09/04/97
  47. ; Copyright (C) 1997 Sven Neumann (neumanns@uni-duesseldorf.de)
  48. ; **********************************************************************
  49. ; 
  50. ;  
  51.  
  52. (define (script-fu-colorcycling-anim img
  53.                    drawable
  54.          num-frames
  55.          startredstretch
  56.          startgreenstretch
  57.          startbluestretch
  58.          endredstretch
  59.          endgreenstretch
  60.          endbluestretch
  61.          redmode
  62.          greenmode
  63.          bluemode
  64.          redinvert
  65.          greeninvert
  66.          blueinvert
  67.          startredphase
  68.          startgreenphase
  69.          startbluephase
  70.          endredphase
  71.          endgreenphase
  72.          endbluephase
  73.          startredfrequency
  74.          startgreenfrequency
  75.          startbluefrequency
  76.          endredfrequency
  77.          endgreenfrequency
  78.          endbluefrequency
  79.          redinvert2
  80.          greeninvert2
  81.          blueinvert2)
  82.   (let* ((startredstretch (max 0 startredstretch))
  83.          (startgreenstretch (max 0 startgreenstretch))
  84.      (startbluestretch (max 0 startbluestretch))
  85.      (startredstretch (min 128 startredstretch))
  86.          (startgreenstretch (min 128 startgreenstretch))
  87.      (startbluestretch (min 128 startbluestretch))
  88.      (endredstretch (max 0 endredstretch))
  89.          (endgreenstretch (max 0 endgreenstretch))
  90.      (endbluestretch (max 0 endbluestretch))
  91.      (endredstretch (min 128 endredstretch))
  92.          (endgreenstretch (min 128 endgreenstretch))
  93.       (endbluestretch (min 128 endbluestretch))
  94.      
  95.      (redmode (max 0 redmode))
  96.      (redmode (min 2 redmode))
  97.      (greenmode (max 0 greenmode))
  98.      (greenmode (min 2 greenmode))
  99.      (bluemode (max 0 bluemode))
  100.      (bluemode (min 2 bluemode))
  101.  
  102.      (startredfrequency (max 0 startredfrequency))
  103.          (startgreenfrequency (max 0 startgreenfrequency))
  104.      (startbluefrequency (max 0 startbluefrequency))
  105.  
  106.      (endredfrequency (max 0 endredfrequency))
  107.          (endgreenfrequency (max 0 endgreenfrequency))
  108.      (endbluefrequency (max 0 endbluefrequency))
  109.           
  110.      (num-frames (max 1 num-frames))
  111.      (remaining-frames num-frames)
  112.      
  113.      (redstretch startredstretch)
  114.      (greenstretch startgreenstretch)
  115.      (bluestretch startbluestretch)
  116.      (redphase startredphase)
  117.      (greenphase startgreenphase)
  118.      (bluephase startbluephase)
  119.      (redfrequency startredfrequency)
  120.      (greenfrequency startgreenfrequency)
  121.      (bluefrequency startbluefrequency)
  122.      
  123.      (redstretchshift (/ (- endredstretch startredstretch) num-frames))
  124.      (greenstretchshift (/ (- endgreenstretch startgreenstretch) num-frames))
  125.      (bluestretchshift (/ (- endbluestretch startbluestretch) num-frames))
  126.      (redphaseshift (/ (- endredphase startredphase) num-frames))
  127.      (greenphaseshift (/ (- endgreenphase startgreenphase) num-frames))
  128.      (bluephaseshift (/ (- endbluephase startbluephase) num-frames))
  129.      (redfrequencyshift (/ (- endredfrequency startredfrequency) num-frames))
  130.      (greenfrequencyshift (/ (- endgreenfrequency startgreenfrequency) num-frames))
  131.      (bluefrequencyshift (/ (- endbluefrequency startbluefrequency) num-frames))
  132.  
  133.          (image (car (gimp-channel-ops-duplicate img))))
  134.    
  135.   (gimp-image-undo-disable image)
  136.  
  137. ;  (if (= invert TRUE)
  138. ;      (set! phaseshift (- 0 phaseshift)))
  139.  
  140.   (set! source-layer (car (gimp-image-get-active-layer image)))
  141.   
  142.   (while (> remaining-frames 1)
  143.          (set! alienmap-layer (car (gimp-layer-copy source-layer TRUE)))
  144.          (gimp-layer-set-preserve-trans alienmap-layer FALSE)
  145.      (gimp-image-add-layer image alienmap-layer -1)
  146.      (set! layer-name (string-append "Frame "
  147.                      (number->string
  148.                       (- (+ num-frames 2)
  149.                          remaining-frames) 10)))
  150.      (gimp-layer-set-name alienmap-layer layer-name)
  151.      
  152.      (plug-in-alienmap 1
  153.          image
  154.          alienmap-layer
  155.          redstretch
  156.          greenstretch
  157.          bluestretch
  158.          redmode
  159.          greenmode
  160.          bluemode
  161.          redinvert
  162.          greeninvert
  163.          blueinvert
  164.          redphase
  165.          greenphase
  166.          bluephase
  167.          redfrequency
  168.          greenfrequency
  169.          bluefrequency
  170.          redinvert2
  171.          greeninvert2
  172.          blueinvert2)
  173.  
  174.     ; Huh ? way too much arguments???
  175.     ; Why does no STATUS_CALLING_ERROR occur?
  176.       
  177.      (set! remaining-frames (- remaining-frames 1))
  178.      (set! redphase (+ redphase redphaseshift))
  179.      (set! greenphase (+ greenphase greenphaseshift))
  180.      (set! bluephase (+ bluephase bluephaseshift))
  181.      (set! redfrequency (+ redfrequency redfrequencyshift))
  182.      (set! greenfrequency (+ greenfrequency greenfrequencyshift))
  183.      (set! bluefrequency (+ bluefrequency bluefrequencyshift))
  184.      (set! redstretch (+ redstretch redstretchshift))
  185.      (set! greenstretch (+ greenstretch greenstretchshift))
  186.      (set! bluestretch (+ bluestretch bluestretchshift))
  187.      
  188.   )
  189.  
  190.   (gimp-layer-set-name source-layer "Frame 1")
  191.   (plug-in-alienmap 1
  192.          image
  193.          source-layer
  194.          redstretch
  195.          greenstretch
  196.          bluestretch
  197.          redmode
  198.          greenmode
  199.          bluemode
  200.          redinvert
  201.          greeninvert
  202.          blueinvert
  203.          redphase
  204.          greenphase
  205.          bluephase
  206.          redfrequency
  207.          greenfrequency
  208.          bluefrequency
  209.          redinvert2
  210.          greeninvert2
  211.          blueinvert2)
  212.  
  213.   (gimp-image-undo-enable image)
  214.   (gimp-display-new image)))
  215.  
  216. (script-fu-register "script-fu-colorcycling-anim"
  217.             _"<Image>/Script-Fu/Animators/Color Cycling..."
  218.             "Creates an animation with the help of the alienmap plug-in"
  219.             "Daniel Cotting (cotting@mygale.org)"
  220.             "Daniel Cotting"
  221.             "December 1997"
  222.             "RGB*"
  223.             SF-IMAGE "Image" 0
  224.             SF-DRAWABLE "Drawable" 0
  225.             SF-ADJUSTMENT _"Number of Frames" '(10 2 100 1 10 0 1)
  226.                     SF-ADJUSTMENT _"Start: Red Intensity Factor" '(128 0 128 1 10 0 1)
  227.                     SF-ADJUSTMENT _"Start: Green Intensity Factor" '(128 0 128 1 10 0 1)
  228.                     SF-ADJUSTMENT _"Start: Blue Intensity Factor" '(128 0 128 1 10 0 1)
  229.                     SF-ADJUSTMENT _"End: Red Intensity Factor" '(128 0 128 1 10 0 1)
  230.                     SF-ADJUSTMENT _"End: Green Intensity Factor" '(128 0 128 1 10 0 1)
  231.                     SF-ADJUSTMENT _"End: Blue Intensity Factor" '(128 0 128 1 10 0 1)
  232.                     SF-ADJUSTMENT _"Red Color Mode (sin:0/cos:1/none:2)" '(0 0 2 1 1 0 1)
  233.                     SF-ADJUSTMENT _"Green Color Mode (sin:0/cos:1/none:2)" '(0 0 2 1 1 0 1)
  234.                     SF-ADJUSTMENT _"Blue Color Mode (sin:0/cos:1/none:2)" '(0 0 2 1 1 0 1)
  235.                     SF-TOGGLE _"Red Inversion before Transformation" FALSE
  236.                     SF-TOGGLE _"Green Inversion before Transformation" FALSE
  237.                     SF-TOGGLE _"Blue Inversion before Transformation" FALSE
  238.                     SF-ADJUSTMENT _"Start: Red Phase Displacement (RAD)" '(0 0 6.28 0.05 1 2 1)
  239.                     SF-ADJUSTMENT _"Start: Green Phase Displacement (RAD)" '(0 0 6.28 0.05 1 2 1)
  240.                     SF-ADJUSTMENT _"Start: Blue Phase Displacement (RAD)" '(0 0 6.28 0.05 1 2 1)
  241.                     SF-ADJUSTMENT _"End: Red Phase Displacement (RAD)" '(0 0 6.28 0.05 1 2 1)
  242.                     SF-ADJUSTMENT _"End: Green Phase Displacement (RAD)" '(0 0 6.28 0.05 1 2 1)
  243.                     SF-ADJUSTMENT _"End: Blue Phase Displacement (RAD)" '(0 0 6.28 0.05 1 2 1)
  244.                     SF-ADJUSTMENT _"Start: Red Frequency (> 0)" '(1 0.01 5 0.05 1 2 1)
  245.                     SF-ADJUSTMENT _"Start: Green Frequency (> 0)" '(1 0.01 5 0.05 1 2 1)
  246.                     SF-ADJUSTMENT _"Start: Blue Frequency (> 0)" '(1 0.01 5 0.05 1 2 1)
  247.                     SF-ADJUSTMENT _"End: Red Frequency (> 0)" '(1 0.01 5 0.05 1 2 1)
  248.                     SF-ADJUSTMENT _"End: Green Frequency (> 0)" '(1 0.01 5 0.05 1 2 1)
  249.                     SF-ADJUSTMENT _"End: Blue Frequency (> 0)" '(1 0.01 5 0.05 1 2 1)
  250.                     SF-TOGGLE _"Red Inversion after Transformation" FALSE
  251.                     SF-TOGGLE _"Green Inversion after Transformation" FALSE
  252.                     SF-TOGGLE _"Blue Inversion after Transformation" FALSE)
  253.  
  254.