// outline.cmd

//****************************************************************************

// For dissolving all display facets and non-essential display edges.
// Use before evolution to cut down on memory and display time, while
// keeping outline of lead. (need Evolver version 2.14 at least due to bug)

outline := { dissolve facet where color==yellow or color==green;
             foreach edge ee where original == -1 and valence == 0 do
                { unfix ee; dissolve ee }
           }

// For totally eliminating all display stuff:
vanish := { outline;
            dissolve edges;
            dissolve vertices;
          }