[Put script-fu used to rescale images under VC
clinton@unknownlamer.org**20090218213655
 Ignore-this: 8ec7e82195b4f3bfd37c33c5cfe166a0
] adddir ./misc/script-fu
addfile ./misc/script-fu/bee-background.scm
hunk ./misc/script-fu/bee-background.scm 1
-
+(define (script-fu-bee-back-rescale image layer filename)
+  (gimp-by-color-select layer '(255 255 255) 45 CHANNEL-OP-REPLACE
+			TRUE FALSE 0.0 FALSE)
+  (gimp-edit-clear layer)
+  (gimp-selection-none image)
+  (gimp-levels-stretch layer)
+  (let ((old-height (car (gimp-image-height image)))
+	(old-width  (car (gimp-image-width image))))
+    (let ((new-height (if (> old-height old-width)
+			  (round (/ old-width (/ old-height 1200)))
+			  1200))
+	  (new-width (if (< old-height old-width)
+			  (round (/ old-height (/ old-width 1200)))
+			  1200)))
+      ;; (round (/ (car (gimp-image-height image))
+      ;; 		(/ (car (gimp-image-width image)) 1200)))
+      (gimp-image-scale image new-height new-width)))
+  (gimp-image-convert-indexed image NO-DITHER MAKE-PALETTE
+			      256 FALSE FALSE "")
+  (apply file-png-set-defaults (append '(1 9) (cddr (file-png-get-defaults))))
+  (gimp-file-save RUN-NONINTERACTIVE image layer filename filename)
+  (gimp-image-clean-all image))
+
+(script-fu-register
+ "script-fu-bee-back-rescale"
+ "Bees Knees Background Rescale"
+ "moo"
+ "Clinton Ebadi"
+ "moo"
+ "moo"
+ ""
+ SF-IMAGE "Image" 0
+ SF-DRAWABLE "Drawable" 0
+ SF-FILENAME "Save" "")
+
+(script-fu-menu-register "script-fu-bee-back-rescale"
+			 "<Image>/")
addfile ./misc/script-fu/bee-scale.scm
hunk ./misc/script-fu/bee-scale.scm 1
-
+(define (script-fu-bee-rescale image layer filename)
+  (gimp-layer-add-alpha layer)
+  (gimp-by-color-select layer '(255 255 255) 15 CHANNEL-OP-REPLACE
+			TRUE FALSE 0.0 FALSE)
+  (gimp-edit-clear layer)
+  (gimp-selection-none image)
+  (gimp-image-scale image
+		    (round (/ (car (gimp-image-width image))
+			      (/ (car (gimp-image-height image)) 50)))
+		    50)
+  (gimp-file-save RUN-NONINTERACTIVE image layer filename filename)
+  (gimp-image-clean-all image))
+
+
+(script-fu-register
+ "script-fu-bee-rescale"
+ "Bees Knees Rescale"
+ "moo"
+ "Clinton Ebadi"
+ "moo"
+ "moo"
+ ""
+ SF-IMAGE "Image" 0
+ SF-DRAWABLE "Drawable" 0
+ SF-FILENAME "Save" "")
+
+(script-fu-menu-register "script-fu-bee-rescale"
+			 "<Image>/")