274 |
|
if (mp == NULL) /* not in our list? */ |
275 |
|
return; |
276 |
|
|
277 |
< |
worldfunc(RCCONTEXT, r); /* else get bin number */ |
278 |
< |
if (mp->params != last_params) |
277 |
> |
worldfunc(RCCONTEXT, r); /* else set context */ |
278 |
> |
if ((mp->params != NULL) & (mp->params != last_params) && |
279 |
> |
(last_params == NULL || strcmp(mp->params, last_params))) |
280 |
|
set_eparams(last_params = (char *)mp->params); |
281 |
< |
if ((bval = evalue(mp->binv)) <= -.5) |
282 |
< |
return; /* silently ignore */ |
281 |
> |
if ((bval = evalue(mp->binv)) <= -.5) /* and get bin number */ |
282 |
> |
return; /* silently ignore negatives */ |
283 |
|
if ((bn = (int)(bval + .5)) >= mp->nbins) { |
284 |
|
error(WARNING, "bad bin number (ignored)"); |
285 |
|
return; |