SQLの窓 イラストAC フリー素材

2006年12月04日

【GIMP1.2】AquaPro2の変更

とても綺麗で大好きなスクリプトですが、どうも使いにくいので
文字の上下のオフセットを指定できるようにしました
( スクリプト内には日本語を使ってるので、UTF8N で保存 )

1) script-fu-register の変更

(script-fu-register
  "script-fu-aquapro2-button"
  "/Xtns/Script-Fu/Web Page Themes/AquaPro2/Button..."
  "Create the logo in aqua pill image"
  "Iccii "
  "Iccii"
  "2001, Oct"
  ""
  SF-ADJUSTMENT _"両端のオフセット"	'(8 2 20 1 1 0 1)
  SF-ADJUSTMENT _"上下のオフセット"	'(6 2 20 1 1 0 1)
  SF-STRING	_"Text"			"日本語ボタン"
  SF-ADJUSTMENT	_"Font Size (pixels)"	'(20 2 500 1 1 0 1)

  SF-FONT	_"Font"
	; Checking winsnap plug-in (Windows or not?)
(if (symbol-bound? 'extension-winsnap (the-environment))
	; For Windows user
		"-unknown-MS Pゴシック-normal-r-normal-*-24-*-*-*-p-*-microsoft-russian"
	; Default setting
		"-*-classicheavylight-*-r-*-*-24-*-*-*-p-*-*-*"
)
  SF-COLOR      _"Text Color"		'(  0   0   0)
  SF-COLOR      _"Base Color"		'(183  71 124)
  SF-COLOR      _"Background Color"	'(255 255 255)
  SF-TOGGLE      "Transparent BG"	FALSE
  SF-TOGGLE	_"Add Drop-Shadow"	TRUE
)

2) 実行部分の変更
 
(define (script-fu-aquapro2-button
			offsetx
			offsety
			text
		 	size
			fontname
			text-color
			fg-color
			bg-color
			trans-bg?
			add-shadow?)
  (let* (
	 (old-fg (car (gimp-palette-get-foreground)))
	 (old-bg (car (gimp-palette-get-background)))
         (img (car (gimp-image-new 256 256 RGB)))
         (x-padding (/ size 3.5))
         (y-padding (/ size 3.5))
	) ; end variable definition

    (gimp-image-undo-disable img)
    (gimp-palette-set-foreground text-color)
    (let* (
           (text-layer (car (gimp-text-fontname img -1 0 0 text 0 TRUE
                                                size PIXELS fontname)))
           (layer-width (car (gimp-drawable-width text-layer)))
           (layer-height (car (gimp-drawable-height text-layer)))
          )
      (gimp-image-resize img layer-width layer-height 0 0)
      (gimp-layer-set-name text-layer text text)
      (set! listed (script-fu-aqua-button2
         (* (+ (* offsetx x-padding) layer-width)  (/ 512 432))
         (* (+ (* offsety y-padding) layer-height) (/ 286 176))
          fg-color bg-color trans-bg?))



posted by at 2006-12-04 21:56 | 古い記事 | このブログの読者になる | 更新情報をチェックする


Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX