Bitmap Image Displayer

Want to incorporate your own bitmap images into your SiMPLE programs? With this "plotbmp" task, you can! Just specify the image* that you want to use (and where you want it to appear on your screen). It's that easy!

Source Listing

// Program: Bitmap Image Displayer // Author: Bob Bishop ///////////////////////////////////////////////////////////////// // // // The following 5-line program will display 16 copies of // // the Woody Woodpecker image contained in "woody.bmp" (in // // the root directory of your hard drive). The image's // // light-gray background (color=7) will be "invisible." // // // ///////////////////////////////////////////////////////////////// Pro-SiMPLE solid color (10) solid rectangle (0, 0, 639, 479) Do x=-30,570,40 plot bmp ("C:\\woody.bmp", x, x/2, 7) @ Loop ///////////////////////////////////////////////////////////////// // // // (Modified: 2005 Jan. 22) // // // // The plotbmp task will display any 1, 4, 8, or 24-bit // // bitmap image. (Works best with 1-bit and 4-bit images // // that were created using the MSPAINT program, or with // // images that were produced by the SCRUNCH program.) // // // // The plotbmp task has three primary calling parameters: // // // // path - the path to the bitmap image // // x - the x-coordinate of where the top-left corner // // of the image is to be displayed on the screen // // y - the y-coordinate of where the top-left corner // // of the image is to be displayed on the screen // // // // In addition, for 1-bit and 4-bit images (i.e., B/W and // // 16-color images) there is an optional fourth calling // // parameter: // // // // inv - the image's "invisible" color (i.e., the see- // // thru "background" color) // // // ///////////////////////////////////////////////////////////////// Task plot bmp (Text path, Int x, Int y) plot bmp (path, x, y, -1) @ Task plot bmp (Text path, Int x, Int y, Int inv) Common Int z[]={0,4,2,6,1,5,3,7,8,12,10,14,9,13,11,15} Common Int red[256], grn[256], blu[256] Common Int xsize, ysize, zbits Int r, g, b, rgb command="read "+path Open g (command) get bmp data @ Graphon If zbits=1 Do yy=ysize-1,0 Do xx=0,(xsize-1),8 Read binary g (rgb, 0) Do k=1,8 zz=15*Bool(rgb>127); rgb=2*(rgb%128) If (zz!=inv) Put pixel (x+xx+k, y+yy, zz) If xx+k=xsize Break Loop Loop skip (3-((xsize-1)/8)%4) @ Loop Endif If zbits=4 Do yy=ysize-1,0 Do xx=0,xsize-1,2 Read binary g (rgb, 0) zz=z[rgb/16]; If (zz!=inv) Put pixel (x+xx, y+yy, zz) If (xx=xsize-1) Break zz=z[rgb%16]; If (zz!=inv) Put pixel (x+xx+1, y+yy, zz) Loop skip ((16384-(xsize+1)/2)%4) @ Loop Endif If zbits=8 Do yy=ysize-1,0 Do xx=0,xsize-1 Read binary g (rgb, 0) r=red[rgb]; g=grn[rgb]; b=blu[rgb] zz=convert rgb (x+xx, y+yy, r, g, b) Put pixel (x+xx, y+yy, zz) Loop skip ((16384-xsize)%4) @ Loop Endif If zbits=24 Do yy=ysize-1,0 Do xx=0,xsize-1 Read binary g (b, 0) Read binary g (g, 0) Read binary g (r, 0) zz=convert rgb (x+xx, y+yy, r, g, b) Put pixel (x+xx, y+yy, zz) Loop skip (xsize%4) @ Loop Endif Close g /////////////////////////////////////////////////// // // // The convertrgb function tries to find the // // closest match to a given RGB color. // // // /////////////////////////////////////////////////// Int convert rgb (Int x, Int y, Int r, Int g, Int b) Common Int rr[]={0,0,0,0,2,2,2,2,1,1,1,1,3,3,3,3} Common Int gg[]={0,0,2,2,0,0,1,2,1,1,3,3,1,1,3,3} Common Int bb[]={0,2,0,2,0,2,0,2,1,3,1,3,1,3,1,3} Int2 err, rerr, gerr, berr min=999999L Do k=0,15 Do j=k,0 rerr=42*(rr[j]+rr[k])-r gerr=42*(gg[j]+gg[k])-g berr=42*(bb[j]+bb[k])-b err=rerr*rerr+gerr*gerr+berr*berr If (err>min) Continue If (err=min And j!=k) Continue min=err; za=j; zb=k Loop Loop If ((x+y)%2) Return za Else Return zb //--------------------------------------------------------------- Task get bmp data Common Int xsize, ysize, zbits Common Int red[256], grn[256], blu[256] Int a, b Read binary g (a, 0) Read binary g (b, 0) If a!=66 Or b!=77 Display "Not a valid bitmap file" close g; pause; quit Endif skip (8) @ Read binary g (a, 0) Read binary g (b, 0) picdata=a+256*b skip (6) @ Read binary g (a, 0) Read binary g (b, 0) xsize=a+256*b skip (2) @ Read binary g (a, 0) Read binary g (b, 0) ysize=a+256*b skip (4) @ Read binary g (zbits, 0) skip (25) @ If (zbits=1) skip (8) @ If (zbits=4) skip (64) @ If zbits=8 loc=54 Do k=0,255 Read binary g (blu[k], 0) Read binary g (grn[k], 0) Read binary g (red[k], 0) skip (1) @ loc=loc+4; If loc=picdata Break Loop Endif Task skip (Int n) Do k=1,n,1 Read binary g (0, 0) Loop

To run the example program shown in the source listing above, you will first need to copy and save the following 16-color bitmap image onto the root directory of your hard drive. (Right-click anywhere on the image, and then choose "Save Picture As...")

*(The "plotbmp" task works most efficiently with 16-color bitmap images.)

How To Run The Program If you're feeling ambitious and have nothing better to do, you could just copy the source listing by hand! However, there is a much easier way to do it: Copy the source listing into the Windows Clipboard Paste the Clipboard into a new text document Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)

  [ Webmaster | FAQ's | Home Page | Contact Us ]

© Copyright 2006 SiMPLE CodeWorks, Inc. All rights reserved.