summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/ghab/ghab.sty
blob: 095fd48fe383475824ed05c6539e40ab3fcbe387 (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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
%%
%% This is file `ghab.sty',

%% 
%%   __________________________________
%%   Copyright © 2011–2013 Persian TeX Group
%% 
%%   License information appended.
%% 
%% 
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{ghab}[2013/04/04 v0.5 ghab boxes in LaTeX]
\RequirePackage{biditools}
\font\ghalameghab=ghab

\def\darghab{\@ifnextchar[{\@darghab}{\@darghab[\linewidth]}}

\def\@darghab[#1]{\@ifnextchar>{\@@darghab[#1]}{\@@darghab[#1]><}}
\bidi@AtEndPreamble{%
\@ifpackageloaded{bidi}{%
\def\@@darghab[#1]>#2<#3{{\def\@vasateghab{#1}\ifx\@vasateghab\@void
\else
\def\@vasateghab{\ifhmode \par\fi\centerline}%
\fi
{\ghalameghab#2\relax\global\expandafter\let\expandafter\@ghalameghab\the\font}
\def\@kagh##1##2{\hbox to \@tempdima{\ghalameghab#2\relax\char##2
\leaders\hrule height \fontdimen5\@ghalameghab width \fontdimen5\@ghalameghab\hfill
\char##1}}%
\setbox\@tempboxa\vbox{\ifx\@vasateghab\@void \hbox{#3}\else
\@tempdima=-\fontdimen6\@ghalameghab
\advance\@tempdima-\fontdimen5\@ghalameghab
\advance\@tempdima-2\fboxsep
\advance\@tempdima#1\relax
\hsize=\@tempdima  \linewidth\hsize #3\fi}%
\setbox\@tempboxa\hbox{\kern\fboxsep\box\@tempboxa
\kern\fboxsep}%
\setbox\@tempboxa\vbox{\@tempdima=\fontdimen6\@ghalameghab \@tempdimb\@tempdima
\advance\@tempdima\wd\@tempboxa \let\@hss\hss
\advance\@tempdimb-\fontdimen5\@ghalameghab \divide\@tempdimb by \tw@
\def\@koo{\vrule width \fontdimen5\@ghalameghab\relax}\offinterlineskip
\@kagh{1}{2}\hbox to \@tempdima{\kern\@tempdimb\@koo\@hss
\box\@tempboxa \@hss\@koo\kern\@tempdimb}\@kagh{3}{4}}%
\ifx\@vasateghab\@void $\vcenter{\box\@tempboxa}$\else
\@vasateghab{\beginL\box\@tempboxa\endL}\fi}}%
}{%
\def\@@darghab[#1]>#2<#3{{\def\@vasateghab{#1}\ifx\@vasateghab\@void
\else
\def\@vasateghab{\ifhmode \par\fi\centerline}%
\fi
{\ghalameghab#2\relax\global\expandafter\let\expandafter\@ghalameghab\the\font}
\def\@kagh##1##2{\hbox to \@tempdima{\ghalameghab#2\relax\char##2
\leaders\hrule height \fontdimen5\@ghalameghab width \fontdimen5\@ghalameghab\hfill
\char##1}}%
\setbox\@tempboxa\vbox{\ifx\@vasateghab\@void \hbox{#3}\else
\@tempdima=-\fontdimen6\@ghalameghab
\advance\@tempdima-\fontdimen5\@ghalameghab
\advance\@tempdima-2\fboxsep
\advance\@tempdima#1\relax
\hsize=\@tempdima  \linewidth\hsize #3\fi}%
\setbox\@tempboxa\hbox{\kern\fboxsep\box\@tempboxa
\kern\fboxsep}%
\setbox\@tempboxa\vbox{\@tempdima=\fontdimen6\@ghalameghab \@tempdimb\@tempdima
\advance\@tempdima\wd\@tempboxa \let\@hss\hss
\advance\@tempdimb-\fontdimen5\@ghalameghab \divide\@tempdimb by \tw@
\def\@koo{\vrule width \fontdimen5\@ghalameghab\relax}\offinterlineskip
\@kagh{1}{2}\hbox to \@tempdima{\kern\@tempdimb\@koo\@hss
\box\@tempboxa \@hss\@koo\kern\@tempdimb}\@kagh{3}{4}}%
\ifx\@vasateghab\@void $\vcenter{\box\@tempboxa}$\else
\@vasateghab{\box\@tempboxa}\fi}}%
}}
\endinput
%% 
%% Copyright © 2011–2013      by Persian TeX Group     <persian-tex@tug.org>
%% 
%% Distributable under the LaTeX Project Public License,
%% version 1.3c or higher (your choice). The latest version of
%% this license is at: http://www.latex-project.org/lppl.txt
%% 
%% This work is "maintained" (as per LPPL maintenance status)
%% by Persian TeX Group.
%% 
%% 
%% 
%% 
%%
%% End of file `ghab.sty'.