BMP - know the dimensions in pixels

[joan74]

Hi, 
here two functions to know the BMP dimensions in pixels


function GetBmpWidth(PathBmpName$)

'by Joan74' (Based on "BMP to Sprite Mask" by Andy Amaya)

'Capture la Largeur d'une image bmp à partir de son fichier sur le disque

open PathBmpName$ for Binary as #BinIn

'get bmpHeaderInfo

info$ = Input$(#BinIn, 54)

'get Width of bmp

GetBmpWidth = Asc(Mid$(info$,19,1))+Asc(Mid$(info$,20,1))*256

close #BinIn

end function





function GetBmpHeight(PathBmpName$)

'by Joan74' (Based on "BMP to Sprite Mask" by Andy Amaya)

'Capture la Hauteur d'une image bmp à partir de son fichier sur le disque

'ATTENTION : concernant les sprites il ne faudra pas oublier de diviser cette valeur par 2 à cause du masque.

open PathBmpName$ for Binary as #BinIn

'get bmpHeaderInfo

info$ = Input$(#BinIn, 54)

'get Height of bmp

GetBmpHeight = Asc(Mid$(info$,23,1))+Asc(Mid$(info$,24,1))*256

close #BinIn

end function