[Scans ENG] The 7th Continent (need compile PnP)

Автор tikitavy, 24 октября 2017, 11:48:16

« назад - далее »

0 Пользователи и 2 гостей просматривают эту тему.

duckbill

Ну читайте :)

(set! result (string-replace result "[man]" "<span font=\"KCJZFZ+EldritchHorrorIcons\">3</span>"))


А потом:

    (gimp-text-layer-set-justification block1Layer TEXT-JUSTIFY-CENTER)
    (gimp-text-layer-set-line-spacing block1Layer -3.0)
    (gimp-text-layer-set-letter-spacing block1Layer -0.5)
    (gimp-text-layer-set-color block1Layer '(0 0 0))
    (gimp-text-layer-resize block1Layer 631 220)
    (gimp-layer-translate block1Layer 17 block1Offset)
    (gimp-text-layer-set-markup block1Layer (string-append "<markup>" (eh-replace-patterns txtBlock1) "</markup>"))
  •  

wil_low

  •  

duckbill

Вы конкретно спрашивайте что у вас не получается. Так-то скриптов у меня (только моих) на полмегабайта будет.
  •  

wil_low

ну например:

(define (script-fu-add-frame image drawable)
    (gimp-context-push)
    (gimp-image-undo-group-start image)
    (let* (
        (line 20)
        (w (car (gimp-image-width image)))
        (h (car (gimp-image-height image)))
        (layer (car (gimp-layer-new image w h RGBA-IMAGE "[foreground] frame" 100 0)))
        (points (cons-array 4 'double))
        )
        (gimp-image-insert-layer image layer 0 0)

        (gimp-context-set-brush "2. Hardness 100")
        (gimp-context-set-brush-size 1)

        (aset points 0 0)
        (aset points 1 0)
        (aset points 2 line)
        (aset points 3 0)
        (gimp-pencil layer 4 points)

        (gimp-message (string-append (number->string w) " x " (number->string h))))
    (gimp-displays-flush)
    (gimp-image-undo-group-end image)
    (gimp-context-pop)
)


с FLOATARRAY путем aset работать неудобно, как задать координаты списком?
  •  

wil_low

  •  

duckbill

  •  

wil_low

о, так гораздо лучше, спасибо
  •  

duckbill

Если вы не работаете с гимпом, древним как дерьмо мамонта (<=2.4), то забудьте про SIOD. Там давно уже TinyScheme
  •  

wil_low

  •  

wil_low

победил  ;D
(define (hor-line x y len)
    (vector x y (+ x len) y)
)

(define (vert-line x y len)
    (vector x y x (+ y len))
)

(define (script-fu-add-frame image drawable)
    (gimp-context-push)
    (gimp-image-undo-group-start image)
    (let* (
        (line 20)
        (w (car (gimp-image-width image)))
        (h (car (gimp-image-height image)))
        (layer (car (gimp-layer-new image w h RGBA-IMAGE "[foreground] frame" 100 0)))
        )
        (gimp-image-insert-layer image layer 0 0)

        (gimp-context-set-brush "2. Hardness 100")
        (gimp-context-set-brush-size 1)

        (gimp-pencil layer 4 (hor-line 0 0 line))
        (gimp-pencil layer 4 (vert-line 0 0 line))

        (gimp-pencil layer 4 (hor-line (- w 1) 0 (- line)))
        (gimp-pencil layer 4 (vert-line (- w 1) 0 line))

        (gimp-pencil layer 4 (hor-line (- w 1) (- h 1) (- line)))
        (gimp-pencil layer 4 (vert-line (- w 1) (- h 1) (- line)))

        (gimp-pencil layer 4 (hor-line 0 (- h 1) line))
        (gimp-pencil layer 4 (vert-line 0 (- h 1) (- line)))
    )
    (gimp-displays-flush)
    (gimp-image-undo-group-end image)
    (gimp-context-pop)
)
  •  

duckbill

#90
Лучше запихните вызов gimp-pencil внутрь hor-line и vert-line. Будут завершённые функции, а не макросы. И, кстати, gimp-pencil может всю рамку одним вызовом нарисовать, просто координат больше передать надо. Скорость очень существенно вырастет.
  •  

tikitavy

Обсуждение скриптов - для мастерской было бы интересно. Может выкусить в отдельную тему?

UAnonim

выкуси, меня просили, но я забыл напрочь.
Я летаю снаружи всех измерений (с) Летов
  •  

duckbill

Вот у меня только вопрос - а что тут выкусывать? Тут же ничего конструктивного-то нет. Я бы просто удалил:)
  •  

tikitavy

Цитата: duckbill от 31 октября 2017, 13:52:05Вот у меня только вопрос - а что тут выкусывать? Тут же ничего конструктивного-то нет. Я бы просто удалил:)
Неть! Хомякам сгодится! :D

UAnonim

Кстати, никто титанической работой по вёрстке в А4 не озаботился ещё? :) скачал демо-сценарий с БГГ, посмортю, что это за зверь такой.
Я летаю снаружи всех измерений (с) Летов
  •  

tikitavy

Цитата: UAnonim от 01 ноября 2017, 10:42:42Кстати, никто титанической работой по вёрстке в А4 не озаботился ещё? 
Видимо не. Перевод на русский - так и вообще далёк от нас, мне кажется. Если что - наши друзья продолжают чистить карты, и если кто решится, то..

duckbill

Видел я их psd. Замазывать текст прямоугольниками похожего цвета это не называется чистить:)
  •  

tikitavy

Цитата: duckbill от 01 ноября 2017, 10:59:55Видел я их psd. Замазывать текст прямоугольниками похожего цвета это не называется чистить:)
:) Они бы и рады, насколько я понял, что бы почистили за них, но желающих не видно.. А так - как умеют :).

tikitavy

#99
Любопытная программа для компонования листов для печати исходя от имеющихся карточек:

we work on the cards alone and then we use this program to generate the page as we like http://labsk.net/index.php?topic=144274.0
you upload the images, choose the size of the paper and the cards. and the exe file makes the job for you. the exe is in spanish  but you maybe you can contact the author


Я её пока что не смотрел, но если есть в ней потенциал - добавлю в мастерскую.

UPD Работать-то она работает, но без знания испанского не очевидно, как, собственно, компоновать красивые PDF ;). И ещё, похоже, программа накладывает некие ограничения на DPI карт, хотя получив такие, выдаёт почему-то здорово мутную картинку.