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

Библиотека функций к Script-fu

(define path-home (getenv "HOME"))
(define path-lib (string-append path-home "/work/gimp/lib/"))
(define path-work (string-append path-home "/work/gimp/"))
(load (string-append path-lib "util.scm"))
(load (string-append path-lib "img.scm"))
(load (string-append path-lib "struct.scm"))
(load (string-append path-lib "point.scm")) ;;там операции с углами.

Напишем первую функцию:

;;установили цвет бекграунда
(define i1 (create-1-layer-img 640 480))
(define isource1 (car (file-png-load 1
                                     (string-append path-work "i1.png") "i1")))

(define (draw-from-image1 dest dest-x dest-y src)
  (let ((dw2 (car (gimp-layer-new-from-drawable
               (car (gimp-image-get-active-layer src)) dest))))
    (gimp-image-add-layer dest dw2 0)
    (gimp-layer-set-offsets dw2 dest-x dest-y)
    (gimp-image-merge-visible-layers dest CLIP-TO-IMAGE)))

(draw-from-image1 i1 10 50 isource1)

С помощью этой функции мы можем разместить любое загруженное изображение на редактируемом изображении в указанной позиции.

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

(define (draw-from-image-scale dest dest-x dest-y src sc-x sc-y)
  (let* ((dw2 (car (gimp-layer-new-from-drawable
                    (car (gimp-image-get-active-layer src)) dest)))
         (h (car (gimp-drawable-height dw2)))
         (w (car (gimp-drawable-width  dw2))))
    (gimp-image-add-layer dest dw2 0)
    (gimp-layer-scale dw2 (* w sc-x) (* h sc-y) TRUE)
    (gimp-layer-set-offsets dw2 dest-x dest-y)
    (gimp-image-merge-visible-layers dest CLIP-TO-IMAGE)))

(draw-from-image-scale i1 10 50 isource1 0.5 3)
(draw-from-image-scale i1 150 50 isource1 2.5 1.4)
(draw-from-image-scale i1 320 50 isource1 0.9 1.2)

Повороты

А теперь разберёмся с поворотами. Изображения нужно не только сдвигать и масштабировать, но и поворачивать.

(define (draw-from-image-rotate dest dest-x dest-y src sc-x sc-y alfa)
  (let* ((dw2 (car (gimp-layer-new-from-drawable
                    (car (gimp-image-get-active-layer src)) dest)))
         (h (car (gimp-drawable-height dw2)))
         (w (car (gimp-drawable-width  dw2)))
         (delta 0.001)
         (alfa-r (gr2rad alfa)))
    (gimp-image-add-layer dest dw2 0)
    (if (or (> (abs (- sc-x 1)) delta)
            (> (abs (- sc-y 1)) delta))
        (gimp-layer-scale dw2 (* w sc-x) (* h sc-y) TRUE))
    (if (> (abs alfa-r) delta)
        (gimp-drawable-transform-rotate dw2 alfa-r FALSE 0 0
                                        TRANSFORM-FORWARD
                                        INTERPOLATION-LINEAR
                                        FALSE 1
                                        TRANSFORM-RESIZE-ADJUST))
    (gimp-layer-set-offsets dw2 dest-x dest-y)
    (gimp-image-merge-visible-layers dest CLIP-TO-IMAGE)))

По функции видно последовательность действий: сначала масштабируем, потом поворачиваем

Как вам? По мне так получилось - не очень! Точка начала вставляемого рисунка уехала при повороте! Это надо исправить! Пишем второй вариант.

