diff options
Diffstat (limited to 'macros/inrstex/texgraph/inrssl.tex')
-rw-r--r-- | macros/inrstex/texgraph/inrssl.tex | 147 |
1 files changed, 0 insertions, 147 deletions
diff --git a/macros/inrstex/texgraph/inrssl.tex b/macros/inrstex/texgraph/inrssl.tex deleted file mode 100644 index 925a824779..0000000000 --- a/macros/inrstex/texgraph/inrssl.tex +++ /dev/null @@ -1,147 +0,0 @@ -% 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 - |