% generate forward painted sequence and then reverse painted sequence

load parameters_pairwisem_5_3

P=pintegrate(p,244);

% reverse sequence
skip=-4
for k=290:-4:170;  % this creates 480 pixels high canvas
  eval(sprintf('cementcolor(P,k,k,skip,''stabilized%03d'',170,290);',k))
  eval(sprintf('!temp_dattopnm_hp stabilized%03d > stabilized%03d.ppm',k,k))
end%for

