1 |
< |
/* Copyright (c) 1986 Regents of the University of California */ |
1 |
> |
/* Copyright (c) 1991 Regents of the University of California */ |
2 |
|
|
3 |
|
#ifndef lint |
4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
68 |
|
} else { |
69 |
|
if (o->oargs.nfargs != 8) |
70 |
|
goto argcerr; |
71 |
< |
if (co->ca[6] < 0.0 || co->ca[7] < 0.0) |
71 |
> |
if (co->ca[6] < -FTINY || co->ca[7] < -FTINY) |
72 |
|
goto raderr; |
73 |
+ |
if (co->ca[6] < 0.0) co->ca[6] = 0.0; |
74 |
+ |
if (co->ca[7] < 0.0) co->ca[7] = 0.0; |
75 |
|
if (fabs(co->ca[7] - co->ca[6]) <= FTINY) |
76 |
|
goto raderr; |
77 |
|
co->r0 = 6; |
106 |
|
co->sl = co->al; |
107 |
|
} |
108 |
|
co->tm = NULL; |
109 |
< |
(CONE *)o->os = co; |
109 |
> |
o->os = (char *)co; |
110 |
|
} |
111 |
|
if (getxf && co->tm == NULL) |
112 |
|
conexform(co); |