Spracherkennung für: .scm vermutete Sprache: Abap {ABAP[72] Lisp[41] Masm[41]} [Methode: maximale Elemente, drei Dimensionen]
;
; anim_sphere
;
;
; Chris Gutteridge (cjg@ecs.soton.ac.uk)
;
At ECS Dept, University
of Southampton, England.
; This
program is free software: you can redistribute it
and/
or modify
; it
under the terms
of the GNU General Public License
as published
by
; the
Free Software Foundation; either version
3 of the License,
or
; (
at your option)
any later version.
;
; This
program is distributed
in the hope that it will be useful,
; but WITHOUT
ANY WARRANTY; without even the implied warranty
of
; MERCHANTABILITY
or FITNESS
FOR A PARTICULAR PURPOSE. See the
; GNU General Public License
for more details.
;
; You should have received a
copy of the GNU General Public License
; along with this
program.
If not, see <
https://www.gnu.org/licenses/>.
;
Define the
function:
(
define (script-fu-spinning-globe inImage
inLayer
inFrames
inFromLeft
inTransparent
inIndex
inCopy)
(let
* (
(theImage (
if (= inCopy TRUE)
(car (gimp-image-duplicate inImage))
inImage))
(theLayer (vector-ref (car (gimp-image-
get-selected-layers theImage))
0))
(n
0)
(ang (
* (/ 360 inFrames)
(
if (= inFromLeft TRUE)
1 -
1) ))
(theFrame
0)
)
(gimp-layer-
add-alpha theLayer)
(
while (> inFrames n)
(
set! n (+ n
1))
(
set! theFrame (car (gimp-layer-
copy theLayer)))
(gimp-image-
insert-layer theImage theFrame
0 0)
(gimp-item-
set-name theFrame
(
string-
append "Anim Frame: "
(number->
string (- inFrames n)
10)
" (replace)"))
;(gimp-
message "Now call map-object")
(plug-
in-map-
object #:
run-mode
RUN-NONINTERACTIVE
#:image theImage ; mapping image
#:drawables (vector theFrame) ; mapping drawables
#:map-
type "map-sphere" ; sphere
#:viewpoint-x
0.
5 ; viewpoint
#:viewpoint-y
0.
5
#:viewpoint-z
2.
0
#:
position-x
0.
5 ;
object pos
#:
position-y
0.
5
#:
position-z
0.
0
#:first-axis-x
1.
0 ; first axis
#:first-axis-y
0.
0
#:first-axis-z
0.
0
#:second-axis-x
0.
0 ;
2nd axis
#:second-axis-y
1.
0
#:second-axis-z
0.
0
#:rotation-angle-x
0.
0 ; axis rotation
#:rotation-angle-y (
* n ang)
#:rotation-angle-z
0.
0
#:light-
type "point-light" ; light
type
#:light-
color '(255 255 255) ; light color
#:light-
position-x -
0.
5 ; light
position
#:light-
position-y -
0.
5
#:light-
position-z
2.
0
#:light-direction-x -
1.
0 ; light direction
#:light-direction-y -
1.
0
#:light-direction-z
1.
0
#:ambient-intensity
0.
3 ; material (amb, diff, refl, spec, high)
#:diffuse-intensity
1.
0
#:diffuse-reflectivity
0.
5
#:specular-reflectivity
0.
0
#:highlight
27.
0
#:antialiasing TRUE ; antialias
#:depth
3.
0 ; depth
#:threshold
0.
25 ; threshold
#:tiled FALSE ; tile
#:new-image FALSE ; new image
#:new-layer FALSE ; new layer
#:transparent-background inTransparent ; transparency
#:sphere-radius
0.
25 ; radius
)
)
(gimp-image-remove-layer theImage theLayer)
(gimp-image-autocrop theImage theFrame)
(
if (= inIndex
0)
()
(gimp-image-
convert-indexed theImage
CONVERT-DITHER-FS
CONVERT-PALETTE-
GENERATE inIn
dex
FALSE FALSE ""))
(if (= inCopy TRUE)
(begin
(gimp-image-clean-all theImage)
(gimp-display-new theImage)
)
)
(gimp-displays-flush)
)
)
(script-fu-register-filter
"script-fu-spinning-globe"
_"_Spinning Globe..."
_"Create an animation by mapping the current image onto a spinning sphere"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"16th April 1998"
"RGB* GRAY*"
SF-ONE-OR-MORE-DRAWABLE
SF-ADJUSTMENT _"Frames" '(10 1 360 1 10 0 1)
SF-TOGGLE _"Turn from left to right" FALSE
SF-TOGGLE _"Transparent background" TRUE
SF-ADJUSTMENT _"Index to n colors (0 = remain RGB)" '(63 0 256 1 10 0 1)
SF-TOGGLE _"Work on copy" TRUE
)
(script-fu-menu-register "script-fu-spinning-globe"
"<Image>/Filters/Animation/")
