GIMP Script-Fu Первый Дан. Первое приветствие

Наш первый Hello World в GIMP!

Наша цель нарисовать приветствие на изображении в GIMP. Но для того что бы вывести что то на изображение, это изображение у нас должно быть. Мы можем создать его в ручную. Просто средствами GIMP, или же создать его прямо из плагина Script-fu.

Научим плагин создавать изображения, определив функцию создания изображений. Что надо знать, так это то что изображение состоит из слоев — layer, в нашем новом изображении будет изначально только один слой. Изображение будет создано и заполнено ТЕКУЩИМ цветом фона, установленного в Гимп, но мы могли бы вполне себе и задать цвет фона создаваемого изображения.

(define (create-1-layer-img w h)    (let* ((i1  (car (gimp-image-new w h RGB)))          (l1  (car (gimp-layer-new i1 w h                                 RGB "layer 1" 100 LAYER-MODE-NORMAL-LEGACY))))       (gimp-image-undo-disable i1)       (gimp-image-add-layer i1 l1 0)       ;;(gimp-palette-set-background '(0 127 50))       (gimp-edit-fill l1 FILL-BACKGROUND)       (gimp-display-new i1)       (gimp-image-undo-enable  i1)       i1)) 

Да забыл сказать, этот код подходит для версии 2.10. А GIMP хотя и медленно, но постоянно меняется, и я работал в двух версиях, так что можете сравнить

(define (create-1-layer-img w h)    (let* ((i1  (car (gimp-image-new w h RGB)))          (l1  (car (gimp-layer-new i1 w h                                 RGB "layer 1" 100 NORMAL))))       (gimp-image-undo-disable i1)       (gimp-image-add-layer i1 l1 0)       ;;(gimp-palette-set-background '(0 127 50))       (gimp-edit-fill l1 BG-IMAGE-FILL)       (gimp-display-new i1)       (gimp-image-undo-enable  i1)       i1))

Изменения — косметические, в именах констант, но именно такие вот мелкие изменения могут делать код не работоспособным при работе его в различных версиях гимпа.

Используем эту функцию и создадим изображение:

(define img (create-1-layer-img 640 480)) ;;можно получить img или ошибку: ;;Error: eval: unbound variable: LAYER-MODE-NORMAL-LEGACY ;;если применить код для версии 2.10 в gimp версии 2.6 

В переменной img будет храниться handle(хендл), что можно перевести как ручка, нечто за что можно держаться и управлять этим объектом, представляющий собой некий числовой идентификатор, передавая который обратно в гимп с помощью функций гимп, мы можем работать с внутренним объектом гимпа. Типы этих объектов могут быть совершенно разными: изображение, слой или какой либо другой тип.

Так же мы можем создать изображение с помощью средств гимпа или даже загрузить его из файла. Но для того чтобы работать с ним нам надо знать хендл этого изображения. Получить список всех изображений можно с помощью функции:

(gimp-image-list) ;;(1 #(1))  (define img 1) ;;img 

и просто присвоить известный числовой идентификатор переменной img и так же работать с ним как с хендлом.

Далее нам надо определится с тем каким шрифтом выводить текст, список всех известных гимпу шрифтов, можно получить с помощью функции:

;;посмотреть список фонтов присутствующих в системе (gimp-fonts-get-list ".*") ;;очень длинный вывод (gimp-fonts-get-list "Sans") ;;у меня список из 218 элементов в Линукс и 23 в Видовс. 

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

(gimp-text-layer-new img "Привет Мир!" "DejaVu Sans" 1 1) ;;(3) 

Введя эту команду в консоль скрипт-фу, мы к сожалению не увидим добавленного текста, но она вернет опять таки некий хендл(как список), созданного текстового слоя. Используя его можно получить некоторую информацию о созданном текстовом слое. К сожалению, до тех пор пока слой не будет добавлен в изображение, все функции работы с текстовым слоем выдают ошибку. Поэтому слой с текстом будем добавлять с помощью функции:

(define (insert-text1 i str font size unit)   (let ((l (car (gimp-text-layer-new i str font size unit))))     (gimp-image-add-layer i l 0) l))  (insert-text1 img "Привет Мир!" "DejaVu Sans" 1 1) ;;4 

Не смотря на единички, а вернее благодаря последней единице(обозначающей вывод текста в неких юнитах), в линукс текст получился гигантским, в виндовс — вполне нормальным. Но мы попробуем второй заход. И да, если изображение «подпорчено», неудачной функцией в ГИМПе можно легко откатиться на предыдущую версию изображения воспользовавшись «Историей действий», это такой список изображений, выбрав то изображение которое вы считаете нормальным, у нас это пока единственное пустое изображение, выберем его.

(insert-text1 img "Привет Мир!" "DejaVu Sans" 100 0) ;;6 

Последний 0 в вызове функции обозначает, размер будет указан в пикселах, а 100 обозначает условную высоту текста. Полученный слой приблизительно соответствует этой величине.

Из текстового слоя можно получить не мало интересной информации, помните хендл полученный нами для данного слоя 6, и именно его мы используем в указанных ниже функциях, если у вас хендл другой используйте его:

(gimp-text-layer-get-text 6) ;;("Привет Мир!") (gimp-text-layer-get-language 6) ;;("ru_RU") (gimp-text-layer-get-font-size 6) ;;(100.0 0) (gimp-text-layer-get-font 6) ;;("DejaVu Sans") (gimp-text-layer-get-base-direction 6) ;;(0) (gimp-drawable-height 6) (gimp-drawable-width  6) ;;(117)(668) 

Результаты могут отличаться, например потому что в Виндовсе у меня нет такого фонта, но система не ругается, а молча пытается подобрать какой то фонт, близкий к заданному.

Но что не менее важно, можно эту информацию и установить, т.е изменить сам текстовый слой.

(gimp-text-layer-set-color 6 '(255 255 0)) (#t) (gimp-text-layer-set-font 6  "URW Gothic Oblique") (gimp-text-layer-set-font 6   "Terminus") (#t) (gimp-text-layer-set-text 6   "Хай, Бро!\nКак живёшь?") (#t) (gimp-text-layer-set-base-direction 6  4);;в 2.6 направления 4 нет, есть 0 или 1. (#t) 

И вот результат:

Таким образом видно, Гимп предлагает очень богатый набор функций по выводу текста на изображение. И что не менее важно, слой создаваемый функцией gimp-text-layer-new является не просто картой пикселей, но объектом, динамически изменяющим свой вид, в зависимости от устанавливаемых для него параметров.

Как запомнить результаты нашей работы? Надо объединить слои в один и дать ГИМПу команду сохранения:

(gimp-image-flatten img) ;;(7) (gimp-file-save 1 img (car (gimp-image-active-drawable img))                 "D:\\WORK\\gimp\\test-hello1.png" "test-hello1.png" )  ;;(#t)

Путь указан для Виндовса, для Линкуса всё тоже самое, но с обычным слешем, конечно же без диска. И да, почему я всё время CARкаю? Потому что многие процедуры, типа gimp-image-active-drawable возвращают список, хотя казалось бы, почему список? активный слой может быть только один, но она возвращает список, а мы берём из него 1 элемент. Поэтому CAR.

И на этом пока всё.