From 21b648131bf1bb8c1d0f40ea1110178011cbcd1e Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Fri, 23 Nov 2018 21:45:38 +0000 Subject: [PATCH] distort-stl: break out sprintf_triangle (nfc) Signed-off-by: Ian Jackson --- distort-stl | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/distort-stl b/distort-stl index 844344c..722e4fa 100755 --- a/distort-stl +++ b/distort-stl @@ -44,10 +44,10 @@ sub shift_arg () { #no warnings qw(recursion); -sub maybe_subdivide_triangle ($$$$) { - my ($t, $ok, $changed, $edge_need_subdivide_fn) = @_; +sub sprintf_triangle ($) { + my ($t) = @_; - printf STDERR + sprintf "%11.6f,%11.6f,%11.6f / ". "%11.6f,%11.6f,%11.6f / ". "%11.6f,%11.6f,%11.6f %-40s ", @@ -55,6 +55,12 @@ sub maybe_subdivide_triangle ($$$$) { $t->[1][0], $t->[1][1], $t->[1][2], $t->[2][0], $t->[2][1], $t->[2][2], $t->[3]; +} + +sub maybe_subdivide_triangle ($$$$) { + my ($t, $ok, $changed, $edge_need_subdivide_fn) = @_; + + print STDERR sprintf_triangle $t; foreach my $ix (0..2) { my $jx = ($ix+1) % 3; -- 2.30.2