| 1 |
< |
/* Copyright (c) 1991 Regents of the University of California */ |
| 1 |
> |
/* Copyright (c) 1992 Regents of the University of California */ |
| 2 |
|
|
| 3 |
|
#ifndef lint |
| 4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
| 78 |
|
if (errno) |
| 79 |
|
goto computerr; |
| 80 |
|
scalecolor(r->pcol, bval); |
| 81 |
< |
return; |
| 81 |
> |
return(0); |
| 82 |
|
computerr: |
| 83 |
|
objerror(m, WARNING, "compute error"); |
| 84 |
< |
return; |
| 84 |
> |
return(0); |
| 85 |
|
} |
| 86 |
|
|
| 87 |
|
|
| 117 |
|
col[i] = datavalue(dp, pt); |
| 118 |
|
} |
| 119 |
|
errno = 0; |
| 120 |
< |
setcolor(cval, funvalue(m->oargs.sarg[0], 3, col), |
| 121 |
< |
funvalue(m->oargs.sarg[1], 3, col), |
| 122 |
< |
funvalue(m->oargs.sarg[2], 3, col)); |
| 120 |
> |
for (i = 0; i < 3; i++) |
| 121 |
> |
if (fundefined(m->oargs.sarg[i]) < 3) |
| 122 |
> |
colval(cval,i) = funvalue(m->oargs.sarg[i], 1, col+i); |
| 123 |
> |
else |
| 124 |
> |
colval(cval,i) = funvalue(m->oargs.sarg[i], 3, col); |
| 125 |
|
if (errno) |
| 126 |
|
goto computerr; |
| 127 |
|
multcolor(r->pcol, cval); |
| 128 |
< |
return; |
| 128 |
> |
return(0); |
| 129 |
|
computerr: |
| 130 |
|
objerror(m, WARNING, "compute error"); |
| 131 |
< |
return; |
| 131 |
> |
return(0); |
| 132 |
|
} |
| 133 |
|
|
| 134 |
|
|
| 156 |
|
for (i = 0; i < 3; i++) |
| 157 |
|
col[i] = datavalue(dp+i, pt); |
| 158 |
|
errno = 0; |
| 159 |
< |
setcolor(cval, funvalue(m->oargs.sarg[0], 3, col), |
| 160 |
< |
funvalue(m->oargs.sarg[1], 3, col), |
| 161 |
< |
funvalue(m->oargs.sarg[2], 3, col)); |
| 159 |
> |
for (i = 0; i < 3; i++) |
| 160 |
> |
if (fundefined(m->oargs.sarg[i]) < 3) |
| 161 |
> |
colval(cval,i) = funvalue(m->oargs.sarg[i], 1, col+i); |
| 162 |
> |
else |
| 163 |
> |
colval(cval,i) = funvalue(m->oargs.sarg[i], 3, col); |
| 164 |
|
if (errno) |
| 165 |
|
goto computerr; |
| 166 |
|
multcolor(r->pcol, cval); |
| 167 |
< |
return; |
| 167 |
> |
return(0); |
| 168 |
|
|
| 169 |
|
computerr: |
| 170 |
|
objerror(m, WARNING, "compute error"); |
| 171 |
< |
return; |
| 171 |
> |
return(0); |
| 172 |
|
} |