% Format ,,Statut STO''
% Autorzy: B. Jackowski, P. Pianowski, M. Ryćko.
% marzec 1990
% kwiecień 1992 --- fonty PL
% styczeń 1996 --- strzyżenie i golenie: St. Wawrykiewicz & B. Jackowski
% marzec 2002 -- dodana wersja PDF (zakładki do rozdziałów i punktów
%                + katalog): Tomek Przechlewski; niewielka korekta: StaW
% maj 2010 --- zmiana fontu z qvh* na qx-qvh* - Jola Szelatyńska; 
%      zmiana testu pdfoutput, wynikła ze zmian w pdfTeX-u (Tomek Przechlewski)
% ---
\def\|{\kern.14em}
\def\Metafont{{\MFf META}\-{\MFf FONT}}
% ---
\font\MFf=logo10
\font\normfont=qx-qhvr     % było qhvr - mjsz
\font\grubyfont=qx-qhvb    % było qhvb - mjsz 
\font\tytfont = qx-qhvb at13pt
% Zamiast fontów qhv można skorzystać z:
%\font\normfont=plr10
%\font\grubyfont=plbx10
%\font\tytfont =plssdc10 scaled \magstep 2
% ---
\normfont \spaceskip=.38em plus.19em minus.1em 
% ---
\newdimen\baselinedim \baselinedim=10pt
\baselineskip=1.1\baselinedim plus0.033\baselinedim minus0.02\baselinedim
%
\newdimen\margsize \margsize=3.5cm
\newdimen\Hsize \Hsize=\hsize \advance\Hsize by \margsize
\advance\vsize by 0.5truecm % mjsz
\vbadness=3000
\hfuzz=0.3pt
\vfuzz=3pt
\widowpenalty=10000
\clubpenalty=10000
\brokenpenalty=10000
\parindent=15dd % =1.5 fireta
\pretolerance = -1   % nie ma co próbować łamać bez dzielenia wyrazów
\parfillskip=\parindent plus 1fil minus 2dd
%
\tolerance=1000
\hbadness=1000
\lineskiplimit=-\maxdimen
\parskip=1.5pt plus 0.5pt
% ---
% parametry dobre do raczej długich akapitów:
% kara ok. 3000 za dzielenie w przedostatniej linijce:
\global\finalhyphendemerits = 9000000
% kara ok. 2000 za dzielenie w sąsiednich linijkach:
\global\doublehyphendemerits = 4000000
% kara ok. 3000 za ,,różne'' rozciąganie sąsiednich linijek:
\global\adjdemerits = 9000000
% ---
\def\goodvskip{\endgraf \afterassignment\goodvskipcont \goodskip }
% użycie np. `\goodvskip 4pt plus 1pt \relax'
% (lub - niezalecane - `\goodvskip = 4pt plus 1pt \relax'
\def\goodvskipcont{\advance \goodskip by 0pt plus \goodstretch
     \vskip\goodskip \penalty -50 \vskip 0pt plus -\goodstretch \relax}
\newskip\goodskip
\newdimen\goodstretch \goodstretch=24pt
% --
\newwrite\rep
\def\writetorep#1#2{\begingroup
   \Xsanitize \edef\save{{#1}{#2}}%
   \write\rep\expandafter{\save}%
   \endgroup}
\def\Xsanitize{\def\TeX{TeX}\def\LaTeX{LaTeX}\def~{ }}
\def\StopBookmarks{\write\rep{\string\endinput}\closeout\rep}
\def\StartBookmarks{\immediate\openout\rep=\jobname.rep }
\StartBookmarks
% --
\newcount \rozdzC

%%% Test PDF/Dvi:
%% http://www.tex.ac.uk/cgi-bin/texfaq2html?label=ifpdf
%% zmienil sie sposob dzialania \pdfoutput
\newif\ifPDF \PDFtrue
\ifx\pdfoutput \undefined 
    %%% Not PDF
    \global\PDFfalse
   \else
   \ifx\pdfoutput\relax
    %%% not running PDFTeX
      \global\PDFfalse
   \else
    % running PDFTeX, with...
    \ifnum\pdfoutput>0
    %%% PDF output
      \global\PDFtrue
    \else
    % DVI output
      \global\PDFfalse
    \fi
   \fi
\fi

\def\rozdz_#1 #2 \par{%
  \goodvskip\bigskipamount
  \centerline{Rozdział #1}%
  \ifPDF
    \global\artC=0 \global \advance\rozdzC by1 %
    \pdfdest name {r.\the\rozdzC} fith
    \writetorep{r.\the\rozdzC}{#2}%
  \fi
  \nobreak\smallskip
  \centerline{\grubyfont #2}
  \nobreak\medskip}

\def\podrozdz #1 \par{%
  \goodvskip\bigskipamount
  \centerline{\grubyfont #1}%
  \ifPDF
     \global\artC=0
     \global \advance\rozdzC by1
     \pdfdest name {r.\the\rozdzC} fith
    \writetorep{r.\the\rozdzC}{#1}%%
  \fi
  \nobreak\medskip}
%
\newcount\artC
\def\art_#1.{{\grubyfont
  \ifPDF
    \global \advance\artC by1
    \leavevmode \hbox to0pt{%
       \raise\baselineskip\hbox{\pdfdest name 
           {rr.\the\rozdzC.\the\artC} fith}%
    \writetorep{rr.\the\rozdzC.\the\artC}{#1}}%
  \fi
 Art.\kern0.2em#1.}\kern1.8\spaceskip\ignorespaces}
\def\ust_#1.{#1.\kern1.3\spaceskip\ignorespaces}
\def\pkt_#1){%
  \leftskip=\parindent \noindent
  \llap{#1)\hbox to 5pt{}}%
  \let\pktpar=\par \def\par{\endgraf\leftskip=0pt\let\par=\pktpar}%
  \ignorespaces}
\def\poz{%
  \leftskip=2\parindent\noindent
  \llap{---\hbox to 5pt{}}%
  \let\litpar=\par \def\par{\endgraf\leftskip=0pt\let\par=\litpar}%
  \ignorespaces}
\def\lit_#1){%
  \leftskip=2\parindent\noindent
  \llap{#1)\hbox to 5pt{}}%
  \let\litpar=\par \def\par{\endgraf\leftskip=0pt\let\par=\litpar}%
  \ignorespaces}
% - katalog:
\newread\InputFile
\def\InputIfExist#1{%
  \immediate\openin\InputFile #1\relax
  \ifeof\InputFile \immediate\write16{FILE #1 NOT FOUND}%
  \else \immediate\closein\InputFile \input #1\relax
  \fi
}
%
\ifPDF
  \pdfcatalog{/PageMode /UseOutlines } openaction goto page 1 {/Fit} 
  \pdfinfo{/Author (Polska Grupa Uzytkownikow Systemu TeX -- GUST)
      /Title (Statut Polskiej Grupy Uzytkownikow Systemu TeX)
      /Subject (Statut GUST \string\(po zmianach w 2010 r.\string\)) 
      /Keywords (Statut, GUST)  } 
 \InputIfExist{\jobname.boo}
 \fi

\endinput

.