// Last edited on 2013-01-22 01:26:33 by stolfilocal
// Frame of moving field

#include "general_parameters.inc"

#macro subfig(tt)
  ???
  #local Rf = 1.0;   // Half-width, half-height of figure.
  #local crv = flow_crv;
  #local A = flow_A;
  #local B = flow_B;
  #local C = flow_C;
  #local D = flow_D;
  
  #local do = 0.05;   // Distance between pathlines on Y axis.
  #local ro = 0.002;   // Radius of pathline.
  #local txo = texture{ tx_pathline }

  #local dp = 0.10;   // Desired distance between particles in pathline.
  #local rp = 0.010;  // Radius of particle.
  #local txp = texture{ tx_particle }

  #local Rc = sample_circle_R;
  #local rc = 2*ro;
  #local txc = texture{ tx_circle_sample }
  
  #local imax = int(sqrt(2)*Rf/do + 1);
  #if (imax*do*crv > 1) 
    #local imin = 1 - int(1/(crv*do) + 0.9);
  #else
    #local imin = -imax;
  #end
  
  #local coin = seed(4615);
  
  #local scene = 
    union{
      #local i = imin;
      #while (i <= imax) 
        flow_pathline(crv,A,B,C,D, i,do,ro,txo, dp,rp,txp, coin,Rf,tt)
        #local i = i + 1;
      #end
    }
    
  object{ scene }
  
  #declare cam_ctr = < 0, 0, 0 >;
  #declare cam_rad = Rf;
  #declare cam_dir = z;
#end