new latex package ghab (25oct11)

git-svn-id: svn://tug.org/texlive/trunk@24396 c570f23f-e606-0410-a88d-b1316a301751

8 files changed, 280 insertions, 1 deletions

diff --git a/Master/texmf-dist/doc/latex/ghab/README b/Master/texmf-dist/doc/latex/ghab/README
new file mode 100644
index 00000000000..fd0feff1c8d
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/ghab/README
@@ -0,0 +1,12 @@
+__________________
+The ghab package
+
+This package implements \darghab command that can be used
+for producing ghab boxes in LaTeX.
+
+______________
+Vafa Khalighi
+vafaklg@gmail.com
+
+Copyright 2011
+Distributed under the LaTeX Project Public License
diff --git a/Master/texmf-dist/doc/latex/ghab/ghab-doc.pdf b/Master/texmf-dist/doc/latex/ghab/ghab-doc.pdf
new file mode 100644
index 00000000000..e6e71f30c77
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/ghab/ghab-doc.pdf
diff --git a/Master/texmf-dist/doc/latex/ghab/ghab-doc.tex b/Master/texmf-dist/doc/latex/ghab/ghab-doc.tex
new file mode 100644
index 00000000000..379e31dfc8d
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/ghab/ghab-doc.tex
@@ -0,0 +1,24 @@
+\documentclass{article}
+\usepackage{ghab,bidicode}
+\title{The \textsf{ghab} package}
+\author{Vafa Khalighi}
+\begin{document}
+\maketitle
+Provides \Lcs{darghab} command for typesetting ghab boxes which has the following syntax:
+\begin{BDef}
+\Lcs{darghab}\OptArg{\Larga{width}}\Largb{\Larga{text}}
+\end{BDef}
+The optional \Larga{width} determines the width of the box and if you do not give this optional argument, then the width of the box will be equal to \Lcs{linewidth}
+
+\bigskip
+\begin{lstlisting}[morekeywords={darghab}]
+%\darghab[10cm]{%
+%Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.
+%}
+\end{lstlisting}
+
+\bigskip
+\darghab[10cm]{%
+Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.
+}
+\end{document}
\ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/ghab/ghab.mf b/Master/texmf-dist/fonts/source/public/ghab/ghab.mf
new file mode 100644
index 00000000000..4c95ea4de0b
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/ghab/ghab.mf
@@ -0,0 +1,184 @@
+%%
+%% This is file `ghab.mf',
+
+%% 
+%%   __________________________________
+%%   Copyright © 2011 Vafa Khalighi
+%% 
+%%   License information appended.
+%% 
+%%
+
+
+font_identifier:="ghab";
+em#=10pt#;
+u# := 1/20em#;
+zekh#=1.2u#;
+wd#:=2zekh#;
+mode_setup;
+define_pixels(em,u,zekh,wd);
+pickup pencircle scaled zekh;
+
+def loaf(expr bp,lp)=begingroup
+save x,y,p;
+path p[];
+numeric teta;
+  pickup pencircle scaled zekh;
+  z1=bp;
+  z2=lp;
+  teta=angle(z2-z1);
+  z2b=z2 rotatedaround(z1,-teta);
+  x4=.4[x1,x2b];
+  x5=.1[x4,x2b];
+  y3=y4;x3=x2b;
+  y4-y2b=.25(x2b-x1);
+  y5=1.2[y2b,y4];
+  p1=z1{dir-45}..tension 1.2 ..{up}z3..{down}z4..tension1.3..z5..tension1.4..z4;
+ 
+  p2=p1 rotatedaround(z1,teta);
+  p3=p2 reflectedabout(z1,z2);
+  draw p2;
+  draw p3;
+endgroup;
+enddef;
+
+beginchar(1,em#,0.5em#,0.5em#);
+z1=(0,0);
+z2=(x1+wd,0);
+z3=(.5w,-d+wd);
+z4=(.5w,-d);
+z6=(w,0);
+z7=(.5w,h);
+loaf(z2,z6);
+loaf(z3,z7);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+beginchar(2,em#,0.5em#,0.5em#);
+z1=(0,0);
+z2=(x1+wd,0);
+z3=(.5w,-d+wd);
+z4=(.5w,-d);
+z6=(w,0);
+z7=(.5w,h);
+currenttransform:=identity reflectedabout((.5w,0),(.5w,10));
+loaf(z2,z6);
+loaf(z3,z7);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+beginchar(3,em#,0.5em#,0.5em#);
+z1=(0,0);
+z2=(x1+wd,0);
+z3=(.5w,-d+wd);
+z4=(.5w,-d);
+z6=(w,0);
+z7=(.5w,h);
+currenttransform:=identity reflectedabout((0,0),(5,0));
+loaf(z2,z6);
+loaf(z3,z7);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+beginchar(4,em#,0.5em#,0.5em#);
+z1=(0,0);
+z2=(x1+wd,0);
+z3=(.5w,-d+wd);
+z4=(.5w,-d);
+z6=(w,0);
+z7=(.5w,h);
+currenttransform:=identity reflectedabout((0,0),(5,0));
+currenttransform:=currenttransform reflectedabout((.5w,0),(.5w,10));
+loaf(z2,z6);
+loaf(z3,z7);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+wh#=em#;
+define_pixels(wh);
+currenttransform:=identity;
+beginchar(8,wh#,wh#,0);
+z1=(0,h);
+z2=(w,0);
+pickup pencircle scaled .4pt;
+draw z1{dir 0}..{dir -90}z2;
+endchar;
+
+beginchar(9,wh#,wh#,0);
+z1=(0,0);
+z2=(w,h);
+pickup pencircle scaled .4pt;
+draw z1{dir 90}..{dir 0}z2;
+endchar;
+
+beginchar(10,wh#,0,wh#);
+z1=(0,0);
+z2=(w,-d);
+pickup pencircle scaled .4pt;
+draw z1{dir -90}..{dir 0}z2;
+endchar;
+
+beginchar(11,wh#,0,wh#);
+z1=(0,-d);
+z2=(w,0);
+pickup pencircle scaled .4pt;
+draw z1{dir 0}..{dir 90}z2;
+endchar;
+
+beginchar(16,wh#,wh#,0);
+z1=(0,h);
+z2=(w,0);
+pickup pencircle scaled .8pt;
+draw z1{dir 0}..{dir -90}z2;
+endchar;
+
+beginchar(17,wh#,wh#,0);
+z1=(0,0);
+z2=(w,h);
+pickup pencircle scaled .8pt;
+draw z1{dir 90}..{dir 0}z2;
+endchar;
+
+beginchar(18,wh#,0,wh#);
+z1=(0,0);
+z2=(w,-d);
+pickup pencircle scaled .8pt;
+draw z1{dir -90}..{dir 0}z2;
+endchar;
+
+beginchar(19,wh#,0,wh#);
+z1=(0,-d);
+z2=(w,0);
+pickup pencircle scaled .8pt;
+draw z1{dir 0}..{dir 90}z2;
+endchar;
+
+
+font_size em#;  % the "design size" of this font
+font_slant  0;
+font_normal_space 1/4em#;
+font_normal_stretch 1/6em#;
+font_normal_shrink 1/6em#;
+font_x_height zekh#;
+font_quad em#;
+font_extra_space 1/3em#;
+end.
+%% 
+%% Copyright © 2011      by Vafa Khalighi     <vafaklg@gmail.com>
+%% 
+%% 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 Vafa Khalighi.
+%% 
+%% 
+%% 
+%% 
+%%
+%% End of file `ghab.mf'.
diff --git a/Master/texmf-dist/tex/latex/ghab/ghab.sty b/Master/texmf-dist/tex/latex/ghab/ghab.sty
new file mode 100644
index 00000000000..6338014a9d2
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/ghab/ghab.sty
@@ -0,0 +1,58 @@
+%%
+%% This is file `ghab.sty',
+
+%% 
+%%   __________________________________
+%%   Copyright © 2011 Vafa Khalighi
+%% 
+%%   License information appended.
+%% 
+%% 
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{ghab}[2011/10/25 v0.1 ghab boxes in LaTeX]
+\font\ghalameghab=ghab
+
+\def\darghab{\@ifnextchar[{\@darghab}{\@darghab[\linewidth]}}
+
+\def\@darghab[#1]{\@ifnextchar>{\@@darghab[#1]}{\@@darghab[#1]><}}
+
+\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      by Vafa Khalighi     <vafaklg@gmail.com>
+%% 
+%% 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 Vafa Khalighi.
+%% 
+%% 
+%% 
+%% 
+%%
+%% End of file `ghab.sty'.
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 4f4ad8bfb2f..f46b8d34b5f 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -179,7 +179,7 @@ my @TLP_working = qw(
     genmisc genmpage gentium gentle geometry geometry-de
     german germbib germkorr getfiledate getoptk
     gfsartemisia gfsbaskerville gfsbodoni gfscomplutum gfsdidot gfsneohellenic
-    gfsporson gfssolomos
+    gfsporson gfssolomos ghab
     gillcm gincltex ginpenc gitinfo
     gloss glossaries gmdoc gmdoc-enhance gmeometric
     gmiflink gmp gmutils gmverb gmverse gnu-freefont gnuplottex gost
diff --git a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
index 870769a9348..fcd788fe4c3 100644
--- a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
@@ -287,6 +287,7 @@ depend gcard
 depend gcite
 depend genmpage
 depend getfiledate
+depend ghab
 depend ginpenc
 depend gitinfo
 depend gloss
diff --git a/Master/tlpkg/tlpsrc/ghab.tlpsrc b/Master/tlpkg/tlpsrc/ghab.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/ghab.tlpsrc