/Virgo/FeldPNe/cPNe/imcopy.sm


imcopy
    #sm script to run iraf commands (IN IRAF)
    
    define imag FCJ.fits
    define rang 20
    
    data $imag.pix.PNeFAKE.dat
    read { x 1 y 2 }
    
    !rm commands.cl
    
    do i = 0, $(dimen(x)-1) {
        write commands.cl imcopy $imag[$(x[$i]-$rang):$(x[$i]+$rang),$(y[$i]-$rang):$(y[$i]+$rang)] $imag.PNeFAKE.$i.fits
    }