summaryrefslogtreecommitdiffstats
path: root/gimp
diff options
context:
space:
mode:
Diffstat (limited to 'gimp')
-rw-r--r--gimp/gimprc17
-rw-r--r--gimp/scripts/gimp-convert-to-jpeg.scm17
-rw-r--r--gimp/scripts/gimp-normalize-to-bootsplash.scm61
3 files changed, 0 insertions, 95 deletions
diff --git a/gimp/gimprc b/gimp/gimprc
deleted file mode 100644
index 7e6556b..0000000
--- a/gimp/gimprc
+++ /dev/null
@@ -1,17 +0,0 @@
-# GIMP gimprc
-#
-# This is your personal gimprc file. Any variable defined in this file takes
-# precedence over the value defined in the system-wide gimprc:
-# /etc/gimp/2.0/gimprc
-# Most values can be set within The GIMP by changing some options in the
-# Preferences dialog.
-
-(gimp_dir "./gimp")
-(script-fu-path "./gimp/scripts:${gimp_dir}/scripts:${gimp_data_dir}/scripts")
-
-(tile-cache-size 256M)
-(monitor-xresolution 81.000000)
-(monitor-yresolution 81.000000)
-(show-tips no)
-
-# end of gimprc
diff --git a/gimp/scripts/gimp-convert-to-jpeg.scm b/gimp/scripts/gimp-convert-to-jpeg.scm
deleted file mode 100644
index 29efef0..0000000
--- a/gimp/scripts/gimp-convert-to-jpeg.scm
+++ /dev/null
@@ -1,17 +0,0 @@
-
-(define (gimp-convert-to-jpeg quality infile outfile)
- (let* ((image (car (file-png-load 1 infile infile)))
- )
-
- (gimp-image-flatten image)
-
- (let* ((drawable (car (gimp-image-get-active-drawable image))))
- (if (= (car (gimp-drawable-is-rgb drawable)) FALSE)
- (gimp-image-convert-rgb image))
-
- (file-jpeg-save 1 image drawable outfile outfile quality 0 1 0 "Mageia Theme" 2 1 0 2 )
- (gimp-image-delete image)
- )
-
- )
-)
diff --git a/gimp/scripts/gimp-normalize-to-bootsplash.scm b/gimp/scripts/gimp-normalize-to-bootsplash.scm
deleted file mode 100644
index 2d256e7..0000000
--- a/gimp/scripts/gimp-normalize-to-bootsplash.scm
+++ /dev/null
@@ -1,61 +0,0 @@
-; dmmScalePNG.scm - GIMP Script-Fu to Scale a PNG Image to a New Width
-; This Script-Fu must be put in The GIMP's script directory
-; (e.g., $HOME/.gimp-1.2/scripts).
-; For interactive invocation, run The GIMP and go to
-; Xtns -> Script-Fu -> dmm
-; New width is in pixels
-;
-
-(define (gimp-normalize-to-bootsplash-dirs quality dirpattern pattern)
- (let* ((dirs (file-glob dirpattern 1))
- (count (car dirs))
- (dirlist (cadr dirs))
- (i 0))
- (while (< i count)
- (let* ((dirname (aref dirlist i))
- (filepattern (strcat dirname "/" pattern)))
- (gimp-message (strcat "Browsing " filepattern))
- (gimp-normalize-to-bootsplash-files quality filepattern))
- (set! i (+ i 1)))))
-
-(define (gimp-normalize-to-bootsplash-files quality pattern)
- (let* ((files (file-glob pattern 1))
- (count (car files))
- (filelist (cadr files))
- (i 0))
- (while (< i count)
- (let* ((infile (aref filelist i))
- (outfile (strcat (car (strbreakup infile ".")) ".jpg")))
- (gimp-message (strcat "Processing " infile))
- (gimp-normalize-to-bootsplash quality infile outfile))
- (set! i (+ i 1)))))
-
-(define (gimp-normalize-to-bootsplash quality infile outfile)
- (let* ((image (car (gimp-file-load 1 infile infile)))
- )
-
- (gimp-image-flatten image)
-
- (let* ((drawable (car (gimp-image-get-active-drawable image))))
- (if (= (car (gimp-drawable-is-rgb drawable)) FALSE)
- (gimp-image-convert-rgb image))
-
- (file-jpeg-save 1 image drawable outfile outfile quality 0 0 0 "Mageia Theme" 0 1 0 0 )
- (gimp-image-delete image)
- )
-
- )
-)
-
-(script-fu-register ; I always forget these ...
- "gimp-normalize-to-bootsplash" ; script name to register
- "<Image>/Filters/Mageia/Save the jpeg image to the right format for bootsplash" ; where it goes
- "Transform an image to a jpg compatible image for bootsplash" ; script description
- "Warly/blino" ; author
- "Copyright 2006 by Mandriva; GNU GPL" ; copyright
- "2006-09-01" ; date
- "" ; type of image
- SF-VALUE "Quality" "0.9" ; default quality
- SF-FILENAME "Infile" "infile.png"
- SF-FILENAME "Infile" "outfile.jpg"
-)