%  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

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.