/*	put128.c
**
**  Copyright (c) 1989,1993 by WIZ WORX (DAHarrod) Concord, MA
*/

#include "igespeek.h"
#include "ent128.h"

PNTR put128(ent)
    ENTITY *ent;
{
ENT128 *data;
int n, a;

    data = (ENT128 *)ent->e_pdata;

    putintg(data->k1);
    putintg(data->k2);
    putintg(data->m1);
    putintg(data->m2);
    putintg(data->prop1);
    putintg(data->prop2);
    putintg(data->prop3);
    putintg(data->prop4);
    putintg(data->prop5);
    n = data->k1.ival - data->m1.ival + 1;
    a = n + 2*(data->m1.ival);
    putncoef(data->s, a+1);
    n = data->k2.ival - data->m2.ival + 1;
    a = n + 2*(data->m2.ival);
    putncoef(data->t, a+1);
    a = (data->k1.ival+1)*(data->k2.ival+1);
    putncoef(data->w, a);
    putnvctr(data->pnt, a);
    putcoef(data->u.xy[0]);
    putcoef(data->u.xy[1]);
    putcoef(data->v.xy[0]);
    putcoef(data->v.xy[1]);
}