docs: def as_imagecoord(self, header):
          """New shape list in image coordinates.
  
          Parameters
          ----------
          header : `~astropy.io.fits.Header`
              FITS header
  
          Returns
          -------
          shape_list : `ShapeList`
              New shape list, with coordinates of the each shape
              converted to the image coordinate using the given header
              information.
          """
  
          comment_list = self._comment_list
          if comment_list is None:
              comment_list = cycle([None])
  
          r = RegionParser.sky_to_image(zip(self, comment_list),
                                        header)
          shape_list, comment_list = zip(*list(r))
          return ShapeList(shape_list, comment_list=comment_list)