;; что то вроде остатка по модулю от 360
(define (angle-360 angle)
  (cond
   ((>= angle 360) (angle-360 (- angle 360)))
   ((< angle 0)   (angle-360 (+ angle 360)))
   (#t angle)))

;; непосредственно функция вычисления смещения, которое зависит от величины угла поворота.
(define (calc-offset-for-rotate alfa w h)
  (let* ((a (angle-360 alfa))
         (a-r (gr2rad a)))
    (cond
     ((<= a 90)
      (cons (- (* h (sin a-r))) 0))
     ((<= a 180)
      (cons (- (- (* h (sin a-r))
                  (* w (cos a-r))))
            (* h (cos a-r))))
     ((<= a 270)
      (cons (* w (cos a-r))
            (+ (* w (sin a-r))
               (* h (cos a-r)))))
     ((<= a 360)
      (cons 0
            (* w (sin a-r))))
     )))
	 
(define (draw-from-image-rotate dest dest-x dest-y src sc-x sc-y alfa)
  (gimp-image-undo-disable dest)
  (let* ((dw2 (car (gimp-layer-new-from-drawable
                    (car (gimp-image-get-active-layer src)) dest)))
         (h (car (gimp-drawable-height dw2)))
         (w (car (gimp-drawable-width  dw2)))
         (delta 0.001)
         (alfa-r (gr2rad alfa)))

    (gimp-image-add-layer dest dw2 0)
    (if (or (> (abs (- sc-x 1)) delta)
            (> (abs (- sc-y 1)) delta))
        (gimp-layer-scale dw2 (* w sc-x) (* h sc-y) TRUE))
    (if (> (abs alfa-r) delta)
        (set! dw2 (car (gimp-drawable-transform-rotate dw2 alfa-r FALSE 0 0
                                                   TRANSFORM-FORWARD
                                                   INTERPOLATION-LINEAR
                                                   FALSE 1
                                                   TRANSFORM-RESIZE-ADJUST))))
    (let* ((deltas (calc-offset-for-rotate alfa (* w sc-x) (* h sc-y)))
           )
      (gimp-layer-set-offsets dw2
                              (+ dest-x (car deltas))
                              (+ dest-y (cdr deltas))))
    (gimp-image-merge-visible-layers dest CLIP-TO-IMAGE))
  (gimp-image-undo-enable dest))

Здесь я применяю ещё и отмену от создания списка отката редактирования, уж больно большие списки отката создаются, но делать это не обязательно.
Выполняем тестирование.

(draw-from-image-rotate i1 100 200 isource1 1.0 1.0 0)
(draw-from-image-rotate i1 100 200 isource1 1.0 1.0 30)
(draw-from-image-rotate i1 100 200 isource1 1.0 1.0 45)
(draw-from-image-rotate i1 100 200 isource1 1.0 1.0 90)

Давайте создадим на основе этой функции другую, создающую вращение изображений вокруг заданного центра.

(define (rot-img1 dest src x y scale num)
  (let ((a1 (floor (/ 360 num)))
        (a-cur 0))
    (while (< a-cur 360)
      (draw-from-image-rotate dest x y src scale scale a-cur)
      (set! a-cur (+ a-cur a1)))))

(rot-img1 i1 isource1 300 200 0.5 5)
(rot-img1 i1 isource1 100 100 0.3 4)

При построении функции draw-from-image-rotate мы использовали три функции GIMP: gimp-layer-scale, gimp-drawable-transform-rotate, gimp-layer-set-offsets, это получилось в следствии того что к её окончательному виду мы подходили постепенно, эволюционно, задействуя средства ГИМПа по мере необходимости. GIMP же в свою очередь имеет функцию, позволяющую заменить все эти три функции одной:

;; новый подход через функции трансформации
(define (draw-from-image-rotate2 dest dest-x dest-y src sc-x sc-y alfa)
  (let* ((dw2 (car (gimp-layer-new-from-drawable
                    (car (gimp-image-get-active-layer src)) dest)))
         (h (car (gimp-drawable-height dw2)))
         (w (car (gimp-drawable-width  dw2)))
         (delta 0.001)
         (alfa-r (gr2rad alfa)))
    (gimp-image-add-layer dest dw2 0)
    (gimp-item-transform-2d dw2 0 0 sc-x sc-y alfa-r dest-x dest-y)
    (gimp-image-merge-visible-layers dest CLIP-TO-IMAGE)
    ))

Протестируем её с помощью функции кратного вращения изображения.

(define (rot-img2 dest src x y scale num)
  (gimp-image-undo-group-start dest)
  (let ((a1 (floor (/ 360 num)))
        (a-cur 0))
    (while (< a-cur 360)
      (draw-from-image-rotate2 dest x y src scale scale a-cur)
      (set! a-cur (+ a-cur a1))))
  (gimp-image-undo-group-end dest))
  
(rot-img2 i1 isource1 250 200 0.5 14)
(rot-img2 i1 isource1 450 200 0.4 5)

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

Но прежде чем перейти к её рассмотрению, давайте ещё немного расширим возможности языка тинисхема, о чём и будет следующая статья.