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

[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]

похоже, готовых функций нет, api здесь https://www.cs.indiana.edu/scheme-repository/imp/siod.html

[duckbill]

Код Выделить Развернуть


(gimp-pencil layer 4 #(0 0 line 0))


[wil_low]

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

[duckbill]

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

[wil_low]

ага, я на 2.9.7

[wil_low]

победил 

Код Выделить Развернуть

(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]

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

[tikitavy]

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

[UAnonim]

выкуси, меня просили, но я забыл напрочь.

[duckbill]

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

[tikitavy]

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

Неть! Хомякам сгодится!

[UAnonim]

Кстати, никто титанической работой по вёрстке в А4 не озаботился ещё? скачал демо-сценарий с БГГ, посмортю, что это за зверь такой.

[tikitavy]

Кстати, никто титанической работой по вёрстке в А4 не озаботился ещё? 

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

[duckbill]

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

[tikitavy]

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

Они бы и рады, насколько я понял, что бы почистили за них, но желающих не видно.. А так - как умеют .

[tikitavy]

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

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 карт, хотя получив такие, выдаёт почему-то здорово мутную картинку.