From 617e4a1c54bd811b5b000f79f1729e566c8f427c Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Fri, 19 Dec 2014 20:37:01 +0100 Subject: Add gimp scripts --- gimp/.gimp-2.8/scripts/half.scm | 46 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 gimp/.gimp-2.8/scripts/half.scm (limited to 'gimp/.gimp-2.8') diff --git a/gimp/.gimp-2.8/scripts/half.scm b/gimp/.gimp-2.8/scripts/half.scm new file mode 100644 index 0000000..b107325 --- /dev/null +++ b/gimp/.gimp-2.8/scripts/half.scm @@ -0,0 +1,46 @@ +(define (split-filename filename) + (let ((ext (memv #\. (string->list filename)))) + (cons + (substring filename 0 (- (string-length filename) (length ext))) + (list->string (cdr ext))))) + +(define (string-minus str num) + (substring str 0 (- (string-length str) num))) + +(define (unretina-save image) + (let* ((parts (split-filename (car (gimp-image-get-filename image)))) + (newname (string-append (string-minus (car parts) 3) "." + (cdr parts)))) + (gimp-file-save RUN-NONINTERACTIVE image + (car (gimp-image-get-active-drawable image)) + newname newname))) + +(define (unretina image) + (unretina-save (half image))) + +(define (half image) + (let ((newwidth (/ (car (gimp-image-width image)) 2)) + (newheight (/ (car (gimp-image-height image)) 2))) + (gimp-image-scale image newwidth newheight)) + (gimp-displays-flush) + image) + +(script-fu-register "half" + "Halfsize image" + "Reduce the size of an image to 50%" + "Tom Willemse " + "Tom Willemse" + "2014-11-18" + "RGB*, GRAY*" + SF-IMAGE "Image" 0) +(script-fu-menu-register "half" "/Picturefix") + +(script-fu-register "unretina" + "Unretina image" + "Reduce the size of an image and rename for non-retina displays." + "Tom Willemse " + "Tom Willemse" + "2014-12-01" + "RGB*, GRAY*" + SF-IMAGE "Image" 0) +(script-fu-menu-register "unretina" "/Picturefix") -- cgit v1.2.3-54-g00ecf