Programs for protein topology?

[Marcel TURCOTTE]

"Lee, Ji Hyun" <newera at plaza.snu.ac.kr> writes:

> Where can I get programs for protein topology, that is a programm which
> can make a map(or a picture) of the linkages of protein secondary
> structural elements(alpha helix, beta sheet, loop, turn, etc.). Ones for
> either PC or UNIX(IRIX5.3) are good to me.

There's a program, called TOPS by Tom Flores, for generating protein
topology cartoons, where secondary structure elements are represented by
squares and triangles on the 2D plane along with their relationships.

	Dr T. P. Flores
	Mathematical Biology
	The National Institute for Medical Research
	The Ridgeway
	Mill Hill
	London
	NW7 1AA. UK.

	t-flores at nimr.mrc.ac.uk

I have appended to this message a PostScript file output of the
program.

Hope this might help,
Marcel
-- 
Marcel Turcotte                        University of Florida
Chem Res Bldg #336                     Department of Chemistry
Phone +1 (352) 846-2839                PO Box 117200 (M.B. 238)
Faxes +1 (352) 846-2580/2095           Gainesville, FL 32611-7200, USA

----------------------------------------------------------------------
%!PS-Adobe-3.0 EPSF-3.0
%%Creator: Tk Canvas Widget
%%For: Unknown
%%Title: Window .f2.f2.f1.f1.c1
%%CreationDate: Fri Nov  4 11:38:29 1994
%%BoundingBox: 92 294 520 498
%%Pages: 1
%%DocumentData: Clean7Bit
%%Orientation: Portrait
%%DocumentNeededResources: font Times-Bold
%%EndComments

% This file contains the standard Postscript prolog used when
% generating Postscript from canvas widgets.
%
% $Header: /user6/ouster/wish/library/RCS/prolog.ps,v 1.6 93/04/01 14:03:52 ouster Exp $ SPRITE (Berkeley);

%%BeginProlog
50 dict begin

% The definitions below just define all of the variables used in
% any of the procedures here.  This is needed for obscure reasons
% explained on p. 716 of the Postscript manual (Section H.2.7,
% "Initializing Variables," in the section on Encapsulated Postscript).

/baseline 0 def
/stipimage 0 def
/height 0 def
/justify 0 def
/maxwidth 0 def
/spacing 0 def
/stipple 0 def
/strings 0 def
/xoffset 0 def
/yoffset 0 def
/tmpstip null def
/encoding {ISOLatin1Encoding} def

% Override setfont to automatically encode the font in the style defined by 
% by 'encoding' (ISO Latin1 by default).

systemdict /encodefont known {
    /realsetfont /setfont load def
    /setfont {
	encoding encodefont realsetfont
    } def
} if

% desiredSize EvenPixels closestSize
%
% The procedure below is used for stippling.  Given the optimal size
% of a dot in a stipple pattern in the current user coordinate system,
% compute the closest size that is an exact multiple of the device's
% pixel size.  This allows stipple patterns to be displayed without
% aliasing effects.

/EvenPixels {
    % Compute exact number of device pixels per stipple dot.
    dup 0 matrix currentmatrix dtransform
    dup mul exch dup mul add sqrt

    % Round to an integer, make sure the number is at least 1, and compute
    % user coord distance corresponding to this.
    dup round dup 1 lt {pop 1} if
    exch div mul
} bind def

% width height string filled StippleFill --
%
% Given a path and other graphics information already set up, this
% procedure will fill the current path in a stippled fashion.  "String"
% contains a proper image description of the stipple pattern and
% "width" and "height" give its dimensions.  If "filled" is true then
% it means that the area to be stippled is gotten by filling the
% current path (e.g. the interior of a polygon); if it's false, the
% area is gotten by stroking the current path (e.g. a wide line).
% Each stipple dot is assumed to be about one unit across in the
% current user coordinate system.

/StippleFill {
    % Turn the path into a clip region that we can then cover with
    % lots of images corresponding to the stipple pattern.  Warning:
    % some Postscript interpreters get errors during strokepath for
    % dashed lines.  If this happens, turn off dashes and try again.

    1 index /tmpstip exch def %% Works around NeWSprint bug

    gsave
    {eoclip}
    {{strokepath} stopped {grestore gsave [] 0 setdash strokepath} if clip}
    ifelse

    % Change the scaling so that one user unit in user coordinates
    % corresponds to the size of one stipple dot.
    1 EvenPixels dup scale

    % Compute the bounding box occupied by the path (which is now
    % the clipping region), and round the lower coordinates down
    % to the nearest starting point for the stipple pattern.

    pathbbox
    4 2 roll
    5 index div cvi 5 index mul 4 1 roll
    6 index div cvi 6 index mul 3 2 roll

    % Stack now: width height string y1 y2 x1 x2
    % Below is a doubly-nested for loop to iterate across this area
    % in units of the stipple pattern size, going up columns then
    % across rows, blasting out a stipple-pattern-sized rectangle at
    % each position

    6 index exch {
	2 index 5 index 3 index {
	    % Stack now: width height string y1 y2 x y

	    gsave
	    1 index exch translate
	    5 index 5 index true matrix tmpstip imagemask
	    grestore
	} for
	pop
    } for
    pop pop pop pop pop
    grestore
    newpath
} bind def

