—

              
package Graphics::Framebuffer::Splash;
use strict;
no strict 'vars';    # We have to map a variable as the screen.  So strict is going to whine about what we do with it.
no warnings;         # We have to be as quiet as possible
use constant {
    TRUE  => 1,
    FALSE => 0
};
use List::Util qw(min max);
BEGIN {
    our $VERSION = 1.04;
}
sub _perl_logo {
    my $self = shift;
    return unless (exists($self->{'FONTS'}->{'DejaVuSerif'}));
    my $hf = $self->{'H_SCALE'};
    my $vf = $self->{'V_SCALE'};
    my $X  = $self->{'H_OFFSET'};
    my $Y  = $self->{'V_OFFSET'};
    $self->normal_mode();
    $self->set_color({ 'red' => 0, 'green' => 0, 'blue' => 0, 'alpha' => 128 });
    $self->ellipse(
        {
            'x'       => (965 * $hf) + $X,
            'y'       => (70 * $vf) + $Y,
            'xradius' => 140 * $hf,
            'yradius' => 65 * $vf,
            'filled'  => TRUE
        }
    );
    $self->set_color({ 'red' => 0, 'green' => 64, 'blue' => 255, 'alpha' => 255 });
    $self->ellipse(
        {
            'x'       => (960 * $hf) + $X,
            'y'       => (65 * $vf) + $Y,
            'xradius' => 140 * $hf,
            'yradius' => 65 * $vf,
            'filled'  => TRUE
        }
    );
    $self->xor_mode();
    $self->ttf_print(
        $self->ttf_print(
            {
                'bounding_box' => TRUE,
                'y'            => (126 * $vf) + $Y,                              # 85 * $vf,
                'height'       => 80 * $vf,
                'wscale'       => 1,
                'color'        => '0040FFFF',
                'text'         => 'Perl',
                'face'         => $self->{'FONTS'}->{'DejaVuSerif'}->{'font'},
                'font_path'    => $self->{'FONTS'}->{'DejaVuSerif'}->{'path'},
                'bounding_box' => TRUE,
                'center'       => $self->{'CENTER_X'},
                'antialias'    => FALSE
            }
        )
    );
}
sub splash {
    my $self    = shift;
    my $version = shift;
    my $X = $self->{'X_CLIP'};
    my $Y = $self->{'Y_CLIP'};
    my $W = $self->{'W_CLIP'};
    my $H = $self->{'H_CLIP'};
    my $hf = $W / 1920;    # Scales the logo
    my $vf = $H / 1080;
    $self->{'H_SCALE'}  = $hf;
    $self->{'V_SCALE'}  = $vf;
    $self->{'H_OFFSET'} = $X;
    $self->{'V_OFFSET'} = $Y;
    my $bold = $self->{'FONT_FACE'};
    $bold =~ s/\.ttf$/Bold.ttf/;
    $self->cls();
    $self->clip_reset();
    $self->normal_mode();
    if ((($W <= 320) || ($H <= 240))) {
        $hf = $W / 320;
        $vf = $H / 240;
        #        $self->set_color({ 'red' => 128, 'green' => 0, 'blue' => 0 });
        $self->rbox(
            {
                'x'        => $X,
                'y'        => $Y,
                'width'    => 320 * $hf,
                'height'   => 240 * $vf,
                'radius'   => 10,
                'filled'   => TRUE,
                'gradient' => {
                    'start' => {
                        'red'   => 0,
                        'green' => 0,
                        'blue'  => 128
                    },
                    'end' => {
                        'red'   => 128,
                        'green' => 0,
                        'blue'  => 0
                    }
                }
            }
        );
        my $gfb = $self->ttf_print(
            {
                'bounding_box' => TRUE,
                'x'            => 0,
                'y'            => (68 * $vf) + $Y,
                'height'       => 52 * $vf,
                'wscale'       => 1,
                'color'        => 'FFFF00FF',
                'text'         => 'Graphics-Framebuffer',
                'bounding_box' => TRUE,
                'center'       => $self->{'CENTER_X'},
                'antialias'    => FALSE
            }
        );
        if ($gfb->{'pwidth'} > int(304 * $hf)) {
            $gfb->{'bounding_box'} = TRUE;
            $gfb->{'wscale'}       = int(304 * $hf) / $gfb->{'pwidth'};
            $gfb                   = $self->ttf_print($gfb);
        }
        $self->ttf_print($gfb);
        $self->ttf_print(
            $self->ttf_print(
                {
                    'bounding_box' => TRUE,
                    'x'            => 0,
                    'y'            => (116 * $vf) + $Y,
                    'height'       => 40 * $vf,
                    'wscale'       => 1,
                    'color'        => 'FFFFFFFF',
                    'text'         => sprintf('%dx%d-%02d', $self->{'XRES'}, $self->{'YRES'}, $self->{'BITS'}),
                    'bounding_box' => TRUE,
                    'center'       => $self->{'CENTER_X'},
                    'antialias'    => FALSE,
                }
            )
        );
        $self->ttf_print(
            $self->ttf_print(
                {
                    'bounding_box' => TRUE,
                    'x'            => 0,
                    'y'            => (149 * $vf) + $Y,
                    'height'       => 34 * $vf,
                    'wscale'       => 1,
                    'color'        => 'FFFFFFFF',
                    'text'         => 'ON',
                    'bounding_box' => TRUE,
                    'center'       => $self->{'CENTER_X'},
                    'antialias'    => FALSE,
                }
            )
        );
        $self->ttf_print(
            $self->ttf_print(
                {
                    'bounding_box' => TRUE,
                    'x'            => 0,
                    'y'            => (192 * $vf) + $Y,
                    'height'       => 40 * $vf,
                    'wscale'       => 1,
                    'color'        => 'FFFFFFFF',
                    'text'         => uc($self->{'GPU'}),
                    'bounding_box' => TRUE,
                    'center'       => $self->{'CENTER_X'},
                    'antialias'    => FALSE,
                }
            )
        );
        $gfb = $self->ttf_print(
            {
                'bounding_box' => TRUE,
                'x'            => 0,
                'y'            => (240 * $vf) + $Y,
                'height'       => 40 * $vf,
                'wscale'       => 1,
                'color'        => '00FF00FF',
                'text'         => sprintf('VERSION %.02f', $version),
                'bounding_box' => TRUE,
                'center'       => $self->{'CENTER_X'},
                'antialias'    => FALSE
            }
        );
        if ($gfb->{'pwidth'} > int(304 * $hf)) {
            $gfb->{'bounding_box'} = TRUE;
            $gfb->{'wscale'}       = int(304 * $hf) / $gfb->{'pwidth'};
            $gfb                   = $self->ttf_print($gfb);
        }
        $self->ttf_print($gfb);
    } else {
        $self->normal_mode();
        # Draws the main boxes
        $self->set_color({ 'red' => 128, 'green' => 0, 'blue' => 128, 'alpha' => 255 });
        $self->polygon(
            {
                'coordinates' => [(400 * $hf) + $X, (80 * $vf) + $Y, (20 * $hf) + $X, (800 * $vf) + $Y, (1600 * $hf) + $X, (1078 * $vf) + $Y, (1900 * $hf) + $X, (5 * $vf) + $Y],
                'filled'      => TRUE,
                'gradient'    => {
                    'colors' => {
                        'red'   => [0,0],
                        'green' => [0,0],
                        'blue'  => [16,255],
                    },
                }
            }
        );
        $self->set_color({ 'red' => 255, 'green' => 0, 'blue' => 0, 'alpha' => 100 });
        $self->alpha_mode();
        $self->rbox(
            {
                'x'      => (150 * $hf) + $X,
                'y'      => (150 * $vf) + $Y,
                'width'  => 1660 * $hf,
                'height' => 800  * $vf,
                'radius' => 15   * min($hf, $vf),
                'filled' => TRUE,
                'gradient' => {
                    'direction' => 'vertical',
                    'colors' => {
                        'red'   => [32,200],
                        'green' => [0,0],
                        'blue'  => [0,0],
                        'alpha' => [96,255],
                    },
                },
            }
        );
        $self->normal_mode();
        ### Draws the Circle with GFB in it ###
        # The dark shadow circle
        $self->set_color({ 'red' => 32, 'green' => 0, 'blue' => 0, 'alpha' => 255 });
        $self->circle(
            {
                'x'      => (207 * $hf) + $X,
                'y'      => (207 * $vf) + $Y,
                'radius' => 200  * min($vf, $hf),
                'filled' => TRUE
            }
        );
        # The "coin"
        $self->set_color({ 'red' => 255, 'green' => 255, 'blue' => 255, 'alpha' => 255 });
        $self->circle(
            {
                'x'        => (200 * $hf) + $X,
                'y'        => (200 * $vf) + $Y,
                'radius'   => 200  * min($hf, $vf),
                'filled'   => TRUE,
                'gradient' => {
                    'direction' => 'vertical',
                    'colors'    => {
                        'red'   => [255, 64, 255],
                        'green' => [255, 255, 64],
                        'blue'  => [64, 255, 255],
                    },
                }
            }
        );
        # G
        $self->set_color({ 'red' => 32, 'green' => 32, 'blue' => 0, 'alpha' => 255 });
        $self->filled_pie(
            {
                'x'             => (102 * $hf) + $X,
                'y'             => (202 * $vf) + $Y,
                'radius'        => 52 * $vf,
                'start_degrees' => 340,
                'end_degrees'   => 269,
                'granularity'   => 0.05
            }
        );
        # F
        $self->polygon(
            {
                'coordinates' => [(162 * $hf) + $X, (252 * $vf) + $Y, (162 * $hf) + $X, (152 * $vf) + $Y, (262 * $hf) + $X, (152 * $vf) + $Y, (242 * $hf) + $X, (172 * $vf) + $Y, (182 * $hf) + $X, (172 * $vf) + $Y, (182 * $hf) + $X, (192 * $vf) + $Y, (222 * $hf) + $X, (192 * $vf) + $Y, (202 * $hf) + $X, (212 * $vf) + $Y, (182 * $hf) + $X, (212 * $vf) + $Y, (182 * $hf) + $X, (232 * $vf) + $Y],
                'filled'      => TRUE,
                'pixel_size'  => 1
            }
        );
        # B
        $self->polygon(
            {
                'coordinates' => [(272 * $hf) + $X, (252 * $vf) + $Y, (272 * $hf) + $X, (152 * $vf) + $Y, (322 * $hf) + $X, (152 * $vf) + $Y, (322 * $hf) + $X, (252 * $vf) + $Y],
                'filled'      => TRUE,
                'pixel_size'  => 1
            }
        );
        $self->circle(
            {
                'x'      => (322 * $hf) + $X,
                'y'      => (177 * $vf) + $Y,
                'radius' => 25 * $vf,
                'filled' => TRUE
            }
        );
        $self->circle(
            {
                'x'      => (322 * $hf) + $X,
                'y'      => (227 * $vf) + $Y,
                'radius' => 25 * $vf,
                'filled' => TRUE
            }
        );
        if ($self->{'COLOR_ORDER'} == $self->{'BGR'}) {
            $self->set_color({ 'red' => 0, 'green' => 0, 'blue' => 255, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'BRG'}) {
            $self->set_color({ 'red' => 0, 'green' => 0, 'blue' => 255, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'RGB'}) {
            $self->set_color({ 'red' => 255, 'green' => 0, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'RBG'}) {
            $self->set_color({ 'red' => 255, 'green' => 0, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'GRB'}) {
            $self->set_color({ 'red' => 0, 'green' => 255, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'GBR'}) {
            $self->set_color({ 'red' => 0, 'green' => 255, 'blue' => 0, 'alpha' => 255 });
        }
        # G
        $self->filled_pie(
            {
                'x'             => (100 * $hf) + $X,
                'y'             => (200 * $vf) + $Y,
                'radius'        => 52 * $vf,
                'start_degrees' => 340,
                'end_degrees'   => 269,
                'granularity'   => 0.05
            }
        );
        # F
        if ($self->{'COLOR_ORDER'} == $self->{'BGR'}) {
            $self->set_color({ 'red' => 0, 'green' => 255, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'BRG'}) {
            $self->set_color({ 'red' => 255, 'green' => 0, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'RGB'}) {
            $self->set_color({ 'red' => 0, 'green' => 255, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'RBG'}) {
            $self->set_color({ 'red' => 0, 'green' => 0, 'blue' => 255, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'GRB'}) {
            $self->set_color({ 'red' => 255, 'green' => 0, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'GBR'}) {
            $self->set_color({ 'red' => 0, 'green' => 0, 'blue' => 255, 'alpha' => 255 });
        }
        $self->polygon(
            {
                'coordinates' => [(160 * $hf) + $X, (250 * $vf) + $Y, (160 * $hf) + $X, (150 * $vf) + $Y, (260 * $hf) + $X, (150 * $vf) + $Y, (240 * $hf) + $X, (170 * $vf) + $Y, (180 * $hf) + $X, (170 * $vf) + $Y, (180 * $hf) + $X, (190 * $vf) + $Y, (220 * $hf) + $X, (190 * $vf) + $Y, (200 * $hf) + $X, (210 * $vf) + $Y, (180 * $hf) + $X, (210 * $vf) + $Y, (180 * $hf) + $X, (230 * $vf) + $Y],
                'filled'      => TRUE,
                'pixel_size'  => 1
            }
        );
        $self->normal_mode();
        # B
        if ($self->{'COLOR_ORDER'} == $self->{'BGR'}) {
            $self->set_color({ 'red' => 255, 'green' => 0, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'BRG'}) {
            $self->set_color({ 'red' => 0, 'green' => 255, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'RGB'}) {
            $self->set_color({ 'red' => 0, 'green' => 0, 'blue' => 255, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'RBG'}) {
            $self->set_color({ 'red' => 0, 'green' => 255, 'blue' => 0, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'GRB'}) {
            $self->set_color({ 'red' => 0, 'green' => 0, 'blue' => 255, 'alpha' => 255 });
        } elsif ($self->{'COLOR_ORDER'} == $self->{'GBR'}) {
            $self->set_color({ 'red' => 255, 'green' => 0, 'blue' => 0, 'alpha' => 255 });
        }
        $self->polygon(
            {
                'coordinates' => [(270 * $hf) + $X, (250 * $vf) + $Y, (270 * $hf) + $X, (150 * $vf) + $Y, (320 * $hf) + $X, (150 * $vf) + $Y, (320 * $hf) + $X, (250 * $vf) + $Y],
                'filled'      => TRUE,
                'pixel_size'  => 1
            }
        );
        $self->circle(
            {
                'x'      => (320 * $hf) + $X,
                'y'      => (175 * $vf) + $Y,
                'radius' => 25 * $vf,
                'filled' => TRUE
            }
        );
        $self->circle(
            {
                'x'      => (320 * $hf) + $X,
                'y'      => (225 * $vf) + $Y,
                'radius' => 25 * $vf,
                'filled' => TRUE
            }
        );
        $self->set_color({ 'red' => 32, 'green' => 0, 'blue' => 0, 'alpha' => 255 });
        $self->rbox(
            {
                'x'      => (478 * $hf) + $X,
                'y'      => (208 * $vf) + $Y,
                'width'  => (1230 * $hf),
                'height' => (150 * $vf),
                'radius' => 20 * $vf,
                'filled' => TRUE,
            }
        );
        $self->rbox(
            {
                'x'        => (470 * $hf) + $X,
                'y'        => (200 * $vf) + $Y,
                'width'    => (1230 * $hf),
                'height'   => (150 * $vf),
                'radius'   => 10 * $vf,
                'filled'   => TRUE,
                'gradient' => {
                    'direction' => 'vertical',
                    'colors' => {
                        'red'   => [0,255],
                        'green' => [255,255],
                        'blue'  => [0,0],
                        'alpha' => [255,255],
                    },
                }
            }
        );
        if ($self->{'ACCELERATED'}) {
            $self->ttf_print(
                $self->ttf_print(
                    {
                        'bounding_box' => TRUE,
                        'x'            => (510 * $hf) + $X,
                        'y'            => (351 * $vf) + $Y,
                        'height'       => 110 * $vf,
                        'wscale'       => 1.3,
                        'color'        => '0101FFFF',
                        'text'         => ($self->{'ACCELERATED'} == 2) ? 'GPU Accelerated' : 'C Accelerated',
                        'bounding_box' => TRUE,
                        'center'       => 0,
                        'antialias'    => ($self->{'BITS'} >= 24) ? TRUE : FALSE
                    }
                )
            );
        }
        if ($self->{'BITS'} >= 24) {
            my $shadow = $self->ttf_print(
                {
                    'bounding_box' => TRUE,
                    'x'            => 0,
                    'y'            => (641 * $vf) + $Y,
                    'height'       => 200 * $vf,
                    'wscale'       => 1,
                    'color'        => '221100FF',
                    'text'         => 'Graphics-Framebuffer',
                    'bounding_box' => TRUE,
                    'center'       => $self->{'CENTER_X'},
                    'antialias'    => TRUE
                }
            );
            if ($shadow->{'pwidth'} > (1500 * $hf)) {
                $shadow->{'bounding_box'} = TRUE;
                $shadow->{'wscale'}       = int(1500 * $hf) / $shadow->{'pwidth'};
                $shadow                   = $self->ttf_print($shadow);
            }
            $shadow->{'x'} += max(1, 6 * $hf);
            $shadow->{'y'} += max(1, 6 * $vf);
            delete($shadow->{'center'});
            $self->ttf_print($shadow);
        }
        my $gfb = $self->ttf_print(
            {
                'bounding_box' => TRUE,
                'x'            => 0,
                'y'            => (641 * $vf) + $Y,
                'height'       => 200 * $vf,
                'wscale'       => 1,
                'color'        => 'FFFF00FF',
                'text'         => 'Graphics-Framebuffer',
                'bounding_box' => TRUE,
                'center'       => $self->{'CENTER_X'},
                'antialias'    => ($self->{'BITS'} >= 24) ? TRUE : FALSE
            }
        );
        if ($gfb->{'pwidth'} > (1500 * $hf)) {
            $gfb->{'bounding_box'} = TRUE;
            $gfb->{'wscale'}       = int(1500 * $hf) / $gfb->{'pwidth'};
            $gfb                   = $self->ttf_print($gfb);
        }
        $self->ttf_print($gfb);
        my $rk = $self->ttf_print(
            {
                'bounding_box' => TRUE,
                'x'            => 0,
                'y'            => (651 * $vf) + $Y,
                'height'       => 50 * $vf,
                'wscale'       => 1,
                'color'        => '00EE00FF',
                'text'         => 'by Richard Kelsch',
                'bounding_box' => TRUE,
                'center'       => FALSE,
                'antialias'    => ($self->{'BITS'} >= 24) ? TRUE : FALSE
            }
        );
        $rk->{'x'} = (1710 * $hf) - $rk->{'pwidth'};
        $self->ttf_print($rk);
        $self->ttf_print(
            $self->ttf_print(
                {
                    'bounding_box' => TRUE,
                    'x'            => 0,
                    'y'            => (771 * $vf) + $Y,
                    'height'       => 120 * $vf,
                    'wscale'       => 1,
                    'color'        => 'FFFFFFFF',
                    'text'         => sprintf('Version %.02f', $version),
                    'bounding_box' => TRUE,
                    'center'       => $self->{'CENTER_X'},
                    'antialias'    => ($self->{'BITS'} >= 24) ? TRUE : FALSE
                }
            )
        );
        my $scaleit = $self->ttf_print(
            {
                'bounding_box' => TRUE,
                'x'            => 0,
                'y'            => (901 * $vf) + $Y,
                'height'       => 120 * $vf,
                'wscale'       => 1,
                'color'        => 'FFFFFFFF',
                'text'         => sprintf('%dx%d-%02d on %s', $self->{'XRES'}, $self->{'YRES'}, $self->{'BITS'}, $self->{'GPU'}),
                'bounding_box' => TRUE,
                'center'       => $self->{'CENTER_X'},
                'antialias' => ($self->{'BITS'} >= 24) ? TRUE : FALSE
            }
        );
        if ($scaleit->{'pwidth'} > int(1500 * $hf)) {
            $scaleit->{'bounding_box'} = TRUE;
            $scaleit->{'wscale'}       = int(1500 * $hf) / $scaleit->{'pwidth'};
            $scaleit                   = $self->ttf_print($scaleit);
        }
        $self->ttf_print($scaleit);
        $self->_perl_logo();
    }
    $self->normal_mode();
}
1;
HideShow 10 lines of Pod
=head1 NAME
Graphics::Framebuffer::Splash
=head1 DESCRIPTION
See the "Graphics::Frambuffer" documentation, as methods within here are pulled into the main module
=cut