XS.pm 7.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294
  1. package Slic3r::XS;
  2. use warnings;
  3. use strict;
  4. our $VERSION = '0.01';
  5. # We have to load these modules in order to have Wx.pm find the correct paths
  6. # for wxWidgets dlls on MSW.
  7. # We avoid loading these on OS X because Wx::Load() initializes a Wx App
  8. # automatically and it steals focus even when we're not running Slic3r in GUI mode.
  9. # TODO: only load these when compiling with GUI support
  10. BEGIN {
  11. if ($^O eq 'MSWin32') {
  12. eval "use Wx";
  13. # eval "use Wx::Html";
  14. eval "use Wx::Print"; # because of some Wx bug, thread creation fails if we don't have this (looks like Wx::Printout is hard-coded in some thread cleanup code)
  15. }
  16. }
  17. use Carp qw();
  18. use XSLoader;
  19. XSLoader::load(__PACKAGE__, $VERSION);
  20. package Slic3r::Line;
  21. use overload
  22. '@{}' => sub { $_[0]->arrayref },
  23. 'fallback' => 1;
  24. package Slic3r::Point;
  25. use overload
  26. '@{}' => sub { $_[0]->arrayref },
  27. 'fallback' => 1;
  28. package Slic3r::Point3;
  29. use overload
  30. '@{}' => sub { [ $_[0]->x, $_[0]->y, $_[0]->z ] }, #,
  31. 'fallback' => 1;
  32. sub pp {
  33. my ($self) = @_;
  34. return [ @$self ];
  35. }
  36. package Slic3r::Pointf;
  37. use overload
  38. '@{}' => sub { $_[0]->arrayref },
  39. 'fallback' => 1;
  40. package Slic3r::Pointf3;
  41. use overload
  42. '@{}' => sub { [ $_[0]->x, $_[0]->y, $_[0]->z ] }, #,
  43. 'fallback' => 1;
  44. sub pp {
  45. my ($self) = @_;
  46. return [ @$self ];
  47. }
  48. package Slic3r::ExPolygon;
  49. use overload
  50. '@{}' => sub { $_[0]->arrayref },
  51. 'fallback' => 1;
  52. package Slic3r::Polyline;
  53. use overload
  54. '@{}' => sub { $_[0]->arrayref },
  55. 'fallback' => 1;
  56. package Slic3r::Polyline::Collection;
  57. use overload
  58. '@{}' => sub { $_[0]->arrayref },
  59. 'fallback' => 1;
  60. package Slic3r::Polygon;
  61. use overload
  62. '@{}' => sub { $_[0]->arrayref },
  63. 'fallback' => 1;
  64. package Slic3r::ExPolygon::Collection;
  65. use overload
  66. '@{}' => sub { $_[0]->arrayref },
  67. 'fallback' => 1;
  68. package Slic3r::ExtrusionPath::Collection;
  69. use overload
  70. '@{}' => sub { $_[0]->arrayref },
  71. 'fallback' => 1;
  72. sub new {
  73. my ($class, @paths) = @_;
  74. my $self = $class->_new;
  75. $self->append(@paths);
  76. return $self;
  77. }
  78. package Slic3r::ExtrusionLoop;
  79. use overload
  80. '@{}' => sub { $_[0]->arrayref },
  81. 'fallback' => 1;
  82. sub new_from_paths {
  83. my ($class, @paths) = @_;
  84. my $loop = $class->new;
  85. $loop->append($_) for @paths;
  86. return $loop;
  87. }
  88. package Slic3r::ExtrusionPath;
  89. use overload
  90. '@{}' => sub { $_[0]->arrayref },
  91. 'fallback' => 1;
  92. sub new {
  93. my ($class, %args) = @_;
  94. return $class->_new(
  95. $args{polyline}, # required
  96. $args{role}, # required
  97. $args{mm3_per_mm} // die("Missing required mm3_per_mm in ExtrusionPath constructor"),
  98. $args{width} // -1,
  99. $args{height} // -1,
  100. );
  101. }
  102. sub clone {
  103. my ($self, %args) = @_;
  104. return __PACKAGE__->_new(
  105. $args{polyline} // $self->polyline,
  106. $args{role} // $self->role,
  107. $args{mm3_per_mm} // $self->mm3_per_mm,
  108. $args{width} // $self->width,
  109. $args{height} // $self->height,
  110. );
  111. }
  112. package Slic3r::ExtrusionSimulator;
  113. sub new {
  114. my ($class, %args) = @_;
  115. return $class->_new();
  116. }
  117. package Slic3r::Filler;
  118. sub fill_surface {
  119. my ($self, $surface, %args) = @_;
  120. $self->set_width($args{width}) if defined($args{width});
  121. $self->set_density($args{density}) if defined($args{density});
  122. $self->set_distance($args{distance}) if defined($args{distance});
  123. $self->set_dont_connect($args{dont_connect}) if defined($args{dont_connect});
  124. $self->set_dont_adjust($args{dont_adjust}) if defined($args{dont_adjust});
  125. $self->set_complete($args{complete}) if defined($args{complete});
  126. return $self->_fill_surface($surface);
  127. }
  128. package Slic3r::Flow;
  129. sub new {
  130. my ($class, %args) = @_;
  131. my $self = $class->_new(
  132. @args{qw(width height nozzle_diameter)},
  133. );
  134. $self->set_bridge($args{bridge} // 0);
  135. return $self;
  136. }
  137. sub new_from_width {
  138. my ($class, %args) = @_;
  139. return $class->_new_from_width(
  140. @args{qw(role width nozzle_diameter layer_height bridge_flow_ratio)},
  141. );
  142. }
  143. sub new_from_spacing {
  144. my ($class, %args) = @_;
  145. return $class->_new_from_spacing(
  146. @args{qw(spacing nozzle_diameter layer_height bridge)},
  147. );
  148. }
  149. package Slic3r::Surface;
  150. sub new {
  151. my ($class, %args) = @_;
  152. # defensive programming: make sure no negative bridge_angle is supplied
  153. die "Error: invalid negative bridge_angle\n"
  154. if defined $args{bridge_angle} && $args{bridge_angle} < 0;
  155. return $class->_new(
  156. $args{expolygon} // (die "Missing required expolygon\n"),
  157. $args{surface_type} // (die "Missing required surface_type\n"),
  158. $args{thickness} // -1,
  159. $args{thickness_layers} // 1,
  160. $args{bridge_angle} // -1,
  161. $args{extra_perimeters} // 0,
  162. );
  163. }
  164. sub clone {
  165. my ($self, %args) = @_;
  166. return (ref $self)->_new(
  167. delete $args{expolygon} // $self->expolygon,
  168. delete $args{surface_type} // $self->surface_type,
  169. delete $args{thickness} // $self->thickness,
  170. delete $args{thickness_layers} // $self->thickness_layers,
  171. delete $args{bridge_angle} // $self->bridge_angle,
  172. delete $args{extra_perimeters} // $self->extra_perimeters,
  173. );
  174. }
  175. package Slic3r::Surface::Collection;
  176. use overload
  177. '@{}' => sub { $_[0]->arrayref },
  178. 'fallback' => 1;
  179. sub new {
  180. my ($class, @surfaces) = @_;
  181. my $self = $class->_new;
  182. $self->append($_) for @surfaces;
  183. return $self;
  184. }
  185. package Slic3r::GUI::_3DScene::GLVertexArray;
  186. sub CLONE_SKIP { 1 }
  187. package main;
  188. for my $class (qw(
  189. Slic3r::BridgeDetector
  190. Slic3r::Config
  191. Slic3r::Config::Full
  192. Slic3r::Config::GCode
  193. Slic3r::Config::Print
  194. Slic3r::Config::PrintObject
  195. Slic3r::Config::PrintRegion
  196. Slic3r::Config::Static
  197. Slic3r::ExPolygon
  198. Slic3r::ExPolygon::Collection
  199. Slic3r::Extruder
  200. Slic3r::ExtrusionLoop
  201. Slic3r::ExtrusionPath
  202. Slic3r::ExtrusionPath::Collection
  203. Slic3r::ExtrusionSimulator
  204. Slic3r::Filler
  205. Slic3r::Flow
  206. Slic3r::GCode
  207. Slic3r::GCode::AvoidCrossingPerimeters
  208. Slic3r::GCode::OozePrevention
  209. Slic3r::GCode::PlaceholderParser
  210. Slic3r::GCode::Wipe
  211. Slic3r::GCode::Writer
  212. Slic3r::Geometry::BoundingBox
  213. Slic3r::Geometry::BoundingBoxf
  214. Slic3r::Geometry::BoundingBoxf3
  215. Slic3r::Layer
  216. Slic3r::Layer::Region
  217. Slic3r::Layer::Support
  218. Slic3r::Line
  219. Slic3r::Linef3
  220. Slic3r::Model
  221. Slic3r::Model::Instance
  222. Slic3r::Model::Material
  223. Slic3r::Model::Object
  224. Slic3r::Model::Volume
  225. Slic3r::Point
  226. Slic3r::Point3
  227. Slic3r::Pointf
  228. Slic3r::Pointf3
  229. Slic3r::Polygon
  230. Slic3r::Polyline
  231. Slic3r::Polyline::Collection
  232. Slic3r::Print
  233. Slic3r::Print::Object
  234. Slic3r::Print::Region
  235. Slic3r::Print::State
  236. Slic3r::Surface
  237. Slic3r::Surface::Collection
  238. Slic3r::TriangleMesh
  239. ))
  240. {
  241. no strict 'refs';
  242. my $ref_class = $class . "::Ref";
  243. eval "package $ref_class; our \@ISA = '$class'; sub DESTROY {};";
  244. }
  245. 1;