Добавить строки в файле PostScript с помощью командной строки - PullRequest
Новая
       8

Добавить строки в файле PostScript с помощью командной строки

0 голосов
/ 10 июня 2018

У меня есть файл ps, представляющий собой одну страницу формата А4, и я хочу нарисовать 4 пунктирные линии, разделившие страницу на 9 частей равного размера.

И мне нужно сделать это с помощью командной строки илииз сценария bash.

Ответы [ 2 ]

0 голосов
/ 10 июня 2018

Следуйте ответам KenS Я сделал это: 

#!/bin/bash

if [[ $# -eq 0 ]] ; then
    echo 'Tienes que pasar un fichero como argumento'
    exit 0
fi

if [[ ! -f "$1" ]]; then
    echo "$1 no es un fichero"
    exit 0
fi

SOURCE=$(realpath -- "$1")

DIR="$PWD"

cd $(mktemp -d)

echo "Directorio de trabajo: $PWD"

filename=$(basename -- "$1")
extension="${filename##*.}"
filename="${filename%.*}"

WORKCOPY="in.pdf"
OUTPUT="$DIR/${filename}"

if [[ "$extension" != "pdf" ]]; then
    unoconv -f pdf -o "$WORKCOPY" "$SOURCE"
    if [ $? -ne 0 ]; then
        exit $?
    fi
else
    cp "$SOURCE" "$WORKCOPY"
    OUTPUT="${OUTPUT}_3x3"
fi

pages=$(pdfinfo "$WORKCOPY" | grep Pages | awk '{print $2}')

if [ $pages -ne 2 ]; then
    echo "El número de páginas ha de ser 2"
    exit 0
fi

function build_page {
    pdftk "$WORKCOPY" cat $1 $1 $1 $1 $1 $1 $1 $1 $1 output "$1.pdf"
    rot=$(pdfinfo "$1.pdf" | grep "Page rot" | awk '{print $3}')
    if [ $rot -ne 0 ]; then
        pdftk "$1.pdf" cat 1-endnorth output "$1_north.pdf"
        mv "$1_north.pdf" "$1.pdf"
    fi

    size=$(pdfinfo "$1.pdf" | grep "Page size" | awk '{print $3, $5}')
    width=$(echo $size | cut -d' ' -f1)
    height=$(echo $size | cut -d' ' -f2)
    pdf2ps "$1.pdf" "$1.ps"
    psnup -W${width} -H${height} -pa4 -9 "$1.ps" "$1_oct.ps"

    if [ $1 -eq 1 ]; then
        # Guias para cortar
        # Ancho: 842
        #  Alto: 595
        cp "$1_oct.ps" "$1_oct.bak.ps"
        cat > "$1_oct.ps" <<EOF
<< /BeginPage
{
    0.7 setgray

    0 280.66 moveto 595 280.66 lineto stroke
    0 561.33 moveto 595 561.33 lineto stroke

    198.33 0 moveto 198.33 842 lineto stroke
    396.66 0 moveto 396.66 842 lineto stroke
}
>> setpagedevice
EOF
        cat "$1_oct.bak.ps" >> "$1_oct.ps"
    fi
    rm "$1.pdf"
    ps2pdf "$1_oct.ps" "$1.pdf"

}  

build_page 1
build_page 2

pdftk 1.pdf 2.pdf cat output "${OUTPUT}.pdf"

Основная часть - это когда я делаю cat > "$1_oct.ps" <<EOF.

Итак, как и предполагал KenS, решение готово: 

<< /BeginPage
{
    0.7 setgray

    0 280.66 moveto 595 280.66 lineto stroke
    0 561.33 moveto 595 561.33 lineto stroke

    198.33 0 moveto 198.33 842 lineto stroke
    396.66 0 moveto 396.66 842 lineto stroke
}
>> setpagedevice

Спасибо

0 голосов
/ 10 июня 2018

Вы можете использовать процедуру / BeginPage или / EndPage для рисования линий, и вы можете добавить это к программе PostScript.

Вы можете использовать устройство ps2write Ghostscript и добавлять контент для каждой страницы.

В любом случае, просто добавьте фрагмент PostScript к вызову setpagedevice, и в словаре будет содержаться процедура BeginPage, которая рисует четыре нужные вам линии.Задание выполнено

xy moveto xy lineto штриха нарисует линию в текущем цвете, где x и y - позиции в единицах PostScript (1/72 дюйма). Чтобы установить черный, сделайте «0 setgray» перед выполнением штриха.Чтобы измерить размер страницы программно, используйте «currentpagedevice / PageSize get» или «clippath pathbbox».Справочное руководство по языку PostScript доступно в Интернете.

...