; 210_shapes_old-paper.scm
; last modified/tested by Paul Sherman [gimphelp.org]
; Wednesday, 07/15/2020 on GIMP 2.10.20
;==================================================
;
; Installation:
; This script should be placed in the user or system-wide script folder.
;
;	Windows 7/10
;	C:\Program Files\GIMP 2\share\gimp\2.0\scripts
;	or
;	C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts
;	
;    
;	Linux
;	/home/yourname/.config/GIMP/2.10/scripts  
;	or
;	Linux system-wide
;	/usr/share/gimp/2.0/scripts
;
;==================================================
;
; LICENSE
;
;    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 <http://www.gnu.org/licenses/>.
;
;==============================================================
; Original information 
; 
; script by kward1979uk
;==============================================================
(define (add-text t-colour theImage text font-size font) 
	(gimp-context-set-foreground t-colour)
	(let*(
	(selection-bounds (gimp-selection-bounds theImage))
	(sx1 (cadr selection-bounds))
	(sy1 (caddr selection-bounds))
	(sx2 (cadr (cddr selection-bounds)))
	(sy2 (caddr (cddr selection-bounds)))
	(text-layer (car (gimp-text-fontname theImage -1 0 0 text 0 TRUE font-size PIXELS font)))
	(swidth  (- sx2 sx1))
	(sheight (- sy2 sy1))
	(hdiff (/ (- sheight (car (gimp-drawable-height text-layer))) 2 ))
	(wdiff (/ (- swidth (car (gimp-drawable-width text-layer))) 2 ))
	)
	(gimp-layer-translate  text-layer (+ sx1 wdiff) (+ sy1 hdiff) )
	)
)
(define (210-old-paper 
		inImage 
		inlayer 
		distress 
		p-colour 
		shadow 
		text-req 
		text 
		font 
		font-size 
		t-colour
	)
	(gimp-image-undo-group-start inImage)
	(if (not (= RGB (car (gimp-image-base-type inImage))))
			 (gimp-image-convert-rgb inImage))	
	(let*(
		(OldFG (car (gimp-context-get-foreground)))
		(OldBG (car (gimp-context-get-background)))
		(theImage inImage)
		(theHeight (car (gimp-image-height theImage)))
		(theWidth (car (gimp-image-width theImage)))
		)
		(if 
		(= 1 (car (gimp-selection-is-empty theImage)))  
		(gimp-selection-all theImage)
		)
		(let*(
			(paper-layer (car (gimp-layer-new theImage theWidth theHeight
 				RGBA-IMAGE "paper" 100 LAYER-MODE-NORMAL-LEGACY)))
			(rust-layer (car (gimp-layer-new theImage theWidth theHeight
 				RGBA-IMAGE "rust" 100 OVERLAY-MODE)))
			(spots-layer (car (gimp-layer-new theImage theWidth theHeight
 				RGBA-IMAGE "spots" 100 OVERLAY-MODE)))
			(noise-layer (car (gimp-layer-new theImage theWidth theHeight
 				RGBA-IMAGE "noise" 100 OVERLAY-MODE)))
			)
			(gimp-image-insert-layer theImage paper-layer 0 0)
			(gimp-drawable-fill paper-layer 3)
			(gimp-image-insert-layer theImage rust-layer 0 0)
			(gimp-drawable-fill rust-layer 3)
			(gimp-image-insert-layer theImage spots-layer 0 0)
			(gimp-drawable-fill spots-layer 3)
			(gimp-image-insert-layer theImage noise-layer 0 0)
			(gimp-drawable-fill noise-layer 3)
			(if (= distress TRUE) (script-fu-distress-selection theImage paper-layer 127 8 4 2 TRUE TRUE))
			(gimp-context-set-foreground p-colour)
			(gimp-edit-bucket-fill paper-layer 0 0 100 0 0 0 0)
			(gimp-context-set-pattern "Slate")
			(gimp-edit-bucket-fill rust-layer 2 0 100 0 0 0 0)
			(gimp-context-set-brush "Circle Fuzzy (13)")
			(gimp-context-set-foreground '(0 0 0))
			(gimp-edit-stroke spots-layer)
			(plug-in-plasma 1 theImage noise-layer 1369051446 1)
			(gimp-desaturate noise-layer)
			(if (= shadow TRUE) (script-fu-drop-shadow theImage noise-layer 8 8 15 '(0 0 0) 80 1))
			(if (= text-req TRUE) (add-text t-colour theImage text font-size font))
			(gimp-displays-flush) 
	))
	(gimp-image-undo-group-end inImage)
)
(script-fu-register "210-old-paper"
	"Old Paper"
	"Take a users selection and turns it into a old paper effect with the option of text.\n\nIf no selection is made then entire image is used."
	"Karl Ward"
	"Karl Ward"
	"Oct 2005"
	"*"
	SF-IMAGE      "SF-IMAGE" 						0
	SF-DRAWABLE   "SF-DRAWABLE" 					0
	SF-TOGGLE     "Distress selection" 				TRUE
	SF-COLOR      "Paper Colour" 					'(207 194 162)
	SF-TOGGLE     "Apply drop-shadow" 				TRUE
	SF-TOGGLE     "Text Required" 					FALSE
	SF-STRING     "Text (IF NO TEXT LEAVE BLANK)" 	""
	SF-FONT       "Font" 							""
	SF-ADJUSTMENT "Font-size" 						'(15 10 300 1 10 0 1)
	SF-COLOR      "TEXT Colour" 					'(0 0 0)
)
(script-fu-menu-register "210-old-paper" "<Image>/Script-Fu/Shapes")