summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/schulschriften/schulschriften_lin.sty
blob: f2ca7db2d95760526384d41853d560b2415f18db (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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
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 %%%%%%%%%%%%%%%