extern fint gdi_sequence_c(fint *,fint *,fint *);