# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. include # IMGS1? -- Get a section from an apparently one dimensional image. pointer procedure imgs1i (im, x1, x2) pointer im int x1, x2 pointer imggsi(), imgl1i() begin if (x1 == 1 && x2 == IM_LEN(im,1)) return (imgl1i (im)) else return (imggsi (im, long(x1), long(x2), 1)) end