dwww Home | Show directory contents | Find package

minIso = View[0].Min;
maxIso = View[0].Max;
nbIso = GetValue("Number of isosurfaces?", 7);

Plugin(Isosurface).View = 0;

For i In {0:nbIso-1}
  Plugin(Isosurface).Value = minIso + i * (maxIso-minIso)/(nbIso > 1 ? nbIso-1 : 1);
  Plugin(Isosurface).Run;
EndFor

Delete View[0];
Delete Empty Views;

Combine Views;

Plugin(MakeSimplex).View = 0;
Plugin(MakeSimplex).Run;

View[0].ColormapAlpha = 0.6;
View[0].SmoothNormals = 1;

General.FastRedraw = 0;
General.Color.Background = White;
General.Color.Foreground = Black;
General.Color.Text = Black;
General.Color.SmallAxes = Black;

//Save View[0] "iso.pos";

Generated by dwww version 1.15 on Wed May 22 12:55:04 CEST 2024.