From 751bec5bdc2d0357821d61e2f2b5d9db1e383047 Mon Sep 17 00:00:00 2001
From: niepra01 <rolf.niepraschk@ptb.de>
Date: Mon, 1 Jun 2015 09:52:58 +0200
Subject: [PATCH] =?UTF-8?q?In=20Feld=20"Inhalt"=20iterartiv=20Schriftgr?=
=?UTF-8?q?=C3=B6=C3=9Fe=20reduzieren,=20wenn=20zu=20hoch?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
erklaerung/ptb-declaration-de.clo | 2 -
erklaerung/ptb-declaration-en.clo | 8 ++-
erklaerung/ptb-declaration.cls | 2 +-
ptbletter/ptbletter.cls | 2 +-
versandauftrag/vl-versandauftrag-2.clo | 2 +-
versandauftrag/vl-versandauftrag.cls | 70 ++++++++++++++++++++++++--
6 files changed, 73 insertions(+), 13 deletions(-)
diff --git a/erklaerung/ptb-declaration-de.clo b/erklaerung/ptb-declaration-de.clo
index 149dcfa..81f8af9 100644
--- a/erklaerung/ptb-declaration-de.clo
+++ b/erklaerung/ptb-declaration-de.clo
@@ -20,10 +20,8 @@
oder per Fax an \vl@myfax{} oder E-Mail an \vl@myemail{} oder dem Gerät beilegen.
\medskip
-\makeatletter
\textbf{Bezug:}~\parbox[t]{10cm}{PTB-Reg.-Nr.:~\vl@myref~~vom~~\vl@mymail \\
Unsere Auftragsnummer:}
-\makeatother
\medskip
Wir versichern, dass die zur Kalibrierung eingereichten Vakuummessgeräte oder
diff --git a/erklaerung/ptb-declaration-en.clo b/erklaerung/ptb-declaration-en.clo
index ea4d750..55534fa 100644
--- a/erklaerung/ptb-declaration-en.clo
+++ b/erklaerung/ptb-declaration-en.clo
@@ -22,10 +22,8 @@
sent with instrument.
\medskip
- \makeatletter
- \textbf{Subject:}~\parbox[t]{15cm}{Reg. No. (PTB):~\vl@myref~~Date of confirmation:~\vl@mymail \\
- Our order no. (if applicable):}
- \makeatother
+ \textbf{Subject:}~\parbox[t]{15cm}{Reg. No. (PTB):~\vl@myref,~Date of
+ confirmation:~\vl@mymail \\ Our order no. (if applicable):}
\medskip
This is to certify that the vacuum gauges and/or test leaks (including their
@@ -56,7 +54,7 @@
Please tick here, if you expect classification as transport of hazardous
goods (delay of about one 1 week)
}. PTB will inform us, when the devices are ready for shipment. \par
- Please, inform:~\raisebox{-.4em}{\parbox{4cm}{\hrulefill}}~(email).
+ Please, inform:~\raisebox{-.4em}{\parbox{8cm}{\hrulefill}}~(email).
\item Please, use the regular PTB shipping agent (PTB cannot insure transport!).
diff --git a/erklaerung/ptb-declaration.cls b/erklaerung/ptb-declaration.cls
index 039aff3..9a7f5d4 100644
--- a/erklaerung/ptb-declaration.cls
+++ b/erklaerung/ptb-declaration.cls
@@ -55,7 +55,7 @@
\RequirePackage[ttdefault=true,scale=1.034]{AnonymousPro}
\fi
-\RequirePackage{amsfonts,trimspaces,siunitx}
+\RequirePackage{amsfonts,trimspaces}
\newcommand*\vl@setcommand[3][]{% #1=default (opt.), #2=macro, #3=value
\edef\vl@tempa{\trim@spaces@noexp{#3}}%
diff --git a/ptbletter/ptbletter.cls b/ptbletter/ptbletter.cls
index 16dcabc..157ded2 100644
--- a/ptbletter/ptbletter.cls
+++ b/ptbletter/ptbletter.cls
@@ -227,7 +227,7 @@
\newkomavar[\handledbyname]{handledby}
\defcaptionname{american,australian,british,canadian,%
- english,newzealand,UKenglish,USenglish}\yourrefname{Your reference}%
+ english,newzealand,UKenglish,USenglish}\yourrefname{Your reference}%
\defcaptionname{american,australian,british,canadian,%
english,newzealand,UKenglish,USenglish}\yourmailname{Your letter of}%
\defcaptionname{american,australian,british,canadian,%
diff --git a/versandauftrag/vl-versandauftrag-2.clo b/versandauftrag/vl-versandauftrag-2.clo
index 7172987..8a71161 100644
--- a/versandauftrag/vl-versandauftrag-2.clo
+++ b/versandauftrag/vl-versandauftrag-2.clo
@@ -7,7 +7,7 @@
BoldFont = AnonymousPro-Bold,
ItalicFont = AnonymousPro-Italic,
BoldItalicFont = AnonymousPro-BoldItalic,
- Scale = MatchLowercase
+ Scale = MatchUppercase
]
%\setmonofont[Scale=1.05]{Latin Modern Mono}
diff --git a/versandauftrag/vl-versandauftrag.cls b/versandauftrag/vl-versandauftrag.cls
index 6ded0c8..2067eae 100644
--- a/versandauftrag/vl-versandauftrag.cls
+++ b/versandauftrag/vl-versandauftrag.cls
@@ -2,7 +2,7 @@
\listfiles
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesClass{vl-versandauftrag}
- [2015/04/30 v0.1h Dokumentenklasse (RN/PTB)]
+ [2015/06/01 v0.1i Dokumentenklasse (RN/PTB)]
\newcommand*\vl@lang{english}
@@ -54,6 +54,70 @@
\let\vl@tempdimf=\@dashdim
\newcommand\vl@tempa{}
+\newdimen\vl@fontdim
+\newdimen\vl@upperfontdim
+\newdimen\vl@lowerfontdim
+\newif\if@vl@moreiterations
+\vl@fontdim=12pt %
+
+\newcommand\vl@buildbox[2]{%
+ \setbox0\vbox{\hbox{\parbox{#1}{%
+ \fontsize{\vl@fontdim}{1.2\vl@fontdim}\selectfont #2}}}%
+ \dimen@\ht0 %
+ \advance\dimen@\dp0 %
+}
+
+% Modifiziert nach:
+% http://tex.stackexchange.com/questions/26002/fit-text-into-given-box-by-adjusting-the-fontsize
+% siehe auch: http://www.tug.org/TUGboat/tb29-1/tb91pearls.pdf
+%
+% Verhält sich wie \parbox, wenn Text in vorgegebene Höhe passt,
+% sonst Reduktion der Schriftgröße.
+\newcommand\lfitbox[4][c]{% [pos] <width> <height> <stuff>
+ \vl@buildbox{#2}{#4}%
+ \ifdim\dimen@<#3\relax
+ \parbox[#1][#3]{#2}{#4}%
+ \else
+ % Compute upper and lower bounds
+ \loop
+ \vl@fontdim.5\vl@fontdim % Reduce font size by half
+ \vl@buildbox{#2}{#4}%
+ \ifdim\dimen@>#3\relax \repeat
+ \vl@lowerfontdim\vl@fontdim
+ \vl@upperfontdim=2\vl@fontdim
+ \vl@fontdim=1.5\vl@fontdim
+ % Now try to find the optimum size
+ \loop
+ %\message{Bounds: \the\vl@lowerfontdim\space
+ % \the\vl@fontdim\space \the\vl@upperfontdim^^J}
+ \vl@buildbox{#2}{#4}%
+ \ifdim\dimen@>#3\relax %
+ \@vl@moreiterationstrue
+ \vl@upperfontdim\vl@fontdim
+ \advance\vl@fontdim\vl@lowerfontdim
+ \vl@fontdim=.5\vl@fontdim
+ \else
+ \advance\dimen@-#3\relax %
+ \ifdim\dimen@<10pt %
+ \vl@lowerfontdim\vl@fontdim
+ \advance\vl@fontdim\vl@upperfontdim
+ \vl@fontdim=.5\vl@fontdim
+ \dimen@\vl@upperfontdim
+ \advance\dimen@-\vl@lowerfontdim
+ \ifdim\dimen@<.2pt %
+ \@vl@moreiterationsfalse
+ \else
+ \@vl@moreiterationstrue
+ \fi
+ \else
+ \@vl@moreiterationsfalse
+ \fi
+ \fi
+ \if@vl@moreiterations \repeat
+ \parbox[#1][#3]{#2}{\fontsize{\vl@fontdim}{1.2\vl@fontdim}\selectfont#4}%
+ \fi
+}
+
\newcommand*\vl@setboolean[3][false]{% #1=default (opt.), #2=if, #3=value
\edef\vl@tempa{\trim@spaces{#3}}%
\expandafter\csname #2\ifx\@empty\vl@tempa #1\else\vl@tempa\fi\endcsname
@@ -336,7 +400,7 @@
\put(\vl@tempdima,290bp){\vl@ShippingZipcode~\vl@ShippingTown}%
\put(\vl@tempdima,280bp){\vl@ShippingLand}%
%
- \put(93bp,257bp){\parbox[t]{447bp}{%
+ \put(93bp,257bp){\lfitbox[t]{447bp}{56bp}{%
\begin{sloppypar}\vl@Content\end{sloppypar}}}%
\endgroup
}
@@ -349,7 +413,7 @@
}
}%
-\emergencystretch=1em %
+\emergencystretch=3em %
\pagestyle{empty}
\endinput
--
GitLab