summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-05-10 08:42:06 +0000
committerOlivier Blin <oblin@mandriva.org>2005-05-10 08:42:06 +0000
commit90a06c043cf17b05881f4e9e8726f3fb5858d98a (patch)
tree95bc170f83bcde8c106bae45cd0f8ffdd93c635e /perl-install/standalone
parent53fc42dd19e14154042e1fbe82ea0d5fc5a5e2f1 (diff)
downloaddrakx-backup-do-not-use-90a06c043cf17b05881f4e9e8726f3fb5858d98a.tar
drakx-backup-do-not-use-90a06c043cf17b05881f4e9e8726f3fb5858d98a.tar.gz
drakx-backup-do-not-use-90a06c043cf17b05881f4e9e8726f3fb5858d98a.tar.bz2
drakx-backup-do-not-use-90a06c043cf17b05881f4e9e8726f3fb5858d98a.tar.xz
drakx-backup-do-not-use-90a06c043cf17b05881f4e9e8726f3fb5858d98a.zip
move rectangle2xywh(), distance(), farthest() and nearest() from draksplash2 to bootsplash module, create xywh2rectangle()
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/draksplash246
1 files changed, 1 insertions, 45 deletions
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 },