Delete thin parts of polys (not "small")

[guache]

I have a bunch of polys, some of which have "thin" parts: long, linear, protruding features. I want to remove them. I can't select by area, because 1) there are polys which are small, but don't have these "thin" parts, 2) I want to keep the non-thin parts of all polys and remove only the "thin" parts. The best definition of what I mean by "thin" is: "the part of the poly where the distance from one edge to another, not-directly connected edge, is below some number". Any ideas?

 

Edited January 20, 2021 by guache

[Librarian]

@guache "Intrinsic " Unpack and Pack ....over primitives code than SPLIT SOP och expr---- @volume>`chs("range")`---or Post File for Fun.

float bounds[] = primintrinsic(0, "bounds", @primnum);

//Minimum All
vector min_all = set(bounds[0], bounds[2], bounds[4]);

//X_max
vector x_max = set(bounds[1], bounds[2], bounds[4]);

//Y_max
vector y_max = set(bounds[0], bounds[3], bounds[4]);

//Z_max
vector z_max = set(bounds[0], bounds[2], bounds[5]);

float X = distance(min_all, x_max);
float Y = distance(min_all, y_max);
float Z = distance(min_all, z_max);

//to Size
vector size = set(X, Y, Z);

//to Volume
float volume = X * Y * Z;

//export
v@size = size;
f@volume = volume;