void hout4 (gaint cmd, gadouble xl, gadouble xh, gadouble yl, gadouble yh) {
gaint vv;
if (bflag||herr) return;
*hpnt = cmd;
hpnt++;
vv = (gaint)(xl*1000.0+0.5);
if (vv<0) vv=0;
if (vv>32760) vv=32760;
*hpnt = vv;
hpnt++;
vv = (gaint)(xh*1000.0+0.5);
if (vv<0) vv=0;
if (vv>32760) vv=32760;
*hpnt = vv;
hpnt++;
vv = (gaint)(yl*1000.0+0.5);
if (vv<0) vv=0;
if (vv>32760) vv=32760;
*hpnt = vv;
hpnt++;
vv = (gaint)(yh*1000.0+0.5);
if (vv<0) vv=0;
if (vv>32760) vv=32760;
*hpnt = vv;
hpnt++;
if (hpnt>hend) hfull();
}
void hout1 (gaint cmd, gaint opt) {
if (bflag||herr) return;
*hpnt = cmd;
hpnt++;
*hpnt = opt;
hpnt++;
if (hpnt>hend) hfull();
}
void hout2i (gaint cmd, gaint i1, gaint i2) {
if (bflag||herr) return;
*hpnt = cmd;
hpnt++;
*hpnt = i1;
hpnt++;
*hpnt = i2;
hpnt++;
if (hpnt>hend) hfull();
}
void hout4i (gaint cmd, gaint i1, gaint i2, gaint i3, gaint i4) {
if (bflag||herr) return;
*hpnt = cmd;
hpnt++;
*hpnt = i1;
hpnt++;
*hpnt = i2;
hpnt++;
*hpnt = i3;
hpnt++;
*hpnt = i4;
hpnt++;
if (hpnt>hend) hfull();
}
bp_long hindex(register no pred, register no fun, bp_long *index)
{
register no last,i=HKEY(pred,fun);
if(HFOUND()) {*index=i; return FOUND;}
if(!HUSED()) {*index=i; return FREE;}
HLIMIT(last);
do
{
HASH_NEXT();
if(HFOUND()) {*index=i; return FOUND;}
}
while(HNOTFULL() && HUSED());
if(!HNOTFULL()) {hfull("culprit->hindex"); return FULL;}
else {*index=i; return FREE;}
}
void hout2 (gaint cmd, gadouble x, gadouble y) {
gaint xx,yy;
if (bflag||herr) return;
*hpnt = cmd;
hpnt++;
xx = (gaint)(x*1000.0+0.5);
if (xx<0) xx=0;
if (xx>32760) xx=32760;
*hpnt = xx;
hpnt++;
yy = (gaint)(y*1000.0+0.5);
if (yy<0) yy=0;
if (yy>32760) yy=32760;
*hpnt = yy;
hpnt++;
if (hpnt>hend) hfull();
}
void hout0 (gaint cmd) {
if (bflag||herr) return;
*hpnt = cmd;
hpnt++;
if (hpnt>hend) hfull();
}
