Finish GUI decoupling

2026-07-19 09:24:27 +00:00 · 2012-09-12 16:30:44 +02:00
parent 8382eeef0a
commit e40f32995f
11 changed files with 223 additions and 142 deletions
@@ -70,6 +70,26 @@ sub BUILD {
    }
 }

+sub merge {
+    my $class = shift;
+    my @meshes = @_;
+    
+    my $vertices = [];
+    my $facets = [];
+    
+    foreach my $mesh (@meshes) {
+        my $v_offset = @$vertices;
+        push @$vertices, @{$mesh->vertices};
+        push @$facets, map {
+            my $f = [@$_];
+            $f->[$_] += $v_offset for -3..-1;
+            $f;
+        } @{$mesh->facets};
+    }
+    
+    return $class->new(vertices => $vertices, facets => $facets);
+}
+
 sub clone {
    my $self = shift;
    return (ref $self)->new(