summaryrefslogtreecommitdiff
path: root/fonts/schulschriften/tex/schulschriften_lin.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/schulschriften/tex/schulschriften_lin.sty
Initial commit
Diffstat (limited to 'fonts/schulschriften/tex/schulschriften_lin.sty')
-rw-r--r--fonts/schulschriften/tex/schulschriften_lin.sty147
1 files changed, 147 insertions, 0 deletions
diff --git a/fonts/schulschriften/tex/schulschriften_lin.sty b/fonts/schulschriften/tex/schulschriften_lin.sty
new file mode 100644
index 0000000000..f2ca7db2d9
--- /dev/null
+++ b/fonts/schulschriften/tex/schulschriften_lin.sty
@@ -0,0 +1,147 @@
+% Paket schulschriften
+% Stil-File fuer Lineaturen
+% Version 1
+% Walter Entenmann
+% 17.10.2012
+%
+% benoetigt noch:
+ \usepackage{color}
+ \usepackage{ifthen}
+ \usepackage{eepic}
+%-----------------------------------------------------------
+% Dokumentation
+%
+% Das Stilfile definiert folgende Befehle fuer Lineaturen:
+% Es wird stets die beim Aufruf eines Befehls aktuell gueltige Schrift
+% verwendet. Gegebenenfalls vor dem Aufruf der Befehle
+% Schrift und Groesse waehlen (evtl. lokal geklammert), z.B.
+% \usefont{T1}{wesu}{m}{n}\fontsize{24pt}{32pt}\selectfont
+%
+% 1. Lineatur (schwarz) und Text (schwarz oder in Farbe mit \color-Befehl)
+% auf die Linien
+%**** \Linien[breite]{text}
+% text = beliebiger Text, der linksbuendig auf die Linien
+% entsprechender Breite geschrieben wird.
+% breite = Laengenangabe (optional), z.B. \textwidth oder 10cm,
+% fuer die Breite der Zeile.
+% Voreingestellt ist die Breite des Textes text.
+%
+% 2. Lineatur (dunkelgrau) und Text (schwarz oder in Farbe mit \color-Befehl)
+% auf die Linien
+%**** \Zeile[breite]{text}
+% text = beliebiger Text, der linksbuendig auf die Linien
+% entsprechender Breite geschrieben wird.
+% breite = Laengenangabe (optional), z.B. \textwidth oder 10cm,
+% fuer die Breite der Zeile.
+% Voreingestellt ist die Breite des Textes text.
+%
+% 3. Linienblatt, optional mit dem gleichen Text in jeder Zeile
+% (schwarz oder in Farbe mit \color-Befehl).
+% Linien dunkelgrau, Hintergrundfarbe hellgrau,
+% Schrift schwarz, Schriftbereich weiss. Ganze Seite.
+% *** \Linienblatt[text]{fontsize}{skip}{anzahl}{breite}
+% text = Text (optional)
+% fontsize = Schriftgroesse in pt
+% skip = Zeilenabstand (baselineskip), z.B. in pt oder mm
+% anzahl = Anzahl der Zeilen
+% breite = Breite der Lineatur, z.B. 12cm oder \textwidth
+% Beispiele: a) \Linienblatt[A]{48pt}{52pt}{10}{12.5cm}
+% b) \Linienblatt{36pt}{42pt}{21}{\textwidth}
+%
+% \color-Befehl: Anwendung text=....{\color{red}roter Text}...
+
+
+%%%%%%%%%%%%% Beginn des Stilfiles %%%%%%%%%%%%%%%
+%
+% Register und Farben
+\newbox\Zeichen
+\newdimen\breite
+\newdimen\tiefe
+\newdimen\hoehe
+\newdimen\shoehe
+\newdimen\stiefe
+\newdimen\dicke
+\newdimen\dtiefe
+\newcount\Breite
+\newcount\Tiefe
+\newcount\Hoehe
+\newcount\SHoehe
+\newcount\STiefe
+\newcount\Dicke
+\newcount\DTiefe
+\newcount\Einheit
+\newcounter{zahl}
+\definecolor{hellgrau}{gray}{0.9}
+\definecolor{dunkelgrau}{gray}{0.6}
+%------------------------------------------------------------
+%
+% Lineatur und Text auf Linien
+\newcommand{\Linien}[2][\wd\Zeichen]{%
+\setbox\Zeichen=\hbox{p}%
+\tiefe=\dp\Zeichen%
+\dtiefe=\tiefe%
+\shoehe=\ht\Zeichen%
+\dicke=0.05\shoehe%
+\advance\dtiefe by \dicke%
+\setbox\Zeichen=\hbox{B}%
+\hoehe=\ht\Zeichen%
+\setbox\Zeichen=\hbox{#2}%
+%\breite=\wd\Zeichen%
+\breite=#1%
+\Breite=\breite%
+\Tiefe=\tiefe%
+\Hoehe=\hoehe%
+\SHoehe=\shoehe%
+\Dicke=\dicke%
+\DTiefe=\dtiefe%
+\unitlength0.1pt%
+\Einheit=\unitlength%
+\divide\Breite by \Einheit%
+\divide\Hoehe by \Einheit%
+\divide\Tiefe by \Einheit%
+\divide\SHoehe by \Einheit%
+\divide\Dicke by \Einheit%
+\divide\DTiefe by \Einheit%
+\STiefe=\Tiefe%
+\advance\STiefe by \Hoehe%
+\advance\SHoehe by \Tiefe%
+\advance\SHoehe by \Dicke%
+\advance\SHoehe by \Dicke%
+\advance\STiefe by \Dicke%
+\advance\STiefe by \Dicke%
+\raisebox{-\dtiefe}{%
+\begin{picture}(\Breite,\STiefe)
+\put(0,0){\line(1,0){\Breite}}
+\put(0,\Tiefe){\line(1,0){\Breite}}
+\put(0,\SHoehe){\line(1,0){\Breite}}
+\put(0,\STiefe){\line(1,0){\Breite}}%
+\put(0,0){\line(0,1){\STiefe}}
+\put(\Breite,0){\line(0,1){\STiefe}}
+\put(0,\DTiefe){\copy\Zeichen}
+\end{picture}%
+}%
+}
+%
+%------------------------------------------------
+\newcommand{\Zeile}[2][\wd\Zeichen]{%
+\colorbox{white}{{\color{dunkelgrau}\Linien[#1]{%
+{\color{black}#2}}}}}
+%-------------------------------------------------
+% Linienblatt
+\newcommand{\Linienblatt}[5][]{{%
+\newpage
+\thispagestyle{empty}
+\fboxsep0pt
+\pagecolor{hellgrau}
+\fontsize{#2}{#3}\selectfont
+\setcounter{zahl}{#4}
+\whiledo{\value{zahl}>0}{%
+\colorbox{white}{{\color{dunkelgrau}\Linien{%
+{\color{black}\makebox[#5][l]{#1}}%
+}}}\par
+\addtocounter{zahl}{-1}
+}}
+\newpage\pagecolor{white}}
+%
+%--------------------------------------------------
+%%%%%%%%%%%%%%% Ende des Stilfiles %%%%%%%%%%%%%%%