diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/inrstex/texgraph/inrssl.tex |
Initial commit
Diffstat (limited to 'macros/inrstex/texgraph/inrssl.tex')
-rw-r--r-- | macros/inrstex/texgraph/inrssl.tex | 147 |
1 files changed, 147 insertions, 0 deletions
diff --git a/macros/inrstex/texgraph/inrssl.tex b/macros/inrstex/texgraph/inrssl.tex new file mode 100644 index 0000000000..925a824779 --- /dev/null +++ b/macros/inrstex/texgraph/inrssl.tex @@ -0,0 +1,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 + |