32 |
|
setident4(retmat); |
33 |
|
*retsca = 1.0; |
34 |
|
|
35 |
+ |
icnt = 1; |
36 |
|
setident4(xfmat); |
37 |
|
xfsca = 1.0; |
38 |
|
|
109 |
|
|
110 |
|
case 'i': /* iterate */ |
111 |
|
checkarg(2,1); |
111 |
– |
icnt = atoi(av[++i]); |
112 |
|
while (icnt-- > 0) { |
113 |
|
multmat4(retmat, retmat, xfmat); |
114 |
|
*retsca *= xfsca; |
115 |
|
} |
116 |
+ |
icnt = atoi(av[++i]); |
117 |
|
setident4(xfmat); |
118 |
|
xfsca = 1.0; |
119 |
< |
break; |
119 |
> |
continue; |
120 |
|
|
121 |
|
default: |
122 |
|
return(i); |
125 |
|
multmat4(xfmat, xfmat, m4); |
126 |
|
} |
127 |
|
done: |
128 |
< |
multmat4(retmat, retmat, xfmat); |
129 |
< |
*retsca *= xfsca; |
128 |
> |
while (icnt-- > 0) { |
129 |
> |
multmat4(retmat, retmat, xfmat); |
130 |
> |
*retsca *= xfsca; |
131 |
> |
} |
132 |
|
return(i); |
133 |
|
} |
134 |
|
|
149 |
|
setident4(retmat); |
150 |
|
*retsca = 1.0; |
151 |
|
|
152 |
+ |
icnt = 1; |
153 |
|
setident4(xfmat); |
154 |
|
xfsca = 1.0; |
155 |
|
|
226 |
|
|
227 |
|
case 'i': /* iterate */ |
228 |
|
checkarg(2,1); |
225 |
– |
icnt = atoi(av[++i]); |
229 |
|
while (icnt-- > 0) { |
230 |
|
multmat4(retmat, xfmat, retmat); |
231 |
|
*retsca *= xfsca; |
232 |
|
} |
233 |
+ |
icnt = atoi(av[++i]); |
234 |
|
setident4(xfmat); |
235 |
|
xfsca = 1.0; |
236 |
|
break; |
242 |
|
multmat4(xfmat, m4, xfmat); /* left multiply */ |
243 |
|
} |
244 |
|
done: |
245 |
< |
multmat4(retmat, xfmat, retmat); |
246 |
< |
*retsca *= xfsca; |
245 |
> |
while (icnt-- > 0) { |
246 |
> |
multmat4(retmat, xfmat, retmat); |
247 |
> |
*retsca *= xfsca; |
248 |
> |
} |
249 |
|
return(i); |
250 |
|
} |
251 |
|
#endif |