% -- AdjustColor --
% Given a color value already set for output by the caller, adjusts
% that value to a grayscale or mono value if requested by the CL
% variable.

/AdjustColor {
    CL 2 lt {
	currentgray
	CL 0 eq {
	    .5 lt {0} {1} ifelse
	} if
	setgray
    } if
} bind def

% x y strings spacing xoffset yoffset justify stipple stipimage DrawText --
% This procedure does all of the real work of drawing text.  The
% color and font must already have been set by the caller, and the
% following arguments must be on the stack:
%
% x, y -	Coordinates at which to draw text.
% strings -	An array of strings, one for each line of the text item,
%		in order from top to bottom.
% spacing -	Spacing between lines.
% xoffset -	Horizontal offset for text bbox relative to x and y: 0 for
%		nw/w/sw anchor, -0.5 for n/center/s, and -1.0 for ne/e/se.
% yoffset -	Vertical offset for text bbox relative to x and y: 0 for
%		nw/n/ne anchor, +0.5 for w/center/e, and +1.0 for sw/s/se.
% justify -	0 for left justification, 0.5 for center, 1 for right justify.
% stipple -	Boolean value indicating whether or not text is to be
%		drawn in stippled fashion.
% stipimage -	Image for stippling, if stipple is True.
%
% Also, when this procedure is invoked, the color and font must already
% have been set for the text.

/DrawText {
    /stipimage exch def
    /stipple exch def
    /justify exch def
    /yoffset exch def
    /xoffset exch def
    /spacing exch def
    /strings exch def

    % First scan through all of the text to find the widest line.

    /maxwidth 0 def
    strings {
	stringwidth pop
	dup maxwidth gt {/maxwidth exch def} {pop} ifelse
	newpath
    } forall

    % Compute the baseline offset and the actual font height.

    0 0 moveto (TXygqPZ) false charpath
    pathbbox dup /baseline exch def
    exch pop exch sub /height exch def pop
    newpath

    % Translate coordinates first so that the origin is at the upper-left
    % corner of the text's bounding box. Remember that x and y for
    % positioning are still on the stack.

    translate
    maxwidth xoffset mul
    strings length 1 sub spacing mul height add yoffset mul translate

    % Now use the baseline and justification information to translate so
    % that the origin is at the baseline and positioning point for the
    % first line of text.

    justify maxwidth mul baseline neg translate

    % Iterate over each of the lines to output it.  For each line,
    % compute its width again so it can be properly justified, then
    % display it.

    strings {
	dup stringwidth pop
	justify neg mul 0 moveto
	show
	0 spacing neg translate
    } forall
} bind def

%%EndProlog
%%BeginSetup
/CL 0 def
%%IncludeResource: font Times-Bold
%%EndSetup

