%% ** (c) TP; public domain; 22-10-2001 **
%% ** Makra dla Plain/Mex do sk/ladania og/losze/n do przylepienia na /scian/e **
%% ** Wymagany jest plik trans.tex (z zasobow GUST-u) + opcjonalnie colordvi.tex (standardowy)
%% ** Przyk/lad wykorzystania: na ko�cu pliku ***
\input trans.tex
\input colordvi %% potrzebny do tytu/lu w kontrze
%
\def\TelLPaska{20} %%% liczba pask/ow z numerem tel.
\newdimen\TelDlPaska \TelDlPaska=33mm %%% d/l. paska z numerem tel.
\newdimen\TelSzPaska \TelSzPaska=7mm %%% szer. paska z numerem tel.
\newdimen\GLPion \GLPion= 0.4pt %% szer. kreski poziomej
\newdimen\GLPoziom \GLPoziom = 0.4pt %% szer. kreski pionowej
\newdimen\Vsize \Vsize=12mm %% wysoko/s/c ogloszenia = wys. naturalna + \Vsize
%
\font\rm=qplr at 13pt
\font\bf=qplb at 13pt
%
\font\telfont=qplb at 11pt % font na nr. telefonu
\font\titlefont=qplb at 15pt % font na tytu/l ogloszenia

\newdimen\Hsize
%
\def\ObliczWymiaryKartki{%
        \Hsize=\TelLPaska\TelSzPaska 
        \advance \Hsize \TelLPaska\GLPoziom
        \advance \Hsize -\GLPoziom }
\def\szerokoscPa#1{\TelSzPaska=#1\relax}
\def\dlugoscPa#1{\TelDlPaska=#1\relax}
\def\liczbaPa#1{\def\TelLPaska{#1}}
%
\vsize=10.5in 
\advance \voffset-.4in
\raggedbottom
\nopagenumbers
\parindent0pt
\rm
%
\def\Hrule{\hrule height\GLPion}
\def\RHrule{\hrule height\GLPoziom}
\def\Vrule{\vrule width\GLPoziom}
\def\RVrule{\vrule width\GLPion}
\long\def\Lboxit#1{\vbox{\Hrule\hbox{\Vrule\vbox{#1}\Vrule}\Hrule}}
\def\cbox#1{\vbox{\halign{&\hfil##\hfil\cr#1\crcr}}}
%%\input flush.tex
\def\Flushleft#1{\vbox{\rightskip0pt plus4.444em  
\spaceskip.3333em \pretolerance9999 \parindent0pt
\xspaceskip.5em #1\par}}
\def\XFlushleft#1{\vtop{\rightskip0pt plus4.444em  
\spaceskip.3333em \pretolerance9999 \parindent0pt
\xspaceskip.5em #1\par}}
\def\Flushright#1{\def\\{\hfil\break}\vbox{%
\leftskip 0pt plus 1fill\rightskip0pt
\spaceskip.3333em\parindent0pt #1\par}}
\long\def\Flushleftright#1{\vbox{\TPcentering #1\par}}
\def\TPcentering{\rightskip0pt plus5.5em  
\spaceskip.3333em \pretolerance9999
\leftskip\rightskip \parindent0pt \parfillskip0pt
\xspaceskip.5em}
% ;;;;;;;;;;;
\def\Strong#1{{\bf #1}}
\def\Telefon#1{\revolve\vbox{\hbox{\RVrule 
   \vbox to \TelSzPaska{\vss \hsize=\TelDlPaska
   \centerline{\telfont tel.~#1}\vss}\RVrule}\RHrule}}
\newcount\C
\def\Telefony#1{\C=\TelLPaska \hbox{\Vrule
    \loop \ifnum\C > 0 \Telefon{#1}\advance\C -1\repeat }}
\def\Ogloszenie{\ObliczWymiaryKartki
        \futurelet\testchar\WariantO }
\def\WariantO{\ifx[\testchar \let \next\OgloszenieZTytulem
  \else \let\next \OgloszeniebezTytulu \fi \next }
\long\def\OgloszeniebezTytulu#1#2{%
 \vbox {\Lboxit{\vbox spread \Vsize{\hsize = \Hsize \vss 
    \baselineskip18pt \Flushleftright{#1}\bigskip }}%
    \Telefony{#2}}\vskip5mm plus 5mm }
\long\def\OgloszenieZTytulem[#1]#2#3{\vbox {\Lboxit{\vbox spread \Vsize{%
    \hsize = \Hsize \vss \baselineskip18pt
    \TytulOgloszenia{#1}\bigskip\Flushleftright{#2}\bigskip }}%
    \Telefony{#3}}\vskip4mm plus  5mm }
\def\TytulOgloszenia#1{\line{\hss\uppercase{\titlefont #1}\hss}}
\def\tytulwkontrze{\let\TytulOgloszenia\TytulWKontrze}
\def\TytulWKontrze#1{\vbox to0pt{\centerline{%
   \vrule height 24pt width .75\hsize}\vss}%
   \centerline{\White{\uppercase{\titlefont #1}}}%
   \bigskip }
%
\endinput
%%% Przyk/lad wykorzystania:
%%% --- tu tnij --- 
%& --translate-file=il2-pl
\input ogloszenie.tex

\Ogloszenie{Sprzedam rower Shimano 18 bieg�w. Cena: 200 z�.
   Dzwoni� po �smej.}{222-06-50}
\liczbaPa{12}%
\szerokoscPa{10mm}
\Ogloszenie[Sprzedam rower]%<-- opcjonalny tytu/l
  {%
  \Strong{rama:} Bianchi L-Alloy (2000), rozmiar 61,  niebiesko-��ta (Y2); 

  \Strong{osprz�t:} Campagnolo Daytona, 
  \Strong{obr�cze:} Vuelta Airline~2,
   kierownica: Cinelli, 
   stery: Richey Fuzzy Logic, 
   siod�o: Selle Italia Xo.
  Dzwoni� po dziewi�tej. Pyta� o~Rycha. }
 {222-06-50}
\tytulwkontrze %% <-----
\liczbaPa{16}%
\Ogloszenie[Sprzedam rower Pinarello]{%
  \Strong{rama:} Pinarello Opera (2001), rozmiar 59, replika iBanesto; 

  \Strong{osprz�t:} Campagnolo Record, 
  \Strong{obr�cze:} Mavic Cosmic, szprychy: DT,
   kierownica: ITM (czarna),
   stery: Richey Fuzzy Logic,
   siod�o: Selle Italia Titan.
  Dzwoni� po dziesi�tej. Pyta� o~Zdzicha. }
 {222-06-50}

\bye

