summaryrefslogtreecommitdiff
path: root/macros/inrstex/texgraph/inrssl.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/inrstex/texgraph/inrssl.tex')
-rw-r--r--macros/inrstex/texgraph/inrssl.tex147
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
-