summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorChristophe Fergeau <cfergeau@mandriva.com>2009-11-04 17:35:52 +0000
committerChristophe Fergeau <cfergeau@mandriva.com>2009-11-04 17:35:52 +0000
commit06baef61639c5819c19a3c049a0b9adedc7e7477 (patch)
treea8cb5eb4eb186bf4a733e96e942f95621c58e3ca /perl-install
parent8144553f91ac4061c2d9b8dd734be0faa5a398c3 (diff)
downloaddrakx-06baef61639c5819c19a3c049a0b9adedc7e7477.tar
drakx-06baef61639c5819c19a3c049a0b9adedc7e7477.tar.gz
drakx-06baef61639c5819c19a3c049a0b9adedc7e7477.tar.bz2
drakx-06baef61639c5819c19a3c049a0b9adedc7e7477.tar.xz
drakx-06baef61639c5819c19a3c049a0b9adedc7e7477.zip
get rid of obsolete functions that are only used by draksplash
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootsplash.pm168
1 files changed, 0 insertions, 168 deletions
diff --git a/perl-install/bootsplash.pm b/perl-install/bootsplash.pm
index ef89fc330..b63bdb3af 100644
--- a/perl-install/bootsplash.pm
+++ b/perl-install/bootsplash.pm
@@ -90,172 +90,4 @@ sub set_logo_console {
substInFile { s/^LOGO_CONSOLE=.*/LOGO_CONSOLE=$logo_console/ } $::prefix . $sysconfig_file;
}
-sub create_path {
- my ($file) = @_;
- mkdir_p(dirname($file));
-}
-
-sub theme_set_image_for_resolution {
- my ($name, $res, $source_image) = @_;
- my $dest_image = theme_get_image_for_resolution($name, $res);
- create_path($dest_image);
- #- Append an exclamation point to the geometry to force the image size to exactly the size you specify.
- system('convert', '-geometry', $res . '!', $source_image, $dest_image);
- system($::prefix . $bootsplash_scripts . '/rewritejpeg', $dest_image);
-}
-
-sub theme_read_config_for_resolution {
- my ($theme, $res) = @_;
- my $file = theme_get_config_for_resolution($theme, $res);
- my $contents = cat_($file);
- my ($pb_x1, $pb_y1, $pb_x2, $pb_y2, $pbg_c, $ptransp) = $contents =~ /^box\s+silent\s+noover\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(#\w{6})(\w{2})/m;
- my ($tb_x1, $tb_y1, $tb_x2, $tb_y2, $tc, $transp) = $contents =~ /^box\s+noover\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(#\w{6})(\w{2})/m;
- my ($pc1, $pc2, $pc3, $_pc4) = $contents =~ /^box\s+silent\s+inter\s+\d+\s+\d+\s+\d+\s+\d+\s+(#\w+)\s+(#\w+)\s+(#\w+)\s+(#\w+)/m;
- my ($text_color) = $contents =~ /^text_color=0x(\w+)/m;
- my $gradient;
- if ($pc1 eq $pc2) {
- $gradient = 'vertical';
- $pc2 = $pc3;
- }
- { pc1 => $pc1, pc2 => $pc2, gradient => $gradient, transp => hex $transp, ptransp => hex $ptransp,
- tb_x => $tb_x1, tb_y => $tb_y1, tb_w => $tb_x2 - $tb_x1, tb_h => $tb_y2 - $tb_y1, tc => $tc, pbg_c => $pbg_c,
- px => $pb_x1, pw => $pb_x2 - $pb_x1, py => $pb_y1, ph => $pb_y2 - $pb_y1,
- getVarsFromSh($file), text_color => "#$text_color" };
-}
-
-sub theme_write_config_for_resolution {
- my ($name, $res, $conf) = @_;
-
- my $config = theme_get_config_for_resolution($name, $res);
- create_path($config);
- my $jpeg = theme_get_image_for_resolution($name, $res);
-
- # progress/text rectangles border/inter coordinates
- my ($pb_x1, $pb_x2, $pb_y1, $pb_y2) = ($conf->{px}, $conf->{px} + $conf->{pw}, $conf->{py}, $conf->{py} + $conf->{ph});
- my ($pi_y1, $pi_y2) = ($pb_y1 + 1, $pb_y2 - 1);
- my ($tb_x1, $tb_y1, $tb_x2, $tb_y2) = ($conf->{tb_x}, $conf->{tb_y}, $conf->{tb_x} + $conf->{tb_w}, $conf->{tb_y} + $conf->{tb_h});
- my ($tx, $ty, $tw, $th) = ($tb_x1 + 10, $tb_y1 + 5, $conf->{tb_w} - 20 , $conf->{tb_h} - 10);
- my ($ti_x1, $ti_x2, $ti_y1, $ti_y2) = ($tb_x1 - 1, $tb_x2 + 1, $tb_y1 + 1, $tb_y2 + 1);
- my ($pc1, $pc2, $pc3, $pc4);
- if ($conf->{gradient} eq 'vertical') {
- ($pc1, $pc2, $pc3, $pc4) = ($conf->{pc1}, $conf->{pc1}, $conf->{pc2}, $conf->{pc2});
- } else {
- ($pc1, $pc2, $pc3, $pc4) = ($conf->{pc1}, $conf->{pc2}, $conf->{pc1}, $conf->{pc2});
- }
- if (!$pc1) { ($pc1, $pc2, $pc3, $pc4) = ('#ffffff', '#ffffff', '#000000', '#000000') }
- my $ptransp = sprintf '%02x', $conf->{ptransp};
- my $transp = sprintf '%02x', $conf->{transp};
- $conf->{pbg_c} ||= '#aaaaaa';
- $conf->{tc} ||= '#ffffff';
- my $text_color = $conf->{text_color} ? "0x$conf->{text_color}" : '0xaaaaaa';
- $text_color =~ s/#//;
- output($config,
- qq(# This is the configuration file for the $res bootsplash picture
-# this file is necessary to specify the coordinates of the text box on the
-# splash screen.
-
-# config file version
-version=3
-
-# should the picture be displayed?
-state=1
-
-# fgcolor is the text forground color.
-# bgcolor is the text background (i.e. transparent) color.
-fgcolor=$conf->{fgcolor}
-bgcolor=$conf->{bgcolor}
-
-# (tx, ty) are the (x, y) coordinates of the text window in pixels.
-# tw/th is the width/height of the text window in pixels.
-tx=$tx
-ty=$ty
-tw=$tw
-th=$th
-
-# ttf message output parameters
-text_x=$conf->{text_x}
-text_y=$conf->{text_y}
-text_size=$conf->{text_size}
-text_color=$text_color
-
-# name of the picture file (full path recommended)
-jpeg=$jpeg
-silentjpeg=$jpeg
-
-progress_enable=1
-
-# background
-# b(order) or i(nter)
-box silent noover $pb_x1 $pb_y1 $pb_x2 $pb_y2 $conf->{pbg_c}$ptransp
-# progress bar
-box silent inter $pb_x1 $pi_y1 $pb_x1 $pi_y2 $pc1 $pc2 $pc3 $pc4
-box silent $pb_x1 $pi_y1 $pb_x2 $pi_y2 $pc1 $pc2 $pc3 $pc4
-# black border (top, bottom, left, right)
-box silent $pb_x1 $pb_y1 $pb_x2 $pb_y1 #313234
-box silent $pb_x1 $pb_y2 $pb_x2 $pb_y2 #889499
-box silent $pb_x1 $pb_y1 $pb_x1 $pb_y2 #313234
-box silent $pb_x2 $pb_y1 $pb_x2 $pb_y2 #889499
-
-# text box
-box noover $tb_x1 $tb_y1 $tb_x2 $tb_y2 $conf->{tc}$transp
-# black border (top, bottom, left, right)
-box $ti_x1 $tb_y1 $ti_x1 $ti_y2 #313234
-box $tb_x1 $tb_y1 $ti_x2 $tb_y1 #313234
-box $ti_x2 $ti_y1 $ti_x2 $ti_y2 #889499
-box $tb_x1 $ti_y2 $ti_x2 $ti_y2 #889499
-
-overpaintok=1
-
-LOGO_CONSOLE=$conf->{LOGO_CONSOLE}
-));
-}
-
-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 xywh2rectangle {
- my ($x, $y, $w, $h) = @_;
- [ { X => $x, Y => $y }, { X => $x+$w, Y => $y+$h } ];
-}
-
-sub distance {
- my ($p1, $p2) = @_;
- sqr($p1->{X} - $p2->{X}) + sqr($p1->{Y} - $p2->{Y});
-}
-
-sub farthest {
- my ($point, @others) = @_;
- my $dist = 0;
- my $farthest;
- foreach (@others) {
- my $d = distance($point, $_);
- if ($d >= $dist) {
- $dist = $d;
- $farthest = $_;
- }
- }
- $farthest;
-}
-
-sub nearest {
- my ($point, @others) = @_;
- my $dist;
- my $nearest;
- foreach (@others) {
- my $d = distance($point, $_);
- if (! defined $dist || $d < $dist) {
- $dist = $d;
- $nearest = $_;
- }
- }
- $nearest;
-}
-
1;