Import CUPS 1.4svn r7023 into easysw/current.

[thirdparty/cups.git] / doc / images / cups-green-button-2.2.scm

diff --git a/doc/images/cups-green-button-2.2.scm b/doc/images/cups-green-button-2.2.scm
deleted file mode 100644 (file)
index 4993bdd..0000000
--- a/doc/images/cups-green-button-2.2.scm
+++ /dev/null
@@ -1,80 +0,0 @@
-;  CUPS Green Button
-;  Create a flat rounded button 
-
-(define (script-fu-cups-green-button text text-color button-height button-color bg-color)
-  (let* (
-       (img (car (gimp-image-new 256 256 RGB)))
-       (old-fg (car (gimp-palette-get-foreground)))
-       (old-bg (car (gimp-palette-get-background)))
-       (font-size (+ (/ (* 3 button-height) 5) 1))
-       (dummy (gimp-palette-set-foreground text-color))
-       (text-layer (car (gimp-text-fontname img -1 0 0 text 0
-                                   TRUE font-size PIXELS
-                                   "Sans L,")))
-       (text-width (car (gimp-drawable-width text-layer)))
-       (text-height (car (gimp-drawable-height text-layer)))
-       (button-width (+ text-width button-height))
-       (bg-layer (car (gimp-layer-new img button-width button-height
-                                      RGBA-IMAGE "Background" 100
-                                      NORMAL-MODE)))
-        )
-
-    ; Disable undo while we do our work...
-    (gimp-image-undo-disable img)
-
-    ; Resize the image as needed...
-    (gimp-image-resize img button-width button-height 0 0)
-    (gimp-image-add-layer img bg-layer 1)
-    (gimp-layer-set-preserve-trans text-layer TRUE)
-
-    ; Clear the background...
-    (gimp-selection-clear img)
-    (gimp-palette-set-background bg-color)
-    (gimp-edit-fill bg-layer 1)
-
-    ; Make selections as needed for a rounded box.
-    (gimp-rect-select img (* 0.5 button-height) 0
-                      (- button-width button-height) button-height
-                     REPLACE 0 0)
-    (gimp-ellipse-select img (- button-width button-height) 0
-                         button-height button-height ADD 1 0 0)
-    (gimp-ellipse-select img 0 0 button-height button-height ADD 1 0 0)
-
-    ; Fill in the background...
-    (gimp-palette-set-background button-color)
-    (gimp-edit-fill bg-layer 1)
-
-    ; Clear the border around the button image...
-    (gimp-selection-invert img)
-    (gimp-edit-clear bg-layer)
-    (gimp-selection-clear img)
-
-    ; Restore original colors...
-    (gimp-palette-set-foreground old-fg)
-    (gimp-palette-set-background old-bg)
-
-    ; Translate the text later to center it...
-    (gimp-layer-translate text-layer (* 0.5 button-height)
-                          (- (* 0.5 (- button-height text-height)) 1))
-
-    ; Then flatten the image...
-    (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)
-    (gimp-convert-indexed img 0 0 16 0 1 "")
-    (gimp-image-undo-enable img)
-    (gimp-display-new img)
-  )
-)
-
-(script-fu-register "script-fu-cups-green-button"
-                   "<Toolbox>/Btns/CUPS Green Button"
-                   "CUPS Green Button"
-                   "Michael Sweet <mike@easysw.com>"
-                   "Michael Sweet <mike@easysw.com>"
-                   "2000"
-                   ""
-                   SF-VALUE "Text String" "\"Button\""
-                   SF-COLOR "Text Color" '(255 255 255)
-                   SF-VALUE "Button Size (in pixels)" "20"
-                   SF-COLOR "Button Color" '(0 153 0)
-                   SF-COLOR "Background Color" '(212 212 164)
-)