View source for ThirtyTwoBit SUB

----
----
<center>'''{{Text|Attention!! - This page is outdated and provided for reference and/or education only.|red}}'''</center>
<center>([[Historic Pages|Return to historic Table of Contents]])</center>
----
----<br>

<center>''' ThirtyTwoBit Screen Shot SUB for QB64 Screen and Image Handles'''</center>


{{PageSyntax}}
: ThirtyTwoBit left_column%, top_row%, right_column%, bottom_row%, handle&, new_filename$


{{PageDescription}}
* Copies portions or all of a Screen or image using the handle value to a new bitmap. [[SaveImage SUB]] does full screen only!
* Make sure the maximum coordinates used are one less than the '''screen''' image's size or an [[ERROR Codes|Illegal Function call error]] will occur!
* A handle value of 0 will copy the present portion of the main program screen while the screen's handle may hold a previous image.
* Can be used with 4, 8 or 24/32 bit colors. 4 BPP = 16 colors, 8 BPP = 256 colors and 24/32 BPP has 16 million colors.


{{PageExamples}}
{{CodeStart}}
'  ************************************** DEMO CODE **********************************
'
{{Cl|_TITLE}} "Demo of ThirtyTwoBit SUB by Ted Weissgerber 2010"
dst& = {{Cl|_NEWIMAGE}}(800, 600, 32) 'for console bitmap
{{Cl|SCREEN}} dst&

{{Cl|PAINT}} (799, 599), {{Cl|_RGB}}(180, 180, 180)
{{Cl|LINE}} (7, 15)-(648, 496), {{Cl|_RGB}}(0, 0, 80), BF

INPUT "Enter an image filename: ", filename$
bmp& = {{Cl|_LOADIMAGE}}(filename$, 256)
{{Cl|IF}} bmp& = -1 {{Cl|THEN}} {{Cl|BEEP}}: {{Cl|SYSTEM}}
bitmap& = {{Cl|_NEWIMAGE}}({{Cl|_WIDTH (function)|_WIDTH}}(bmp&), {{Cl|_HEIGHT}}(bmp&), 256)
{{Cl|_COPYPALETTE}} bmp&, bitmap&  'adopt image color settings
{{Cl|_PUTIMAGE}} , bmp&, bitmap&   'place bitmap in screen page
{{Cl|_DEST}} 0:
{{Cl|_PUTIMAGE}} (8, 16), bitmap&  'place screen page in console

'{{Cl|SaveImage SUB|SaveImage}} 0, "Savedimage.bmp" ' get full screen image with Galleon's SaveImage SUB

x2% = ({{Cl|_WIDTH (function)|_WIDTH}}(bmp&) - 1)
y2% = ({{Cl|_HEIGHT}}(bmp&) - 1)

ThirtyTwoBit 0, 0, x2%, y2%, bmp&, "BobSave.bmp"  ' save actual image as BMP

'              ********************** END DEMO *********************************
{{CodeEnd}}
{{TextStart}}
'****************************** Freeware by Bob Seguin *******************************
'                     Adapted for QB64 by Ted Weissgerber in 2010

'*************************************************************************************

{{Cb|SUB}} ThirtyTwoBit (x1%, y1%, x2%, y2%, image&, Filename$)
{{Cb|DIM}} Colors8%(255)
{{Cb|IF...THEN|IF}} x1% > x2% {{Cb|THEN}} {{Cb|SWAP}} x1%, x2%
{{Cb|IF...THEN|IF}} y1% > y2% {{Cb|THEN}} {{Cb|SWAP}} y1%, y2%
{{Cb|_SOURCE}} image&
pixelbytes& = {{Cb|_PIXELSIZE}}(image&)
{{Cb|IF...THEN|IF}} pixelbytes& = 0 {{Cb|THEN}} {{Cb|BEEP}}: {{Cb|EXIT SUB}} 'no text screens

FileType$ = "BM"
QB64$ = "QB64" 'free advertiising in reserved bytes
{{Cb|IF...THEN|IF}} pixelbytes& = 1 {{Cb|THEN}} OffsetBITS& = 1078 {{Cb|ELSE}} OffsetBITS& = 54 'no palette in 24/32 bit
InfoHEADER& = 40
PictureWidth& = (x2% - x1%) + 1
PictureDepth& = (y2% - y1%) + 1
NumPLANES% = 1
{{Cb|IF...THEN|IF}} pixelbytes& = 1 {{Cb|THEN}} BPP% = 8 {{Cb|ELSE}} BPP% = 24
Compression& = 0
WidthPELS& = 3780
DepthPELS& = 3780

