summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/tlgs/eps2eps.lua
blob: 23da82d641d159d9671484088a6301812d7e1a7a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/env texlua
--*-Lua-*-
-- $Id$

-- Copyright (C) 2008-2022 Reinhard Kotucha.
-- You may freely use, modify and/or distribute this file.

doc = {
  invocation = '[options] <inputfile> <outputfile>',
  synopsis = '"Distill" Encapsulated PostScript.',
  details = [=[
    <inputfile> can be either an EPS or PS file.  A single hyphen (-)
    denotes stdin.

    <outputfile> is an EPS file with a re-calculated BoundingBox. 
    A single hyphen (-) denotes stdout.
]=]}

dofile(arg[0]:match('(.*[/\\]).*$')..'tlgs-common') 

local command = {gsname()}

addto(command,
     '-sDEVICE=eps2write',
     '-dDEVICEWIDTH=250000', 
     '-dDEVICEHEIGHT=250000',
     '-o'..file.output,
     options,
     '-f',
     file.input)

execute(command)

-- Local Variables:
--  mode: Lua
--  lua-indent-level: 2
--  indent-tabs-mode: nil
--  coding: utf-8-unix
-- End:
-- vim:set tabstop=2 expandtab: