Attachment 909443 Details for Bug 981243 – Reproducer

Reproducer

test (text/plain), 1.55 KB, created by Petr Pisar on 2014-06-17 08:04:49 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Petr Pisar

Created: 2014-06-17 08:04:49 UTC

Size: 1.55 KB

patch

obsolete

>#!/usr/bin/perl
>use strict;
>use warnings;
>
>use SDL;
>use Getopt::Long;
>
>my $width = 800;
>my $height = 600;
>my $depth = 0;
>
>{
>    my $directory = '/sys/class/graphics/fb0/';
>    my $file = $directory . '/modes';
>    if (-e $file) {
>        my ($fh, $modes);
>        open($fh, '<', $file) and $modes = <$fh>;
>        close $fh;
>        if (defined $modes and $modes =~ /(\d+)x(\d+)/) {
>            ($width, $height) = ($1, $2);
>        }
>    }
>    $file = $directory . '/bits_per_pixel';
>    if (-e $file) {
>        my ($fh, $bits);
>        open($fh, '<', $file) and $bits = <$fh>;
>        close $fh;
>        if (defined $bits) {
>            chomp $bits;
>            $depth = $bits;
>        }
>    }
>}
>
>GetOptions('width=i' => \$width, 'height=i' => \$height, 
>    'depth=i' => \$depth) or die "Could not parse options";
>print "Requested video will be ${width}x${height} at $depth bps\n";
>print "Use --width, --height, --depth options to override.\n";
>
>{
>    print "Testing plain SDL:\n";
>    if (SDL::init(SDL_INIT_VIDEO)) {
>        die "Could not initialize SDL with video";
>    }
>
>    use SDL::Video;
>    my $surface = SDL::Video::set_video_mode($width, $height, $depth, 0) or
>        die SDL::get_error();
>    print "Plain SDL::Video::set_video_mode() is Ok.\n";
>
>    print "Width is ", $surface->w, "\n";
>}
>
>{
>    print "Testing SDLx::App:\n";
>    use SDLx::App;
>    my $app = SDLx::App->new(width => $width, height => $height,
>            depth => $depth) or
>        die "SDL::App::new() failed";
>    print "SDL::App::new() is Ok.\n";
>
>    print "Width is ", $app->width, "\n";
>}
>

Actions: View

Attachments on bug 981243: 768694 | 909426 | 909443 | 909484 | 909487