3 * This source code is part of
7 * GROningen MAchine for Chemical Simulations
10 * Written by David van der Spoel, Erik Lindahl, Berk Hess, and others.
11 * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
12 * Copyright (c) 2001-2004, The GROMACS development team,
13 * check out http://www.gromacs.org for more information.
15 * This program is free software; you can redistribute it and/or
16 * modify it under the terms of the GNU General Public License
17 * as published by the Free Software Foundation; either version 2
18 * of the License, or (at your option) any later version.
20 * If you want to redistribute modifications, please consider that
21 * scientific software is very special. Version control is crucial -
22 * bugs must be traceable. We will be happy to consider code for
23 * inclusion in the official distribution, but derived work must not
24 * be called official GROMACS. Details are found in the README & COPYING
25 * files - if they are missing, get the official version at www.gromacs.org.
27 * To help us fund GROMACS development, we humbly ask that you cite
28 * the papers on the package - you can find them in the top README file.
30 * For more info, check our website at http://www.gromacs.org
33 * Gyas ROwers Mature At Cryogenic Speed
53 static t_atomcolor ac[] = {
54 { "O", &LIGHTRED, { 1, 0, 0 } },
55 { "N", &LIGHTCYAN, { 0, 0, 1 } },
56 { "NA", &LIGHTGREY, { 0.6,0.6,0.6 } },
57 { "S", &YELLOW, { 1, 1, 0 } },
58 { "C", &LIGHTGREEN, { 0, 1, 0 } },
59 { "CL", &VIOLET, { 1, 0, 1 } },
60 { "F", &LIGHTGREY, { 0.6,0.6,0.6 } },
61 { "Z", &LIGHTGREY, { 0.6,0.6,0.6 } },
62 { "P", &LIGHTBLUE, { 0.4,0.4,1.0 } },
63 { "H", &WHITE, { 0.8,0.8,0.8 } }
67 int search_ac(const char *type)
69 int i,nb,mij,best,besti;
74 for(i=0; (i<NAC); i++) {
75 mij=min((int)strlen(type),(int)strlen(ac[i].tp));
76 for(nb=0; (nb<mij); nb++)
77 if (type[nb] != ac[i].tp[nb])
88 unsigned long Type2Color(const char *type)
97 t_rgb *Type2RGB(const char *type)
106 void DrawLegend(t_x11 *x11,t_windata *Win)
110 static const char *lab[NLAB] = { "C", "O", "H", "S", "N", "P" };
111 int i,i0,dh,dw,w,y,x1,x0;
115 XClearWindow(x11->disp, Win->self);
117 h_2=Win->height/(2.0*NLAB/COLS);
121 for (i=0; (i<NLAB); i++) {
123 x0=(i / (NLAB/COLS))*(Win->width/COLS)+AIR;
125 cind=Type2Color(lab[i]);
126 XSetForeground(x11->disp,x11->gc,cind);
128 XFillRectangle (x11->disp,Win->self,x11->gc,x0,y-dh,2*dw,2*dh);
129 XSetForeground(x11->disp,x11->gc,WHITE);
130 TextInRect(x11,Win->self,lab[i],x1,y-dh,w-x1,2*dh,
133 XSetForeground(x11->disp,x11->gc,x11->fg);
136 static bool LegWCallBack(t_x11 *x11,XEvent *event, Window w, void *data)
140 lw=(t_legendwin *)data;
141 switch(event->type) {
143 DrawLegend(x11,&lw->wd);
151 t_legendwin *init_legw(t_x11 *x11,Window Parent,
152 int x,int y,int width,int height,
153 unsigned long fg,unsigned long bg)
158 InitWin(&lw->wd,x,y,width,height,1,"Legend Window");
159 lw->wd.self=XCreateSimpleWindow(x11->disp,Parent,x,y,1,1,1,fg,bg);
160 x11->RegisterCallback(x11,lw->wd.self,Parent,LegWCallBack,lw);
161 x11->SetInputMask(x11,lw->wd.self,ExposureMask);
166 void map_legw(t_x11 *x11,t_legendwin *lw)
168 XMapWindow(x11->disp,lw->wd.self);
172 void done_legw(t_x11 *x11,t_legendwin *lw)
174 x11->UnRegisterCallback(x11,lw->wd.self);