Ajout de la methode addCurves a MWritable, qui permet d ajouter des courbes sans les avoir tracees au prealable. Utilisee par la duplication de postit dans Aster

1 files changed, 14 insertions, 0 deletions

diff --git a/src/MTools/Comp/MWritable.pm b/src/MTools/Comp/MWritable.pm
index 461468c..764e384 100644
--- a/src/MTools/Comp/MWritable.pm
+++ b/src/MTools/Comp/MWritable.pm
@@ -271,4 +271,18 @@ sub mdist {
 	return (($x1 - $x2) ** 2 + ($y1 - $y2) ** 2 <= ($k) ** 2);
 }
 
+
+# from a reference to an array, this method clones the curves from this 
+#   referenced array to the self array of curves, changing by the way
+#   the curves' group.
+sub addCurves {
+	my ($self, $curves) = @_;
+	my $clone = undef;
+	foreach (@{$curves}) {
+		$clone = $zinc->clone($_);
+		$zinc -> chggroup ( $clone , minstance($self) );
+		push( @{$self -> {__curves}}  ,  $clone );
+	}
+}
+
 1;