callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

API PATCH #2 or so

Browse Source
This commit is contained in:
Marc Lehmann
1999-10-17 00:07:55 +00:00
parent 0975e3dae4
commit ec40ac728b
257 changed files with 5520 additions and 4113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
plug-ins/script-fu/scripts/weave.scm
View File

@ -37,7 +37,7 @@
(darkness (* 255 (/ (- 100 shadow-darkness) 100)))
(img (car (gimp-image-new tile-size tile-size RGB)))
(drawable (car (gimp-layer-new img tile-size tile-size RGB_IMAGE "Weave tile" 100 NORMAL))))
(gimp-image-disable-undo img)
(gimp-image-undo-disable img)
(gimp-image-add-layer img drawable 0)
(gimp-palette-set-background '(0 0 0))
@ -138,7 +138,7 @@
; Done
(gimp-image-enable-undo img)
(gimp-image-undo-enable img)
(list img drawable)))
@ -161,7 +161,7 @@
(let* ((tile-size (+ (* 2 ribbon-width) (* 2 ribbon-spacing)))
(img (car (gimp-image-new tile-size tile-size RGB)))
(drawable (car (gimp-layer-new img tile-size tile-size RGB_IMAGE "Mask" 100 NORMAL))))
(gimp-image-disable-undo img)
(gimp-image-undo-disable img)
(gimp-image-add-layer img drawable 0)
(gimp-palette-set-background '(0 0 0))
@ -175,7 +175,7 @@
(gimp-edit-fill drawable)
(gimp-selection-none img)
(gimp-image-enable-undo img)
(gimp-image-undo-enable img)
(list img drawable)))