mkpattern refimage ncols=8000 nlines=8000
ccsetwcs refimage "" xref=4000 yref=4000 xmag=1.0 ymag=1.0 lngref=00:42:44 latref=+41:16:07
files m31w-*%.fts%w% > outlist
files m31w-*%.fts%% > imlist
wregister @imlist refimage @outlist  boundary=constant constant=1
imcombine @outlist mosaic lthreshold=2 combine=average