extern fint gdi_setygrid_c(fint *,fchar,fint *);