{{Cb|IF...THEN|IF}} pixelbytes& = 1 {{Cb|THEN}} 'byte padder prevents image skewing
  NumColors& = 256 'set 256 colors even if they are not used by the screen mode
  {{Cb|IF...THEN|IF}} (PictureWidth& {{Cb|MOD}} 4) {{Cb|THEN}} ZeroPad$ = {{Cb|SPACE$}}(4 - (PictureWidth& {{Cb|MOD}} 4))
{{Cb|ELSE}} '24/32 bit images use 3 bytes for RGB pixel values
  NumColors& = 0  '24/32 bit say zero
  {{Cb|IF...THEN|IF}} ((PictureWidth& * 3) {{Cb|MOD}} 4) {{Cb|THEN}} ZeroPad$ = {{Cb|SPACE$}}((4 - ((PictureWidth& * 3) {{Cb|MOD}} 4)))
{{Cb|END IF}}

ImageSize& = (PictureWidth& + {{Cb|LEN}}(ZeroPad$)) * PictureDepth&
FileSize& = ImageSize& + OffsetBITS&
f = {{Cb|FREEFILE}}
{{Cb|OPEN}} Filename$ {{Cb|FOR...NEXT|FOR}} {{Cb|BINARY}} {{Cb|AS}} #f

{{Cb|PUT}} #f, , FileType$
{{Cb|PUT}} #f, , FileSize&
{{Cb|PUT}} #f, , QB64$
{{Cb|PUT}} #f, , OffsetBITS&
{{Cb|PUT}} #f, , InfoHEADER&
{{Cb|PUT}} #f, , PictureWidth&
{{Cb|PUT}} #f, , PictureDepth&
{{Cb|PUT}} #f, , NumPLANES%
{{Cb|PUT}} #f, , BPP%
{{Cb|PUT}} #f, , Compression&
{{Cb|PUT}} #f, , ImageSize&
{{Cb|PUT}} #f, , WidthPELS&
{{Cb|PUT}} #f, , DepthPELS&
{{Cb|PUT}} #f, , NumColors&
{{Cb|PUT}} #f, , SigColors& '51 offset

{{Cb|IF...THEN|IF}} pixelbytes& = 1 {{Cb|THEN}} '4 or 8 BPP use 256 color Palette
  u$ = {{Cb|CHR$}}(0)
  {{Cb|FOR...NEXT|FOR}} c& = 0 {{Cb|TO}} 255 '{{Cb|PUT}} as BGR order colors
    cv& = {{Cb|_PALETTECOLOR (function)|_PALETTECOLOR}}(c&, image&)
    Colr$ = {{Cb|CHR$}}({{Cb|_BLUE32}}(cv&))
    {{Cb|PUT}} #f, , Colr$
    Colr$ = {{Cb|CHR$}}({{Cb|_GREEN32}}(cv&))
    {{Cb|PUT}} #f, , Colr$
    Colr$ = {{Cb|CHR$}}({{Cb|_RED32}}(cv&))
    {{Cb|PUT}} #f, , Colr$
    {{Cb|PUT}} #f, , u$ 'Unused byte
  {{Cb|NEXT}}
{{Cb|END IF}}

{{Cb|FOR...NEXT|FOR}} y% = y2% {{Cb|TO}} y1% {{Cb|STEP}} -1 'place bottom up
  {{Cb|FOR...NEXT|FOR}} x% = x1% {{Cb|TO}} x2%
    c& = {{Cb|POINT}}(x%, y%)
    {{Cb|IF...THEN|IF}} pixelbytes& = 1 {{Cb|THEN}}
      a$ = {{Cb|CHR$}}(c&)
      Colors8%(c&) = 1
    {{Cb|ELSE}}: a$ = {{Cb|LEFT$}}({{Cb|MKL$}}(c&), 3)
    {{Cb|END IF}}
    {{Cb|PUT}} #f, , a$
  {{Cb|NEXT}}
  {{Cb|PUT}} #f, , ZeroPad$
{{Cb|NEXT}}

{{Cb|FOR...NEXT|FOR}} n = 0 {{Cb|TO}} 255
  {{Cb|IF...THEN|IF}} Colors8%(n) = 1 {{Cb|THEN}} SigColors& = SigColors& + 1
{{Cb|NEXT}} n
{{Cb|PUT}} #f, 51, SigColors&
{{Cb|CLOSE}} #f
{{Cb|END SUB}}
{{TextEnd}}
<center>'''This SUB procedure can also be [[$INCLUDE|Included]] in a program!'''</center>


{{PageSeeAlso}}
* [[_LOADIMAGE]]
* [[SaveImage SUB]]
* [[Program ScreenShots]]
* [[ThirtyTwoBit MEM SUB]]
* [[Bitmaps]]


{{PageNavigation}}