function pose
clear h,h=gcf;
clear pos,
pos=get(h,'position');

set(h,'position',[688    100   1203    860])
