draksplash2 is here until merged in draksplash

1 files changed, 345 insertions, 0 deletions

diff --git a/perl-install/standalone/draksplash2 b/perl-install/standalone/draksplash2
new file mode 100644
index 000000000..7e1087c3e
--- /dev/null
+++ b/perl-install/standalone/draksplash2
@@ -0,0 +1,345 @@
+#!/usr/bin/perl
+
+use strict;
+
+use lib '/usr/lib/libDrakX';
+use Getopt::Long;
+use ugtk2 qw(:all);
+use Gtk2::Gdk::Keysyms;
+use MDK::Common;
+use Image::Magick;
+
+
+my $kernel_size = 1500; #- in KiB
+my $initrd_size = 130; #- in KiB
+
+my $lilo_block_size = 50; #- in KiB
+my $isolinux_block_size = 64; #- in KiB
+
+my @modes = (
+    { Vesa => 0x101, X =>  640, Y =>  480 },
+    { Vesa => 0x103, X =>  800, Y =>  600 },
+    { Vesa => 0x105, X => 1024, Y =>  768 },
+    { Vesa => 0x107, X => 1280, Y => 1024 },
+);
+
+my (%image_size, $kernel_and_initrd_size);
+my ($progress_rect, $progress_color) = ([], {});
+my ($timer_pos, $timer_bg, $timer_fg) = ({}, {}, {});
+my ($entry_rect, $entry_selected_color, $entry_color) = ([], {}, {});
+my $isolinux_mode;
+
+my $magick = Image::Magick->new;
+
+my ($current_rect, $current_point);
+my ($image_area, $image_pixbuf);
+
+sub move_point {
+    my ($up_down, $direction) = @_;
+    my $wanted = $current_point->{$direction} + $up_down;
+    if (0 <= $wanted && $wanted < $image_size{$direction}) {
+	$current_point->{$direction} += $up_down;
+    }
+    $image_area->queue_draw;
+}
+sub create_image_area() {
+    $image_area = Gtk2::DrawingArea->new;
+    $image_area->can_focus(1);
+    $image_area->add_events('button-press-mask');
+    $image_area->signal_connect(button_press_event => \&image_button_pressed);
+    $image_area->signal_connect(expose_event => \&image_expose);
+    gtkmodify_font($image_area, 'Monospace 12');
+
+    my $keys = {
+	$Gtk2::Gdk::Keysyms{Down}   => sub { move_point( ($_[0] ? 5 : 1), 'Y') },
+	$Gtk2::Gdk::Keysyms{Up}     => sub { move_point(-($_[0] ? 5 : 1), 'Y') }, 
+	$Gtk2::Gdk::Keysyms{Left}   => sub { move_point(-($_[0] ? 5 : 1), 'X') },
+	$Gtk2::Gdk::Keysyms{Right}  => sub { move_point( ($_[0] ? 5 : 1), 'X') },
+	$Gtk2::Gdk::Keysyms{q} => sub { Gtk2->main_quit },
+	$Gtk2::Gdk::Keysyms{Escape} => sub { Gtk2->main_quit },
+    };
+
+    $image_area->signal_connect(key_press_event => sub {
+	my (undef, $event) = @_;
+
+	if (my $f = $keys->{$event->keyval}) {
+	    $f->(member('control-mask', @{$event->state}));
+	}
+	1;
+    });
+
+    $image_area->grab_focus;
+    $image_area->show;
+    $image_area;
+}
+sub image_expose {
+    my ($widget) = @_;
+    my $window = $widget->window;
+    $window->draw_pixbuf($widget->style->white_gc, $image_pixbuf, 0, 0, 0, 0, -1, -1, 'none', 0, 0);
+
+    if (!$isolinux_mode) {
+	{
+	    my $layout = $widget->create_pango_layout('--:--');
+	    my ($width, $height) = $layout->get_pixel_size;
+	    $window->draw_rectangle(color_index2gc($window, $timer_bg), 1, $timer_pos->{X}, $timer_pos->{Y}, $width, $height);
+	    $window->draw_layout(color_index2gc($window, $timer_fg), $timer_pos->{X}, $timer_pos->{Y}, $layout);
+	}
+	my ($x, $y, $w, $h) = rectangle2xywh($entry_rect);
+	my @std_labels = ('linux', 'failsafe', '2.6.3-7mdk', 'X' x ($w / 8));
+	for (my $nb = 0; $nb < int($h / 16); $y += 16, $nb++) {
+	    my $label = shift(@std_labels) || 'label_' . ($nb+1);
+	    my $gc = color_index2gc($window, !$nb ? $entry_selected_color : $entry_color);
+	    my $layout = $widget->create_pango_layout($label);
+	    $window->draw_layout($gc, $x, $y, $layout);
+	}
+    }
+    if ($current_rect) {
+	my ($x, $y, $w, $h) = rectangle2xywh($current_rect);
+	$window->draw_rectangle($widget->style->black_gc, 0, $x, $y, $w, $h);
+    }
+    if ($current_rect != $progress_rect) {
+	my ($x, $y, $w, $h) = rectangle2xywh($progress_rect);
+	$window->draw_rectangle(color_index2gc($window, $progress_color), 1, $x, $y, $w, $h);
+    }
+    0;
+}
+sub image_button_pressed {
+    my (undef, $event) = @_;
+
+    if ($event->button eq '3') {
+	create_popup()->popup(undef, undef, undef, undef, '3', $event->time);
+	return 1;
+    }
+
+    my $point = { X => $event->x, Y => $event->y };
+    my $chosen_point;
+
+    if ($current_rect) {
+	if (!@$current_rect) {
+	    my @corners = ({ X => 0, Y => 0 }, 
+			   { X => 0, Y => $image_size{Y} - 1 },
+			   { X => $image_size{X} - 1, Y => 0 }, 
+			   { X => $image_size{X} - 1, Y => $image_size{Y} - 1 });
+	    @$current_rect = ($corners[farthest($point, @corners)], nearest($point, @corners));
+	}
+	$current_point = nearest($point, @$current_rect);
+    } elsif ($current_point) {
+	%$current_point or %$current_point = %$point;
+    } else {
+	return;
+    }
+
+    %$current_point = %$point;
+    $current_point->{Color} = $magick->Get("index[$point->{X},$point->{Y}]");
+
+    $image_area->queue_draw;
+    1;
+}
+
+sub image_set_file {
+    my ($file) = @_;
+
+    $image_pixbuf = Gtk2::Gdk::Pixbuf->new_from_file($file);
+    %image_size = (X => $image_pixbuf->get_width, Y => $image_pixbuf->get_height);
+    $image_area->set_size_request($image_size{X}, $image_size{Y});
+    $image_area->queue_draw;
+}
+
+sub color_index2gc {
+    my ($window, $color) = @_;
+    my ($r, $g, $b) = split(',', $magick->Get("colormap[$color->{Color}]"));
+    my $gc = Gtk2::Gdk::GC->new($window);
+
+    my $gdk_color = Gtk2::Gdk::Color->new($r, $g, $b) or die "bad color for $r,$g,$b";
+    $window->get_colormap->rgb_find_color($gdk_color);
+    $gc->set_rgb_fg_color($gdk_color);
+    $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 },
+	     'Progress bar color' => sub { $current_point = $progress_color },
+	     '' => sub {},
+		     $isolinux_mode ? (
+	     'switch to lilo mode' => sub { $isolinux_mode = 0 },
+				      ) : (
+	     'Timer position' => sub { $current_point = $timer_pos },
+	     'Timer text color' => sub { $current_point = $timer_fg },
+	     'Timer background' => sub { $current_point = $timer_bg },
+	     '' => sub {},
+	     'Entry position' => sub { $current_rect = $entry_rect },
+	     'Entry text selected color' => sub { $current_point = $entry_selected_color },
+	     'Entry text color' => sub { $current_point = $entry_color },
+	     '' => sub {},
+	     'switch to isolinux mode' => sub { $isolinux_mode = 1 },
+					  ),
+		     
+	    );
+
+    my $popup = Gtk2::Menu->new;
+    foreach (group_by2(@l)) {
+	my ($descr, $f) = @$_;
+	gtkappend($popup,
+		  gtksignal_connect(Gtk2::MenuItem->new_with_label($descr), 
+				    activate => sub {
+					$current_rect = $current_point = undef;
+					$f->();
+				    }));
+    }
+    $popup
+}
+
+sub read_parameters {
+    my ($file) = @_;
+    my %h = getVarsFromSh($file);
+
+    $entry_rect->[0]{X} = $h{'entry_x'};
+    $entry_rect->[0]{Y} = $h{'entry_y'};
+    $entry_rect->[1]{X} = $h{'entry_x'} + $h{'entry_w'};
+    $entry_rect->[1]{Y} = $h{'entry_y'} + $h{'entry_h'};
+    $entry_color->{Color} = $h{'entry_bg'} - 64;
+    $entry_selected_color->{Color} = $h{'entry_fg'} - 64;
+
+    $timer_pos->{X} = $h{'timer_x'};
+    $timer_pos->{Y} = $h{'timer_y'};
+    $timer_bg->{Color} = $h{'timer_bg'} - 64;
+    $timer_fg->{Color} = $h{'timer_fg'} - 64;
+
+    $progress_color->{Color} = $h{'progress_c'} - 64;
+    $progress_rect->[0]{X} = $h{'progress_x'};
+    $progress_rect->[0]{Y} = $h{'progress_y'};
+    $progress_rect->[1]{X} = $h{'progress_x'} + $h{'progress_real_w'};
+    $progress_rect->[1]{Y} = $h{'progress_y'} + $h{'progress_h'};
+
+    $isolinux_mode = $h{'isolinux_mode'};
+}
+
+sub save_parameters {
+    my ($file) = @_;
+    my %h;
+   
+    $h{'mode'} = (find { $image_size{X} eq $_->{X} } @modes)->{Vesa};
+    $h{'clear_h'} = $image_size{X};
+    $h{'clear_w'} = $image_size{Y};
+
+    if (!$isolinux_mode) {
+	($h{'entry_x'}, $h{'entry_y'}, $h{'entry_w'}, $h{'entry_h'}) = rectangle2xywh($entry_rect);
+	$h{'entry_w_chr'} = int($h{'entry_w'} / 8);
+	$h{'entry_h_chr'} = int($h{'entry_h'} / 16);
+	$h{'entry_bg'} = $entry_color->{Color} + 64;
+	$h{'entry_fg'} = $entry_selected_color->{Color} + 64;
+
+	$h{'timer_x'} = $timer_pos->{X};
+	$h{'timer_y'} = $timer_pos->{Y};
+	$h{'timer_bg'} = $timer_bg->{Color} + 64;
+	$h{'timer_fg'} = $timer_fg->{Color} + 64;
+    }
+
+    $h{'progress_c'} = $progress_color->{Color} + 64;
+    ($h{'progress_x'}, $h{'progress_y'}, $h{'progress_real_w'}, $h{'progress_h'}) = rectangle2xywh($progress_rect);
+    my $nb_steps = $kernel_and_initrd_size / ($isolinux_mode ? $isolinux_block_size : $lilo_block_size);
+    $h{'progress_w'} = int($h{'progress_real_w'} / $nb_steps);
+
+    $h{'isolinux_mode'} = $isolinux_mode;
+
+    output($file, map { "$_=$h{$_}\n" } sort keys %h);
+}
+
+# MAIN #########################################################################
+my $usage = <<EOF;
+usage: $0 [--kernel <kernel> --initrd <initrd>] [--size <size in KiB>] <image>
+(kernel and initrd are used to compute the size of data to load)
+EOF
+
+GetOptions('kernel=s' => \ (my $kernel),
+	   'initrd=s' => \ (my $initrd),
+	   'size=s' => \ $kernel_and_initrd_size,
+           'isolinux' => \ (my $force_isolinux_mode),
+	  ) or die $usage;
+
+my ($file) = @ARGV;
+@ARGV == 1 && -e $file or die $usage;
+
+if ($kernel_and_initrd_size) {
+    $kernel and die "give kernel and initrd or size, not both\n";
+} else {
+    if ($kernel) {
+	$initrd or die "give both kernel and initrd\n";
+	$kernel_size = (-s $kernel) / 1024 or die "bad file $kernel: $!\n";
+	$initrd_size = (-s $initrd) / 1024 or die "bad file $initrd: $!\n";
+    }
+    $kernel_and_initrd_size = $kernel_size + $initrd_size;
+}
+
+my $err;
+$err = $magick->Read($file) and die $err;
+
+my $bmp_file_name = $file;
+$bmp_file_name =~ s/\.\w\w\w?$//;
+$bmp_file_name .= '.bmp';
+
+if ($file ne $bmp_file_name || $magick->Get('colors') > 128) {
+    warn "writing $bmp_file_name\n";
+    $err = $magick->Quantize(colors => 128, dither => 'False') and die $err;
+    $err = $magick->Write(filename => "bmp3:$bmp_file_name", compression => 'None') and die $err;
+}
+read_parameters("$bmp_file_name.parameters");
+$isolinux_mode ||= $force_isolinux_mode;
+
+my $window_widget = Gtk2::Window->new('toplevel');
+$window_widget->signal_connect(destroy => sub { Gtk2->main_quit });
+gtkadd($window_widget, 
+       gtkpack(Gtk2::VBox->new(0,0), create_image_area()));
+image_set_file($bmp_file_name);
+
+$window_widget->show;
+$image_area->window->set_cursor(Gtk2::Gdk::Cursor->new('crosshair'));
+Gtk2->main;
+
+save_parameters("$bmp_file_name.parameters");