Bin gerade am Verschwinden ... probier' mal
strength = 0 ~ 200
STR = string(100.0/strength)
STRR = "x x y - abs 12 / 1 4 / ^ 12 * "+STR+" * x y - 2 ^ x y - 2 ^ 4 + / * x y - x y - abs 0.0001 + / * +"
mt_lutxy(last,last.removegrain(4,-1),yexpr=STRR,U=2,V=2)
Danach mit spline16/36, oder auch bikubic, runterskalieren.
Nicht wirklich gut, aber recht flott. Müsste man eigentlich noch einen Zwischenschritt einfügen (Schärfung auf ~50% geblurrtem Input ermitteln, dann das Ergebnis auf originalen Input übertragen ... "mini-SeeSaw", geht recht gut), aber da reicht mir jetzt die Zeit zum Tippen nicht mehr.