+ec *ec_projin(ec_curve *c, ec *d, const ec *p)
+{
+ if (EC_ATINF(p))
+ EC_SETINF(d);
+ else {
+ field *f = c->f;
+ d->x = F_IN(f, d->x, p->x);
+ d->y = F_IN(f, d->y, p->y);
+ mp_drop(d->z); d->z = MP_COPY(f->one);
+ }
+ return (d);
+}
+
+ec *ec_projout(ec_curve *c, ec *d, const ec *p)