pdf-text ( lines -- str )

Vocabulary

text-to-pdf.private

Inputs

lines

an object

Outputs

str

an object

Definition

USING: make sequences splitting ;

IN: text-to-pdf.private

: pdf-text ( lines -- str )
    [
        "BT" , "54 738 Td" , "/F1 10 Tf" , "12 TL" ,
        [ pdf-string "'" append , ] each "ET" ,
    ] { } make join-lines pdf-stream ;