chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
59ab2fd
)
distort-stl: raw mode
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 7 Jan 2018 22:37:03 +0000
(22:37 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 7 Jan 2018 22:37:03 +0000
(22:37 +0000)
distort-stl
patch
|
blob
|
history
diff --git
a/distort-stl
b/distort-stl
index 1b512f853a3a2cc6047878f6783573c7c725dbe4..6931e36989b134d0d8a76b504b0f9dac1d4b3b5c 100755
(executable)
--- a/
distort-stl
+++ b/
distort-stl
@@
-102,18
+102,34
@@
sub op__project_cylinder () {
#---------- main program ----------
#---------- main program ----------
-if (@ARGV && $ARGV[0] =~ m/^-/) {
- die "no options supported\n";
-}
+our $raw;
-my $itmp = new File::Temp;
-my $otmp = new File::Temp;
+while (@ARGV && $ARGV[0] =~ m/^-/) {
+ $_ = shift @ARGV;
+ last if m/^--$/;
+ if (s/^--raw$//) {
+ $raw = 1;
+ } else {
+ die "$_ ?";
+ }
+}
-system "cat >$itmp";
+my $itmp;
+my $otmp;
my $admesh_stdout = '--write-ascii-stl /dev/fd/3 3>&1 >/dev/null';
my $admesh_stdout = '--write-ascii-stl /dev/fd/3 3>&1 >/dev/null';
-open I, "admesh $admesh_stdout $itmp |";
+if ($raw) {
+ open I, "<& STDIN";
+ $otmp = *STDOUT;
+} else {
+ $itmp = new File::Temp;
+ $otmp = new File::Temp;
+
+ system "cat >$itmp";
+
+ open I, "admesh $admesh_stdout $itmp |";
+}
my $triangle;
my $triangle;
@@
-165,4
+181,6
@@
print "endsolid distort-stl\n";
flush $otmp;
flush $otmp;
-system "admesh --normal-values $admesh_stdout $otmp";
+if (!$raw) {
+ system "admesh --normal-values $admesh_stdout $otmp";
+}