#!/usr/bin/perl -w
# $Id$
# Dieses Script (coldformix-ohp) wurde von Rdiger Beck erstellt
# Es ist freie Software
# Bei Fehlern wenden Sie sich bitte an mich.
# jeffbeck@web.de  oder  jeffbeck@gmx.de


# Bibliotheken
use strict;
use Getopt::Long;
Getopt::Long::Configure ("bundling");
use coldformix;
# ==========================================================================

# Choose the Language: de, en
my $lang="de";
my $scale=0.8;
my $version="";
my $config="";

my $show=0;

# ===========================================================================
# Optionen verarbeiten
# ==========================================================================
# Parsen der Optionen
my $testopt=GetOptions(
           "lang|l=s" => \$lang,
           "version|v=s" => \$version,
           "config|c=s" => \$config,
           "show|s" => \$show
          );



my $in="../coldformix-generated/$lang/latex/coldformix-$lang-$config-$version.ps";
my $out="../coldformix-generated/$lang/latex/coldformix-$lang-$config-$version-ohp.ps";
my $befehl;


print "Language    : $lang \n";
print "Inputfile   : $in   \n";
print "Outputfile  : $out  \n";

# Prfen, ob Optionen erkannt wurden, sonst Abbruch
&coldformix::check_options($testopt);

my $xoff=0.5*(21-21*$scale);
my $yoff=0.5*(29.7-29.7*$scale);

print "X-Offset:  $xoff \n";
print "Y-Offset:  $yoff \n";



#$befehl='pstops -d2 '.'"2:0@0.9(1.05cm,1.485cm)"'." $in $out";
$befehl='pstops -d2 '.'"1:0@'."$scale".'('."$xoff".'cm,'."$yoff".'cm)"'." $in $out";

print "\n \n $befehl \n \n";


system("$befehl");


#system("kghostview $out");
