Нужна простенькая програмка для создания шаблонных кнопок

[mstdmstd]

Всем привет
Подскажите пожалуйста какую-нить несложную програмку для линуха(можно в KDE4) в которой можно было создавать кнопки вводя текст не напрягаясь
с рисованием дизайна этой кнопки и хорошо бы чтоб там были шаблоны разных кнопок

Под виндами помню был такой неплохой пакет xara с програмкой которая умела эта делать... Хочется похожего...

[leave]

xara есть и под линукс. еще можно посмотреть в сторону inkscape (хотя насчет готовых шаблонов не уверен)

[mstdmstd]

inkscape.i686 - поставил посмотрел - то что мне нужно не нашел

Да скачал RecomXaraLX0.7_rev1692.tar -распокавал
При запуске под нерутовым юзером

Код: Выделить всё

[serge@localhost bin]$ ./xaralx

Получаю

Код: Выделить всё

 Deleted stale lock file '/home/serge/.XARA-XTREME-WX-xaralx-serge'.

Попытался добавить длступ к /home/serge/.XARA-XTREME-WX-xaralx-serge и получил:

Код: Выделить всё

Lock file '/home/serge/.XARA-XTREME-WX-xaralx-serge' has incorrect permissions.

Подскажите пожалуйста в чем может быть проблема ?

[kdu]

Попробуйте установить это приложение не вручную, а используя пакетный менеджер. В репозитории Ubuntu, например, xaralx есть.

[sungreen]

... gimp ...
Файл->Создать->Кпопки->Круглая кнопка, Простая выпуклая кнопка ...

[mstdmstd]

Да gimp неплохо - но шаблонов сготовых или запминать свои там нет ? Я вроде не нашел...

[sungreen]

>> вроде не нашел
... верю, я это тоже не осилил, но насколько смог понять - шаблоны кнопкок, логотипов, текстур, веб-страниц хранятся в виде скриптов ...
... ректально, можно скопировать скрипты в локальный каталог и сделать на их базе свой шаблон ...

на примере alien-glow-button.scm в конце скрипта есть настройки, которые можно заменить:
SF-STRING _"Text" "Hello world!"
SF-FONT _"Font" "Sans Bold"
SF-ADJUSTMENT _"Font size (pixels)" '(22 2 100 1 1 0 1)
SF-COLOR _"Text color" "black"
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-ADJUSTMENT _"Padding" '(6 1 100 1 10 0 1)
SF-ADJUSTMENT _"Glow radius" '(10 1 200 1 10 0 1)
SF-TOGGLE _"Flatten image" TRUE

... также можно переписать саму процедуру создания кнопки ...
... скрипт кнопки alien-glow выглядит так:

Код: Выделить всё

; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Alien Glow themed button
; Copyright (c) 1997 Adrian Likins
; aklikins@eos.ncsu.edu
;
; based on code from Frederico Mena Quintero (Quartic)
; federico@nuclecu.unam.mx
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


