From 5a70ee766ba90791aaedd28a4bdf9fe9b9fc45fd Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 25 Nov 2018 13:22:20 +0000 Subject: [PATCH] distort-stl: introduce $gensplit (nfc) Signed-off-by: Ian Jackson --- distort-stl | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/distort-stl b/distort-stl index cc959dd..9d85690 100755 --- a/distort-stl +++ b/distort-stl @@ -106,16 +106,16 @@ sub maybe_subdivide_triangle ($$$$) { # triangle i-j-k, splitting edge i-m # gives i-m-k, k-m-j - my $n = [ @$t ]; $n->[$ix] = \@midp; $n->[3] = "$t->[3]a$ix$jx"; - unshift @$changed, $n; - - printf STDERR "%s\n", sprintf_triangle $n if $debug; - - my $n = [ @$t ]; $n->[$jx] = \@midp; $n->[3] = "$t->[3]b$ix$jx"; - unshift @$changed, $n; - - printf STDERR "%s\n", sprintf_triangle $n if $debug; - + my $gensplit = sub { + my ($ixjx, $xwhat) = @_; + my $n = [ @$t ]; + $n->[$ixjx] = \@midp; + $n->[3] = "$t->[3]$xwhat"; + printf STDERR "%s\n", sprintf_triangle $n if $debug; + unshift @$changed, $n; + }; + $gensplit->($ix, "a$ix$jx"); + $gensplit->($jx, "b$ix$jx"); return; } } -- 2.30.2