summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/gustlib/meashor.tex
blob: 59ef7db314dbaf3ac80b708c13ad0e942c0bb0b5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
% =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
% Autor:                                | Author: 
%                       Bogus\l{}aw Jackowski, 22 V 1990
                          email: B.Jackowski@gust.org.pl
% Sprawdzone i udost/epnione:           | Revised and released:
%                                   18 II 1997
% =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
% Makro \meashor umieszczone            | Macro \meashor, when used in
% w akapicie nadaje warto/s/c           | a paragraph, assigns values to
% dw/om zmiennym: \measnum i \measdim,  | two registers: \measnum and
% oznaczaj/acym odpowiednio numer       | \measdim (number of the line
% wiersza akapitu w kt/orym pojawi/lo   | of the paragraph from which the
% si/e makro \meashor i odleg/lo/s/c    | macro was invoked and the distance
% punktu pomiaru od lewego skraju       | of the measuring point from the
% akapitu.                              | left edge of the paragraph, resp.).
% Przyk/lad:                            | Example:
%   Fragment programu                   |   The piece of code
%     Ala\meashor\ ma kota              |     Alice\meashor\ has a cat
%   spowoduje nadanie zmiennym          |   results in assigning the
%   nast/epuj/acych warto/sci:          |   following values
%   \measnum=1                          |   \measnum=1                    
%   \measdim=35.27782pt (parindent      |   \measdim=41.94447pt (parindent
%   plus d/lugo/s/c s/lowa Ala          |   plus the length of the word Alice
%   dla fontu CMR10).                   |   for the font CMR10).
% Autor b/edzie wdzi/eczny za           | The author will be grateful for
% poinformowanie o zgrabnych            | informing him about neat
% zastosowaniach makra \meashor.        | applications of the macro \meashor.
% =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
\newif\ifmeasdisp %      ,,kosmetyka''  |  cosmetic powder
\measdispfalse %   ustawienie domy/slne |  default
\newcount\measnum %              wynik  |  result
\newdimen\measdim %              wynik  |  result
\def\meashor{%
  \ifhmode
    \bgroup %  zmiany parametr/ow s/a lokalne | parameters settings are local
      \leftskip0pt \rightskip0pt
      \parfillskip=0pt plus 1fil
      \predisplaypenalty=10000
      \postdisplaypenalty=10000
      \displaywidowpenalty=\widowpenalty
      \abovedisplayskip=-\baselineskip
      \belowdisplayskip=-\baselineskip
      \abovedisplayshortskip=-\baselineskip
      \belowdisplayshortskip=-\baselineskip
      \null % pozostaw poprzedzaj/ac/a spacj/e | leave preceding space
      $$\global\measdim=\predisplaysize$$%
      \ifnum\prevgraf=0
        \immediate\write16{!
          perhaps restricted hmode:
          MEASURING IGNORED}%
      \else
        \global\advance\measdim by -2em
        \global\measnum=\prevgraf
        \global\advance\measnum by -3
        \ifmeasdisp
          \immediate\write16{>>
            \the\measnum: \the\measdim}%
        \fi
% \advance\prevgraf to operacja zabroniona | \advance\prevgraf is forbidden
        \global\advance\measnum by -1
        \global\prevgraf=\measnum
        \global\advance\measnum by 1
        \kern\measdim
      \fi
    \egroup
  \else
    \immediate\write16{! vmode:
      MEASURING IGNORED}%
  \fi
}%
\endinput