(define (script-fu-alien-glow-button text
                                     font
                                     size
                                     text-color
                                     glow-color
                                     bg-color
                                     padding
                                     glow-radius
                                     flatten)

  (define (text-width extents)
	(car extents))

  (define (text-height extents)
	(cadr extents))

  (define (text-ascent extents)
	(caddr extents))

  (define (text-descent extents)
	(cadr (cddr extents)))

  (define (blend-bumpmap img
						 drawable
						 x1
						 y1
						 x2
						 y2)
	(gimp-edit-blend drawable FG-BG-RGB-MODE DARKEN-ONLY-MODE
					 GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
					 FALSE 0 0 TRUE
					 x1 y1 x2 y2)
  )

  (let* (
        (text-extents (gimp-text-get-extents-fontname text
                                                      size
                                                      PIXELS
                                                      font))
        (ascent (text-ascent text-extents))
        (descent (text-descent text-extents))

        (img-width (+ (* 2  padding)
                      (text-width text-extents)))
        (img-height (+ (* 2 padding)
                       (+ ascent descent)))
        (layer-height img-height)
        (layer-width img-width)
        (img-width (+ img-width glow-radius))
        (img-height (+ img-height glow-radius))
        (img (car (gimp-image-new img-width img-height RGB)))
        (bg-layer (car (gimp-layer-new img
                                       img-width img-height RGBA-IMAGE
                                       "Background" 100 NORMAL-MODE)))
        (glow-layer (car (gimp-layer-new img
                                         img-width img-height RGBA-IMAGE
                                         "Glow" 100 NORMAL-MODE)))
        (button-layer (car (gimp-layer-new img
                                           layer-width layer-height RGBA-IMAGE
                                           "Button" 100 NORMAL-MODE)))
        )

    (gimp-context-push)

    (gimp-image-undo-disable img)

    ; Create bumpmap layer

    (gimp-image-add-layer img bg-layer -1)
    (gimp-context-set-foreground '(0 0 0))
    (gimp-context-set-background bg-color)
    (gimp-edit-fill bg-layer BACKGROUND-FILL)
    (gimp-image-add-layer img glow-layer -1)

    ; Create text layer

    (gimp-image-add-layer img button-layer -1)
    (gimp-layer-set-offsets button-layer (/ glow-radius 2) (/ glow-radius 2))
    (gimp-selection-none img)
    (gimp-rect-select img 0 0 img-width img-height CHANNEL-OP-REPLACE FALSE 0)
    (gimp-context-set-foreground '(100 100 100))
    (gimp-context-set-background '(0 0 0))

    (gimp-edit-blend button-layer FG-BG-RGB-MODE NORMAL-MODE
                     GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
                     FALSE 0 0 TRUE
                     0 0 img-height img-width)

    (gimp-edit-clear glow-layer)

    (gimp-rect-select img
                      (/ glow-radius 4)
                      (/ glow-radius 4)
                      (- img-width (/ glow-radius 2))
                      (- img-height (/ glow-radius 2))
                      CHANNEL-OP-REPLACE FALSE 0 )

    (gimp-context-set-foreground glow-color)
    (gimp-edit-fill glow-layer FOREGROUND-FILL)
    (gimp-selection-none img)
    (plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer glow-radius TRUE TRUE)
    (gimp-context-set-foreground text-color)
    (let (
         (textl (car (gimp-text-fontname
                      img -1 0 0 text 0 TRUE size PIXELS font)))
         )
      (gimp-layer-set-offsets textl
                              (+  padding (/ glow-radius 2))
                              (+ (+ padding descent) (/ glow-radius 2)))
    )
    ; Done
    (gimp-selection-none img)
    (gimp-image-undo-enable img)
    (if (= flatten TRUE)
        (gimp-image-flatten img)
    )

    (gimp-display-new img)

    (gimp-context-pop)
  )
)

(script-fu-register "script-fu-alien-glow-button"
  _"B_utton..."
  _"Create a button graphic with an eerie glow for web pages"
  "Adrian Likins"
  "Adrian Likins"
  "July 1997"
  ""
  SF-STRING     _"Text"               "Hello world!"
  SF-FONT       _"Font"               "Sans Bold"
  SF-ADJUSTMENT _"Font size (pixels)" '(22 2 100 1 1 0 1)
  SF-COLOR      _"Text color"         "black"
  SF-COLOR      _"Glow color"         '(63 252 0)
  SF-COLOR      _"Background color"   "black"
  SF-ADJUSTMENT _"Padding"            '(6 1 100 1 10 0 1)
  SF-ADJUSTMENT _"Glow radius"        '(10 1 200 1 10 0 1)
  SF-TOGGLE     _"Flatten image"      TRUE
)

(script-fu-menu-register "script-fu-alien-glow-button"
                         "<Image>/File/Create/Web Page Themes/Alien Glow")

# посмотрел в Интернетах есть скрипты различных кнопок ...

ps если есть скрипт, то можно(хотелось бы) наладить автоматизацию создания(пересоздания) кнопок в зависимости от желаемой темы - то есть сменил тему и скрипт переделывает неотдельно взятую кнопку, а списочно всю группу ...

[mstdmstd]

Спасибо, попробую

[sungreen]

... linuxgraphics подсказали для автоматизации задействовать python http://www.gimp.org/docs/python/index.html ...

GIMP Python Invocation from the Shell
All this means that you could easily invoke a GIMP Python plug-in such as the one above directly from your shell using the (plug-in-script- fu-eval …) evaluator:

Код: Выделить всё

gimp --no-interface --batch '(python-fu-console-echo RUN-NONINTERACTIVE "another string" 777 3.1416 (list 1 0 0))' '(gimp-quit 1)'

The invocation here was done without an interface since this specific procedure didn't need any.