diff options
Diffstat (limited to 'perl-install/standalone/draksplash2')
| -rw-r--r-- | perl-install/standalone/draksplash2 | 306 |
1 files changed, 0 insertions, 306 deletions
diff --git a/perl-install/standalone/draksplash2 b/perl-install/standalone/draksplash2 deleted file mode 100644 index 4c17bdd08..000000000 --- a/perl-install/standalone/draksplash2 +++ /dev/null @@ -1,306 +0,0 @@ -#!/usr/bin/perl - -#- convert in.png -colors 128 -treedepth 6 -dither out.gif - -use strict; - -use lib '/usr/lib/libDrakX'; -use Getopt::Long; -use ugtk2 qw(:all); -use Gtk2::Gdk::Keysyms; -use MDK::Common; -use Image::Magick; -use bootsplash qw(:drawing); - - -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); - } - } - { - my ($x, $y, $w, $h) = rectangle2xywh($progress_rect); - my $w2 = $w - $w % nb_steps(); - if ($current_rect) { - $window->draw_rectangle(color_index2gc($window, $progress_color), 1, $x, $y, $w2, $h); - $window->draw_rectangle($widget->style->black_gc, 0, $x, $y, $w, $h); - } else { - $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 }; - - 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 create_popup() { - 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 nb_steps() { - $kernel_and_initrd_size / ($isolinux_mode ? $isolinux_block_size : $lilo_block_size); -} - -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); - $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 => 'True', treedepth => 6) 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"); |