... | ... |
@@ -153,7 +153,12 @@ |
153 | 153 |
\def\resn@m@tch{upper} \def\ressimm@tch{upper} |
154 | 154 |
\def\resm@tch{upper} \def\res@llm@tch{upper} |
155 | 155 |
\def\tr@ns{translate} \def\gr@ydef@ult{GrayDefault} |
156 |
-\xdef\par@{\expandafter\string\par} |
|
156 |
+%%%%REMOVED FOLLOWING LINE: |
|
157 |
+%%%%\xdef\par@{\expandafter\string\par} |
|
158 |
+%%%%ADDED FOLLOWING TWO LINES (according to https://ctan.org/pkg/texshade) |
|
159 |
+\xdef\par@{\par} |
|
160 |
+\xdef\par@{\expandafter\string\par@} |
|
161 |
+%%%% |
|
157 | 162 |
\expandafter\def\csname fg@textcolor/\endcsname{White} |
158 | 163 |
\expandafter\def\csname fg@color/\endcsname{White} |
159 | 164 |
\expandafter\def\csname func@style/\endcsname{\csname textup\endcsname} |
... | ... |
@@ -8,13 +8,13 @@ |
8 | 8 |
%% |
9 | 9 |
%% LaTeX package for typesetting nucleotide and peptide alignments |
10 | 10 |
%% |
11 |
-%% Copyright (C) 1999-2011 Eric Beitz |
|
11 |
+%% Copyright (C) 1999-2021 Eric Beitz |
|
12 | 12 |
%% See the file texshade.txt |
13 | 13 |
%% |
14 | 14 |
|
15 | 15 |
\NeedsTeXFormat{LaTeX2e} |
16 |
-\ProvidesPackage{texshade}[2011/05/13 LaTeX TeXshade (v1.24)] |
|
17 |
-\message{Package `texshade', Version 1.24 of 2011/12/01.} |
|
16 |
+\ProvidesPackage{texshade}[2021/04/01 LaTeX TeXshade (v1.26)] |
|
17 |
+\message{Package `texshade', Version 1.26 of 2021/04/01.} |
|
18 | 18 |
|
19 | 19 |
\PassOptionsToPackage{dvips}{color} |
20 | 20 |
\PassOptionsToPackage{dvips}{graphicx} |
... | ... |
@@ -56,6 +56,7 @@ |
56 | 56 |
\newread\structurefile \newwrite\featurefile |
57 | 57 |
\newread\alignfile \newread\sublogofile |
58 | 58 |
\newwrite\exp@rtfile |
59 |
+\newwrite\exp@rt@chimerafile |
|
59 | 60 |
|
60 | 61 |
\expandafter\ifx\csname blacktriangleright\endcsname\relax |
61 | 62 |
\openin\structurefile = amssymb.sty |
... | ... |
@@ -94,6 +95,7 @@ |
94 | 95 |
\newlength\equal@height \newlength\temp@@length |
95 | 96 |
\newlength\vspace@legend |
96 | 97 |
\newlength\hspace@legend |
98 |
+\newlength\bar@length |
|
97 | 99 |
|
98 | 100 |
\newif\ifletter \newif\ifnumber |
99 | 101 |
\newif\ifnewres \newif\ifall@shade |
... | ... |
@@ -678,6 +680,16 @@ |
678 | 680 |
\xdef\HydroV{37} \xdef\HydroW{28} \xdef\HydroX{N} |
679 | 681 |
\xdef\HydroY{9} \xdef\HydroZ{N} |
680 | 682 |
|
683 |
+\xdef\hardnessA{98} \xdef\hardnessB{0} \xdef\hardnessC{37} |
|
684 |
+\xdef\hardnessD{100} \xdef\hardnessE{96} \xdef\hardnessF{48} |
|
685 |
+\xdef\hardnessG{92} \xdef\hardnessH{50} \xdef\hardnessI{98} |
|
686 |
+\xdef\hardnessJ{86} \xdef\hardnessK{73} \xdef\hardnessL{98} |
|
687 |
+\xdef\hardnessM{25} \xdef\hardnessN{86} \xdef\hardnessO{0} |
|
688 |
+\xdef\hardnessP{91} \xdef\hardnessQ{95} \xdef\hardnessR{69} |
|
689 |
+\xdef\hardnessS{94} \xdef\hardnessT{98} \xdef\hardnessU{-34} |
|
690 |
+\xdef\hardnessV{98} \xdef\hardnessW{0} \xdef\hardnessX{0} |
|
691 |
+\xdef\hardnessY{28} \xdef\hardnessZ{0} |
|
692 |
+ |
|
681 | 693 |
\xdef\consCB{0} \xdef\consCJ{0} \xdef\consCO{0} \xdef\consCU{0} \xdef\consCX{0} \xdef\consCZ{0} |
682 | 694 |
\expandafter\xdef\csname consC?\endcsname{0} |
683 | 695 |
|
... | ... |
@@ -2593,7 +2605,6 @@ |
2593 | 2605 |
\expandafter\xdef\csname hide@@@seq\first@\endcsname{kill} |
2594 | 2606 |
\ifnum\first@=\cons@num \xdef\cons@num{0} \fi |
2595 | 2607 |
\advance\killseq@count by -1 |
2596 |
- \seq@percent=100 \divide\seq@percent by \killseq@count |
|
2597 | 2608 |
\fi |
2598 | 2609 |
\fi\fi |
2599 | 2610 |
\xdef\first@{\first@@ @} |
... | ... |
@@ -2612,7 +2623,6 @@ |
2612 | 2623 |
\expandafter\xdef\csname hide@@@seq\fourth@\endcsname{kill} |
2613 | 2624 |
\ifnum\fourth@=\cons@num \xdef\cons@num{0} \fi |
2614 | 2625 |
\advance\killseq@count by -1 |
2615 |
- \seq@percent=100 \divide\seq@percent by \killseq@count |
|
2616 | 2626 |
\fi |
2617 | 2627 |
\fi\fi |
2618 | 2628 |
\killseq@ |
... | ... |
@@ -2893,8 +2903,17 @@ |
2893 | 2903 |
\funcgroup{Leu, Val, Ile}{LVI}{Green}{White}{upper}{up} |
2894 | 2904 |
\funcgroup{Pro}{P}{Apricot}{White}{upper}{up} |
2895 | 2905 |
\else |
2906 |
+ \xdef\second@{hardness} |
|
2907 |
+ \ifx\temp@\second@ |
|
2908 |
+ \funcgroup{22-23 eV (ADEGILPQSTV) | 2$\times$ HOMO-LUMO gap}{ADEGILPQSTV}{White}{BlueRed5}{upper}{up} |
|
2909 |
+ \funcgroup{21-22 eV (KN)}{KN}{White}{BlueRed20}{upper}{up} |
|
2910 |
+ \funcgroup{20-21 eV (R)}{R}{Black}{BlueRed40}{upper}{up} |
|
2911 |
+ \funcgroup{19-20 eV (CFH)}{CFH}{Black}{BlueRed60}{upper}{up} |
|
2912 |
+ \funcgroup{18-19 eV (MY)}{MY}{White}{BlueRed80}{upper}{up} |
|
2913 |
+ \funcgroup{17-18 eV (W)}{W}{White}{BlueRed100}{upper}{up} |
|
2914 |
+ \else |
|
2896 | 2915 |
\message{<Unknown shading mode - clearing `funcgroups'>} |
2897 |
- \fi\fi\fi\fi\fi\fi\fi |
|
2916 |
+ \fi\fi\fi\fi\fi\fi\fi\fi |
|
2898 | 2917 |
} |
2899 | 2918 |
\def\shadeallresidues{\all@fshadetrue} |
2900 | 2919 |
\def\get@fromstack#1;#2;#3;#4;#5@{% |
... | ... |
@@ -3114,22 +3133,33 @@ |
3114 | 3133 |
\expandafter\xdef\csname stack@\bottop@\seq@\endcsname{\tmpstack} |
3115 | 3134 |
} |
3116 | 3135 |
\def\getarrow@shape#1#2#3#4&{% |
3117 |
- \xdef\first@@{#1}\xdef\second@@{#2}\xdef\third@@{#3} |
|
3118 |
- \if\first@@ v |
|
3119 |
- \if\second@@ = |
|
3120 |
- \else \xdef\style@{\first@@ v\third@@#4} \fi |
|
3136 |
+ \xdef\first@@{#1}\xdef\second@@{#2}\xdef\third@@{#3}\xdef\fourth@@{#4} |
|
3137 |
+ \ifx\temp@@\y@ |
|
3138 |
+ \if\first@@ ` \xdef\first@@{a} \else |
|
3139 |
+ \if\first@@ ' \xdef\first@@{a} \else |
|
3140 |
+ \if\first@@ , \xdef\first@@{b} \else |
|
3141 |
+ \if\first@@ S \xdef\first@@{c} \xdef\second@@{-} |
|
3142 |
+ \fi\fi\fi\fi |
|
3143 |
+ \if\third@@ ` \xdef\third@@{a} \else |
|
3144 |
+ \if\third@@ ' \xdef\third@@{a} \else |
|
3145 |
+ \if\third@@ , \xdef\third@@{b} \else |
|
3146 |
+ \if\third@@ S \xdef\third@@{c} \xdef\second@@{-} |
|
3147 |
+ \fi\fi\fi\fi |
|
3148 |
+ \xdef\style@{\first@@ -\third@@\fourth@@} |
|
3149 |
+ \fi |
|
3150 |
+ \if\first@@ S |
|
3151 |
+ \xdef\style@{\first@@ -\third@@\fourth@@} |
|
3121 | 3152 |
\else |
3122 | 3153 |
\if\first@@ v |
3123 | 3154 |
\if\second@@ = |
3124 |
- \else \xdef\style@{\first@@ v\third@@#4} \fi |
|
3155 |
+ \else \xdef\style@{\first@@ v\third@@\fourth@@} \fi |
|
3125 | 3156 |
\else |
3126 |
- \if\third@@ v |
|
3127 |
- \if\second@@ = |
|
3128 |
- \else \xdef\style@{\first@@ v\third@@#4} \fi |
|
3157 |
+ \if\third@@ S |
|
3158 |
+ \xdef\style@{\first@@ -\third@@\fourth@@} |
|
3129 | 3159 |
\else |
3130 | 3160 |
\if\third@@ v |
3131 | 3161 |
\if\second@@ = |
3132 |
- \else \xdef\style@{\first@@ v\third@@#4} \fi |
|
3162 |
+ \else \xdef\style@{\first@@ v\third@@\fourth@@} \fi |
|
3133 | 3163 |
\fi\fi\fi\fi |
3134 | 3164 |
} |
3135 | 3165 |
\def\get@shape#1#2#3{% |
... | ... |
@@ -5894,7 +5924,11 @@ |
5894 | 5924 |
\fi |
5895 | 5925 |
\xdef\style@{cons[color]:cons[\f@color][0]} |
5896 | 5926 |
\else |
5897 |
- \xdef\style@{#4} \expandafter\getarrow@shape\temp@ |
|
5927 |
+ \xdef\style@{#4} \xdef\temp@@{n} |
|
5928 |
+ \expandafter\get@firstfill\temp@ |
|
5929 |
+ \if\second@@ ^ \xdef\second@@{_} \fi |
|
5930 |
+ \if\second@@ _ \xdef\temp@{\fill@char} \xdef\temp@@{y}\fi |
|
5931 |
+ \expandafter\getarrow@shape\temp@ |
|
5898 | 5932 |
\fi |
5899 | 5933 |
\fi |
5900 | 5934 |
\fi |
... | ... |
@@ -6382,7 +6416,17 @@ |
6382 | 6416 |
\logocolor{EQ}{RoyalPurple} |
6383 | 6417 |
\logocolor{R}{RedViolet} |
6384 | 6418 |
\logocolor{K}{Black} |
6385 |
- \fi\fi\fi\fi\fi\fi\fi |
|
6419 |
+ \else |
|
6420 |
+ \xdef\second@{hardness} |
|
6421 |
+ \ifx\first@\second@ |
|
6422 |
+ \clearlogocolors |
|
6423 |
+ \logocolor{ADEGILPQSTV}{BlueRed5} |
|
6424 |
+ \logocolor{KN}{BlueRed20} |
|
6425 |
+ \logocolor{R}{BlueRed40} |
|
6426 |
+ \logocolor{CFH}{BlueRed60} |
|
6427 |
+ \logocolor{MY}{BlueRed80} |
|
6428 |
+ \logocolor{W}{BlueRed100} |
|
6429 |
+ \fi\fi\fi\fi\fi\fi\fi\fi |
|
6386 | 6430 |
} |
6387 | 6431 |
\newcommand\findsubfamily[2][n]{% |
6388 | 6432 |
\xdef\first@{#1} |
... | ... |
@@ -7793,9 +7837,8 @@ |
7793 | 7837 |
\advance\pos@sum by 1 \fi |
7794 | 7838 |
\ifnum\innerloopcount<\seq@count \repeat |
7795 | 7839 |
|
7796 |
- \multiply\pos@sum by \seq@percent |
|
7797 | 7840 |
\expandafter\xdef\csname pos\the\loopcount\endcsname{\the\pos@sum} |
7798 |
- \expandafter\ifnum\csname pos\the\loopcount\endcsname<\thresh@ld |
|
7841 |
+ \expandafter\ifnum\csname pos\the\loopcount\endcsname<\thresh@ld@ |
|
7799 | 7842 |
\else |
7800 | 7843 |
\expandafter\ifnum\csname pos\the\loopcount\endcsname>\m@x |
7801 | 7844 |
\xdef\m@x{\csname pos\the\loopcount\endcsname} |
... | ... |
@@ -7843,13 +7886,12 @@ |
7843 | 7886 |
\expandafter\ifnum\csname pos\the\loopcount\endcsname=\seq@count |
7844 | 7887 |
\xdef\cons@seq{\the\loopcount} \xdef\match@case{2} \loopcount=1 |
7845 | 7888 |
\else |
7846 |
- \multiply\pos@sum by \seq@percent |
|
7847 | 7889 |
\expandafter\xdef\csname pos\the\loopcount\endcsname{\the\pos@sum} |
7848 |
- \expandafter\ifnum\csname pos\the\loopcount\endcsname<\thresh@ld |
|
7890 |
+ \expandafter\ifnum\csname pos\the\loopcount\endcsname<\thresh@ld@ |
|
7849 | 7891 |
\else |
7850 | 7892 |
\expandafter\ifnum\csname pos\the\loopcount\endcsname>\m@x |
7851 | 7893 |
\xdef\m@x{\csname pos\the\loopcount\endcsname} |
7852 |
- \expandafter\ifnum\csname pos\the\loopcount\endcsname<\all@thresh@ld |
|
7894 |
+ \expandafter\ifnum\csname pos\the\loopcount\endcsname<\all@thresh@ld@ |
|
7853 | 7895 |
\xdef\cons@seq{\the\loopcount} \xdef\match@case{1} |
7854 | 7896 |
\else |
7855 | 7897 |
\xdef\cons@seq{\the\loopcount} \xdef\match@case{2} |
... | ... |
@@ -10431,6 +10473,7 @@ |
10431 | 10473 |
\fi |
10432 | 10474 |
\fi |
10433 | 10475 |
\expandafter\xdef\csname res@count\the\loopcount\endcsname{\the\res@count} |
10476 |
+ \ifnum\loopcount=\chimera@seqnum \xdef\chimera@stack{\chimera@stack \the\res@count,} \fi |
|
10434 | 10477 |
\ifnum\loopcount=\exp@rt@num \xdef\sixth@{\the\res@count}\xdef\seventh@{y}\fi |
10435 | 10478 |
\ifnum\loopcount=\rule@num\relax |
10436 | 10479 |
\expandafter\ifnum\csname res@count\rule@num\endcsname>\rule@tens |
... | ... |
@@ -10574,6 +10617,7 @@ |
10574 | 10617 |
\the\innerloopcount} |
10575 | 10618 |
\else |
10576 | 10619 |
\ifnum\loopcount=\rule@num \xdef\ruler@{\ruler@ -} \fi |
10620 |
+ \ifnum\loopcount=\chimera@seqnum \xdef\chimera@stack{\chimera@stack &,} \fi |
|
10577 | 10621 |
\ifx\collect@valtop\yes |
10578 | 10622 |
\ifnum\v@lseqtop=\loopcount |
10579 | 10623 |
\xdef\v@ltop{\v@ltop,N} |
... | ... |
@@ -11373,7 +11417,7 @@ |
11373 | 11417 |
\textcolor{\legend@fg}{% |
11374 | 11418 |
\ifgerm@n\kern2ex\legend@size{nicht konserviert}% |
11375 | 11419 |
\else\ifsp@nish\kern2ex\legend@size{no conservado}% |
11376 |
- \else\kern2ex\legend@size{non conserved}\fi\fi} |
|
11420 |
+ \else\kern2ex\legend@size{non-conserved}\fi\fi} |
|
11377 | 11421 |
\newline\hbox{}\noindent% |
11378 | 11422 |
\ifsimmode% |
11379 | 11423 |
\ifnames@\ifnames@right\else\hbox to \name@width{\hss}\fi\fi |
... | ... |
@@ -11862,6 +11906,7 @@ |
11862 | 11906 |
\def\get@tripletfill#1#2#3#4&{% |
11863 | 11907 |
\multiply\temp@count by -1% |
11864 | 11908 |
\def\second@@{#1}\def\second@@@{#2}\def\second@@@@{#3}\def\fill@char{#4&}} |
11909 |
+ |
|
11865 | 11910 |
\def\putfeature@style#1{% |
11866 | 11911 |
\residues@size% |
11867 | 11912 |
\setbox1=\hbox{\ensuremath{\overrightarrow{\hbox{}}}}% |
... | ... |
@@ -11967,6 +12012,7 @@ |
11967 | 12012 |
\fontseries{\featurestyles@series}% |
11968 | 12013 |
\fontshape{\featurestyles@shape}% |
11969 | 12014 |
\selectfont% |
12015 |
+ \xdef\last@{bottom}% |
|
11970 | 12016 |
\ifx\bottop@\temp@\xdef\last@{0.35}\else\xdef\last@{0}\fi% |
11971 | 12017 |
\kern0.15\box@width% |
11972 | 12018 |
\loopcount=0\relax% |
... | ... |
@@ -12137,6 +12183,7 @@ |
12137 | 12183 |
\ifx\bottop@\temp@ \xdef\last@{0.35}\else\xdef\last@{-0.55}\fi% |
12138 | 12184 |
\textcolor{\f@color}{% |
12139 | 12185 |
\raisebox{\last@\arrow@height}{% |
12186 |
+ \if\first@@ b \xdef\first@@{,}\fi% |
|
12140 | 12187 |
\if\first@@ ,% |
12141 | 12188 |
\rule{0.1\arrow@height}{\arrow@height}\kern-0.35\arrow@height% |
12142 | 12189 |
\else% |
... | ... |
@@ -12144,6 +12191,10 @@ |
12144 | 12191 |
\rule{0.1\arrow@height}{2\arrow@height}\kern-0.35\arrow@height% |
12145 | 12192 |
\else% |
12146 | 12193 |
\if\first@@ `\xdef\first@@{'}\fi% |
12194 |
+ \if\first@@ '% |
|
12195 |
+ \rule[\arrow@height]% |
|
12196 |
+ {0.1\arrow@height}{\arrow@height}\kern-0.35\arrow@height% |
|
12197 |
+ \else% |
|
12147 | 12198 |
\if\first@@ '% |
12148 | 12199 |
\rule[\arrow@height]% |
12149 | 12200 |
{0.1\arrow@height}{\arrow@height}\kern-0.35\arrow@height% |
... | ... |
@@ -12152,6 +12203,7 @@ |
12152 | 12203 |
\rule{0pt}{0pt}\kern-0.35\arrow@height% |
12153 | 12204 |
\fi% |
12154 | 12205 |
\fi% |
12206 |
+ \fi% |
|
12155 | 12207 |
\fi% |
12156 | 12208 |
\fi% |
12157 | 12209 |
\if\third@@ v% |
... | ... |
@@ -12212,6 +12264,7 @@ |
12212 | 12264 |
\xdef\last@{-0.25}\fi\fi\fi\fi% |
12213 | 12265 |
\textcolor{\f@color}{% |
12214 | 12266 |
\raisebox{\last@\arrow@height}{% |
12267 |
+ \if\first@@ b \xdef\first@@{,}\fi% |
|
12215 | 12268 |
\if\first@@ ,% |
12216 | 12269 |
\rule[-0.5\arrow@height]{0.1\arrow@height}{1.5\arrow@height}% |
12217 | 12270 |
\kern-0.1\arrow@height% |
... | ... |
@@ -12220,7 +12273,8 @@ |
12220 | 12273 |
\rule[-0.5\arrow@height]{0.1\arrow@height}{2.25\arrow@height}% |
12221 | 12274 |
\kern-0.1\arrow@height% |
12222 | 12275 |
\else% |
12223 |
- \if\first@@ `\xdef\first@@{'}\fi% |
|
12276 |
+ \if\first@@ a \xdef\first@@{'}\fi% |
|
12277 |
+ \if\first@@ ` \xdef\first@@{'}\fi% |
|
12224 | 12278 |
\if\first@@ '% |
12225 | 12279 |
\rule[0.4\arrow@height]% |
12226 | 12280 |
{0.1\arrow@height}{1.5\arrow@height}% |
... | ... |
@@ -12245,6 +12299,7 @@ |
12245 | 12299 |
\rule[0.37\arrow@height]{\width@tmp}{0.1\arrow@height}% |
12246 | 12300 |
\kern-\width@tmp% |
12247 | 12301 |
\rule[0.9\arrow@height]{\width@tmp}{0.1\arrow@height}% |
12302 |
+ \if\first@@ b \xdef\first@@{,}\fi% |
|
12248 | 12303 |
\if\third@@ ,% |
12249 | 12304 |
\kern-0.05\arrow@height% |
12250 | 12305 |
\rule[-0.5\arrow@height]{0.1\arrow@height}{1.5\arrow@height}% |
... | ... |
@@ -12253,10 +12308,16 @@ |
12253 | 12308 |
\kern-0.05\arrow@height% |
12254 | 12309 |
\rule[-0.5\arrow@height]{0.1\arrow@height}{2.25\arrow@height}% |
12255 | 12310 |
\else% |
12256 |
- \if\third@@ `\xdef\third@@{'}\fi% |
|
12311 |
+ \if\first@@ a \xdef\first@@{'}\fi% |
|
12312 |
+ \if\third@@ ` \xdef\third@@{'}\fi% |
|
12257 | 12313 |
\if\third@@ '% |
12258 | 12314 |
\kern-0.05\arrow@height% |
12259 | 12315 |
\rule[0.4\arrow@height]{0.1\arrow@height}{1.5\arrow@height}% |
12316 |
+ \else% |
|
12317 |
+ \if\third@@ a% |
|
12318 |
+ \kern-0.05\arrow@height% |
|
12319 |
+ \rule[0.4\arrow@height]{0.1\arrow@height}{1.5\arrow@height}% |
|
12320 |
+ \fi% |
|
12260 | 12321 |
\fi% |
12261 | 12322 |
\fi% |
12262 | 12323 |
\fi% |
... | ... |
@@ -12268,9 +12329,25 @@ |
12268 | 12329 |
\advance\width@tmp by -0.5\temp@@length% |
12269 | 12330 |
\if\first@@ o\xdef\first@@{O}\fi% |
12270 | 12331 |
\if\third@@ o\xdef\third@@{O}\fi% |
12332 |
+ \xdef\last@{bottom}% |
|
12333 |
+ \ifx\fe@turep@s\last@% |
|
12334 |
+ \vspace{-20pt}\message{(((-20pt)))}% |
|
12335 |
+ \fi% |
|
12271 | 12336 |
\textcolor{\f@color}{% |
12272 | 12337 |
\if\first@@ ,% |
12273 |
- \rule{\temp@@length}{\arrow@height}\kern-\temp@@length% |
|
12338 |
+ \rule{\temp@@length}{\arrow@height}\kern-\temp@@length% |
|
12339 |
+ \else% |
|
12340 |
+ \if\first@@ b% |
|
12341 |
+ \xdef\last@{bottom}% |
|
12342 |
+ \ifx\fe@turep@s\last@% |
|
12343 |
+ \rule{\temp@@length}{\arrow@height}\kern-\temp@@length% |
|
12344 |
+ \else |
|
12345 |
+ \xdef\shift@feature{y}% |
|
12346 |
+ \kern-\temp@@length% |
|
12347 |
+ \rule[-\bar@length]{\temp@@length}{\bar@length}% |
|
12348 |
+ \kern-\temp@@length% |
|
12349 |
+ \rule{\temp@@length}{\arrow@height}\kern-\temp@@length% |
|
12350 |
+ \fi |
|
12274 | 12351 |
\else% |
12275 | 12352 |
\if\first@@ |% |
12276 | 12353 |
\rule{\temp@@length}{2\arrow@height}\kern-\temp@@length% |
... | ... |
@@ -12278,6 +12355,52 @@ |
12278 | 12355 |
\if\first@@ O% |
12279 | 12356 |
\raisebox{0.06ex}{\ensuremath{\bullet}}\kern-0.55ex% |
12280 | 12357 |
\rule[\width@tmp]{0.65ex}{\temp@@length}% |
12358 |
+ \else% |
|
12359 |
+ \if\first@@ S% |
|
12360 |
+ \xdef\last@{bottom}% |
|
12361 |
+ \ifx\fe@turep@s\last@% |
|
12362 |
+ \advance\width@tmp by 0.5\temp@@length% |
|
12363 |
+ \kern0.5\box@width% |
|
12364 |
+ \kern-2\temp@@length% |
|
12365 |
+ \rule[\width@tmp]{\temp@@length}{\arrow@height}% |
|
12366 |
+ \advance\width@tmp by -0.5\temp@@length% |
|
12367 |
+ \kern-\temp@@length% |
|
12368 |
+ \rule[\width@tmp]{0.5\temp@@length}{\temp@@length}% |
|
12369 |
+ \rule[\width@tmp]{0.5\box@width}{\temp@@length}% |
|
12370 |
+ \else% |
|
12371 |
+ \kern0.5\box@width% |
|
12372 |
+ \kern-2\temp@@length% |
|
12373 |
+ \rule{\temp@@length}{\arrow@height}% |
|
12374 |
+ \kern-\temp@@length% |
|
12375 |
+ \rule[\width@tmp]{0.5\temp@@length}{\temp@@length}% |
|
12376 |
+ \rule[\width@tmp]{0.5\box@width}{\temp@@length}% |
|
12377 |
+ \fi% |
|
12378 |
+ \else% |
|
12379 |
+ \if\first@@ c% |
|
12380 |
+ \xdef\last@{bottom}% |
|
12381 |
+ \ifx\fe@turep@s\last@% |
|
12382 |
+ \advance\width@tmp by 0.5\temp@@length% |
|
12383 |
+ \raisebox{\arrow@height}{\rule[\box@height]{0pt}{\bar@length}}%%%%%%%%%%%%%%%%%%%%%%% |
|
12384 |
+ \kern0.5\box@width% |
|
12385 |
+ \kern-2\temp@@length% |
|
12386 |
+ \rule[2\arrow@height]{\temp@@length}{\bar@length}%%%%%%%%%%%%%%%%%%%%%% |
|
12387 |
+ \kern-\temp@@length%%%%%%%%%%%%%%%%%%%%%%%%% |
|
12388 |
+ \rule[\width@tmp]{\temp@@length}{\arrow@height}% |
|
12389 |
+ \advance\width@tmp by -0.5\temp@@length% |
|
12390 |
+ \kern-\temp@@length% |
|
12391 |
+ \rule[\width@tmp]{0.5\temp@@length}{\temp@@length}% |
|
12392 |
+ \rule[\width@tmp]{0.5\box@width}{\temp@@length}% |
|
12393 |
+ \else% |
|
12394 |
+ \xdef\shift@feature{y}% |
|
12395 |
+ \kern0.5\box@width% |
|
12396 |
+ \kern-2\temp@@length% |
|
12397 |
+ \rule[-\bar@length]{\temp@@length}{\bar@length}% |
|
12398 |
+ \kern-\temp@@length% |
|
12399 |
+ \rule{\temp@@length}{\arrow@height}% |
|
12400 |
+ \kern-\temp@@length% |
|
12401 |
+ \rule[\width@tmp]{0.5\temp@@length}{\temp@@length}% |
|
12402 |
+ \rule[\width@tmp]{0.5\box@width}{\temp@@length}% |
|
12403 |
+ \fi% |
|
12281 | 12404 |
\else% |
12282 | 12405 |
\if\first@@ <% |
12283 | 12406 |
\raisebox{0.06ex}{\ensuremath{\blacktriangleleft}}\kern-0.35ex% |
... | ... |
@@ -12290,13 +12413,20 @@ |
12290 | 12413 |
\fi% |
12291 | 12414 |
\fi% |
12292 | 12415 |
\fi% |
12416 |
+ \fi% |
|
12417 |
+ \fi% |
|
12293 | 12418 |
\fi% |
12294 | 12419 |
\fi% |
12420 |
+ \fi% |
|
12295 | 12421 |
\loopcount=\second@% |
12296 | 12422 |
\if\first@@ <\advance\loopcount by -1\relax\ifnum\loopcount<0 \loopcount=0\fi\fi% |
12297 | 12423 |
\if\third@@ >\advance\loopcount by -1\relax\ifnum\loopcount<0 \loopcount=0\fi\fi% |
12298 | 12424 |
\if\first@@ O\advance\loopcount by -1\relax\ifnum\loopcount<0 \loopcount=0\fi\fi% |
12299 | 12425 |
\if\third@@ O\advance\loopcount by -1\relax\ifnum\loopcount<0 \loopcount=0\fi\fi% |
12426 |
+ \if\first@@ S\advance\loopcount by -1\relax\ifnum\loopcount<0 \loopcount=0\fi\fi% |
|
12427 |
+ \if\third@@ S\advance\loopcount by -1\relax\ifnum\loopcount<0 \loopcount=0\fi\fi% |
|
12428 |
+ \if\first@@ c\advance\loopcount by -1\relax\ifnum\loopcount<0 \loopcount=0\fi\fi% |
|
12429 |
+ \if\third@@ c\advance\loopcount by -1\relax\ifnum\loopcount<0 \loopcount=0\fi\fi% |
|
12300 | 12430 |
\xdef\second@{\the\loopcount}% |
12301 | 12431 |
\rule[\width@tmp]{\second@\box@width}{\temp@@length}% |
12302 | 12432 |
\setbox1=\hbox{\residues@size{\fill@char}}% |
... | ... |
@@ -12306,6 +12436,17 @@ |
12306 | 12436 |
\hbox to \second@\box@width{\textcolor{\frame@color}{\residues@size{\hss\fill@char\hss}}}% |
12307 | 12437 |
\if\third@@ ,% |
12308 | 12438 |
\kern-\temp@@length\rule{\temp@@length}{\arrow@height}% |
12439 |
+ \else% |
|
12440 |
+ \if\third@@ b% |
|
12441 |
+ \xdef\last@{bottom}% |
|
12442 |
+ \ifx\fe@turep@s\last@% |
|
12443 |
+ \kern-\temp@@length\rule{\temp@@length}{\arrow@height}% |
|
12444 |
+ \else |
|
12445 |
+ \xdef\shift@feature{y}% |
|
12446 |
+ \kern-\temp@@length% |
|
12447 |
+ \rule[-\bar@length]{\temp@@length}{\bar@length}% |
|
12448 |
+ \kern-\temp@@length\rule{\temp@@length}{\arrow@height}% |
|
12449 |
+ \fi |
|
12309 | 12450 |
\else% |
12310 | 12451 |
\if\third@@ |% |
12311 | 12452 |
\kern-\temp@@length\rule{\temp@@length}{2\arrow@height}% |
... | ... |
@@ -12313,6 +12454,31 @@ |
12313 | 12454 |
\if\third@@ O% |
12314 | 12455 |
\rule[\width@tmp]{0.65ex}{\temp@@length}% |
12315 | 12456 |
\kern-0.55ex\raisebox{0.06ex}{\ensuremath{\bullet}}% |
12457 |
+ \else% |
|
12458 |
+ \if\third@@ S% |
|
12459 |
+ \rule[\width@tmp]{0.5\box@width}{\temp@@length}% |
|
12460 |
+ \rule[\width@tmp]{0.5\temp@@length}{\temp@@length}% |
|
12461 |
+ \xdef\last@{bottom}% |
|
12462 |
+ \ifx\fe@turep@s\last@% |
|
12463 |
+ \advance\width@tmp by 0.5\temp@@length% |
|
12464 |
+ \kern-\temp@@length\rule[\width@tmp]{\temp@@length}{\arrow@height}% |
|
12465 |
+ \else |
|
12466 |
+ \kern-\temp@@length\rule{\temp@@length}{\arrow@height}% |
|
12467 |
+ \fi% |
|
12468 |
+ \else% |
|
12469 |
+ \if\third@@ c% |
|
12470 |
+ \xdef\shift@feature{y}% |
|
12471 |
+ \rule[\width@tmp]{0.5\box@width}{\temp@@length}% |
|
12472 |
+ \xdef\last@{bottom}% |
|
12473 |
+ \ifx\fe@turep@s\last@% |
|
12474 |
+ \kern-\temp@@length%%%%%%%%%%%%%%%%%%%%%%%%% |
|
12475 |
+ \rule[2\arrow@height]{\temp@@length}{\bar@length}%%%%%%%%%%%%%%%%%%%%%% |
|
12476 |
+ \advance\width@tmp by 0.5\temp@@length% |
|
12477 |
+ \kern-\temp@@length\rule[\width@tmp]{\temp@@length}{\arrow@height}% |
|
12478 |
+ \else |
|
12479 |
+ \kern-\temp@@length\rule[-\bar@length]{\temp@@length}{\bar@length}% |
|
12480 |
+ \kern-\temp@@length\rule{\temp@@length}{\arrow@height}% |
|
12481 |
+ \fi% |
|
12316 | 12482 |
\else% |
12317 | 12483 |
\if\third@@ >% |
12318 | 12484 |
\kern-0.35ex\raisebox{0.06ex}{\ensuremath{\blacktriangleright}}% |
... | ... |
@@ -12324,7 +12490,10 @@ |
12324 | 12490 |
\fi% |
12325 | 12491 |
\fi% |
12326 | 12492 |
\fi% |
12327 |
- \fi |
|
12493 |
+ \fi% |
|
12494 |
+ \fi% |
|
12495 |
+ \fi% |
|
12496 |
+ \fi% |
|
12328 | 12497 |
\fi}% |
12329 | 12498 |
\fi |
12330 | 12499 |
\fi |
... | ... |
@@ -12731,9 +12900,550 @@ |
12731 | 12900 |
\divide\loopcount by 100 % |
12732 | 12901 |
\xdef\third@{\the\loopcount}% |
12733 | 12902 |
} |
12903 |
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|
12904 |
+%%%% Chimera export routines %%%% |
|
12905 |
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|
12906 |
+\def\chimeraballScale#1{\xdef\chimerab@llSc@le{#1}} |
|
12907 |
+\def\chimeraballscale#1{\xdef\chimerab@llSc@le{#1}} |
|
12908 |
+\def\chimeraaxisdistance#1#2#3{\xdef\chimera@xdist@nce{#1}\xdef\chimera@ydist@nce{#2}\xdef\chimera@zdist@nce{#3}} |
|
12909 |
+\def\memelabelcutoff#1{% |
|
12910 |
+ \xdef\label@threshold@lower{#1} |
|
12911 |
+ \setlength\temp@@length{1000sp} |
|
12912 |
+ \setlength\temp@@length{\label@threshold@lower\temp@@length} |
|
12913 |
+ \loopcount=\temp@@length |
|
12914 |
+ \xdef\label@threshold@lowerIOOO{\the\loopcount} |
|
12915 |
+ \xdef\label@threshold@lowerremainingIOOO{-\the\loopcount} |
|
12916 |
+} |
|
12917 |
+\def\chimera@color@get#1#2@{% |
|
12918 |
+ \xdef\first@{#1}\xdef\third@{#2@} |
|
12919 |
+ \ifx\first@\ampers@nd |
|
12920 |
+ \else |
|
12921 |
+ \ifnum`#1>96 \make@upper\fi |
|
12922 |
+ \if\second@ O \else \expandafter\xdef\csname chimera@col@\first@\endcsname{\second@} \fi |
|
12923 |
+ \expandafter\chimera@color@get\third@ |
|
12924 |
+ \fi |
|
12925 |
+} |
|
12926 |
+\def\memered#1{% |
|
12927 |
+ \xdef\third@{#1&@} |
|
12928 |
+ \xdef\second@{red} |
|
12929 |
+ \expandafter\chimera@color@get\third@ |
|
12930 |
+} |
|
12931 |
+\def\memeblue#1{% |
|
12932 |
+ \xdef\third@{#1&@} |
|
12933 |
+ \xdef\second@{blue} |
|
12934 |
+ \expandafter\chimera@color@get\third@ |
|
12935 |
+} |
|
12936 |
+\def\memeyellow#1{% |
|
12937 |
+ \xdef\third@{#1&@} |
|
12938 |
+ \xdef\second@{yellow} |
|
12939 |
+ \expandafter\chimera@color@get\third@ |
|
12940 |
+} |
|
12941 |
+\def\memeblack#1{% |
|
12942 |
+ \xdef\third@{#1&@} |
|
12943 |
+ \xdef\second@{black} |
|
12944 |
+ \expandafter\chimera@color@get\third@ |
|
12945 |
+} |
|
12946 |
+\def\memewhite#1{% |
|
12947 |
+ \xdef\third@{#1&@} |
|
12948 |
+ \xdef\second@{white} |
|
12949 |
+ \expandafter\chimera@color@get\third@ |
|
12950 |
+} |
|
12951 |
+\def\memenone#1{% |
|
12952 |
+ \xdef\third@{#1&@} |
|
12953 |
+ \xdef\second@{none} |
|
12954 |
+ \expandafter\chimera@color@get\third@ |
|
12955 |
+} |
|
12956 |
+\def\memeRed#1{\memered{#1}} |
|
12957 |
+\def\memeBlue#1{\memeblue{#1}} |
|
12958 |
+\def\memeYellow#1{\memeyellow{#1}} |
|
12959 |
+\def\memeBlack#1{\memeblack{#1}} |
|
12960 |
+\def\memeWhite#1{\memewhite{#1}} |
|
12961 |
+\def\memeNone#1{\memenone{#1}} |
|
12962 |
+\def\chimera@colors#1#2@{% |
|
12963 |
+ \xdef\first@{#1}\xdef\third@{#2@} |
|
12964 |
+ \ifx\first@\ampers@nd |
|
12965 |
+ \else |
|
12966 |
+ \xdef\second@{\csname chimera@col@\first@\endcsname} |
|
12967 |
+ \expandafter\xdef\csname chimera@list@\second@\endcsname{\csname chimera@list@\second@\endcsname \first@} |
|
12968 |
+ \expandafter\chimera@colors\third@ |
|
12969 |
+ \fi |
|
12970 |
+} |
|
12971 |
+\def\memeStandardcolors{% |
|
12972 |
+ \xdef\chimera@col@A{white} |
|
12973 |
+ \xdef\chimera@col@B{none} |
|
12974 |
+ \xdef\chimera@col@C{yellow} |
|
12975 |
+ \xdef\chimera@col@D{red} |
|
12976 |
+ \xdef\chimera@col@E{red} |
|
12977 |
+ \xdef\chimera@col@F{black} |
|
12978 |
+ \xdef\chimera@col@G{yellow} |
|
12979 |
+ \xdef\chimera@col@H{blue} |
|
12980 |
+ \xdef\chimera@col@I{black} |
|
12981 |
+ \xdef\chimera@col@J{none} |
|
12982 |
+ \xdef\chimera@col@K{blue} |
|
12983 |
+ \xdef\chimera@col@L{black} |
|
12984 |
+ \xdef\chimera@col@M{black} |
|
12985 |
+ \xdef\chimera@col@N{yellow} |
|
12986 |
+ \xdef\chimera@col@O{none} |
|
12987 |
+ \xdef\chimera@col@P{white} |
|
12988 |
+ \xdef\chimera@col@Q{yellow} |
|
12989 |
+ \xdef\chimera@col@R{blue} |
|
12990 |
+ \xdef\chimera@col@S{yellow} |
|
12991 |
+ \xdef\chimera@col@T{yellow} |
|
12992 |
+ \xdef\chimera@col@U{none} |
|
12993 |
+ \xdef\chimera@col@V{white} |
|
12994 |
+ \xdef\chimera@col@W{black} |
|
12995 |
+ \xdef\chimera@col@X{none} |
|
12996 |
+ \xdef\chimera@col@Y{yellow} |
|
12997 |
+ \xdef\chimera@col@Z{none} |
|
12998 |
+} |
|
12999 |
+\def\echostructurefile#1{\xdef\echo@filename{, e.g. #1}} |
|
13000 |
+\def\chimerachain#1{\xdef\chimerach@in{.#1}} |
|
13001 |
+\catcode`\"=6 \catcode`\#=12 \catcode`\~=12 |
|
13002 |
+\newcommand{\structurememe}[2][chimera.cmd]{% |
|
13003 |
+ \ifx\exp@rt@chimera\n@ |
|
13004 |
+ \xdef\first@{"2 @} \expandafter\check@letter\first@ |
|
13005 |
+ \xdef\first@{"2} \ifletter \get@name@number \fi |
|
13006 |
+ \xdef\chimera@seqnum{\first@} |
|
13007 |
+ \xdef\exp@rt@chimera{y} |
|
13008 |
+ \xdef\first@{"1} |
|
13009 |
+ \immediate\openout\exp@rt@chimerafile = \first@ |
|
13010 |
+ \fi |
|
13011 |
+} |
|
13012 |
+\def\init@chimera@file{% |
|
13013 |
+ \xdef\chimera@list@red{} \xdef\chimera@list@blue{} \xdef\chimera@list@yellow{} \xdef\chimera@list@black{} \xdef\chimera@list@white{} |
|
13014 |
+ \xdef\chimera@list@none{} |
|
13015 |
+ \xdef\first@{ABCDEFGHIJKLMNOPQRSTUVWXYZ&@} |
|
13016 |
+ \expandafter\chimera@colors\first@ |
|
13017 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13018 |
+ \immediate\write\exp@rt@chimerafile{###} |
|
13019 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }. O � o STRUCTURE MEME � . O o} |
|
13020 |
+ \immediate\write\exp@rt@chimerafile{###} |
|
13021 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }Chimera command file generated from TeXshade logo data} |
|
13022 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }use '.cmd' or '.com' suffix} |
|
13023 |
+ \immediate\write\exp@rt@chimerafile{###} |
|
13024 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }Reference sequence: '\csname newseqname\chimera@seqnum\endcsname'\echo@filename} |
|
13025 |
+ \immediate\write\exp@rt@chimerafile{###} |
|
13026 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13027 |
+ \immediate\write\exp@rt@chimerafile{} |
|
13028 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13029 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }residue colors: (set with \string\memeRed{residues}\unexpanded{ }etc.)} |
|
13030 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@red \unexpanded{ }(Red)} |
|
13031 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@blue \unexpanded{ }(Blue)} |
|
13032 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@yellow \unexpanded{ }(Yellow)} |
|
13033 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@black \unexpanded{ }(Black)} |
|
13034 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@white \unexpanded{ }(White)} |
|
13035 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13036 |
+ \immediate\write\exp@rt@chimerafile{} |
|
13037 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13038 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }residues in labels: (\string\memelabelcutoff{bit-value})} |
|
13039 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\label@threshold@lower\unexpanded{ }bit required to appear} |
|
13040 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }> : . indicate 3, 2, and 1 bit levels} |
|
13041 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13042 |
+ \immediate\write\exp@rt@chimerafile{} |
|
13043 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13044 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }initialize & load structure} |
|
13045 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13046 |
+ \immediate\write\exp@rt@chimerafile{close session; background solid white;} |
|
13047 |
+ \immediate\write\exp@rt@chimerafile{echo load structure file for '\csname newseqname\chimera@seqnum\endcsname'\echo@filename} |
|
13048 |
+ \immediate\write\exp@rt@chimerafile{open #0; ~ribbon; ~surface} |
|
13049 |
+ \immediate\write\exp@rt@chimerafile{} |
|
13050 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13051 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }to set ball scale, change factor ]0.0 - 1.0]} |
|
13052 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }in 'setattr m ballScale <factor> #0' below,} |
|
13053 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }or use the \string\chimeraballScale{factor}\unexpanded{ }command} |
|
13054 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13055 |
+ \immediate\write\exp@rt@chimerafile{setattr m ballScale \chimerab@llSc@le \unexpanded{ }#0} |
|
13056 |
+ \immediate\write\exp@rt@chimerafile{} |
|
13057 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13058 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }display alpha-carbons only} |
|
13059 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13060 |
+ \immediate\write\exp@rt@chimerafile{represent bs @ca; show @ca} |
|
13061 |
+ \immediate\write\exp@rt@chimerafile{} |
|
13062 |
+ \ifshow@sublogo |
|
13063 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13064 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }duplicate structure;} |
|
13065 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }to alter direction or Angstrom distance, set} |
|
13066 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }'move <x, y, or z> 1 <distance> models #1' below,} |
|
13067 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }or use the \string\chimeraaxisdistance{x}{y}{z}\unexpanded{ }command} |
|
13068 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13069 |
+ \immediate\write\exp@rt@chimerafile{combine #0} |
|
13070 |
+ \ifnum\chimera@xdist@nce>0 |
|
13071 |
+ \immediate\write\exp@rt@chimerafile{move x 1 \chimera@xdist@nce \unexpanded{ }models #1} |
|
13072 |
+ \fi |
|
13073 |
+ \ifnum\chimera@ydist@nce>0 |
|
13074 |
+ \immediate\write\exp@rt@chimerafile{move y 1 \chimera@ydist@nce \unexpanded{ }models #1} |
|
13075 |
+ \fi |
|
13076 |
+ \ifnum\chimera@zdist@nce>0 |
|
13077 |
+ \immediate\write\exp@rt@chimerafile{move z 1 \chimera@zdist@nce \unexpanded{ }models #1} |
|
13078 |
+ \fi |
|
13079 |
+ \immediate\write\exp@rt@chimerafile{} |
|
13080 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13081 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }focus view and name structure models} |
|
13082 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13083 |
+ \immediate\write\exp@rt@chimerafile{wait; focus #0#1} |
|
13084 |
+ \ifx\sublogo@name@user\ampers@nd |
|
13085 |
+ \immediate\write\exp@rt@chimerafile{setattr m name subfamily #0} |
|
13086 |
+ \else |
|
13087 |
+ \immediate\write\exp@rt@chimerafile{setattr m name '\sublogo@name@user' \unexpanded{ }#0} |
|
13088 |
+ \fi |
|
13089 |
+ \xdef\first@{\sublogo@name@neg &} |
|
13090 |
+ \ifx\first@\ampers@nd |
|
13091 |
+ \immediate\write\exp@rt@chimerafile{setattr m name remaining #1} |
|
13092 |
+ \else |
|
13093 |
+ \immediate\write\exp@rt@chimerafile{setattr m name '\sublogo@name@neg' \unexpanded{ }#1} |
|
13094 |
+ \fi |
|
13095 |
+ \else |
|
13096 |
+ \immediate\write\exp@rt@chimerafile{\string ############################################################} |
|
13097 |
+ \immediate\write\exp@rt@chimerafile{\string ###\unexpanded{ }\unexpanded{ }\unexpanded{ }name structure model} |
|
13098 |
+ \immediate\write\exp@rt@chimerafile{\string ############################################################} |
|
13099 |
+ \ifx\logo@name@user\ampers@nd |
|
13100 |
+ \immediate\write\exp@rt@chimerafile{setattr m name logo #0} |
|
13101 |
+ \else |
|
13102 |
+ \immediate\write\exp@rt@chimerafile{setattr m name '\logo@name@user' \unexpanded{ }#0} |
|
13103 |
+ \fi |
|
13104 |
+ \fi |
|
13105 |
+ \immediate\write\exp@rt@chimerafile{} |
|
13106 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13107 |
+ \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }logo data} |
|
13108 |
+ \immediate\write\exp@rt@chimerafile{############################################################} |
|
13109 |
+} |
|
13110 |
+\def\make@HEX{% |
|
13111 |
+ \xdef\sixth@{\the\loopcount}% |
|
13112 |
+ \divide\loopcount by 4096\relax% |
|
13113 |
+ \ifnum\loopcount=10\relax% |
|
13114 |
+ \xdef\seventh@{A}% |
|
13115 |
+ \else% |
|
13116 |
+ \ifnum\loopcount=11\relax% |
|
13117 |
+ \xdef\seventh@{B}% |
|
13118 |
+ \else% |
|
13119 |
+ \ifnum\loopcount=12\relax% |
|
13120 |
+ \xdef\seventh@{C}% |
|
13121 |
+ \else% |
|
13122 |
+ \ifnum\loopcount=13\relax% |
|
13123 |
+ \xdef\seventh@{D}% |
|
13124 |
+ \else% |
|
13125 |
+ \ifnum\loopcount=14\relax% |
|
13126 |
+ \xdef\seventh@{E}% |
|
13127 |
+ \else% |
|
13128 |
+ \ifnum\loopcount>14\relax% |
|
13129 |
+ \xdef\seventh@{F}% |
|
13130 |
+ \else% |
|
13131 |
+ \xdef\seventh@{\the\loopcount}% |
|
13132 |
+ \fi\fi\fi\fi\fi\fi% |
|
13133 |
+ \multiply\loopcount by -4096\relax% |
|
13134 |
+ \advance\loopcount by \sixth@% |
|
13135 |
+ \xdef\sixth@{\the\loopcount}% |
|
13136 |
+ \divide\loopcount by 256\relax% |
|
13137 |
+ \ifnum\loopcount=10 \relax% |
|
13138 |
+ \xdef\eighth@{A}% |
|
13139 |
+ \else% |
|
13140 |
+ \ifnum\loopcount=11 \relax% |
|
13141 |
+ \xdef\eighth@{B}% |
|
13142 |
+ \else% |
|
13143 |
+ \ifnum\loopcount=12 \relax% |
|
13144 |
+ \xdef\eighth@{C}% |
|
13145 |
+ \else% |
|
13146 |
+ \ifnum\loopcount=13 \relax% |
|
13147 |
+ \xdef\eighth@{D}% |
|
13148 |
+ \else% |
|
13149 |
+ \ifnum\loopcount=14 \relax% |
|
13150 |
+ \xdef\eighth@{E}% |
|
13151 |
+ \else% |
|
13152 |
+ \ifnum\loopcount>14 \relax% |
|
13153 |
+ \xdef\eighth@{F}% |
|
13154 |
+ \else% |
|
13155 |
+ \xdef\eighth@{\the\loopcount}% |
|
13156 |
+ \fi\fi\fi\fi\fi\fi% |
|
13157 |
+ \xdef\seventh@{\seventh@\eighth@}% |
|
13158 |
+ \multiply\loopcount by -256\relax% |
|
13159 |
+ \advance\loopcount by \sixth@% |
|
13160 |
+ \xdef\sixth@{\the\loopcount}% |
|
13161 |
+ \divide\loopcount by 16\relax% |
|
13162 |
+ \ifnum\loopcount=10\relax% |
|
13163 |
+ \xdef\eighth@{A}% |
|
13164 |
+ \else% |
|
13165 |
+ \ifnum\loopcount=11\relax% |
|
13166 |
+ \xdef\eighth@{B}% |
|
13167 |
+ \else% |
|
13168 |
+ \ifnum\loopcount=12\relax% |
|
13169 |
+ \xdef\eighth@{C}% |
|
13170 |
+ \else% |
|
13171 |
+ \ifnum\loopcount=13\relax% |
|
13172 |
+ \xdef\eighth@{D}% |
|
13173 |
+ \else% |
|
13174 |
+ \ifnum\loopcount=14\relax% |
|
13175 |
+ \xdef\eighth@{E}% |
|
13176 |
+ \else% |
|
13177 |
+ \ifnum\loopcount>14\relax% |
|
13178 |
+ \xdef\eighth@{F}% |
|
13179 |
+ \else% |
|
13180 |
+ \xdef\eighth@{\the\loopcount}% |
|
13181 |
+ \fi\fi\fi\fi\fi\fi% |
|
13182 |
+ \xdef\seventh@{\seventh@\eighth@}% |
|
13183 |
+ \multiply\loopcount by -16\relax% |
|
13184 |
+ \advance\loopcount by \sixth@\relax% |
|
13185 |
+ \ifnum\loopcount=10\relax% |
|
13186 |
+ \xdef\eighth@{A}% |
|
13187 |
+ \else% |
|
13188 |
+ \ifnum\loopcount=11\relax% |
|
13189 |
+ \xdef\eighth@{B}% |
|
13190 |
+ \else% |
|
13191 |
+ \ifnum\loopcount=12\relax% |
|
13192 |
+ \xdef\eighth@{C}% |
|
13193 |
+ \else% |
|
13194 |
+ \ifnum\loopcount=13\relax% |
|
13195 |
+ \xdef\eighth@{D}% |
|
13196 |
+ \else% |
|
13197 |
+ \ifnum\loopcount=14\relax% |
|
13198 |
+ \xdef\eighth@{E}% |
|
13199 |
+ \else% |
|
13200 |
+ \ifnum\loopcount>14\relax% |
|
13201 |
+ \xdef\eighth@{F}% |
|
13202 |
+ \else% |
|
13203 |
+ \xdef\eighth@{\the\loopcount}% |
|
13204 |
+ \fi\fi\fi\fi\fi\fi% |
|
13205 |
+ \xdef\seventh@{\seventh@\eighth@}% |
|
13206 |
+} |
|
13207 |
+\def\write@chimera@data{% |
|
13208 |
+ \ifnum\temp@count>0 \else\temp@count=1\relax\temp@@count=0\fi% |
|
13209 |
+ \loopcount=\temp@count% |
|
13210 |
+ \xdef\fourth@{\the\loopcount @}% |
|
13211 |
+ \ifnum\loopcount>9999 \expandafter\decimal@A\fourth@ \else% |
|
13212 |
+ \ifnum\loopcount>999 \expandafter\decimal@B\fourth@ \else% |
|
13213 |
+ \ifnum\loopcount>99 \expandafter\decimal@C\fourth@ \else% |
|
13214 |
+ \ifnum\loopcount>9 \expandafter\decimal@D\fourth@ \else% |
|
13215 |
+ \expandafter\decimal@E\fourth@% |
|
13216 |
+ \fi\fi\fi\fi% |
|
13217 |
+ \loopcount=\chimera@subfamily@col@black% |
|
13218 |
+ \multiply\loopcount by 65535\relax% |
|
13219 |
+ \divide\loopcount by \temp@count% |
|
13220 |
+ \xdef\chimera@subfamily@col@black{\the\loopcount}% |
|
13221 |
+ \loopcount=65535\relax% |
|
13222 |
+ \advance\loopcount by -\chimera@subfamily@col@black% |
|
13223 |
+ \xdef\temp@@{\the\loopcount}% |
|
13224 |
+%%%%%%%%%%%%%% |
|
13225 |
+%%%%%%%%%%%%%% |
|
13226 |
+ \loopcount=\chimera@subfamily@col@blue\relax% |
|
13227 |
+ \ifnum\chimera@subfamily@col@yellow>\loopcount\relax% |
|
13228 |
+ \loopcount=\chimera@subfamily@col@yellow\relax% |
|
13229 |
+ \else% |
|
13230 |
+ \ifnum\chimera@subfamily@col@red>\loopcount\relax% |
|
13231 |
+ \loopcount=\chimera@subfamily@col@red\relax% |
|
13232 |
+ \fi% |
|
13233 |
+ \fi% |
|
13234 |
+ \xdef\max@yellow{\the\loopcount}% |
|
13235 |
+ \ifnum\chimera@subfamily@col@blue<\chimera@subfamily@col@yellow\relax% |
|
13236 |
+ \xdef\chimera@subfamily@col@green{\chimera@subfamily@col@blue}% |
|
13237 |
+ \else% |
|
13238 |
+ \xdef\chimera@subfamily@col@green{\chimera@subfamily@col@yellow}% |
|
13239 |
+ \fi% |
|
13240 |
+ \loopcount=\chimera@subfamily@col@yellow\relax% |
|
13241 |
+ \advance\loopcount by -\chimera@subfamily@col@green% |
|
13242 |
+ \xdef\chimera@subfamily@col@yellow{\the\loopcount}% |
|
13243 |
+ \loopcount=\chimera@subfamily@col@blue\relax% |
|
13244 |
+ \advance\loopcount by -\chimera@subfamily@col@green% |
|
13245 |
+ \xdef\chimera@subfamily@col@blue{\the\loopcount}% |
|
13246 |
+ \ifnum\chimera@subfamily@col@blue>0\relax% |
|
13247 |
+ \ifnum\chimera@subfamily@col@green>0\relax% |
|
13248 |
+ \loopcount=\chimera@subfamily@col@blue\relax% |
|
13249 |
+ \multiply\loopcount by 2\relax \xdef\chimera@subfamily@col@blue{\the\loopcount}% |
|
13250 |
+ \loopcount=\chimera@subfamily@col@green\relax% |
|
13251 |
+ \multiply\loopcount by 2\relax \xdef\chimera@subfamily@col@green{\the\loopcount}% |
|
13252 |
+ \fi% |
|
13253 |
+ \fi% |
|
13254 |
+ \loopcount=\chimera@subfamily@col@green\relax% |
|
13255 |
+ \advance\loopcount by \chimera@subfamily@col@yellow% |
|
13256 |
+ \xdef\chimera@subfamily@col@green{\the\loopcount}% |
|
13257 |
+ \loopcount=\chimera@subfamily@col@red\relax% |
|
13258 |
+ \advance\loopcount by \chimera@subfamily@col@yellow% |
|
13259 |
+ \xdef\chimera@subfamily@col@red{\the\loopcount}% |
|
13260 |
+ \loopcount=\chimera@subfamily@col@blue\relax% |
|
13261 |
+ \ifnum\chimera@subfamily@col@green>\loopcount\relax% |
|
13262 |
+ \loopcount=\chimera@subfamily@col@green\relax% |
|
13263 |
+ \else% |
|
13264 |
+ \ifnum\chimera@subfamily@col@red>\loopcount\relax% |
|
13265 |
+ \loopcount=\chimera@subfamily@col@red\relax% |
|
13266 |
+ \fi% |
|
13267 |
+ \fi% |
|
13268 |
+ \xdef\max@green{\the\loopcount}% |
|
13269 |
+ \loopcount=\chimera@subfamily@col@blue% |
|
13270 |
+ \ifnum\max@green>0\relax% |
|
13271 |
+ \multiply\loopcount by \max@yellow% |
|
13272 |
+ \divide\loopcount by \max@green% |
|
13273 |
+ \fi% |
|
13274 |
+ \advance\loopcount by \chimera@subfamily@col@white% |
|
13275 |
+ \multiply\loopcount by \temp@@% |
|
13276 |
+ \divide\loopcount by \temp@count% |
|
13277 |
+ \make@HEX% |
|
13278 |
+ \xdef\nineth@{\seventh@}% |
|
13279 |
+ \loopcount=\chimera@subfamily@col@green% |
|
13280 |
+ \ifnum\max@green>0\relax% |
|
13281 |
+ \multiply\loopcount by \max@yellow% |
|
13282 |
+ \divide\loopcount by \max@green% |
|
13283 |
+ \fi% |
|
13284 |
+ \advance\loopcount by \chimera@subfamily@col@white% |
|
13285 |
+ \multiply\loopcount by \temp@@% |
|
13286 |
+ \divide\loopcount by \temp@count% |
|
13287 |
+ \make@HEX% |
|
13288 |
+ \xdef\nineth@{\seventh@\nineth@}% |
|
13289 |
+ \loopcount=\chimera@subfamily@col@red% |
|
13290 |
+ \ifnum\max@green>0\relax% |
|
13291 |
+ \multiply\loopcount by \max@yellow% |
|
13292 |
+ \divide\loopcount by \max@green% |
|
13293 |
+ \fi% |
|
13294 |
+ \advance\loopcount by \chimera@subfamily@col@white% |
|
13295 |
+ \multiply\loopcount by \temp@@% |
|
13296 |
+ \divide\loopcount by \temp@count% |
|
13297 |
+ \make@HEX% |
|
13298 |
+ \xdef\nineth@{\seventh@\nineth@}% |
|
13299 |
+ \ifx\chimera@labelOne@set\n@% |
|
13300 |
+ \xdef\chimera@labelOne@set{y}% |
|
13301 |
+ \xdef\chimera@label@subfamily{.\chimera@label@subfamily}% |
|
13302 |
+ \fi% |
|
13303 |
+ \immediate\write\exp@rt@chimerafile{setattr a radius \temp@ \unexpanded{} #0:\chimera@res@num\chimerach@in @ca}% |
|
13304 |
+ \immediate\write\exp@rt@chimerafile{setattr a color #\nineth@ \unexpanded{} #0:\chimera@res@num\chimerach@in @ca}% |
|
13305 |
+ \immediate\write\exp@rt@chimerafile{setattr a name '|| \chimera@label@subfamily' #0:\chimera@res@num\chimerach@in @ca}% |
|
13306 |
+ \ifshow@sublogo |
|
13307 |
+ \ifnum\temp@@count>0 \else\temp@@count=1\fi% |
|
13308 |
+ \loopcount=\temp@@count% |
|
13309 |
+ \xdef\fourth@{\the\loopcount @}% |
|
13310 |
+ \ifnum\loopcount>9999 \expandafter\decimal@A\fourth@ \else% |
|
13311 |
+ \ifnum\loopcount>999 \expandafter\decimal@B\fourth@ \else% |
|
13312 |
+ \ifnum\loopcount>99 \expandafter\decimal@C\fourth@ \else% |
|
13313 |
+ \ifnum\loopcount>9 \expandafter\decimal@D\fourth@ \else% |
|
13314 |
+ \expandafter\decimal@E\fourth@% |
|
13315 |
+ \fi\fi\fi\fi% |
|
13316 |
+ \loopcount=-\chimera@remaining@col@red\relax% |
|
13317 |
+ \xdef\chimera@remaining@col@red{\the\loopcount}% |
|
13318 |
+ \loopcount=-\chimera@remaining@col@yellow\relax% |
|
13319 |
+ \xdef\chimera@remaining@col@yellow{\the\loopcount}% |
|
13320 |
+ \loopcount=-\chimera@remaining@col@blue\relax% |
|