A Greedy Algorithm to Paint an Image by Randomly Exploring a Space of Brush Strokes (v.2)

paint :
  +diffusiontensors 0.1,0.6,0.5,3
  100%,100%,1,3,255
  +mse[0,2] mse_best={i[1]} rm.

  f=0
  repeat inf
    100%,100%
    32,1,1,1,"*
      lmax = u(40);
      const da = 10;
      const dl = 0.3;
      X0 = round(u([w#0,h#0]-1));
      for (a = 0, a<360, a+=da,
        X = X0;
        U = [ cos(a°), sin(a°) ];
        for (l = 0, l<lmax, l+=dl,
          C = I(#1,X,1);
          T = [ C[0],C[1],C[1],C[2] ];
          eig = eig(T);
          l1 = eig[0];
          l2 = eig[1];
          u = eig[2];
          v = eig[3];
          ellipse(#-1,X[0],X[1],3*l1,3*l2,atan2(v,u),1,1);
          nU = T*U;
          X+=nU*dl;
        );
    );" rm.

    +label_fg. 0 {iM+1},1,1,3,u(0,255) point. 0,0,0,1,0 map.. . rm.
    +blend[0] .,shapeaverage0
    blend[-2,-1] alpha,{u(0.75,1)}
    distance.. 0 n.. 0,1 pow.. {u(0.5)} # f.. "i?cut(i+u(-0.25,0.25),0,1):i"

    +j[2] .,0,0,0,0,{u(0.15,1)},..
    +mse[0,-1] mse={i[1]} rm.
    if $mse<$mse_best
      j[2] . mse_best=$mse +e $mse_best
      to. {round($mse_best)},0.01~,0.01~,4%
      w. # on. frame.jpg,$f
      f+=1
    fi
    rm[-3--1]

  done