From d175ef1a46f30f3ab51e228989bb299eb01fd108 Mon Sep 17 00:00:00 2001
From: DF6FR <noreply@git.fkurz.net>
Date: Thu, 22 Oct 2009 22:31:39 +0000
Subject: [PATCH] Added ORIENTATION to label headers. Possibilities are
 portrait and landscape, if none is chosen portrait is the default. Using
 landscape you can print four QSL cards on one sheet of A4 paper.

---
 yfksubs.pl | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/yfksubs.pl b/yfksubs.pl
index 243b380..e41412d 100644
--- a/yfksubs.pl
+++ b/yfksubs.pl
@@ -2812,6 +2812,9 @@ sub labeltex {
 	my $leftmargin;			# left margin of the label sheet
 	my $rows;				# number of label rows
 	my $cols;				# number of label columns
+	my $orientation = "portrait"; # page orientation
+	my $paperheight = 297;	# height of oriented paper
+	my $paperwidth = 210;	# width of oriented paper
 	
 # Read label geometry from the definition file
 	
@@ -2823,8 +2826,14 @@ sub labeltex {
 			elsif ($line =~ /^% LEFTMARGIN=([\d.]+)/) { $leftmargin= $1; } 
 			elsif ($line =~ /^% ROWS=(\d+)/) { $rows= $1; } 
 			elsif ($line =~ /^% COLS=(\d+)/) { $cols= $1; } 
+			elsif ($line =~ /^% ORIENTATION=(\w+)/) { $orientation= $1; } 
 		}
 	close QSL;
+	# adjust height to orientation
+	if ($orientation eq "landscape") {
+		$paperheight = 210;
+		$paperwidth = 297;
+	}
 
 # We start assembling the latex string. First we add the header, which will be
 # the same for all labels. I assume that all labels come on A4 paper. The
@@ -2834,12 +2843,12 @@ sub labeltex {
 	\pagestyle{empty}
 	\usepackage{latexsym}
 	\usepackage{graphicx}
-	\usepackage[margin=0cm, noheadfoot]{geometry}
+	\usepackage[margin=0cm,noheadfoot,'.$orientation.']{geometry}
 	\renewcommand{\familydefault}{\sfdefault}
 	\setlength{\parindent}{0pt}
 	\begin{document}
 	\setlength{\unitlength}{1mm}
-	\begin{picture}(210,297)'."\n";
+	\begin{picture}('."$paperwidth,$paperheight)\n";
 	
 # The QSL cards should be printed in alphabetical order. The keys of the
 # %labels hash are the callsigns plus attached number of label, so they can be
@@ -2876,7 +2885,7 @@ foreach my $key (@keys) {
 	if ($row > $rows) {						# over rows!
 		$row = 1;							# start at first row again
 		$page +=1;							# increase page, write to doc.
-		$latex .= "\\end{picture}\n\\newpage\n\\begin{picture}(210,297)";
+		$latex .= "\\end{picture}\n\\newpage\n\\begin{picture}($paperwidth,$paperheight)";
 	}
 
 	# Now the position of the label on the sheet has to be calculated from the
@@ -2886,7 +2895,7 @@ foreach my $key (@keys) {
 	my $x = $leftmargin;		# The x position is always shifted my leftmarg
 	$x += ($col-1)*$width;		# add the width of the labels
 	
-	my $y = 297 - $topmargin;	# The y position starts shifted by topmargin
+	my $y = $paperheight - $topmargin;	# y position starts shifted by topmargin
 	$y -= ($row)*$height;		# go down by $height * $row
 
 	# first letter in the label code is not needed here, it is the number of