From 3ebe3e7ef1bb960757f713eaa16314b2cc1c2848 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Miro=20Hron=C4=8Dok?= <[email protected]>
Date: Fri, 2 Jun 2017 16:28:00 +0200
Subject: Fix rendering issues with perl-OpenGL 0.70

---
 slic3r-opengl070.patch | 117 +++++++++++++++++++++++++++++++++++++++++++++++++
 slic3r.spec            |   9 +++-
 2 files changed, 125 insertions(+), 1 deletion(-)
 create mode 100644 slic3r-opengl070.patch

diff --git a/slic3r-opengl070.patch b/slic3r-opengl070.patch
new file mode 100644
index 0000000..b89515b
--- /dev/null
+++ b/slic3r-opengl070.patch
@@ -0,0 +1,117 @@
+diff --git a/lib/Slic3r/GUI/3DScene.pm b/lib/Slic3r/GUI/3DScene.pm
+index 7628a6c..d37199b 100644
+--- a/lib/Slic3r/GUI/3DScene.pm
++++ b/lib/Slic3r/GUI/3DScene.pm
+@@ -1,9 +1,9 @@
+ package Slic3r::GUI::3DScene::Base;
+ use strict;
+ use warnings;
+-
+ use Wx::Event qw(EVT_PAINT EVT_SIZE EVT_ERASE_BACKGROUND EVT_IDLE 
EVT_MOUSEWHEEL EVT_MOUSE_EVENTS);
+ # must load OpenGL *before* Wx::GLCanvas
++
+ use OpenGL qw(:glconstants :glfunctions :glufunctions :gluconstants);
+ use base qw(Wx::GLCanvas Class::Accessor);
+ use Math::Trig qw(asin);
+@@ -48,6 +48,12 @@ use constant DEFAULT_COLOR  => [1,1,0];
+ use constant SELECTED_COLOR => [0,1,0,1];
+ use constant HOVER_COLOR    => [0.4,0.9,0,1];
+ 
++# Constant to determine if Vertex Buffer objects are used to draw
++# bed grid and the cut plane for object separation.
++# Old Perl (5.10.x) should set to 0.
++use constant HAS_VBO        => 1;
++
++
+ # make OpenGL::Array thread-safe
+ {
+     no warnings 'redefine';
+@@ -114,6 +120,7 @@ sub new {
+         $self->Refresh;
+     });
+     EVT_MOUSE_EVENTS($self, \&mouse_event);
++
+     
+     return $self;
+ }
+@@ -741,9 +748,19 @@ sub Render {
+         glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+         
+         glEnableClientState(GL_VERTEX_ARRAY);
++        if (HAS_VBO) {
++            my ($triangle_vertex);
++            ($triangle_vertex) =
++                glGenBuffersARB_p(1);
++            $self->bed_triangles->bind($triangle_vertex);
++            glBufferDataARB_p(GL_ARRAY_BUFFER_ARB, $self->bed_triangles, 
GL_STATIC_DRAW_ARB);
++            glVertexPointer_c(3, GL_FLOAT, 0, 0);
++        } else {
++            # fall back on old behavior
++            glVertexPointer_p(3, $self->bed_triangles);
++        }
+         glColor4f(0.8, 0.6, 0.5, 0.4);
+         glNormal3d(0,0,1);
+-        glVertexPointer_p(3, $self->bed_triangles);
+         glDrawArrays(GL_TRIANGLES, 0, $self->bed_triangles->elements / 3);
+         glDisableClientState(GL_VERTEX_ARRAY);
+         
+@@ -753,13 +770,29 @@ sub Render {
+     
+         # draw grid
+         glLineWidth(3);
+-        glColor4f(0.2, 0.2, 0.2, 0.4);
+         glEnableClientState(GL_VERTEX_ARRAY);
+-        glVertexPointer_p(3, $self->bed_grid_lines);
++        if (HAS_VBO) {
++            my ($grid_vertex);
++            ($grid_vertex) =
++                glGenBuffersARB_p(1);
++            $self->bed_grid_lines->bind($grid_vertex);
++            glBufferDataARB_p(GL_ARRAY_BUFFER_ARB, $self->bed_grid_lines, 
GL_STATIC_DRAW_ARB);
++            glVertexPointer_c(3, GL_FLOAT, 0, 0);
++        } else {
++            # fall back on old behavior
++            glVertexPointer_p(3, $self->bed_grid_lines);
++        }
++        glColor4f(0.2, 0.2, 0.2, 0.4);
++        glNormal3d(0,0,1);
+         glDrawArrays(GL_LINES, 0, $self->bed_grid_lines->elements / 3);
+         glDisableClientState(GL_VERTEX_ARRAY);
+         
+         glDisable(GL_BLEND);
++        if (HAS_VBO) { 
++            # Turn off buffer objects to let the rest of the draw code work.
++            glBindBufferARB(GL_ARRAY_BUFFER_ARB, 0);
++            glBindBufferARB(GL_ELEMENT_ARRAY_BUFFER_ARB, 0);
++        }
+     }
+     
+     my $volumes_bb = $self->volumes_bounding_box;
+@@ -899,10 +932,26 @@ sub draw_volumes {
+     glDisable(GL_BLEND);
+     
+     if (defined $self->cutting_plane_z) {
++        if (HAS_VBO) {
++            # Use Vertex Buffer Object for cutting plane (previous method 
crashes on modern POGL). 
++            my ($cut_vertex) = glGenBuffersARB_p(1);
++            $self->cut_lines_vertices->bind($cut_vertex);
++            glBufferDataARB_p(GL_ARRAY_BUFFER_ARB, $self->cut_lines_vertices, 
GL_STATIC_DRAW_ARB);
++            glVertexPointer_c(3, GL_FLOAT, 0, 0);
++        } else {
++            # Use legacy method.
++            glVertexPointer_p(3, $self->cut_lines_vertices);
++        }
+         glLineWidth(2);
+         glColor3f(0, 0, 0);
+-        glVertexPointer_p(3, $self->cut_lines_vertices);
+         glDrawArrays(GL_LINES, 0, $self->cut_lines_vertices->elements / 3);
++
++        if (HAS_VBO) { 
++            # Turn off buffer objects to let the rest of the draw code work.
++            glBindBufferARB(GL_ARRAY_BUFFER_ARB, 0);
++            glBindBufferARB(GL_ELEMENT_ARRAY_BUFFER_ARB, 0);
++        }
++
+     }
+     glDisableClientState(GL_VERTEX_ARRAY);
+ }
diff --git a/slic3r.spec b/slic3r.spec
index 594413d..53e4e26 100644
--- a/slic3r.spec
+++ b/slic3r.spec
@@ -1,6 +1,6 @@
 Name:           slic3r
 Version:        1.2.9
