i
= topfix() - thread
.iorg
;
register struct item
*p
, *q
;
* scan identities - ets/jrl 5/76
error("reduce identity");
for(i
= 1; i
< idx
.dimk
; i
++) {
if ((i
= p
->dim
[0]) == 0) return;
x
= scalex
*(*dp
++ - origx
);
y
= 454-(scaley
*(*dp
++ - origy
));
error("plot off screen");