home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 February / PCWorld_2001-02_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / spinning_globe.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-12-27  |  3.5 KB  |  119 lines
  1. ;
  2. ; anim_sphere
  3. ;
  4. ;
  5. ; Chris Gutteridge (cjg@ecs.soton.ac.uk)
  6. ; At ECS Dept, University of Southampton, England.
  7. ; This program is free software; you can redistribute it and/or modify
  8. ; it under the terms of the GNU General Public License as published by
  9. ; the Free Software Foundation; either version 2 of the License, or
  10. ; (at your option) any later version.
  11. ; 
  12. ; This program is distributed in the hope that it will be useful,
  13. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. ; GNU General Public License for more details.
  16. ; 
  17. ; You should have received a copy of the GNU General Public License
  18. ; along with this program; if not, write to the Free Software
  19. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21.  
  22. ; Define the function:
  23.  
  24. (define (script-fu-spinning-globe inImage 
  25.                   inLayer 
  26.                   inFrames 
  27.                   inFromLeft 
  28.                   inTransparent 
  29.                   inIndex 
  30.                   inCopy)
  31.   (set! theImage (if (= inCopy TRUE)
  32.              (car (gimp-channel-ops-duplicate inImage))
  33.              inImage))
  34.   (set! theLayer (car (gimp-image-get-active-layer theImage)))
  35.   (gimp-layer-add-alpha theLayer)
  36.   
  37.   (set! n 0)
  38.   (set! ang (* (/ 360 inFrames) 
  39.            (if (= inFromLeft TRUE) 1 -1) ))
  40.   (while (> inFrames n)
  41.      (set! n (+ n 1))
  42.      (set! theFrame (car (gimp-layer-copy theLayer FALSE)))
  43.      (gimp-image-add-layer theImage theFrame 0)
  44.      (gimp-layer-set-name theFrame 
  45.                   (string-append "Anim Frame: " 
  46.                          (number->string (- inFrames n) 10)
  47.                          " (replace)"))
  48.      (plug-in-map-object RUN-NONINTERACTIVE
  49.                  theImage theFrame 
  50.                             ; mapping
  51.                  1
  52.                     ; viewpoint
  53.                  0.5 0.5 2.0
  54.                     ; object pos 
  55.                  0.5 0.5 0.0
  56.                     ; first axis
  57.                  1.0 0.0 0.0
  58.                     ; 2nd axis
  59.                  0.0 1.0 0.0
  60.                     ; axis rotation
  61.                  0.0 (* n ang) 0.0
  62.                     ; light (type, color)
  63.                  0 '(255 255 255)
  64.                     ; light position
  65.                  -0.5 -0.5 2.0
  66.                     ; light direction
  67.                  -1.0 -1.0 1.0
  68.                     ; material (amb, diff, refl, spec, high)
  69.                  0.3 1.0 0.5 0.0 27.0
  70.                            ; antialias 
  71.                  TRUE 
  72.                            ; tile
  73.                  FALSE
  74.                            ; new image 
  75.                  FALSE 
  76.                            ; transparency
  77.                  inTransparent 
  78.                            ; radius
  79.                  0.25
  80.                            ; unused parameters
  81.                  1.0 1.0 1.0 1.0
  82.                  0 0 0 0 0 0 0 0)
  83.      ; end while: 
  84.      )
  85.   (gimp-image-remove-layer theImage theLayer)
  86.   (plug-in-autocrop RUN-NONINTERACTIVE theImage theFrame)
  87.   
  88.   (if (= inIndex 0)
  89.       ()
  90.       (gimp-convert-indexed theImage FS-DITHER MAKE-PALETTE inIndex FALSE FALSE ""))
  91.  
  92.   (if (= inCopy TRUE)
  93.       (begin  
  94.     (gimp-image-clean-all theImage)
  95.     (gimp-display-new theImage))
  96.       ())
  97.  
  98.   (gimp-displays-flush)
  99. )
  100.  
  101. ; Register the function with the GIMP:
  102.  
  103. (script-fu-register
  104.     "script-fu-spinning-globe"
  105.     _"<Image>/Script-Fu/Animators/Spinning Globe..."
  106.     "Maps the image on an animated spinning globe"
  107.     "Chris Gutteridge"
  108.     "1998, Chris Gutteridge / ECS dept, University of Southampton, England."
  109.     "16th April 1998"
  110.     "RGB* GRAY*"
  111.     SF-IMAGE    "The Image" 0
  112.     SF-DRAWABLE "The Layer" 0
  113.     SF-ADJUSTMENT _"Frames" '(10 1 360 1 10 0 1)
  114.     SF-TOGGLE     _"Turn from Left to Right" FALSE
  115.     SF-TOGGLE     _"Transparent Background" TRUE
  116.     SF-ADJUSTMENT _"Index to n Colors (0 = Remain RGB)" '(63 0 256 1 10 0 1)
  117.     SF-TOGGLE     _"Work on Copy" TRUE
  118. )
  119.