-Release:        11%{?dist}
+Release:        12%{?dist}
 Summary:        G-code generator for 3D printers (RepRap, Makerbot, Ultimaker 
etc.)
 License:        AGPLv3 and CC-BY
 # Images are CC-BY, code is AGPLv3
@@ -29,6 +29,9 @@ Patch6:         %{name}-boolcast.patch
 # 
https://github.com/alexrj/Slic3r/commit/1a09ae81db06602050ae83620268efa33ed14da1
 Patch7:         %{name}-wxclose.patch
 
+# https://github.com/alexrj/Slic3r/pull/3575
+Patch8:         %{name}-opengl070.patch
+
 Source1:        %{name}.desktop
 Source2:        %{name}.appdata.xml
 
@@ -94,6 +97,7 @@ for more information.
 %patch5 -p1
 %patch6 -p1
 %patch7 -p1
+%patch8 -p1
 
 # Remove bundled admesh, clipper, poly2tri and boost
 rm -rf xs/src/admesh
@@ -188,6 +192,9 @@ fi
 %{_datadir}/%{name}
 
 %changelog
+* Fri Jun 02 2017 Miro HronĨok <[email protected]> - 1.2.9-12
+- Fix rendering issues with perl-OpenGL 0.70
+
 * Mon May 15 2017 Fedora Release Engineering <[email protected]> 
- 1.2.9-11
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_26_27_Mass_Rebuild
 
-- 
cgit v1.1


        
https://src.fedoraproject.org/cgit/slic3r.git/commit/?h=master&id=3ebe3e7ef1bb960757f713eaa16314b2cc1c2848
_______________________________________________
perl-devel mailing list -- [email protected]
To unsubscribe send an email to [email protected]

Reply via email to