dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

a cleaned up version of the script contributed by Kevin Cozens (see bug 

2004-10-04  Sven Neumann  <sven@gimp.org>

	* plug-ins/script-fu/scripts/asc2img.scm: a cleaned up version of
	the script contributed by Kevin Cozens (see bug #153900).

	* plug-ins/script-fu/scripts/predator.scm: applied patch by Kevin
	Cozens that fixes use of the script on original layer (bug #152678).
This commit is contained in:
Sven Neumann 2004-10-04 09:02:00 +00:00 committed by Sven Neumann
parent 2119f890d4
commit 97b6636472
3 changed files with 210 additions and 184 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@ -1,3 +1,11 @@
2004-10-04 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/asc2img.scm: a cleaned up version of
the script contributed by Kevin Cozens (see bug #153900).
* plug-ins/script-fu/scripts/predator.scm: applied patch by Kevin
Cozens that fixes use of the script on original layer (bug #152678).
2004-10-04 Sven Neumann <sven@gimp.org> 2004-10-04 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/3d-outline.scm * plug-ins/script-fu/scripts/3d-outline.scm

380
plug-ins/script-fu/scripts/asc2img.scm
View File

@ -2,7 +2,7 @@
; "ASCII 2 Image" script for the Gimp. ; "ASCII 2 Image" script for the Gimp.
; ;
; 8th April 1998 ; 8th April 1998
; ;
; Takes a filename of an ASCII file and converts it to a gimp image. ; Takes a filename of an ASCII file and converts it to a gimp image.
; Does sensible things to preserve indents (gimp-text strips them) ; Does sensible things to preserve indents (gimp-text strips them)
; ;
@ -12,12 +12,12 @@
; it under the terms of the GNU General Public License as published by ; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or ; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version. ; (at your option) any later version.
; ;
; This program is distributed in the hope that it will be useful, ; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of ; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details. ; GNU General Public License for more details.
; ;
; You should have received a copy of the GNU General Public License ; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software ; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
@ -25,214 +25,230 @@
; Define the function: ; Define the function:
(define (script-fu-asc-2-img inFile (define (script-fu-asc-2-img inFile
inFont inFont
inFontSize inFontSize
inTextColor inTextColor
inTrans inTrans
inBackColor inBackColor
inBufferAmount) inBufferAmount)
(set! theImage (car (gimp-image-new 10 10 RGB))) (let* (
(set! theLayer (car (gimp-layer-new theImage (theImage (car (gimp-image-new 10 10 RGB) ) )
10 (theLayer (car (gimp-layer-new theImage
10 10
RGBA-IMAGE 10
"layer 1" RGBA-IMAGE
100 "layer 1"
NORMAL-MODE))) 100
NORMAL-MODE) ) )
(theImageWidth 0)
(theImageHeight 0)
(theBuffer)
)
(gimp-context-push) (gimp-context-push)
(gimp-context-set-background inBackColor) (gimp-context-set-background inBackColor)
(gimp-drawable-set-name theLayer "Background") (gimp-drawable-set-name theLayer "Background")
(gimp-image-add-layer theImage theLayer 0) (gimp-image-add-layer theImage theLayer 0)
(script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize (script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize
inTextColor inBufferAmount) inTextColor inBufferAmount)
(set! theBuffer (* inFontSize (/ inBufferAmount 100))) (set! theImageWidth (car (gimp-drawable-width
(set! theImageWidth (+ theImageWidth theBuffer theBuffer)) (car (gimp-image-get-active-layer theImage)))))
(set! theImageHeight (+ theImageHeight theBuffer theBuffer)) (set! theImageHeight (car (gimp-drawable-height
(car (gimp-image-get-active-layer theImage)))))
(gimp-image-resize theImage (set! theBuffer (* inFontSize (/ inBufferAmount 100) ) )
theImageWidth (set! theImageWidth (+ theImageWidth theBuffer theBuffer ))
theImageHeight (set! theImageHeight (+ theImageHeight theBuffer ))
theBuffer
theBuffer) (gimp-image-resize theImage theImageWidth theImageHeight theBuffer theBuffer)
(gimp-layer-resize theLayer (gimp-layer-resize theLayer theImageWidth theImageHeight theBuffer theBuffer)
theImageWidth
theImageHeight
theBuffer
theBuffer)
(gimp-selection-all theImage) (gimp-selection-all theImage)
(if (= inTrans TRUE) (if (= inTrans TRUE)
(gimp-edit-clear theLayer) (gimp-edit-clear theLayer)
(gimp-edit-fill theLayer BACKGROUND-FILL)) (gimp-edit-fill theLayer BACKGROUND-FILL)
)
(gimp-selection-none theImage) (gimp-selection-none theImage)
(gimp-display-new theImage) (gimp-display-new theImage)
(gimp-image-clean-all theImage)
(gimp-displays-flush) (gimp-displays-flush)
(gimp-context-pop) (gimp-context-pop)
)
(cons theImage ())
) )
(define (script-fu-asc-2-img-layer inImage (define (script-fu-asc-2-img-layer inImage
inLayer inLayer
inFile inFile
inFont inFont
inFontSize inFontSize
inTextColor) inTextColor)
(set! theImage inImage)
(set! theLayer inLayer)
(set! theFile (fopen inFile))
(set! otherLayers (cadr (gimp-image-get-layers theImage)))
(set! nLayers (car (gimp-image-get-layers theImage)))
(set! n nLayers)
(gimp-context-push)
(let* (
(theImage inImage)
(theLayer inLayer)
(theFile (fopen inFile))
(otherLayers (cadr (gimp-image-get-layers theImage)))
(nLayers (car (gimp-image-get-layers theImage)))
(n nLayers)
(theImageWidth 0)
(theImageHeight 0)
(theData)
(theIndentList)
(theChar)
(allspaces)
(theIndent)
(theLine)
(theChar)
(theText)
(theCharWidth)
)
(define (cjg-add-text inData inIndentList inFont inFontSize)
(if (equal? () inData)
()
(let (
(theLine (car inData))
(theIndent (car inIndentList))
(theLineHeight 0)
(theText)
)
(if (equal? "" theLine)
()
(begin
(set! theText (car (gimp-text-fontname inImage
-1
0
0
theLine
0
TRUE
inFontSize
PIXELS
inFont)))
(set! theLineHeight (car (gimp-drawable-height theText)))
(gimp-layer-set-offsets theText
(* theCharWidth theIndent)
(+ theImageHeight
(- inFontSize theLineHeight)))
(set! theImageWidth (max
(+ (car (gimp-drawable-width theText))
(* theCharWidth theIndent))
theImageWidth ))
(if (= (car (gimp-layer-is-floating-sel theText)) TRUE)
(gimp-floating-sel-anchor theText)
)
(gimp-drawable-set-name theText theLine)
)
)
(cjg-add-text (cdr inData) (cdr inIndentList) inFont inFontSize)
)
)
)
(gimp-context-push)
(gimp-context-set-foreground inTextColor) (gimp-context-set-foreground inTextColor)
(gimp-selection-none theImage) (gimp-selection-none theImage)
(set! theData ()) (set! theData ())
(set! theIndentList ()) (set! theIndentList ())
(set! theChar "X") (set! theChar "X")
(while (not (equal? () theChar)) (while (not (equal? () theChar))
(set! allspaces TRUE) (set! allspaces TRUE)
(set! theIndent 0) (set! theIndent 0)
(set! theLine "") (set! theLine "")
(while (begin (set! theChar (fread 1 theFile)) (while (begin
(and (not (equal? "\n" theChar)) (set! theChar (fread 1 theFile))
(not (equal? () theChar)) (and (not (equal? "\n" theChar))
) (not (equal? () theChar))
) )
(cond ( (equal? theChar "\t") )
(set! theChar " ") (cond
(if (= allspaces TRUE) (
(set! theIndent (+ theIndent 8)) (equal? theChar "\t")
()) (set! theChar " ")
) (if (= allspaces TRUE)
( (equal? theChar " ") (set! theIndent (+ theIndent 8))
(if (= allspaces TRUE) )
(set! theIndent (+ theIndent 1)) )
()) (
) (equal? theChar " ")
(TRUE (set! allspaces FALSE)) (if (= allspaces TRUE)
) (set! theIndent (+ theIndent 1))
(set! theLine (string-append theLine theChar)) )
) )
(if (= allspaces TRUE) (TRUE (set! allspaces FALSE))
(set! theLine "") )
() (set! theLine (string-append theLine theChar))
) )
(if (and (equal? () theChar) (if (= allspaces TRUE)
(equal? "" theLine) (set! theLine "")
) )
() (if (and (equal? () theChar)
(begin (set! theData (cons theLine theData)) (equal? "" theLine)
(set! theIndentList )
(cons theIndent theIndentList)) ()
) (begin
) (set! theData (cons theLine theData))
) (set! theIndentList (cons theIndent theIndentList))
)
(set! theText (car (gimp-text-fontname theImage )
-1
0
0
"X"
0
TRUE
inFontSize
PIXELS
inFont)))
(set! theCharWidth (car (gimp-drawable-width theText) ))
(gimp-edit-cut theText)
(set! theImageHeight 0)
(set! theImageWidth 0)
(cjg-add-text (reverse theData)
(reverse theIndentList)
inFont
inFontSize)
(set! n nLayers)
(gimp-displays-flush)
(gimp-context-pop))
(define (cjg-add-text inData inIndentList inFont inFontSize)
(if (equal? () inData)
()
(let ((theLine (car inData)) (theIndent (car inIndentList)))
(if (equal? "" theLine)
()
(begin
(set! theText (car (gimp-text-fontname theImage
-1
0
0
(string-append
" " theLine)
0
TRUE
inFontSize
PIXELS
inFont)))
(set! theLineHeight (car (gimp-drawable-height theText) ) )
(gimp-layer-set-offsets theText
(* theCharWidth theIndent)
(+ theImageHeight
(- inFontSize theLineHeight)))
(set! theImageWidth (max
(+ (car (gimp-drawable-width theText) )
(* theCharWidth theIndent))
theImageWidth ))
(if (= (car (gimp-layer-is-floating-sel theText)) TRUE)
(gimp-floating-sel-anchor theText)
()
)
(gimp-drawable-set-name theText theLine)
)
)
(set! theImageHeight
(+ theImageHeight inFontSize))
(cjg-add-text (cdr inData) (cdr inIndentList) inFont inFontSize)))
) )
(set! theText (car (gimp-text-fontname theImage
-1
0
0
"X"
0
TRUE
inFontSize
PIXELS
inFont)))
(set! theCharWidth (car (gimp-drawable-width theText)))
(gimp-edit-cut theText)
(cjg-add-text (reverse theData) (reverse theIndentList) inFont inFontSize)
(gimp-context-pop)
(gimp-displays-flush)
)
)
; Register the function with the GIMP: ; Register the function with the GIMP:
(script-fu-register (script-fu-register
"script-fu-asc-2-img" "script-fu-asc-2-img"
_"<Toolbox>/Xtns/Script-Fu/Utils/_ASCII to Image..." _"<Toolbox>/Xtns/Script-Fu/Utils/_ASCII to Image..."
"Create a new image containing text from a simple text file" "Create a new image containing text from a simple text file"
"Chris Gutteridge: cjg@ecs.soton.ac.uk" "Chris Gutteridge: cjg@ecs.soton.ac.uk"
"8th April 1998" "8th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England" "Chris Gutteridge / ECS @ University of Southampton, England"
"" ""
SF-FILENAME _"Filename" "afile" SF-FILENAME _"Filename" "afile"
SF-FONT _"Font" "Bitstream Charter" SF-FONT _"Font" "Bitstream Charter"
SF-ADJUSTMENT _"Font Size (pixels)" '(45 2 1000 1 10 0 1) SF-ADJUSTMENT _"Font size (pixels)" '(45 2 1000 1 10 0 1)
SF-COLOR _"Text Color" '(0 0 0) SF-COLOR _"Text color" '(0 0 0)
SF-TOGGLE _"Transparent Background" FALSE SF-TOGGLE _"Transparent background" FALSE
SF-COLOR _"Background Color" '(255 255 255) SF-COLOR _"Background color" '(255 255 255)
SF-ADJUSTMENT _"Buffer Amount (% Height of Text)" '(35 0 100 1 10 0 0) SF-ADJUSTMENT _"Buffer amount (% height of text)" '(35 0 100 1 10 0 0)
) )
(script-fu-register "script-fu-asc-2-img-layer" (script-fu-register "tiny-fu-asc-2-img-layer"
_"<Image>/Script-Fu/Utils/_ASCII to Layer..." _"<Image>/Script-Fu/Utils/_ASCII to Layer..."
"Create a new layer of text from a simple text file" "Create a new layer of text from a simple text file"
"Chris Gutteridge: cjg@ecs.soton.ac.uk" "Chris Gutteridge: cjg@ecs.soton.ac.uk"
"30th April 1998" "30th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England" "Chris Gutteridge / ECS @ University of Southampton, England"
"*" "*"
SF-IMAGE "Image" 0 SF-IMAGE "Image" 0
SF-DRAWABLE "Layer" 0 SF-DRAWABLE "Layer" 0
SF-FILENAME _"File name" "afile" SF-FILENAME _"File name" "afile"
SF-FONT _"Font" "Bitstream Charter" SF-FONT _"Font" "Bitstream Charter"
SF-ADJUSTMENT _"Font size (pixels)" '(45 2 1000 1 10 0 1) SF-ADJUSTMENT _"Font size (pixels)" '(45 2 1000 1 10 0 1)
SF-COLOR _"Text color" '(0 0 0) SF-COLOR _"Text color" '(0 0 0)
) )

6
plug-ins/script-fu/scripts/predator.scm
View File

@ -84,8 +84,10 @@
(let ((floating-sel (car (gimp-edit-paste effect-layer FALSE)))) (let ((floating-sel (car (gimp-edit-paste effect-layer FALSE))))
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
(gimp-image-set-active-layer image effect-layer ))) (gimp-image-set-active-layer image effect-layer ))
(set! active-layer (car (gimp-image-get-active-layer image))) (set! effect-layer drawable)
)
(set! active-layer effect-layer)
; all the fun stuff goes here ; all the fun stuff goes here
(if (= pixelize TRUE) (if (= pixelize TRUE)