‰PNG

   
IHDR   
   $   RH°‚   
sRGB ®Îé   gAMA  ±üa      pHYs    Â
(J€  IDATHK•TKkSAžHK#
°`@Ñ‚©v!âÈ¢HÅ.ªvá£uá
>(¥*Å¢’…‹ŠûRQPð±tU7"ˆ––ºéÃB´)"5É}ß&iÒÏ3÷Î\'i¬õÀ—™óóÝ3çÌ@¢›Q|œ?'}ŸÌdF‘^t éóäÇdP Šln
¿2Eä´‡ä×qr –]DÓv ïJšö¸V!ˆA×1xc‘­ Ñ2q·x †ñã–8qºÓÔˆï†eåÐ{©ìñcoò_ó|yFÕîbvÎBlÐvЍŽ÷P7$˜˜4àº#2÷ˆ£XìGꛁæ=@x°c7°6aZI5oS­TʲHc=‡}?ÜÀX¹V.9>!,ø‚®_§*Ž÷õÄA¿i~L~Ü™Y›ú–¹¾ “}€É)ÛKè8Z¢“ø>o|0¼¯Oãt%Úcâ½APFÝæOÎq2ÄÉ‘·z#ï¿ZTF>ÀuÞøåšæùÍB #~Ó3U~I¾2r^qíkàψÇ=_Þ᧿­i¶X«îé/°¡¿pa®XÈoo]Prr
ÓÎI4a   i—¸¡š‰
:dœ34›û(çᦉ‹ÖJ”ˆçá؃hÃÚQDÞ!nÉ„°ë­ò~"ŒÔ(úʼ
‘ßO—ˆy¢¨‰ìÔ{<Ï“¿„5þî-žºhÒ?0o—°r[
¤¨wvá<⸆
X.¦ðÅ=‚0>â•]€;¦
¤ˆQà,U³/Б/ã z莟"Y žR_ó¿¡:Ô‡Í«%ÑÉ+ò£Æ•x€j"AP£Ê¼ñŽªX€Z$ŸàÅ*®!þó¿<Ø˱Ðaáz–f¡Íœ×Xh¿ |“%³`«9°¯ÒÜ)â@¸£ò•,´
uÛu-Qö†Üþu¼š£­Q©bë)VŶÂ%LÓRo²P‹ÏxÁ¸Ø.ŠÕ7e¼Ãb¼Ÿ   ý„›Âw—ÀZÔ‘J¸'%>è`íjG…ãƒ5üÛKkãÚØo!S-aÆ<™    IEND®B`‚

function loaddimension(url$,w% var,h% var)
  function readfunc%(buf@ptr,size%,nmemb%,src:object)
    local n%=tstream(src).readbytes(buf,size*nmemb)
    return n/size
  endfunction

  local f:tstream=readfile(url)
  select lower(trimext(url))
  case "bmp"
    seekstream f,$12
    w=readshort(f)
    seekstream f,$16
    h=readshort(f)

  case "tga"
    seekstream f,$c
    w=readshort(f)
    h=readshort(f)
   
  case "jpg"
    local depth%,pix:byte ptr
    local res%=loadjpg(f,readfunc,w,h,depth,pix)

  case "png"
    seekstream f,$12
    local b:byte ptr=varptr(w)
    b[1]=readbyte(f)
    b[0]=readbyte(f)
    seekstream f,$16
    b=varptr(h)
    b[1]=readbyte(f)
    b[0]=readbyte(f)
  endselect
  closefile f
endfunction

local str:byte ptr
str=loadbytearray("D:\BlitzMax\x1.png")

local pic:timage
local w%,h%
loaddimension "D:\BlitzMax\x1.png",w,h
print w+":"+h
pic=createimage(w,h)

local f:tramstream=createramstream(str,w*h,true,false)
pic.pixmaps[0]=loadpixmappng(f)
closestream f
...
drawimage pic