From 4dc68f95312419273112a43684ec8d7fb13896aa Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 7 Apr 2021 15:07:12 +0000 Subject: texshade (7apr21) git-svn-id: svn://tug.org/texlive/trunk@58789 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/texshade/texshade.sty | 689 +++++++++++++++++++++- 1 file changed, 676 insertions(+), 13 deletions(-) (limited to 'Master/texmf-dist/tex') diff --git a/Master/texmf-dist/tex/latex/texshade/texshade.sty b/Master/texmf-dist/tex/latex/texshade/texshade.sty index 615108bfd03..4cad0b381bb 100644 --- a/Master/texmf-dist/tex/latex/texshade/texshade.sty +++ b/Master/texmf-dist/tex/latex/texshade/texshade.sty @@ -8,13 +8,13 @@ %% %% LaTeX package for typesetting nucleotide and peptide alignments %% -%% Copyright (C) 1999-2011 Eric Beitz +%% Copyright (C) 1999-2021 Eric Beitz %% See the file texshade.txt %% \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{texshade}[2018/01/17 LaTeX TeXshade (v1.25)] -\message{Package `texshade', Version 1.25 of 2018/01/17.} +\ProvidesPackage{texshade}[2021/04/01 LaTeX TeXshade (v1.26)] +\message{Package `texshade', Version 1.26 of 2021/04/01.} \PassOptionsToPackage{dvips}{color} \PassOptionsToPackage{dvips}{graphicx} @@ -56,6 +56,7 @@ \newread\structurefile \newwrite\featurefile \newread\alignfile \newread\sublogofile \newwrite\exp@rtfile +\newwrite\exp@rt@chimerafile \expandafter\ifx\csname blacktriangleright\endcsname\relax \openin\structurefile = amssymb.sty @@ -679,6 +680,16 @@ \xdef\HydroV{37} \xdef\HydroW{28} \xdef\HydroX{N} \xdef\HydroY{9} \xdef\HydroZ{N} +\xdef\hardnessA{98} \xdef\hardnessB{0} \xdef\hardnessC{37} +\xdef\hardnessD{100} \xdef\hardnessE{96} \xdef\hardnessF{48} +\xdef\hardnessG{92} \xdef\hardnessH{50} \xdef\hardnessI{98} +\xdef\hardnessJ{86} \xdef\hardnessK{73} \xdef\hardnessL{98} +\xdef\hardnessM{25} \xdef\hardnessN{86} \xdef\hardnessO{0} +\xdef\hardnessP{91} \xdef\hardnessQ{95} \xdef\hardnessR{69} +\xdef\hardnessS{94} \xdef\hardnessT{98} \xdef\hardnessU{-34} +\xdef\hardnessV{98} \xdef\hardnessW{0} \xdef\hardnessX{0} +\xdef\hardnessY{28} \xdef\hardnessZ{0} + \xdef\consCB{0} \xdef\consCJ{0} \xdef\consCO{0} \xdef\consCU{0} \xdef\consCX{0} \xdef\consCZ{0} \expandafter\xdef\csname consC?\endcsname{0} @@ -2892,8 +2903,17 @@ \funcgroup{Leu, Val, Ile}{LVI}{Green}{White}{upper}{up} \funcgroup{Pro}{P}{Apricot}{White}{upper}{up} \else + \xdef\second@{hardness} + \ifx\temp@\second@ + \funcgroup{22-23 eV (ADEGILPQSTV) | 2$\times$ HOMO-LUMO gap}{ADEGILPQSTV}{White}{BlueRed5}{upper}{up} + \funcgroup{21-22 eV (KN)}{KN}{White}{BlueRed20}{upper}{up} + \funcgroup{20-21 eV (R)}{R}{Black}{BlueRed40}{upper}{up} + \funcgroup{19-20 eV (CFH)}{CFH}{Black}{BlueRed60}{upper}{up} + \funcgroup{18-19 eV (MY)}{MY}{White}{BlueRed80}{upper}{up} + \funcgroup{17-18 eV (W)}{W}{White}{BlueRed100}{upper}{up} + \else \message{} - \fi\fi\fi\fi\fi\fi\fi + \fi\fi\fi\fi\fi\fi\fi\fi } \def\shadeallresidues{\all@fshadetrue} \def\get@fromstack#1;#2;#3;#4;#5@{% @@ -6396,7 +6416,17 @@ \logocolor{EQ}{RoyalPurple} \logocolor{R}{RedViolet} \logocolor{K}{Black} - \fi\fi\fi\fi\fi\fi\fi + \else + \xdef\second@{hardness} + \ifx\first@\second@ + \clearlogocolors + \logocolor{ADEGILPQSTV}{BlueRed5} + \logocolor{KN}{BlueRed20} + \logocolor{R}{BlueRed40} + \logocolor{CFH}{BlueRed60} + \logocolor{MY}{BlueRed80} + \logocolor{W}{BlueRed100} + \fi\fi\fi\fi\fi\fi\fi\fi } \newcommand\findsubfamily[2][n]{% \xdef\first@{#1} @@ -10443,6 +10473,7 @@ \fi \fi \expandafter\xdef\csname res@count\the\loopcount\endcsname{\the\res@count} + \ifnum\loopcount=\chimera@seqnum \xdef\chimera@stack{\chimera@stack \the\res@count,} \fi \ifnum\loopcount=\exp@rt@num \xdef\sixth@{\the\res@count}\xdef\seventh@{y}\fi \ifnum\loopcount=\rule@num\relax \expandafter\ifnum\csname res@count\rule@num\endcsname>\rule@tens @@ -10586,6 +10617,7 @@ \the\innerloopcount} \else \ifnum\loopcount=\rule@num \xdef\ruler@{\ruler@ -} \fi + \ifnum\loopcount=\chimera@seqnum \xdef\chimera@stack{\chimera@stack &,} \fi \ifx\collect@valtop\yes \ifnum\v@lseqtop=\loopcount \xdef\v@ltop{\v@ltop,N} @@ -12868,9 +12900,550 @@ \divide\loopcount by 100 % \xdef\third@{\the\loopcount}% } +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%% Chimera export routines %%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\chimeraballScale#1{\xdef\chimerab@llSc@le{#1}} +\def\chimeraballscale#1{\xdef\chimerab@llSc@le{#1}} +\def\chimeraaxisdistance#1#2#3{\xdef\chimera@xdist@nce{#1}\xdef\chimera@ydist@nce{#2}\xdef\chimera@zdist@nce{#3}} +\def\memelabelcutoff#1{% + \xdef\label@threshold@lower{#1} + \setlength\temp@@length{1000sp} + \setlength\temp@@length{\label@threshold@lower\temp@@length} + \loopcount=\temp@@length + \xdef\label@threshold@lowerIOOO{\the\loopcount} + \xdef\label@threshold@lowerremainingIOOO{-\the\loopcount} +} +\def\chimera@color@get#1#2@{% + \xdef\first@{#1}\xdef\third@{#2@} + \ifx\first@\ampers@nd + \else + \ifnum`#1>96 \make@upper\fi + \if\second@ O \else \expandafter\xdef\csname chimera@col@\first@\endcsname{\second@} \fi + \expandafter\chimera@color@get\third@ + \fi +} +\def\memered#1{% + \xdef\third@{#1&@} + \xdef\second@{red} + \expandafter\chimera@color@get\third@ +} +\def\memeblue#1{% + \xdef\third@{#1&@} + \xdef\second@{blue} + \expandafter\chimera@color@get\third@ +} +\def\memeyellow#1{% + \xdef\third@{#1&@} + \xdef\second@{yellow} + \expandafter\chimera@color@get\third@ +} +\def\memeblack#1{% + \xdef\third@{#1&@} + \xdef\second@{black} + \expandafter\chimera@color@get\third@ +} +\def\memewhite#1{% + \xdef\third@{#1&@} + \xdef\second@{white} + \expandafter\chimera@color@get\third@ +} +\def\memenone#1{% + \xdef\third@{#1&@} + \xdef\second@{none} + \expandafter\chimera@color@get\third@ +} +\def\memeRed#1{\memered{#1}} +\def\memeBlue#1{\memeblue{#1}} +\def\memeYellow#1{\memeyellow{#1}} +\def\memeBlack#1{\memeblack{#1}} +\def\memeWhite#1{\memewhite{#1}} +\def\memeNone#1{\memenone{#1}} +\def\chimera@colors#1#2@{% + \xdef\first@{#1}\xdef\third@{#2@} + \ifx\first@\ampers@nd + \else + \xdef\second@{\csname chimera@col@\first@\endcsname} + \expandafter\xdef\csname chimera@list@\second@\endcsname{\csname chimera@list@\second@\endcsname \first@} + \expandafter\chimera@colors\third@ + \fi +} +\def\memeStandardcolors{% + \xdef\chimera@col@A{white} + \xdef\chimera@col@B{none} + \xdef\chimera@col@C{yellow} + \xdef\chimera@col@D{red} + \xdef\chimera@col@E{red} + \xdef\chimera@col@F{black} + \xdef\chimera@col@G{yellow} + \xdef\chimera@col@H{blue} + \xdef\chimera@col@I{black} + \xdef\chimera@col@J{none} + \xdef\chimera@col@K{blue} + \xdef\chimera@col@L{black} + \xdef\chimera@col@M{black} + \xdef\chimera@col@N{yellow} + \xdef\chimera@col@O{none} + \xdef\chimera@col@P{white} + \xdef\chimera@col@Q{yellow} + \xdef\chimera@col@R{blue} + \xdef\chimera@col@S{yellow} + \xdef\chimera@col@T{yellow} + \xdef\chimera@col@U{none} + \xdef\chimera@col@V{white} + \xdef\chimera@col@W{black} + \xdef\chimera@col@X{none} + \xdef\chimera@col@Y{yellow} + \xdef\chimera@col@Z{none} +} +\def\echostructurefile#1{\xdef\echo@filename{, e.g. #1}} +\def\chimerachain#1{\xdef\chimerach@in{.#1}} +\catcode`\"=6 \catcode`\#=12 \catcode`\~=12 +\newcommand{\structurememe}[2][chimera.cmd]{% + \ifx\exp@rt@chimera\n@ + \xdef\first@{"2 @} \expandafter\check@letter\first@ + \xdef\first@{"2} \ifletter \get@name@number \fi + \xdef\chimera@seqnum{\first@} + \xdef\exp@rt@chimera{y} + \xdef\first@{"1} + \immediate\openout\exp@rt@chimerafile = \first@ + \fi +} +\def\init@chimera@file{% + \xdef\chimera@list@red{} \xdef\chimera@list@blue{} \xdef\chimera@list@yellow{} \xdef\chimera@list@black{} \xdef\chimera@list@white{} + \xdef\chimera@list@none{} + \xdef\first@{ABCDEFGHIJKLMNOPQRSTUVWXYZ&@} + \expandafter\chimera@colors\first@ + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{###} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }. O ¡ o STRUCTURE MEME ¡ . O o} + \immediate\write\exp@rt@chimerafile{###} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }Chimera command file generated from TeXshade logo data} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }use '.cmd' or '.com' suffix} + \immediate\write\exp@rt@chimerafile{###} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }Reference sequence: '\csname newseqname\chimera@seqnum\endcsname'\echo@filename} + \immediate\write\exp@rt@chimerafile{###} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }residue colors: (set with \string\memeRed{residues}\unexpanded{ }etc.)} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@red \unexpanded{ }(Red)} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@blue \unexpanded{ }(Blue)} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@yellow \unexpanded{ }(Yellow)} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@black \unexpanded{ }(Black)} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\chimera@list@white \unexpanded{ }(White)} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }residues in labels: (\string\memelabelcutoff{bit-value})} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }\label@threshold@lower\unexpanded{ }bit required to appear} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }> : . indicate 3, 2, and 1 bit levels} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }initialize & load structure} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{close session; background solid white;} + \immediate\write\exp@rt@chimerafile{echo load structure file for '\csname newseqname\chimera@seqnum\endcsname'\echo@filename} + \immediate\write\exp@rt@chimerafile{open #0; ~ribbon; ~surface} + \immediate\write\exp@rt@chimerafile{} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }to set ball scale, change factor ]0.0 - 1.0]} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }in 'setattr m ballScale #0' below,} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }or use the \string\chimeraballScale{factor}\unexpanded{ }command} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{setattr m ballScale \chimerab@llSc@le \unexpanded{ }#0} + \immediate\write\exp@rt@chimerafile{} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }display alpha-carbons only} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{represent bs @ca; show @ca} + \immediate\write\exp@rt@chimerafile{} + \ifshow@sublogo + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }duplicate structure;} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }to alter direction or Angstrom distance, set} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }'move 1 models #1' below,} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }or use the \string\chimeraaxisdistance{x}{y}{z}\unexpanded{ }command} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{combine #0} + \ifnum\chimera@xdist@nce>0 + \immediate\write\exp@rt@chimerafile{move x 1 \chimera@xdist@nce \unexpanded{ }models #1} + \fi + \ifnum\chimera@ydist@nce>0 + \immediate\write\exp@rt@chimerafile{move y 1 \chimera@ydist@nce \unexpanded{ }models #1} + \fi + \ifnum\chimera@zdist@nce>0 + \immediate\write\exp@rt@chimerafile{move z 1 \chimera@zdist@nce \unexpanded{ }models #1} + \fi + \immediate\write\exp@rt@chimerafile{} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }focus view and name structure models} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{wait; focus #0#1} + \ifx\sublogo@name@user\ampers@nd + \immediate\write\exp@rt@chimerafile{setattr m name subfamily #0} + \else + \immediate\write\exp@rt@chimerafile{setattr m name '\sublogo@name@user' \unexpanded{ }#0} + \fi + \xdef\first@{\sublogo@name@neg &} + \ifx\first@\ampers@nd + \immediate\write\exp@rt@chimerafile{setattr m name remaining #1} + \else + \immediate\write\exp@rt@chimerafile{setattr m name '\sublogo@name@neg' \unexpanded{ }#1} + \fi + \else + \immediate\write\exp@rt@chimerafile{\string ############################################################} + \immediate\write\exp@rt@chimerafile{\string ###\unexpanded{ }\unexpanded{ }\unexpanded{ }name structure model} + \immediate\write\exp@rt@chimerafile{\string ############################################################} + \ifx\logo@name@user\ampers@nd + \immediate\write\exp@rt@chimerafile{setattr m name logo #0} + \else + \immediate\write\exp@rt@chimerafile{setattr m name '\logo@name@user' \unexpanded{ }#0} + \fi + \fi + \immediate\write\exp@rt@chimerafile{} + \immediate\write\exp@rt@chimerafile{############################################################} + \immediate\write\exp@rt@chimerafile{###\unexpanded{ }\unexpanded{ }\unexpanded{ }logo data} + \immediate\write\exp@rt@chimerafile{############################################################} +} +\def\make@HEX{% + \xdef\sixth@{\the\loopcount}% + \divide\loopcount by 4096\relax% + \ifnum\loopcount=10\relax% + \xdef\seventh@{A}% + \else% + \ifnum\loopcount=11\relax% + \xdef\seventh@{B}% + \else% + \ifnum\loopcount=12\relax% + \xdef\seventh@{C}% + \else% + \ifnum\loopcount=13\relax% + \xdef\seventh@{D}% + \else% + \ifnum\loopcount=14\relax% + \xdef\seventh@{E}% + \else% + \ifnum\loopcount>14\relax% + \xdef\seventh@{F}% + \else% + \xdef\seventh@{\the\loopcount}% + \fi\fi\fi\fi\fi\fi% + \multiply\loopcount by -4096\relax% + \advance\loopcount by \sixth@% + \xdef\sixth@{\the\loopcount}% + \divide\loopcount by 256\relax% + \ifnum\loopcount=10 \relax% + \xdef\eighth@{A}% + \else% + \ifnum\loopcount=11 \relax% + \xdef\eighth@{B}% + \else% + \ifnum\loopcount=12 \relax% + \xdef\eighth@{C}% + \else% + \ifnum\loopcount=13 \relax% + \xdef\eighth@{D}% + \else% + \ifnum\loopcount=14 \relax% + \xdef\eighth@{E}% + \else% + \ifnum\loopcount>14 \relax% + \xdef\eighth@{F}% + \else% + \xdef\eighth@{\the\loopcount}% + \fi\fi\fi\fi\fi\fi% + \xdef\seventh@{\seventh@\eighth@}% + \multiply\loopcount by -256\relax% + \advance\loopcount by \sixth@% + \xdef\sixth@{\the\loopcount}% + \divide\loopcount by 16\relax% + \ifnum\loopcount=10\relax% + \xdef\eighth@{A}% + \else% + \ifnum\loopcount=11\relax% + \xdef\eighth@{B}% + \else% + \ifnum\loopcount=12\relax% + \xdef\eighth@{C}% + \else% + \ifnum\loopcount=13\relax% + \xdef\eighth@{D}% + \else% + \ifnum\loopcount=14\relax% + \xdef\eighth@{E}% + \else% + \ifnum\loopcount>14\relax% + \xdef\eighth@{F}% + \else% + \xdef\eighth@{\the\loopcount}% + \fi\fi\fi\fi\fi\fi% + \xdef\seventh@{\seventh@\eighth@}% + \multiply\loopcount by -16\relax% + \advance\loopcount by \sixth@\relax% + \ifnum\loopcount=10\relax% + \xdef\eighth@{A}% + \else% + \ifnum\loopcount=11\relax% + \xdef\eighth@{B}% + \else% + \ifnum\loopcount=12\relax% + \xdef\eighth@{C}% + \else% + \ifnum\loopcount=13\relax% + \xdef\eighth@{D}% + \else% + \ifnum\loopcount=14\relax% + \xdef\eighth@{E}% + \else% + \ifnum\loopcount>14\relax% + \xdef\eighth@{F}% + \else% + \xdef\eighth@{\the\loopcount}% + \fi\fi\fi\fi\fi\fi% + \xdef\seventh@{\seventh@\eighth@}% +} +\def\write@chimera@data{% + \ifnum\temp@count>0 \else\temp@count=1\relax\temp@@count=0\fi% + \loopcount=\temp@count% + \xdef\fourth@{\the\loopcount @}% + \ifnum\loopcount>9999 \expandafter\decimal@A\fourth@ \else% + \ifnum\loopcount>999 \expandafter\decimal@B\fourth@ \else% + \ifnum\loopcount>99 \expandafter\decimal@C\fourth@ \else% + \ifnum\loopcount>9 \expandafter\decimal@D\fourth@ \else% + \expandafter\decimal@E\fourth@% + \fi\fi\fi\fi% + \loopcount=\chimera@subfamily@col@black% + \multiply\loopcount by 65535\relax% + \divide\loopcount by \temp@count% + \xdef\chimera@subfamily@col@black{\the\loopcount}% + \loopcount=65535\relax% + \advance\loopcount by -\chimera@subfamily@col@black% + \xdef\temp@@{\the\loopcount}% +%%%%%%%%%%%%%% +%%%%%%%%%%%%%% + \loopcount=\chimera@subfamily@col@blue\relax% + \ifnum\chimera@subfamily@col@yellow>\loopcount\relax% + \loopcount=\chimera@subfamily@col@yellow\relax% + \else% + \ifnum\chimera@subfamily@col@red>\loopcount\relax% + \loopcount=\chimera@subfamily@col@red\relax% + \fi% + \fi% + \xdef\max@yellow{\the\loopcount}% + \ifnum\chimera@subfamily@col@blue<\chimera@subfamily@col@yellow\relax% + \xdef\chimera@subfamily@col@green{\chimera@subfamily@col@blue}% + \else% + \xdef\chimera@subfamily@col@green{\chimera@subfamily@col@yellow}% + \fi% + \loopcount=\chimera@subfamily@col@yellow\relax% + \advance\loopcount by -\chimera@subfamily@col@green% + \xdef\chimera@subfamily@col@yellow{\the\loopcount}% + \loopcount=\chimera@subfamily@col@blue\relax% + \advance\loopcount by -\chimera@subfamily@col@green% + \xdef\chimera@subfamily@col@blue{\the\loopcount}% + \ifnum\chimera@subfamily@col@blue>0\relax% + \ifnum\chimera@subfamily@col@green>0\relax% + \loopcount=\chimera@subfamily@col@blue\relax% + \multiply\loopcount by 2\relax \xdef\chimera@subfamily@col@blue{\the\loopcount}% + \loopcount=\chimera@subfamily@col@green\relax% + \multiply\loopcount by 2\relax \xdef\chimera@subfamily@col@green{\the\loopcount}% + \fi% + \fi% + \loopcount=\chimera@subfamily@col@green\relax% + \advance\loopcount by \chimera@subfamily@col@yellow% + \xdef\chimera@subfamily@col@green{\the\loopcount}% + \loopcount=\chimera@subfamily@col@red\relax% + \advance\loopcount by \chimera@subfamily@col@yellow% + \xdef\chimera@subfamily@col@red{\the\loopcount}% + \loopcount=\chimera@subfamily@col@blue\relax% + \ifnum\chimera@subfamily@col@green>\loopcount\relax% + \loopcount=\chimera@subfamily@col@green\relax% + \else% + \ifnum\chimera@subfamily@col@red>\loopcount\relax% + \loopcount=\chimera@subfamily@col@red\relax% + \fi% + \fi% + \xdef\max@green{\the\loopcount}% + \loopcount=\chimera@subfamily@col@blue% + \ifnum\max@green>0\relax% + \multiply\loopcount by \max@yellow% + \divide\loopcount by \max@green% + \fi% + \advance\loopcount by \chimera@subfamily@col@white% + \multiply\loopcount by \temp@@% + \divide\loopcount by \temp@count% + \make@HEX% + \xdef\nineth@{\seventh@}% + \loopcount=\chimera@subfamily@col@green% + \ifnum\max@green>0\relax% + \multiply\loopcount by \max@yellow% + \divide\loopcount by \max@green% + \fi% + \advance\loopcount by \chimera@subfamily@col@white% + \multiply\loopcount by \temp@@% + \divide\loopcount by \temp@count% + \make@HEX% + \xdef\nineth@{\seventh@\nineth@}% + \loopcount=\chimera@subfamily@col@red% + \ifnum\max@green>0\relax% + \multiply\loopcount by \max@yellow% + \divide\loopcount by \max@green% + \fi% + \advance\loopcount by \chimera@subfamily@col@white% + \multiply\loopcount by \temp@@% + \divide\loopcount by \temp@count% + \make@HEX% + \xdef\nineth@{\seventh@\nineth@}% + \ifx\chimera@labelOne@set\n@% + \xdef\chimera@labelOne@set{y}% + \xdef\chimera@label@subfamily{.\chimera@label@subfamily}% + \fi% + \immediate\write\exp@rt@chimerafile{setattr a radius \temp@ \unexpanded{} #0:\chimera@res@num\chimerach@in @ca}% + \immediate\write\exp@rt@chimerafile{setattr a color #\nineth@ \unexpanded{} #0:\chimera@res@num\chimerach@in @ca}% + \immediate\write\exp@rt@chimerafile{setattr a name '|| \chimera@label@subfamily' #0:\chimera@res@num\chimerach@in @ca}% + \ifshow@sublogo + \ifnum\temp@@count>0 \else\temp@@count=1\fi% + \loopcount=\temp@@count% + \xdef\fourth@{\the\loopcount @}% + \ifnum\loopcount>9999 \expandafter\decimal@A\fourth@ \else% + \ifnum\loopcount>999 \expandafter\decimal@B\fourth@ \else% + \ifnum\loopcount>99 \expandafter\decimal@C\fourth@ \else% + \ifnum\loopcount>9 \expandafter\decimal@D\fourth@ \else% + \expandafter\decimal@E\fourth@% + \fi\fi\fi\fi% + \loopcount=-\chimera@remaining@col@red\relax% + \xdef\chimera@remaining@col@red{\the\loopcount}% + \loopcount=-\chimera@remaining@col@yellow\relax% + \xdef\chimera@remaining@col@yellow{\the\loopcount}% + \loopcount=-\chimera@remaining@col@blue\relax% + \xdef\chimera@remaining@col@blue{\the\loopcount}% + \loopcount=-\chimera@remaining@col@white\relax% + \xdef\chimera@remaining@col@white{\the\loopcount}% + \loopcount=-\chimera@remaining@col@black% + \multiply\loopcount by 65535\relax% + \divide\loopcount by \temp@count% + \xdef\chimera@remaining@col@black{\the\loopcount}% + \loopcount=65535\relax% + \advance\loopcount by -\chimera@remaining@col@black% + \xdef\temp@@{\the\loopcount}% + \loopcount=\chimera@remaining@col@blue\relax% + \ifnum\chimera@remaining@col@yellow>\loopcount\relax% + \loopcount=\chimera@remaining@col@yellow\relax% + \else% + \ifnum\chimera@remaining@col@red>\loopcount\relax% + \loopcount=\chimera@remaining@col@red\relax% + \fi% + \fi% + \xdef\max@yellow{\the\loopcount}% + \ifnum\chimera@remaining@col@blue<\chimera@remaining@col@yellow\relax% + \xdef\chimera@remaining@col@green{\chimera@remaining@col@blue}% + \else% + \xdef\chimera@remaining@col@green{\chimera@remaining@col@yellow}% + \fi% + \loopcount=\chimera@remaining@col@yellow\relax% + \advance\loopcount by -\chimera@remaining@col@green% + \xdef\chimera@remaining@col@yellow{\the\loopcount}% + \loopcount=\chimera@remaining@col@blue\relax% + \advance\loopcount by -\chimera@remaining@col@green% + \xdef\chimera@remaining@col@blue{\the\loopcount}% + \ifnum\chimera@remaining@col@blue>0\relax% + \ifnum\chimera@remaining@col@green>0\relax% + \loopcount=\chimera@remaining@col@blue\relax% + \multiply\loopcount by 2\relax \xdef\chimera@remaining@col@blue{\the\loopcount}% + \loopcount=\chimera@remaining@col@green\relax% + \multiply\loopcount by 2\relax \xdef\chimera@remaining@col@green{\the\loopcount}% + \fi% + \fi% + \loopcount=\chimera@remaining@col@green\relax% + \advance\loopcount by \chimera@remaining@col@yellow% + \xdef\chimera@remaining@col@green{\the\loopcount}% + \loopcount=\chimera@remaining@col@red\relax% + \advance\loopcount by \chimera@remaining@col@yellow% + \xdef\chimera@remaining@col@red{\the\loopcount}% + \loopcount=\chimera@remaining@col@blue\relax% + \ifnum\chimera@remaining@col@green>\loopcount\relax% + \loopcount=\chimera@remaining@col@green\relax% + \else% + \ifnum\chimera@remaining@col@red>\loopcount\relax% + \loopcount=\chimera@remaining@col@red\relax% + \fi% + \fi% + \xdef\max@green{\the\loopcount}% + \loopcount=\chimera@remaining@col@blue% + \ifnum\max@green>0\relax% + \multiply\loopcount by \max@yellow% + \divide\loopcount by \max@green% + \fi% + \advance\loopcount by \chimera@remaining@col@white% + \multiply\loopcount by \temp@@% + \divide\loopcount by \temp@count% + \make@HEX% + \xdef\nineth@{\seventh@}% + \loopcount=\chimera@remaining@col@green% + \ifnum\max@green>0\relax% + \multiply\loopcount by \max@yellow% + \divide\loopcount by \max@green% + \fi% + \advance\loopcount by \chimera@remaining@col@white% + \multiply\loopcount by \temp@@% + \divide\loopcount by \temp@count% + \make@HEX% + \xdef\nineth@{\seventh@\nineth@}% + \loopcount=\chimera@remaining@col@red% + \ifnum\max@green>0\relax% + \multiply\loopcount by \max@yellow% + \divide\loopcount by \max@green% + \fi% + \advance\loopcount by \chimera@remaining@col@white% + \multiply\loopcount by \temp@@% + \divide\loopcount by \temp@count% + \make@HEX% + \xdef\nineth@{\seventh@\nineth@}% + \ifx\chimera@label@remainingOne@set\n@% + \xdef\chimera@label@remainingOne@set{y}% + \xdef\chimera@label@remaining{.\chimera@label@remaining}% + \fi% + \immediate\write\exp@rt@chimerafile{setattr a radius \temp@ \unexpanded{} #1:\chimera@res@num\chimerach@in @ca}% + \immediate\write\exp@rt@chimerafile{setattr a color #\nineth@ \unexpanded{} #1:\chimera@res@num\chimerach@in @ca}% + \immediate\write\exp@rt@chimerafile{setattr a name '|| \chimera@label@remaining' #1:\chimera@res@num\chimerach@in @ca}% + \fi% +} +\catcode`\"=12 \catcode`\#=6 \catcode`\~=13 +\def\get@chimera@res@num#1,#2@{\xdef\chimera@res@num{#1}\xdef\chimera@stack{#2}} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%% Chimera export routines end %%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \def\next@logo#1:#2,#3@{% \xdef\first@{#1}\xdef\second@{#2}\xdef\last@{#3}% \ifx\first@\ampers@nd% + \ifx\exp@rt@chimera\y@% + \xdef\chimera@stack{\chimera@stack @}% + \expandafter\get@chimera@res@num\chimera@stack% + \ifx\chimera@res@num\ampers@nd% + \else% + \write@chimera@data% + \fi% + \xdef\chimera@label@subfamily{}% + \xdef\chimera@label@remaining{}% + \xdef\chimera@subfamily@col@red{0}% + \xdef\chimera@subfamily@col@blue{0}% + \xdef\chimera@subfamily@col@yellow{0}% + \xdef\chimera@subfamily@col@black{0}% + \xdef\chimera@subfamily@col@white{0}% + \xdef\chimera@remaining@col@red{0}% + \xdef\chimera@remaining@col@blue{0}% + \xdef\chimera@remaining@col@yellow{0}% + \xdef\chimera@remaining@col@black{0}% + \xdef\chimera@remaining@col@white{0}% + \xdef\chimera@labelOne@set{n}% + \xdef\chimera@labelTwo@set{n}% + \xdef\chimera@labelThree@set{n}% + \xdef\chimera@label@remainingOne@set{n}% + \xdef\chimera@label@remainingTwo@set{n}% + \xdef\chimera@label@remainingThree@set{n}% + \fi% \ifx\clear@logo\n@% \ifx\hide@sig\n@% \expandafter\firstchar@get\sublogo@sig% @@ -12892,12 +13465,10 @@ \fi% \fi% \temp@count=0% + \temp@@count=0% \kern\box@width% \advance\outerloopcount by 1 % \else% - \ifnum#2=1% - \temp@count=0% - \else% \if\seq@type N% \loopcount=\second@% \multiply\loopcount by 2% @@ -12933,7 +13504,7 @@ \fi\fi\fi\fi% \xdef\third@{\fl@g\temp@}% \ifnum\temp@count<0 % - \ifnum\second@<0 \else\temp@count=0 \fi% + \ifnum\second@<0 \else\temp@@count=-\temp@count\relax\temp@count=0 \fi% \fi% \ifnum\temp@count>0 % \loopcount=\temp@count \xdef\fl@g{}% @@ -12960,7 +13531,64 @@ \kern-\box@width% \fi% \advance\temp@count by \second@% - \fi% + \xdef\temp@{\the\temp@count}% + \ifx\exp@rt@chimera\y@% + \xdef\temp@@{\csname chimera@col@\first@\endcsname}% + \ifnum\second@<0 % + \xdef\temp@@@{\csname chimera@remaining@col@\temp@@\endcsname}% + \temp@count=\temp@@@% + \advance\temp@count by \second@% + \expandafter\xdef\csname chimera@remaining@col@\temp@@\endcsname{\the\temp@count}% + \ifnum\second@<\label@threshold@lowerremainingIOOO% + \ifnum\second@<-999% + \ifx\chimera@label@remainingOne@set\n@% + \xdef\chimera@label@remainingOne@set{y}% + \xdef\chimera@label@remaining{.\chimera@label@remaining}% + \fi% + \fi% + \ifnum\second@<-1999% + \ifx\chimera@label@remainingTwo@set\n@% + \xdef\chimera@label@remainingTwo@set{y}% + \xdef\chimera@label@remaining{:\chimera@label@remaining}% + \fi% + \fi% + \ifnum\second@<-2999% + \ifx\chimera@label@remainingThree@set\n@% + \xdef\chimera@label@remainingThree@set{y}% + \xdef\chimera@label@remaining{>\chimera@label@remaining}% + \fi% + \fi% + \xdef\chimera@label@remaining{\first@\chimera@label@remaining}% + \fi% + \else% + \xdef\temp@@@{\csname chimera@subfamily@col@\temp@@\endcsname}% + \temp@count=\temp@@@% + \advance\temp@count by \second@% + \expandafter\xdef\csname chimera@subfamily@col@\temp@@\endcsname{\the\temp@count}% + \ifnum\second@>\label@threshold@lowerIOOO% + \ifnum\second@>999% + \ifx\chimera@labelOne@set\n@% + \xdef\chimera@labelOne@set{y}% + \xdef\chimera@label@subfamily{.\chimera@label@subfamily}% + \fi% + \fi% + \ifnum\second@>1999% + \ifx\chimera@labelTwo@set\n@% + \xdef\chimera@labelTwo@set{y}% + \xdef\chimera@label@subfamily{:\chimera@label@subfamily}% + \fi% + \fi% + \ifnum\second@>2999% + \ifx\chimera@labelThree@set\n@% + \xdef\chimera@labelThree@set{y}% + \xdef\chimera@label@subfamily{>\chimera@label@subfamily}% + \fi% + \fi% + \xdef\chimera@label@subfamily{\first@\chimera@label@subfamily}% + \fi% + \fi% + \fi% + \temp@count=\temp@% \fi% \xdef\temp@{\last@.}% \ifx\temp@\d@t% @@ -13470,7 +14098,7 @@ \vspace{-\box@height}% \vspace{\b@r@stretch\box@height}% \fi% - \setlength{\bar@length}{0pt}%%%%%%%%%%%%%%%%%%%%%%% + \setlength{\bar@length}{0pt}% \put@feature% \temp@@count=\b@feature@count% \advance\temp@@count by 1% @@ -13626,10 +14254,10 @@ \fi\fi \else \ifnum\code@num=6 - \xdef\second@{\second@\#} + \xdef\second@{\second@\#} \else \ifnum\code@num=14 - \xdef\second@{\second@\%} + \xdef\second@{\second@\%} \else \xdef\second@{\second@\noexpand\string\first@} \fi\fi @@ -14223,6 +14851,7 @@ \fi \ifshow@sublogo \closein\sublogofile \fi \ifx\exp@rt\y@ \closeout\exp@rtfile \fi + \ifx\exp@rt@chimera\y@ \closeout\exp@rt@chimerafile \fi% \closein\alignfile \message{)} } @@ -14645,6 +15274,14 @@ \xdef\thresh@ld@{\the\loopcount} \loopcount = \all@thresh@ld \multiply\loopcount by \seq@count \divide\loopcount by 100 \xdef\all@thresh@ld@{\the\loopcount} + \if\exp@rt@chimera\y@% + \ifshow@logo% + \init@chimera@file% + \else% + \ifshow@sublogo% + \init@chimera@file% + \fi\fi% + \fi% \bgroup \ifx\out@put\y@\bigskip\fi \iffuncmode \show@consfalse \fi @@ -14802,6 +15439,32 @@ \expandafter\xdef\csname group@num1\endcsname{0} \expandafter\xdef\csname group@num2\endcsname{0} \xdef\exp@rt@num{0} \xdef\exp@rt{n} +\xdef\exp@rt@chimera@num{1} \xdef\exp@rt@chimera{n} \xdef\chimera@stack{} +\xdef\chimerab@llSc@le{1.0} +\memelabelcutoff{0.1} +\xdef\chimera@labelOne@set{n} +\xdef\chimera@labelTwo@set{n} +\xdef\chimera@labelThree@set{n} +\xdef\chimera@labelOne@remaining@set{n} +\xdef\chimera@labelTwo@remaining@set{n} +\xdef\chimera@labelThree@remaining@set{n} +\xdef\chimera@xdist@nce{0} \xdef\chimera@ydist@nce{40} \xdef\chimera@zdist@nce{0} +\xdef\chimerach@in{} \xdef\chimera@seqnum{0} +\xdef\chimera@label@subfamily{} \xdef\chimera@label@remaining{} +\memeStandardcolors +\xdef\chimera@subfamily@col@red{0}% +\xdef\chimera@subfamily@col@blue{0}% +\xdef\chimera@subfamily@col@yellow{0}% +\xdef\chimera@subfamily@col@black{0}% +\xdef\chimera@subfamily@col@white{0}% +\xdef\chimera@subfamily@col@none{0}% +\xdef\chimera@remaining@col@red{0}% +\xdef\chimera@remaining@col@blue{0}% +\xdef\chimera@remaining@col@yellow{0}% +\xdef\chimera@remaining@col@black{0}% +\xdef\chimera@remaining@col@white{0}% +\xdef\chimera@remaining@col@none{0}% +\xdef\echo@filename{} \xdef\divref@{0} \xdef\all@thresh@ld{100} \all@shadefalse \hidefeaturenames \hidefeaturestylenames -- cgit v1.2.3