fix png loading

Doug Coleman 2009-12-30 14:58:50 -06:00
parent 1329e0dcb3
commit c679593ee3
1 changed files with 1 additions and 1 deletions

View File

@ -291,7 +291,7 @@ ERROR: invalid-color-type/bit-depth loading-png ;
{ 8 16 } validate-bit-depth ; { 8 16 } validate-bit-depth ;
: pad-bitmap ( image -- image ) : pad-bitmap ( image -- image )
dup dim>> first 4 divisor? [ dup dim>> second 4 divisor? [
dup [ bytes-per-pixel ] dup [ bytes-per-pixel ]
[ dim>> first * ] [ dim>> first * ]
[ dim>> first 4 mod ] tri [ dim>> first 4 mod ] tri