Toolpaths preview

This commit is contained in:
Alessandro Ranellucci 2014-07-03 09:24:19 +02:00
parent d8b1eff62f
commit 907de1011f
9 changed files with 532 additions and 4 deletions

View file

@ -24,7 +24,10 @@ use constant SELECTED_COLOR => [0,1,0,1];
use constant COLORS => [ [1,1,1], [1,0.5,0.5], [0.5,1,0.5], [0.5,0.5,1] ];
# make OpenGL::Array thread-safe
*OpenGL::Array::CLONE_SKIP = sub { 1 };
{
no warnings 'redefine';
*OpenGL::Array::CLONE_SKIP = sub { 1 };
}
sub new {
my ($class, $parent, $object) = @_;