01  ''
02  ''  BITMAP FILE CLASS
03  ''
04  ''  Functions for reading uncompressed 24 or 32 bit bitmaps
05  ''
06  ''  Example:
07  ''  dim filename: filename = rhino.openfilename( _
08  ''    "Select bitmap file",                      _
09  ''    "Bitmap Files (*.bmp)|*.bmp||"             _
10  ''  )
11  ''  if( valid( filename ) ) then
12  ''    dim bitmap: bitmap = bmp_open( filename )
13  ''    if( valid( bitmap ) ) then
14  ''      dim x, y
15  ''      for y = 0 to bitmap( BMP_INFO )( BMP_HEIGHT ) - 1
16  ''        for x = 0 to bitmap( BMP_INFO )( BMP_WIDTH ) - 1
17  ''          dim vertex: vertex = vertex_new( x, y, 0 )
18  ''          dim point:  point  = rhino.addpoint( vertex )
19  ''          dim pixel:  pixel  = bmp_readpixel( bitmap, x, y )
20  ''          call rhino.objectcolor( point, pixel )
21  ''         next
22  ''       next
23  ''      call bmp_close( bitmap )
24  ''    else
25  ''      call msgbox( "Couldn't load the bitmap", vbinformation )
26  ''    end if
27  ''  else
28  ''    call msgbox( "Script aborted", vbinformation )
29  ''  end if
30  ''
31  ''
32  
33  '' PUBLIC
34  ''
35        dim BMP_FILE:      BMP_FILE      = 0
36        dim BMP_HEADER:    BMP_HEADER    = 1
37        dim BMP_INFO:      BMP_INFO      = 2
38  
39  '' PRIVATE
40  ''
41        dim BMP_SIGNATURE: BMP_SIGNATURE = 0
42        dim BMP_FILESIZE:  BMP_FILESIZE  = 1
43        dim BMP_RESERVED:  BMP_RESERVED  = 2
44        dim BMP_BITOFFSET: BMP_BITOFFSET = 3
45  
46        dim BMP_STRUCTLEN: BMP_STRUCTLEN = 0
47        dim BMP_WIDTH:     BMP_WIDTH     = 1
48        dim BMP_HEIGHT:    BMP_HEIGHT    = 2
49        dim BMP_PLANES:    BMP_PLANES    = 3
50        dim BMP_BITS:      BMP_BITS      = 4
51        dim BMP_COMPRESS:  BMP_COMPRESS  = 5
52        dim BMP_IMAGESIZE: BMP_IMAGESIZE = 6
53        dim BMP_WIDTHIM:   BMP_WIDTHIM   = 7
54        dim BMP_HEIGHTIM:  BMP_HEIGHTIM  = 8
55        dim BMP_USEDCOLOR: BMP_USEDCOLOR = 9
56        dim BMP_IMPORTANT: BMP_IMPORTANT = 10
57