| 1 | < | /* Copyright (c) 1990 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"; | 
| 23 |  | int  ac; | 
| 24 |  | char  *av[]; | 
| 25 |  | { | 
| 26 | – | double  atof(), sin(), cos(); | 
| 26 |  | MAT4  xfmat, m4; | 
| 27 |  | double  xfsca, dtmp; | 
| 28 |  | int  i, icnt; | 
| 68 |  | m4[1][0] = -(m4[0][1] = sin(dtmp)); | 
| 69 |  | break; | 
| 70 |  | default: | 
| 71 | < | return(i); | 
| 71 | > | goto done; | 
| 72 |  | } | 
| 73 |  | break; | 
| 74 |  |  | 
| 101 |  | m4[2][2] = -1.0; | 
| 102 |  | break; | 
| 103 |  | default: | 
| 104 | < | return(i); | 
| 104 | > | goto done; | 
| 105 |  | } | 
| 106 |  | break; | 
| 107 |  |  | 
| 117 |  | continue; | 
| 118 |  |  | 
| 119 |  | default: | 
| 120 | < | return(i); | 
| 120 | > | goto done; | 
| 121 |  |  | 
| 122 |  | } | 
| 123 |  | multmat4(xfmat, xfmat, m4); | 
| 137 |  | int  ac; | 
| 138 |  | char  *av[]; | 
| 139 |  | { | 
| 141 | – | double  atof(), sin(), cos(); | 
| 140 |  | MAT4  xfmat, m4; | 
| 141 |  | double  xfsca, dtmp; | 
| 142 |  | int  i, icnt; | 
| 182 |  | m4[1][0] = -(m4[0][1] = sin(dtmp)); | 
| 183 |  | break; | 
| 184 |  | default: | 
| 185 | < | return(i); | 
| 185 | > | goto done; | 
| 186 |  | } | 
| 187 |  | break; | 
| 188 |  |  | 
| 215 |  | m4[2][2] = -1.0; | 
| 216 |  | break; | 
| 217 |  | default: | 
| 218 | < | return(i); | 
| 218 | > | goto done; | 
| 219 |  | } | 
| 220 |  | break; | 
| 221 |  |  | 
| 231 |  | break; | 
| 232 |  |  | 
| 233 |  | default: | 
| 234 | < | return(i); | 
| 234 | > | goto done; | 
| 235 |  |  | 
| 236 |  | } | 
| 237 |  | multmat4(xfmat, m4, xfmat);     /* left multiply */ |