Microsoft Small Basic

Program Listing: VBD789

List Program

tag = "metafilter"
pic = "MyPic"

GraphicsWindow.DrawBoundText(4,4,200,"Loading the image....")
picName = ImageList.LoadImage(Flickr.GetRandomPicture(tag))

height = ImageList.GetHeightOfImage(picName)
width = ImageList.GetWidthOfImage(picName)
iMaxWidth = GraphicsWindow.Width
iMaxHeight = GraphicsWindow.Height

GraphicsWindow.DrawResizedImage(picName, 3, 3, (iMaxWidth-6) , (iMaxHeight-6) )
Program.Delay(1000)

GraphicsWindow.FontSize = 80
GraphicsWindow.FontBold = 1
GraphicsWindow.FontName = "Comic Sans MS"

GraphicsWindow.BrushColor = "White"
GraphicsWindow.DrawBoundText(10,20,iMaxWidth-20,"Boo Yay! Metafiltarians")

GraphicsWindow.BrushColor = "Black"
GraphicsWindow.DrawBoundText(11,21,iMaxWidth-20,"Boo Yay! Metafiltarians")