summaryrefslogtreecommitdiff
path: root/macros/inrstex/inrsinputs/inrssl.tex
blob: 925a824779c542c89615e8dca688b5c108154c4e (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
%  PostScript slide form 
%  \genform Aug 1991
%  Toulson/Beebe PS driver
% ====== simple viewgraph box =======
\catcode`\@=11
\def\hviewbox{\beginsegment
                \unitscale {\f@ormscale} 
                \slidelogo 
                \topform 
                \botform
                 \move h:0 v:.4
                 \penwidth .05
                 \lvec h:8.9 v:.4
                 \lvec h:8.9 v:6.9
                 \move h:0 v:.4
                 \lvec h:0 v:6.9
                 \move h:.15 v:6.9
                 \larc r:.15 sd:90 ed:180
                 \move h:.15 v:7.05
                 \lvec h:8.75 v:7.05
                 \move h:8.75 v:6.9
                 \larc r:.15 sd:0 ed:90
                \endsegment}
% ======= Slide Utilities ======
% Horizontal form 
\newtoks\slidetitle 
\newdimen\slhsize \newdimen\slvsize 
\long\def\sltitle#1{\vglue .03\slvsize \global\slidetitle={#1}
                    \vbox to 0pt{\hsize=\slhsize  \rightskip=.1\hsize plus 1fill
                         \def\cr{\endgraf}\leftskip= .1\hsize plus 1fill\gbfont\gbbaselines
                         \parskip=1ex \parindent=0pt#1\vss}}
\def\shk{\showthe\leftskip\showthe\rightskip}
\let\shk=\relax
\long\def\slidebox #1#2{\vbox to \slvsize{\hsize \slhsize 
              \grfont\parindent=0pt
              \grbaselines\parskip=2.8ex \advance\rightskip by 0pt plus 1fil
              \sltitle{#1}\vfill\advance\rightskip by .05\hsize
                        \advance\leftskip by .05\hsize
                           #2\vfill}}

\def\bl{\beginlist \samplemark{$\bullet$}} % modifies default
\def\lb{\li {$\bullet$} }
\def\lc{\li {$\circ$} }
\def\last{\li {$\ast$} }
\def\hd#1{\vskip 1ex\vbox{\veryraggedright\hangindent1em\hangafter1
                          \noindent\bigfont#1}\vskip 1ex }


% ===== slide building macros =======
% A slide lives in either a textform or fullsize form. The defaault is
% Fullsize. Text form reduces the size and gives a chance to add background 
% Material with the slide. 

\newif\iftextform
\gdef\inrsform{\message{<< INRSFORM >>}\input inrslogo\relax \gdef\slidelogo{\i@nrsform}
                \gdef\topform{}\gdef\botform{}}
\gdef\i@nrsform{\inrslogo h:.2 v:0 sc:.25 
                          \move h:8.9 v:.1 \textref h:R v:C 
           \rstext d:0 sc:{\f@ormscale} t:{\bf INRS-T\'el\'ecommunications} }
\newtoks\topdata 
\newtoks\botdata
\newtoks\slidedate  
\gdef\genform{\message{<< General FORM >>}
         \gdef\slidelogo{\topform}\gdef\topform{\move h:0 v:.15 \textref h:L v:C 
              \rstext d:0 sc:{\f@ormscale} t:{\borderfont\the\topdata} }
              \gdef\botform{\move h:4.45 v:7.25 
                           \textref h:C v:C
\rstext d:0 sc:{\f@ormscale} t:{\borderfont \the\botdata\ -- \the\slidedate} }}

\newcount\textfontscale  % computed inside textform
\gdef\textform{\message{<< Text Size >>}\long
              \gdef\comment##1//{\rm ##1}\textformtrue\gdef\slidescale{.578}
              \textfontscale=\the\fullfontscale \relax
              \multiply\textfontscale by 1000
              \divide\textfontscale by 1728 
              \fontset scaled {\the\textfontscale}
              \textformfonts
              \let\borderfont=\txborderfont
              \textpagestyle
              \slvsize = 9.84cm \slhsize = 12.5cm 
              \gdef\tfb{\bigskip\filbreak}}
\newcount\fullfontscale % set in defaults 
\gdef\fullform{\message{<< Full Size >>}
              \long\gdef\comment##1//{}\textformfalse\gdef\slidescale{1}
              \fontset scaled {\the\fullfontscale}
              \fullformfonts
              \let\borderfont = \fxborderfont
              \finalversion
              \documentstyle{
                 \leftmargin=.6in
                 \nofooterstyle
                 \vfootersize=0pt }
              \slvsize=17cm \slhsize=21.5cm
              \let\tfb=\relax}

\long\gdef\hhslide#1#2{\btg
                   \segmentscale {\slidescale}
                   \move h:0.2 v:.4 \textref h:L v:T 
                   \rstext d:0 sc:{\f@ormscale} t:{\slidebox{#1}{#2}}
                   \move h:0 v:0 \hviewbox
                  \etg}
\gdef\formscale #1 {\gdef\f@ormscale{#1 }}
\gdef\smalldot{\setbox0=\hbox{\hskip .4in\fiverm.}\wd0=0pt\ht0=0pt\dp0=0pt\box0}
\long\gdef\hslide #1//#2//{\advance\slidenum by 1 \relax
            \begingroup\tfb\documentstyle{\genpoint}\bf \let\hslide=\slideerr
             \iftextform\centergraph{\hhslide{#1}{#2}}\bigskip \else
             \btg
             \move h:0 v:8.9
             \vtext {\hhslide{#1}{#2}}
             \move h:7 v:8.8
             \etg
             \smalldot\ejectpage\fi\endgroup}
% ====== Error forms ========
% This attempts to find a misplaced // gracefully 
\newcount\slidenum 
\ifnum\language=0 \edef\s@lmiss{Probable Missing or Extra  //  in Slide Num. }
                \else 
                 \edef\s@lmiss{Probable Missing or Extra  //  in Slide Num. } 
                      \fi
\gdef\slideerr{\message{<<\s@lmiss\the\slidenum>>}}

% ====== TexGraph Defaults ========
\ifundefined{textref} 
     \begingroup \catcode`\^=7 \input texgraph \endgroup \fi

% ==== text form page style =====
\gdef\textpagestyle{}

% ====== Font Defaults =========
\input spfont \relax
\gdef\textformfonts{\font\gffont= cmcsc10 scaled 667 }
\gdef\fullformfonts{\font\gffont = cmcsc10 scaled 1440 }
\fullfontscale = 2074 
\font\fxborderfont = cmbx10 scaled 1728
\let\txborderfont = \tenbfx 

% ==== slide default =====
\slidenum=0 
\gdef\gbfont{\bigfont}
\gdef\gbbaselines{\baselineskip = 2.8ex\lineskip=1pt\lineskiplimit=0pt}
\gdef\grfont{\bf}
\gdef\grbaselines{\baselineskip=2.8ex\lineskip=1pt\lineskiplimit=0pt}
\formscale 1
%====== end defaults ===== 

\catcode`\@=12