From e38407b8608ab0f0ab6d2ad0dfbe576572d48df6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 26 Oct 2011 22:58:17 +0000 Subject: new latex package crbox (26oct11) git-svn-id: svn://tug.org/texlive/trunk@24414 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/crbox/crbox.sty | 116 ++++++++++++++++++++++++++++ 1 file changed, 116 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/crbox/crbox.sty (limited to 'Master/texmf-dist/tex') diff --git a/Master/texmf-dist/tex/latex/crbox/crbox.sty b/Master/texmf-dist/tex/latex/crbox/crbox.sty new file mode 100644 index 00000000000..18e596f38f7 --- /dev/null +++ b/Master/texmf-dist/tex/latex/crbox/crbox.sty @@ -0,0 +1,116 @@ +%% +%% This is file `crbox.sty', + +%% +%% __________________________________ +%% Copyright © 2011 Vafa Khalighi +%% +%% License information appended. +%% +%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{crbox}[2011/10/27 typesetting boxes with crossing lines in the four corners] +\RequirePackage{biditools} +\newif\ifcurved +\newif\ifhollowcurved + +\newdimen\length@corner@paper \length@corner@paper1cm +\newdimen\thickness@corner@paper \thickness@corner@paper0.4pt + +\newcommand\crbox[1][]{\def\@tempa{#1}% +\ifx\@tempa\@void \toks@{}\else +\toks@\expandafter{\csname#1true\endcsname}\fi +\edef\option@cr{\noexpand\curvedfalse\noexpand\hollowcurvedfalse\the\toks@}% +\leavevmode\@crbox} + +\let\option@cr\@void +\bidi@AtEndPreamble{% +\@ifpackageloaded{bidi}{% +\def\@crbox#1{\vbox{\setbox\tw@\vbox{\vskip\fboxsep +\hbox{\hskip\fboxsep\hbox{#1}\hskip\fboxsep}% +\vskip\fboxsep}\offinterlineskip% +\dimen@\thickness@corner@paper \@tempdima\length@corner@paper +\option@cr \font@corner \@tempdimb\z@ +\ifhollowcurved \advance\@tempdima-1em \curvedtrue +\let\llap\hbox \let\rlap\hbox +\else \@tempdimb-\dimen@ \fi +\advance\@tempdimb\@tempdima +\ifcurved +\def\@makecorner##1##2{\setbox\z@\hbox to \wd\tw@ +{\rlap{\if@RTL\char##2\else\char##1\fi}\copy\thr@@\hfil\copy\thr@@\llap{\if@RTL\char##1\else\char##2\fi}}% +\ifhollowcurved\else\dp\z@\z@ \ht\z@\dimen@\fi}% +\else +\def\@makecorner##1##2{\setbox\z@\hbox to \wd\tw@ +{\copy\thr@@\hfil\copy\thr@@}}% +\fi +\ifdim\dimen@<0.4\p@ +\chardef\ch@pa16 \chardef\r@pa17% +\chardef\r@ba18 \chardef\ch@ba19% +\else% +\chardef\ch@pa8 \chardef\r@pa9% +\chardef\r@ba10 \chardef\ch@ba11% +\fi % +\setbox\thr@@\hbox to \@tempdima{\leaders\hrule\@height\dimen@\hfil}% +\setbox\@ne\vbox to \@tempdimb{\leaders\vrule\@width\dimen@\vfil}% +\@makecorner\ch@ba\r@ba +\setbox\@ne\hbox to \wd\tw@{\copy\@ne\hfil\copy\@ne}% +\copy\z@ \copy\@ne +\vskip-\ht\@ne \vskip-\dp\z@ \vskip-\ht\z@ +\copy\tw@ +\@makecorner\ch@pa\r@pa +\vskip-\ht\z@ \vskip-\dp\z@ \vskip-\ht\@ne +\copy\@ne\copy\z@}}% +}{% +\def\@crbox#1{\vbox{\setbox\tw@\vbox{\vskip\fboxsep +\hbox{\hskip\fboxsep\hbox{#1}\hskip\fboxsep}% +\vskip\fboxsep}\offinterlineskip% +\dimen@\thickness@corner@paper \@tempdima\length@corner@paper +\option@cr \font@corner \@tempdimb\z@ +\ifhollowcurved \advance\@tempdima-1em \curvedtrue +\let\llap\hbox \let\rlap\hbox +\else \@tempdimb-\dimen@ \fi +\advance\@tempdimb\@tempdima +\ifcurved +\def\@makecorner##1##2{\setbox\z@\hbox to \wd\tw@ +{\rlap{\char##1}\copy\thr@@\hfil\copy\thr@@\llap{\char##2}}% +\ifhollowcurved\else\dp\z@\z@ \ht\z@\dimen@\fi}% +\else +\def\@makecorner##1##2{\setbox\z@\hbox to \wd\tw@ +{\copy\thr@@\hfil\copy\thr@@}}% +\fi +\ifdim\dimen@<0.4\p@ +\chardef\ch@pa16 \chardef\r@pa17% +\chardef\r@ba18 \chardef\ch@ba19% +\else% +\chardef\ch@pa8 \chardef\r@pa9% +\chardef\r@ba10 \chardef\ch@ba11% +\fi % +\setbox\thr@@\hbox to \@tempdima{\leaders\hrule\@height\dimen@\hfil}% +\setbox\@ne\vbox to \@tempdimb{\leaders\vrule\@width\dimen@\vfil}% +\@makecorner\ch@ba\r@ba +\setbox\@ne\hbox to \wd\tw@{\copy\@ne\hfil\copy\@ne}% +\copy\z@ \copy\@ne +\vskip-\ht\@ne \vskip-\dp\z@ \vskip-\ht\z@ +\copy\tw@ +\@makecorner\ch@pa\r@pa +\vskip-\ht\z@ \vskip-\dp\z@ \vskip-\ht\@ne +\copy\@ne\copy\z@}}% +}} +\font\font@corner=ghab + +\endinput +%% +%% Copyright © 2011 by Vafa Khalighi +%% +%% 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 `crbox.sty'. -- cgit v1.2.3