summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/xymtex/base/assurelatexmode.sty
blob: 531a98c9a4296c777c8830aa78576ad5cfd0983b (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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
%%
%% This is file `assurelatexmode.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% assurelatexmode.dtx  (with options: `assurelatexmode')
%% 
%% This is a generated file.
%% 
%% Copyright 2010,2013 by Shinsaku Fujita
%% all rights reserved.
%% This style file is created for drawing chemical structural formulas
%% This style file is to be contained in the ``xymtex'' directory which
%% is an input directory for TeX.
%% 
%% This file is part of the XyMTeX system.
%% =======================================
%% old Version 5.00 Released on October 01, 2010
%% =======================================
%% Version 5.01 Released on May 27, 2013
%% 
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%    http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2005/12/01 or later.
%% 
%% This work has the LPPL maintenance status `maintained'.
%% The Current Maintainer of this work is Shinsaku Fujita.
%% 
%% This work consists of the files assurelatexmode.dtx and assurelatexmode.ins
%% and the derived file assurelatexmode.sty.
%% 
%% =======================================
%% 
%% File: assurelatexmode.dtx
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
\typeout{Part of XyMTeX for Drawing Chemical Structural Formulas. Version 5.01}
\typeout{       -- Released May 27, 2013 by Shinsaku Fujita}
\def\j@urnalname{assurelatexmode}
\def\versi@ndate{May 27, 2013}
\def\versi@nno{ver5.01}
\def\copyrighth@lder{SF} % Shinsaku Fujita
\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
\space[\copyrighth@lder]}
\RequirePackage{chemstr}
\newif\if@wedgesw \@wedgeswtrue
\newif\if@hasheddashsw \@hasheddashswtrue
\def\wedgehasheddash{\@wedgeswtrue\@hasheddashswtrue}
\def\wedgehashedwedge{\@wedgeswtrue\@hasheddashswfalse}
\def\dashhasheddash{\@wedgeswfalse\@hasheddashswtrue}
\@ifundefined{ifmolfront}{\newif\ifmolfront \molfrontfalse}{}
\@ifundefined{if@skbondlist}{\newif\if@skbondlist \@skbondlistfalse}{}
\newif\if@thicklinesw \@thicklineswfalse
\def\Thick@Lines{\@thicklineswtrue}%redefinition
\def\Thin@Lines{\@thicklineswfalse}%redefinition
\def\thickLineWidth{1.6pt}
\def\thinLineWidth{0.4pt}
\def\WedgeAsSubstTeXLaTeX(#1,#2)(#3,#4)#5{%
\begingroup
\@thicklineswtrue \@wedgeswtrue
\molfrontfalse \@skbondlistfalse
\leavevmode
\Put@@Line(#1,#2)(#3,#4){#5}%
\endgroup}
\let\WedgeAsSubst=\WedgeAsSubstTeXLaTeX%for compatibility to PS/PDF mode
\def\WedgeAsSubstXTeXLaTeX(#1,#2)(#3,#4){%
\@ifnextchar[{\Wedge@AsSubstXTeXLaTeX(#1,#2)(#3,#4)}%
{\Wedge@AsSubstXTeXLaTeX(#1,#2)(#3,#4)[10]}}
\def\Wedge@AsSubstXTeXLaTeX(#1,#2)(#3,#4)[#5]{%
\begingroup
\leavevmode \thicklines
\drawline(#1,#2)(#3,#4)%
\endgroup}
\let\WedgeAsSubstX=\WedgeAsSubstXTeXLaTeX%for compatibility to PS/PDF mode
\def\PUT@@bondLINE(#1,#2)(#3,#4)#5{\begingroup%
\linethickness{#5}\drawline(#1,#2)(#3,#4)%
\endgroup}
\let\PutTeXLaTeXLine=\PUT@@bondLINE%for user's use
\let\PutBondLine=\PUT@@bondLINE%for user's use
\def\PUT@@dashedLINE(#1,#2)(#3,#4)#5{%
\begingroup
\ifdim\unitlength>0.08pt
\linethickness{#5}\dottedline{20}(#1,#2)(#3,#4)%
\else
\linethickness{#5}\dottedline{20}(#1,#2)(#3,#4)
\fi
\endgroup
}
\let\PutTeXLaTeXdashed=\PUT@@dashedLINE%for user's use
\let\PutDashedBond=\PUT@@dashedLINE%for compatibility to PS and PDF mode
\def\HashWedgeAsSubstTeXLaTeX(#1,#2)(#3,#4)#5{%
\begingroup
\SlopetoXY(#1,#2)(#3,#4){#5}%%replaced (code from chemstr.sty)
\leavevmode
\linethickness{1pt}\dottedline{20}(#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
\endgroup}
\let\HashWedgeAsSubst=\HashWedgeAsSubstTeXLaTeX%for compatibility to PS and PDF mode
\def\HashWedgeAsSubstXTeXLaTeX(#1,#2)(#3,#4){%
\@ifnextchar[{\HashWedge@AsSubstXTeXLaTeX(#1,#2)(#3,#4)}%
{\HashWedge@AsSubstXTeXLaTeX(#1,#2)(#3,#4)[10]}}
\def\HashWedge@AsSubstXTeXLaTeX(#1,#2)(#3,#4)[#5]{%
\begingroup
\leavevmode\@tempdima=#5\unitlength
\linethickness{\@tempdima}\dottedline{20}(#1,#2)(#3,#4)
\endgroup}
\let\HashWedgeAsSubstX=\HashWedgeAsSubstXTeXLaTeX%for compatibility to PS and PDF mode
\def\putRoundArrowTeXLaTeX{%
\@ifnextchar[{\putRound@rrowTeXLaTeX}{\putRound@rrowTeXLaTeX[->]}}
\def\putRound@rrowTeXLaTeX[#1]#2{\drawline#2%
   \XyMTeXWarning{The command
   \string\putRoundArrow\space is unavailable in TeX/LaTeX mode. ^^J
   Please try the PostScript or PDF mode}}
\let\putRoundArrow=\putRoundArrowTeXLaTeX%for the compatibility to PDF and PS mode
\gdef\thinlines{\let\@linefnt\tenln \let\@circlefnt\tencirc
  \@wholewidth=\thinLineWidth \@halfwidth .5\@wholewidth}
\gdef\thicklines{\let\@linefnt\tenlnw \let\@circlefnt\tencircw
  \@wholewidth=\thickLineWidth \@halfwidth .5\@wholewidth}
\endinput
%%
%% End of file `assurelatexmode.sty'.