XProfan

savePng(string s,long x,y,xx,yy){

    savebmp s+".$temp.bmp",x,y,xx,yy
    long h=create("hPic",-1,s+".$temp.bmp")
    SavePic s,h
    deleteobject h
    h=assign(s+".$temp.bmp")
    erase h
    assign h,""

}