File: hybond_style.c

package info (click to toggle)
garlic 1.6-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 4,516 kB
  • sloc: ansic: 52,465; makefile: 2,254
file content (77 lines) | stat: -rw-r--r-- 1,792 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
/* Copyright (C) 2000-2002 Damir Zucic */

/*=============================================================================

				hybond_style.c

Purpose:
	Change drawing style for hydrogen bonds.

Input:
	(1) Pointer to MolComplexS structure.
	(2) Bond drawing style index.

Output:
	(1) Bond drawing style changed for every hydrogen bond in a given
	    complex.
	(2) Return value.

Return value:
	(1) Positive if the given complex contains at least one atom.
	(2) Zero otherwise.

========includes:============================================================*/

#include <stdio.h>

#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xos.h>
#include <X11/Xatom.h>

#include "defines.h"
#include "typedefs.h"

/*======change hydrogen bond drawing style:==================================*/

int ChangeHybondStyle_ (MolComplexS *curr_mol_complexSP, int styleI)
{
size_t		atomsN, atomI;
AtomS		*curr_atomSP;
int		bondsN, bondI;
TrueBondS	*curr_bondSP;

/* Prepare and check the number of atoms in this complex: */
atomsN = curr_mol_complexSP->atomsN;
if (atomsN == 0) return 0;

/* Check every atom: */
for (atomI = 0; atomI < atomsN; atomI++)
	{
	/* Pointer to this atom: */
	curr_atomSP = curr_mol_complexSP->atomSP + atomI;

	/* The number of bonds: */
	bondsN = curr_atomSP->bondsN;

	/* Check every bond: */
	for (bondI = 0; bondI < bondsN; bondI++)
		{
		/* Pointer to the structure with data about current bond: */
		curr_bondSP = curr_atomSP->true_bondSA + bondI;

		/* If the current bond is not hydrogen bond, skip it: */
		if (curr_bondSP->bond_typeI != 0) continue;

		/* Change the bond drawing style: */
		curr_bondSP->bond_styleI = styleI;
		}
	}

/* Return positive value: */
return 1;
}

/*===========================================================================*/