; ImageHeight Example
; -------------------

Graphics 640,480,0,2
SetBuffer BackBuffer()

logo=LoadImage("media/b3dlogo.jpg")

; Read the image's size in pixels
w=ImageWidth(logo)
h=ImageHeight(logo)

While Not KeyDown(1)

    Cls

    DrawImage logo,120,140

    ; Measurement guides drawn from the returned values
    Color 255,255,0
    Line 110,140,110,140+h            ; height guide down the side
    Line 106,140,114,140
    Line 106,140+h,114,140+h
    Text 10,140+h/2,"ImageHeight = "+h

    Color 128,128,128
    Line 120,130,120+w,130            ; width guide along the top
    Text 0,0,"Esc: exit"
    Text 0,20,"ImageHeight(logo)="+h+"   ImageWidth(logo)="+w

    Flip

Wend

End