Directory[]; Get["/Users/deangladish/QuiverGeometry/Kernel/init.m"]

@Abhishek Joshi that was so good capturing fluid dynamics & interaction, and discovering the limits of this discrete approach, and so the question is what are they?

Manipulate[
     evoSqLarge = QuiverGasEvolve[
       QuiverGas[
        SquareQuiver@{Modulo@20, Modulo@20},
        {"yY" -> "xX"},
        RuleSymmetries -> {PCycle["yxYX"]}
        ], t, 1000];
     Column[{
       evoSqLarge["ParticlePlot", 2, Mesh -> False],
       evoSqLarge["DensityPlot", 1, {20, 20}]
       }],
     {{t, 50, "Time"}, 1, 100, 1}
     ]