diff options
Diffstat (limited to 'macros/xetex/plain/do-it-yourself-tex/RIGHT-to-LEFT-TEXTS/format_XETEX.mac')
-rw-r--r-- | macros/xetex/plain/do-it-yourself-tex/RIGHT-to-LEFT-TEXTS/format_XETEX.mac | 227 |
1 files changed, 227 insertions, 0 deletions
diff --git a/macros/xetex/plain/do-it-yourself-tex/RIGHT-to-LEFT-TEXTS/format_XETEX.mac b/macros/xetex/plain/do-it-yourself-tex/RIGHT-to-LEFT-TEXTS/format_XETEX.mac new file mode 100644 index 0000000000..bda1b30645 --- /dev/null +++ b/macros/xetex/plain/do-it-yourself-tex/RIGHT-to-LEFT-TEXTS/format_XETEX.mac @@ -0,0 +1,227 @@ +% [format_XETEX.mac] + +% Note, for example, that using \def\lb{\char"007B} for left braces (instead of $\($ ) +% produces a size which corresponds to the font being used. +% The same philosopy is applied elsewhere in this list + + +%%%%%%%%%%%% FIXED VERTICAL DISTANCES (increasing order) +% I do not bother with the glue as I change distances via \vskip if not correct + +\def\pni{\par\noindent} +\def\pin{\par\indent} + +% \smallskip = 3pt; I want a little more +\def\sni{\vskip 4truept\noindent} +\def\sin{\vskip 4truept\indent} + +% \medskip = 6pt; I want a little more +\def\mni{\vskip 8 truept\noindent} +\def\min{\vskip 8 truept\indent} + +% \bigskip is 12pt +\def\bni{\vskip 12truept\noindent} +\def\bin{\vskip 12truept\indent} + +\def\nin{\noindent} + +\def\centreline{\centerline} % Canadian spelling which I naturally tend to write + +%%%%%%%%%%%% FIXED HORIZONTAL DISTANCES (increasing order) +% +\def\gl{\hglue 1.0pt} % gl = GLUE , does not break +\def\th{\hskip 1.5pt} % = approx \thinspace GLUE +\def\thh{\hskip 2.25pt} % between \th and Th + +% just like \big and \Big +\def\Th{\hskip 3.0pt} % = \jot +\def\TH{\hskip 4.0pt} + +% just like \big and \Big +\def\en{\enspace} % \hskip 5pt BREAKS +\def\En{\enspace} % \hskip 6pt BREAKS +\def\EN{\enspace} % \hskip 7pt BREAKS + +% conflicts with Hebrew qof, so use \quad with Hebrew +% and comment out this next line +\def\q{\quad} % \hskip 10pt BREAKS +\def\qq{\qquad} % \hskip 20pt BREAKS + +%%%%%%%%%%%% SLASHES %%%%%%%%%%% +\def\bsl{\char"005C\gl} + +\def\fsl{\hskip 1.8pt/\hskip 1.5pt} % was 2.5pt + +%%%%%%%%%%%% SPECIAL INDENTS + SQUEEZE %%%%%%%%%%% +\def\bibl{\mni\hangindent=\parindent\noindent} +\def\bib{\mni\hangindent=\parindent\noindent} + +% USAGE: \squeeze{\spaceskip = 1.5pt proud, shallow, ....} +\def\squeeze{\hbox to \hsize } + +%%%%%%%%%%%% UNDERBAR IN FILE TITLE %%%%%%%%%%% +\def\un{\kern -0.85pt \gl\_\gl } +\def\unl{\kern -0.85pt \gl\_\gl } + +%%%%%%%%%%% TIRET + DOTS + GUILLEMETS + ANGLE BRACKETS %%%%%%%%%% +\def\tiret{\Th--\Th} + +\def\dots{\th{\rmfourteen ...}\th} % OK DO NOT PUT A PERIOD + +\def\lgui{{\rmsixteen\char"00AB\kern -1pt}} % «« +\def\rgui{{\gl \rmsixteen\char"00BB}} % »» + +\def\<{\gl{\rmsixteen\char"003C\gl}} % < +\def\>{{\gl\rmsixteen\char"003E}\gl} % > + +%%%%%%%%%%%% BRACES two choices %%%%%%%%%%% +\def\lb{\char"007B} % left braces +\def\lbr{\char"007B} % left braces + +\def\rb{\char"007D}% right braces +\def\rbr{\char"007D } % right braces + +%%%%%%%%%%% BRACKETS + PARENTHESIS Use inside italics %%%%%%%%%% + +\def\[{{\rm \char"005B\gl}} % [ Use inside italics +\def\]{{\rm \gl \char"005D}} % ] Use inside italics +\def\({{\rm \char"0028\gl}} % [ Use inside italics +\def\){{\rm \gl \char"0029}} + +%%%%%%%%%%% QUOTATION MARKS + APOSTROPHE %%%%%%%%%% +% eloquent quotations +\def\lq{\char"201C\kern -0.1pt} +\def\rq{\char"201D} % NEEDS CLOSING + +\def\"{\char"0022} % plain quotation + +% apostrophe is 0027, but it says that 2019 is preferred, +% this is true as 2019 has the nice curl on top +\def\'{\char"2019} +\def\apos{\char"2019} +\def\aps{\char"2019} +\def\ap{\char"2019} + +%%%%%%%%%%% SEPARATING LINES %%%%%%%%%% +% modify according to teste + + \def\linea{\nin\centerline{\vrule height 2.0pt width 1.5truein depth 0 pt}} + \def\lineb{\nin\centerline{\vrule height 1.0pt width 1.5truein depth 0 pt}} + + \def\lineA{\nin\centerline{\vrule height 2.0pt width 2.5truein depth 0 pt}} + \def\lineAa{\nin\centerline{\vrule height 2.5pt width 4.3truein depth 0pt}} + +\def\lineAA{\nin\centerline{\vrule height 3.2pt width 5.5truein depth 0pt}} +% +% next size up would be lineaaa etc + +%%%%%%%%%%%%% SPECIALIZED DEFINITIONS, INTRODUCED AS NEEDED %%%%% +% I used many of these in my genealogical books to indicate various sources etc. +% \msamA, \msbmBBBB and \cmsyAA are defined in [my_fonts.mac] + +\def\dvd{\hglue 1.0pt$^{\hbox{\boldmedsmall DVD}}$\hglue 1.0pt} +\def\DVD{\hglue 1.0pt$^{\hbox{\boldmedsmall DVD}}$\hglue 1.0pt} +\def\html{\kern 1.0truept{\raise 3.0pt \hbox{\bfnine HTML}}} +\def\HTML{\kern 1.0truept{\raise 3.0pt \hbox{\bfnine HTML}}} +\def\copyright{\char"00A9} +\def\pdf{\raise 4pt\hbox{\boldmedsmall PDF}} % can not put \} in case there is a period after. +\def\copyright{\char"00A9} +\def\euro{{\char"20AC}} +\def\pilcrow{{\char"00B6}} +\def\star{\raise 3.5pt \hbox{\gl\msamA \char70}} +\def\web{\gl{\msbmBBBB\char121}\hfill} +\def\square{\th\raise 3.7pt\hbox{\msamAaaa\char4}} +\def\tilda{{\cmsyAA \char24}} +% +% a separating | I use \| as command, since \ and | are on same key +% used for identifying numbers in genealogy, e.g. {\tt 122\|1} +\def\|{\th\raise 1.5pt \hbox{\cmsyAa\char 15}\th} +% +% I use \club to indicated a place in the text where changes are needed +\def\club{\raise 3.5pt \hbox{\gl$\clubsuit$}} + + %%%%%%%%%%%% ARROWS %%%%%%%%%%%% +% n.b. the names of the arrows are just: hackd etc, without a for arrow +% +% these are with hackbold +\def\hackD{\hbox{\hackboldBB \char"21A6}\hbox to 10truept{}}% |---> +\def\hackE{\hbox{\hackboldBB \char"21E2}\hbox to 10truept{}} % ---> +\def\hackF{\hbox{\hackboldBB \char"2192}\hbox to 10truept{}} % ==> + +% these are regular hack for smaller, lighter arrows +% 21DA <-- triple line 21DB --> triple line +\def\hackd{\hbox{\hackseventeen \char"21A6}\hbox to 10truept{}} % |--> +\def\hacke{\hbox{\hackseventeen \char"21E2}\hbox to 10truept{}} % --> +\def\hackf{\hbox{\hackseventeen \char"2192}\hbox to 10truept{}} % ==> + +% libertine 21D0: <= no opposite of 21A6 +% libertine 2190 <---- single line +% +\def\libertineEA{\lower 1pt \hbox{\rmfifteen \char"21A6}\kern -1.5pt{}} % same as above |---> +\def\libertineEAA{\lower 1pt \hbox{\rmeighteen \char"21A6}\kern -1.5pt{}} % same as above |---> +\def\libertineEAAA{\lower 1pt \hbox{\rmtwenty \char"21A6}\kern -1.5pt{}} % same as above |---> + +% right facing +\def\libertineEBR{\lower 1pt \hbox{\rmfifteen \char"21D2}\kern -1.5pt{}} % ==> +\def\libertineEBBR{\lower 1pt \hbox{\rmeighteen \char"21D2}\kern -1.5pt{}} % ==> +\def\libertineEBBBR{\lower 1pt \hbox{\rmtwenty \char"21D2}\kern -1.5pt{}} % ==> +% left facing +\def\libertineEBL{\lower 1pt \hbox{\rmfifteen \char"21D0}\kern -1.5pt{}} % <== +\def\libertineEBBL{\lower 1pt \hbox{\rmeighteen \char"21D0}\kern -1.5pt{}} % <== +\def\libertineEBBBL{\lower 1pt \hbox{\rmtwenty \char"21D0}\kern -1.5pt{}} % <== + +% These are long, double and slanted arrows set in \cmsy +% long + double arrows +\def\LRA{$\Longrightarrow$} % SEE REGULAR DOUBLE ARROWS BELOW +\def\LLA{$\Longleftarrow$} +\def\EWAA{\hbox{\cmsyAAAA \char 44}\hbox to 10truept{}} % DOUBLE ARROW, BOTH WAYs + +% arrows in SE, SW, NW , NE +\def\SEA{\lower 5truept\hbox{\cmsyAAAA \char38}} +\def\SWA{\lower 5truept\hbox{\cmsyAAAA \char 46}\hbox to 10truept{}} +% +\def\NWA{\lower 5truept\hbox{\cmsyAAAA \char 45\hbox to 10truept{}}} +% +\def\NEA{\lower 5truept\hbox{\cmsyAAAA \char 37\hbox to 10truept{}}} +% +% arrows in E, S, W , N 10 to big for EA +\def\EA{\hbox{\cmsyAAAA \char 33}\hbox to 5truept{}} +% +\def\SA{\hbox{\cmsyAAAA \char 35}\hbox to 10truept{}} +% +\def\WA{\hbox{\cmsyAAAA \char 32}\hbox to 10truept{}} +% +\def\NA{\hbox{\cmsyAAAA \char 34}\hbox to 10truept{}} + +% double arrows in E, S, W , N +% +\def\EAA{\hbox{\cmsyAAAA \char 41}\hbox to 10truept{}} +% +\def\SAA{\hbox{\cmsyAAAA \char 43\hbox to 10truept{}}} +% +\def\WAA{\hbox{\cmsyAAAA \char 40\hbox to 10truept{}}} +% +\def\NAA{\hbox{\cmsyAAAA \char 42\hbox to 10truept{}}} + +%%%%%%%%%% TRIG DEFINITIONS %%%%%%%%%% +% the following definition allows me to fix the R inside $ $; note \hbox{ } +\def\R{\hbox{\rm R}} % leave out '' ( '' because I already have. +% +% I took out \sin because it interfered with \sin = \small\noindent +\def\cos{\hbox{\rm cos}} +\def\tan{\hbox{\rm tan}} +\def\csc{\hbox{\rm csc}} +\def\sec{\hbox{\rm sec}} +\def\cot{\hbox{\rm cot}} +\def\ln{\hbox{\rm ln}} +\def\log{\hbox{\rm log}} +\def\lim{\hbox{\rm lim}} + + %%%%%%%%%% END %%%%%%%%%% + + + + + + + |