v/ldraw2stl
1
0
Fork 0
mirror of https://github.com/kristov/ldraw2stl.git synced 2025-05-15 14:20:11 -07:00
Code Issues Projects Releases Wiki Activity

Remove dependency on Moose

Browse Source 
It was annoying to install tens of Perl modules for a few getters-setters.
This commit is contained in:
ceade 2020-04-30 21:50:18 +02:00
parent e3f34ac87b
commit ac0c4d00b8
2 changed files with 45 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
README.md
View File

@ -2,14 +2,16 @@
Convert LEGO LDraw files to STL, for super-sizing and 3d printing!!
1) Get the ldraw parts archive at http://www.ldraw.org or apt-get install ldraw-parts
1) Get the ldraw parts archive at [](http://www.ldraw.org/article/13.html):
2) Install LeoCAD so you can find your parts
wget http://www.ldraw.org/library/updates/complete.zip
unzip complete.zip
bin/dat2stl --file ldraw/parts/3894.dat --ldrawdir ./ldraw
2) Install LeoCAD so you can find your parts (optional)
3) Make a note of the .dat file name in LeoCAD, and then run:
bin/dat2stl --file /usr/share/ldraw/parts/3894.dat --scale 4 > 3894.stl
bin/dat2stl --file /usr/share/ldraw/parts/3894.dat --ldrawdir ./ldraw --scale 4 > 3894.stl
For a 4X scale one of those!
Depends on Moose.

81
lib/LDraw/Parser.pm
View File

@ -1,55 +1,50 @@
package LDraw::Parser;
use Moose;
use strict;
use warnings;
has file => (
is => 'ro',
isa => 'Str',
required => 1,
documentation => 'The file to parse',
);
sub new {
my ($class, $args) = @_;
die "file required" unless $args->{file};
return bless({
file => $args->{file},
ldraw_path => $args->{ldraw_path} // '/usr/share/ldraw',
scale => $args->{scale} // 1,
mm_per_ldu => $args->{mm_per_ldu} // 0.4,
invert => $args->{invert} // 0,
debug => $args->{debug} // 0,
d_indent => $args->{d_indent} // 0,
}, $class);
}
has ldraw_path => (
is => 'ro',
isa => 'Str',
default => '/usr/share/ldraw',
documentation => 'Where to find ldraw files',
);
sub _getter_setter {
my ($self, $key, $value) = @_;
if ($value) {
$self->{$key} = $value;
}
return $self->{$key};
}
has scale => (
is => 'rw',
isa => 'Num',
default => 1.0,
documentation => 'Scale the model',
);
# The file to parse
sub file { return shift->_getter_setter('file', @_); }
has mm_per_ldu => (
is => 'rw',
isa => 'Num',
default => 0.4,
documentation => 'Number of mm per LDU (LDraw Unit)',
);
# Where to find ldraw files
sub ldraw_path { return shift->_getter_setter('ldraw_path', @_); }
has invert => (
is => 'rw',
isa => 'Bool',
default => 0,
documentation => 'Invert this part',
);
# Scale the model
sub scale { return shift->_getter_setter('scale', @_); }
has debug => (
is => 'rw',
isa => 'Bool',
default => 0,
documentation => 'Print debugging messages to stderr',
);
# Number of mm per LDU (LDraw Unit)
sub mm_per_ldu { return shift->_getter_setter('mm_per_ldu', @_); }
has d_indent => (
is => 'ro',
isa => 'Int',
default => 0,
documentation => 'Indentation for debug messages (for subfiles)',
);
# Invert this part
sub invert { return shift->_getter_setter('invert', @_); }
# Print debugging messages to stderr
sub debug { return shift->_getter_setter('debug', @_); }
# Indentation for debug messages (for subfiles)
sub d_indent { return shift->_getter_setter('d_indent', @_); }
use constant X => 0;
use constant Y => 1;