From 90a06c043cf17b05881f4e9e8726f3fb5858d98a Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 10 May 2005 08:42:06 +0000
Subject: move rectangle2xywh(), distance(), farthest() and nearest() from
 draksplash2 to bootsplash module, create xywh2rectangle()

---
 perl-install/standalone/draksplash2 | 46 +------------------------------------
 1 file changed, 1 insertion(+), 45 deletions(-)

(limited to 'perl-install/standalone/draksplash2')

diff --git a/perl-install/standalone/draksplash2 b/perl-install/standalone/draksplash2
index 38bb464d3..b7358e7ba 100644
--- a/perl-install/standalone/draksplash2
+++ b/perl-install/standalone/draksplash2
@@ -10,6 +10,7 @@ use ugtk2 qw(:all);
 use Gtk2::Gdk::Keysyms;
 use MDK::Common;
 use Image::Magick;
+use bootsplash qw(:drawing);
 
 
 my $kernel_size = 1500; #- in KiB
@@ -160,51 +161,6 @@ sub color_index2gc {
     $gc;
 }
 
-sub rectangle2xywh {
-    my ($rect) = @_;
-
-    my $x = min($rect->[0]{X} , $rect->[1]{X});
-    my $y = min($rect->[0]{Y} , $rect->[1]{Y});
-    my $w = abs($rect->[0]{X} - $rect->[1]{X});
-    my $h = abs($rect->[0]{Y} - $rect->[1]{Y});
-    ($x, $y, $w, $h);
-}
-
-sub distance {
-    my ($p1, $p2) = @_;
-    sqr($p1->{X} - $p2->{X}) + sqr($p1->{Y} - $p2->{Y});
-}
-
-sub farthest {
-    my ($point, @others) = @_;
-    my $i = 0;
-    my $dist = 0;
-    my $farthest;
-    foreach (@others) {
-	my $d = distance($point, $_);
-	if ($d >= $dist) {
-	    $dist = $d;
-	    $farthest = $_;
-	}
-    }
-    $farthest;
-}
-
-sub nearest {
-    my ($point, @others) = @_;
-    my $i = 0;
-    my $dist;
-    my $nearest;
-    foreach (@others) {
-	my $d = distance($point, $_);
-	if (! defined $dist || $d < $dist) {
-	    $dist = $d;
-	    $nearest = $_;
-	}
-    }
-    $nearest;
-}
-
 sub create_popup() {
     my %l = my @l = (
 	     'Progress bar position' => sub { $current_rect = $progress_rect },
-- 
cgit v1.2.1