mirrors/SDL
1
0
Fork 0
mirror of https://github.com/libsdl-org/SDL.git synced 2025-09-05 19:08:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

update sdlgenblit.pl after PR/12769

Browse Source 
Closes: https://github.com/libsdl-org/SDL/issues/12774.
This commit is contained in:
Ozkan Sezer
2025-04-08 14:56:56 +03:00
committed by Ozkan Sezer
parent b0a0d236d8
commit ab57ef9d7b
1 changed files with 51 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
src/video/sdlgenblit.pl
View File

@@ -60,30 +60,30 @@ my %format_type = (
);
my %get_rgba_string_ignore_alpha = (
"XRGB8888" => "_R = (Uint8)(_pixel >> 16); _G = (Uint8)(_pixel >> 8); _B = (Uint8)_pixel;",
"XBGR8888" => "_B = (Uint8)(_pixel >> 16); _G = (Uint8)(_pixel >> 8); _R = (Uint8)_pixel;",
"ARGB8888" => "_R = (Uint8)(_pixel >> 16); _G = (Uint8)(_pixel >> 8); _B = (Uint8)_pixel;",
"RGBA8888" => "_R = (Uint8)(_pixel >> 24); _G = (Uint8)(_pixel >> 16); _B = (Uint8)(_pixel >> 8);",
"ABGR8888" => "_B = (Uint8)(_pixel >> 16); _G = (Uint8)(_pixel >> 8); _R = (Uint8)_pixel;",
"BGRA8888" => "_B = (Uint8)(_pixel >> 24); _G = (Uint8)(_pixel >> 16); _R = (Uint8)(_pixel >> 8);",
"XRGB8888" => "__R = (Uint8)(__pixel_ >> 16); __G = (Uint8)(__pixel_ >> 8); __B = (Uint8)__pixel_;",
"XBGR8888" => "__B = (Uint8)(__pixel_ >> 16); __G = (Uint8)(__pixel_ >> 8); __R = (Uint8)__pixel_;",
"ARGB8888" => "__R = (Uint8)(__pixel_ >> 16); __G = (Uint8)(__pixel_ >> 8); __B = (Uint8)__pixel_;",
"RGBA8888" => "__R = (Uint8)(__pixel_ >> 24); __G = (Uint8)(__pixel_ >> 16); __B = (Uint8)(__pixel_ >> 8);",
"ABGR8888" => "__B = (Uint8)(__pixel_ >> 16); __G = (Uint8)(__pixel_ >> 8); __R = (Uint8)__pixel_;",
"BGRA8888" => "__B = (Uint8)(__pixel_ >> 24); __G = (Uint8)(__pixel_ >> 16); __R = (Uint8)(__pixel_ >> 8);",
);
my %get_rgba_string = (
"XRGB8888" => $get_rgba_string_ignore_alpha{"XRGB8888"},
"XBGR8888" => $get_rgba_string_ignore_alpha{"XBGR8888"},
"ARGB8888" => $get_rgba_string_ignore_alpha{"ARGB8888"} . " _A = (Uint8)(_pixel >> 24);",
"RGBA8888" => $get_rgba_string_ignore_alpha{"RGBA8888"} . " _A = (Uint8)_pixel;",
"ABGR8888" => $get_rgba_string_ignore_alpha{"ABGR8888"} . " _A = (Uint8)(_pixel >> 24);",
"BGRA8888" => $get_rgba_string_ignore_alpha{"BGRA8888"} . " _A = (Uint8)_pixel;",
"ARGB8888" => $get_rgba_string_ignore_alpha{"ARGB8888"} . " __A = (Uint8)(__pixel_ >> 24);",
"RGBA8888" => $get_rgba_string_ignore_alpha{"RGBA8888"} . " __A = (Uint8)__pixel_;",
"ABGR8888" => $get_rgba_string_ignore_alpha{"ABGR8888"} . " __A = (Uint8)(__pixel_ >> 24);",
"BGRA8888" => $get_rgba_string_ignore_alpha{"BGRA8888"} . " __A = (Uint8)__pixel_;",
);
my %set_rgba_string = (
"XRGB8888" => "_pixel = (_R << 16) | (_G << 8) | _B;",
"XBGR8888" => "_pixel = (_B << 16) | (_G << 8) | _R;",
"ARGB8888" => "_pixel = (_A << 24) | (_R << 16) | (_G << 8) | _B;",
"RGBA8888" => "_pixel = (_R << 24) | (_G << 16) | (_B << 8) | _A;",
"ABGR8888" => "_pixel = (_A << 24) | (_B << 16) | (_G << 8) | _R;",
"BGRA8888" => "_pixel = (_B << 24) | (_G << 16) | (_R << 8) | _A;",
"XRGB8888" => "__pixel_ = (__R << 16) | (__G << 8) | __B;",
"XBGR8888" => "__pixel_ = (__B << 16) | (__G << 8) | __R;",
"ARGB8888" => "__pixel_ = (__A << 24) | (__R << 16) | (__G << 8) | __B;",
"RGBA8888" => "__pixel_ = (__R << 24) | (__G << 16) | (__B << 8) | __A;",
"ABGR8888" => "__pixel_ = (__A << 24) | (__B << 16) | (__G << 8) | __R;",
"BGRA8888" => "__pixel_ = (__B << 24) | (__G << 16) | (__R << 8) | __A;",
);
sub open_file {
@@ -183,14 +183,19 @@ sub get_rgba
$string = $get_rgba_string{$format};
}
$string =~ s/_/$prefix/g;
$string =~ s/__/$prefix/g;
if ( $prefix eq "" ) {
$string =~ s/_/value/g;
} else {
$string =~ s/_//g;
}
if ( $prefix ne "" ) {
print FILE <<__EOF__;
${prefix}pixel = *$prefix;
__EOF__
} else {
print FILE <<__EOF__;
pixel = *src;
pixelvalue = *src;
__EOF__
}
print FILE <<__EOF__;
@@ -202,11 +207,18 @@ sub set_rgba
{
my $prefix = shift;
my $format = shift;
my $suffix = "";
my $string = $set_rgba_string{$format};
$string =~ s/_/$prefix/g;
$string =~ s/__/$prefix/g;
if ( $prefix eq "" ) {
$suffix = "value";
$string =~ s/_/value/g;
} else {
$string =~ s/_//g;
}
print FILE <<__EOF__;
$string
*dst = ${prefix}pixel;
*dst = ${prefix}pixel${suffix};
__EOF__
}
@@ -245,16 +257,16 @@ __EOF__
if ($da eq "A") {
# RGBA -> ARGB
print FILE <<__EOF__;
pixel = *src;
pixel = (pixel >> 8) | (pixel << 24);
*dst = pixel;
pixelvalue = *src;
pixelvalue = (pixelvalue >> 8) | (pixelvalue << 24);
*dst = pixelvalue;
__EOF__
} else {
# ARGB -> RGBA -- unused
print FILE <<__EOF__;
pixel = *src;
pixel = (pixel << 8) | A;
*dst = pixel;
pixelvalue = *src;
pixelvalue = (pixelvalue << 8) | A;
*dst = pixelvalue;
__EOF__
}
} elsif ($dst_has_alpha) {
@@ -262,16 +274,16 @@ __EOF__
if ($da eq "A") {
# XRGB -> ARGB
print FILE <<__EOF__;
pixel = *src;
pixel |= (A << 24);
*dst = pixel;
pixelvalue = *src;
pixelvalue |= (A << 24);
*dst = pixelvalue;
__EOF__
} else {
# XRGB -> RGBA -- unused
print FILE <<__EOF__;
pixel = *src;
pixel = (pixel << 8) | A;
*dst = pixel;
pixelvalue = *src;
pixelvalue = (pixelvalue << 8) | A;
*dst = pixelvalue;
__EOF__
}
} else {
@@ -279,16 +291,16 @@ __EOF__
if ($sa eq "A") {
# ARGB -> XRGB
print FILE <<__EOF__;
pixel = *src;
pixel &= 0xFFFFFF;
*dst = pixel;
pixelvalue = *src;
pixelvalue &= 0xFFFFFF;
*dst = pixelvalue;
__EOF__
} else {
# RGBA -> XRGB
print FILE <<__EOF__;
pixel = *src;
pixel >>= 8;
*dst = pixel;
pixelvalue = *src;
pixelvalue >>= 8;
*dst = pixelvalue;
__EOF__
}
}
@@ -536,7 +548,7 @@ __EOF__
}
} elsif ( $modulate || $src ne $dst ) {
print FILE <<__EOF__;
Uint32 pixel;
Uint32 pixelvalue;
__EOF__
if ( !$ignore_dst_alpha && !$src_has_alpha ) {
if ( $modulate ) {