procedure y4mnew (img)
        string img {prompt="image"}
begin
	string s1
#Get parameter
	s1 = img
        delete("T"//s1)
#Make it real:
        imarith(s1//"[1:4064,1:4064]", "*", 0.0, "T"//s1)
        imcopy("TA"//s1,"T"//s1//"[1:2032,1:2032]")
        imcopy("TB"//s1,"T"//s1//"[2033:4064,1:2032]")
        imcopy("TC"//s1,"T"//s1//"[1:2032,2033:4064]")
        imcopy("TD"//s1,"T"//s1//"[2033:4064,2033:4064]")
        imdelete("TA"//s1)
        imdelete("TB"//s1)
        imdelete("TC"//s1)
        imdelete("TD"//s1)
end