%%Page: 1 1
save
306.0 396.0 translate
0.6921 0.6921 scale
-487 -146 translate
179 293 moveto 795 293 lineto 795 0 lineto 179 0 lineto closepath clip newpath
gsave
500 230 moveto
550 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
550 251.651 moveto
531.25 219.175 lineto
568.75 219.175 lineto
550 251.651 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
550 251.651 moveto
531.25 219.175 lineto
568.75 219.175 lineto
550 251.651 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
300 230 moveto
450 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
450 251.651 moveto
431.25 219.175 lineto
468.75 219.175 lineto
450 251.651 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
450 251.651 moveto
431.25 219.175 lineto
468.75 219.175 lineto
450 251.651 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
400 230 moveto
350 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
350 251.651 moveto
331.25 219.175 lineto
368.75 219.175 lineto
350 251.651 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
350 251.651 moveto
331.25 219.175 lineto
368.75 219.175 lineto
350 251.651 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
350 230 moveto
300 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
matrix currentmatrix
300 230 translate 12 12 scale 1 0 moveto 0 0 1 0 360 arc
setmatrix
0.527 0.805 0.918 setrgbcolor AdjustColor
fill
matrix currentmatrix
300 230 translate 12 12 scale 1 0 moveto 0 0 1 0 360 arc
setmatrix
1 setlinewidth 0 setlinejoin 2 setlinecap
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
300 230 moveto
250 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
250 251.651 moveto
231.25 219.175 lineto
268.75 219.175 lineto
250 251.651 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
250 251.651 moveto
231.25 219.175 lineto
268.75 219.175 lineto
250 251.651 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
200 230 moveto
250 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
matrix currentmatrix
250 230 translate 12 12 scale 1 0 moveto 0 0 1 0 360 arc
setmatrix
0.527 0.805 0.918 setrgbcolor AdjustColor
fill
matrix currentmatrix
250 230 translate 12 12 scale 1 0 moveto 0 0 1 0 360 arc
setmatrix
1 setlinewidth 0 setlinejoin 2 setlinecap
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
250 230 moveto
250 280 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
240 290 moveto 20 0 rlineto 0 -20 rlineto -20 0 rlineto closepath
0.527 0.805 0.918 setrgbcolor AdjustColor
fill
240 290 moveto 20 0 rlineto 0 -20 rlineto -20 0 rlineto closepath
1 setlinewidth 0 setlinejoin 2 setlinecap
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
/Times-Bold findfont 18 scalefont setfont
0.000 0.000 0.000 setrgbcolor AdjustColor
250 280 [
    (C)
] 26 -0.5 0.5 0 () false DrawText
grestore
gsave
200 208.349 moveto
181.25 240.825 lineto
218.75 240.825 lineto
200 208.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
200 208.349 moveto
181.25 240.825 lineto
218.75 240.825 lineto
200 208.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
250 230 moveto
200 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
400 208.349 moveto
381.25 240.825 lineto
418.75 240.825 lineto
400 208.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
400 208.349 moveto
381.25 240.825 lineto
418.75 240.825 lineto
400 208.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
450 230 moveto
400 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
300 208.349 moveto
281.25 240.825 lineto
318.75 240.825 lineto
300 208.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
300 208.349 moveto
281.25 240.825 lineto
318.75 240.825 lineto
300 208.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
650 230 moveto
300 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
matrix currentmatrix
650 230 translate 12 12 scale 1 0 moveto 0 0 1 0 360 arc
setmatrix
0.527 0.805 0.918 setrgbcolor AdjustColor
fill
matrix currentmatrix
650 230 translate 12 12 scale 1 0 moveto 0 0 1 0 360 arc
setmatrix
1 setlinewidth 0 setlinejoin 2 setlinecap
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
550 230 moveto
650 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
500 208.349 moveto
481.25 240.825 lineto
518.75 240.825 lineto
500 208.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
500 208.349 moveto
481.25 240.825 lineto
518.75 240.825 lineto
500 208.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
700 144 moveto
500 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
700 122.349 moveto
681.25 154.825 lineto
718.75 154.825 lineto
700 122.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
700 122.349 moveto
681.25 154.825 lineto
718.75 154.825 lineto
700 122.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
675 187 moveto
700 144 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
675 165.349 moveto
656.25 197.825 lineto
693.75 197.825 lineto
675 165.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
675 165.349 moveto
656.25 197.825 lineto
693.75 197.825 lineto
675 165.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
701 230 moveto
675 187 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
701 208.349 moveto
682.25 240.825 lineto
719.75 240.825 lineto
701 208.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
701 208.349 moveto
682.25 240.825 lineto
719.75 240.825 lineto
701 208.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
750 144 moveto
701 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
750 122.349 moveto
731.25 154.825 lineto
768.75 154.825 lineto
750 122.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
750 122.349 moveto
731.25 154.825 lineto
768.75 154.825 lineto
750 122.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
774 187 moveto
750 144 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
774 165.349 moveto
755.25 197.825 lineto
792.75 197.825 lineto
774 165.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
774 165.349 moveto
755.25 197.825 lineto
792.75 197.825 lineto
774 165.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
750 230 moveto
774 187 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
750 208.349 moveto
731.25 240.825 lineto
768.75 240.825 lineto
750 208.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
750 208.349 moveto
731.25 240.825 lineto
768.75 240.825 lineto
750 208.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
600 230 moveto
750 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
600 208.349 moveto
581.25 240.825 lineto
618.75 240.825 lineto
600 208.349 lineto
0.527 0.805 0.918 setrgbcolor AdjustColor
eofill
grestore
gsave
600 208.349 moveto
581.25 240.825 lineto
618.75 240.825 lineto
600 208.349 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
600 280 moveto
600 230 lineto
1 setlinewidth
0 setlinecap
1 setlinejoin
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
590 290 moveto 20 0 rlineto 0 -20 rlineto -20 0 rlineto closepath
0.527 0.805 0.918 setrgbcolor AdjustColor
fill
590 290 moveto 20 0 rlineto 0 -20 rlineto -20 0 rlineto closepath
1 setlinewidth 0 setlinejoin 2 setlinecap
0.000 0.000 0.000 setrgbcolor AdjustColor
stroke
grestore
gsave
/Times-Bold findfont 18 scalefont setfont
0.000 0.000 0.000 setrgbcolor AdjustColor
600 280 [
    (N)
] 26 -0.5 0.5 0 () false DrawText
grestore
gsave
/Times-Bold findfont 18 scalefont setfont
0.000 0.000 0.000 setrgbcolor AdjustColor
492 13 [
    (Pancreatic Trypsin Inhibitor)
] 26 -0.5 0.5 0.5 () false DrawText
grestore
restore showpage

%%Trailer
end
%%EOF