fix png loading

db4
Doug Coleman 2009-12-30 14:58:50 -06:00
parent eae646bfa0
commit 2ca0375dee
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