mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 09:05:08 +00:00
476 lines
24 KiB
Text
476 lines
24 KiB
Text
|
==Icon Viewer and Bitmap Creator==
|
||
|
The following program can be used to view Icon or Cursor images and save them as Bitmaps. When you answer Y the bitmap is saved with a black background so that it can be PUT using [[XOR]] on to the [[AND]] image. The AND image will be black and white if the image is irregularly shaped(not a full box image). It is placed first using [[PUT (graphics statement)|PUT]] with the AND action or can be placed using [[_PUTIMAGE]] with the color white [[_ALPHA]] being set to 0. In that case, try just placing the XOR image with the color black 0 [[_ALPHA|alpha]] with [[_SETALPHA]].
|
||
|
|
||
|
{{small|Code by Ted Weissgerber}}
|
||
|
{{TextStart}}
|
||
|
'' ''
|
||
|
'********************************* IconType.BI INCLUDE FILE ********************************
|
||
|
|
||
|
{{Cb|TYPE}} IconType 'Icon or cursor file header
|
||
|
Reserved {{Cb|AS}} {{Cb|INTEGER}} 'Reserved (always 0)
|
||
|
ID {{Cb|AS}} {{Cb|INTEGER}} 'Resource ID (Icon = 1, Cursor = 2)
|
||
|
Count {{Cb|AS}} {{Cb|INTEGER}} 'Number of icon bitmaps in Directory of icon entries array
|
||
|
{{Cb|END}} {{Cb|TYPE}} '6 bytes
|
||
|
|
||
|
{{Cb|TYPE}} ICONENTRY 'or unanimated Cursor entry (see ANI for animated cursors)
|
||
|
PWidth {{Cb|AS}} {{Cb|_BYTE}} 'Width of icon in pixels (USE THIS)
|
||
|
PDepth {{Cb|AS}} {{Cb|_BYTE}} 'Height of icon in pixels (USE THIS)
|
||
|
NumColors {{Cb|AS}} {{Cb|_BYTE}} 'Maximum number of colors: (2 or 16 colors. 256 or 24/32 bit = 0}
|
||
|
RES2 {{Cb|AS}} {{Cb|_BYTE}} 'Reserved. Not used (always 0)
|
||
|
HotSpotX {{Cb|AS}} {{Cb|INTEGER}} 'Icon: NumberPlanes(normally 0), Cursor: hotspot pixels from left
|
||
|
HotSpotY {{Cb|AS}} {{Cb|INTEGER}} 'Icon: BitsPerPixel(normally 0), Cursor: hotspot pixels from top
|
||
|
DataSize {{Cb|AS}} {{Cb|LONG}} 'Length of icon bitmap in bytes (USE THIS)
|
||
|
DataOffset {{Cb|AS}} {{Cb|LONG}} 'Offset byte position of icon bitmap data header in file(add 1)
|
||
|
{{Cb|END}} {{Cb|TYPE}} '16 bytes
|
||
|
|
||
|
{{Cb|TYPE}} ICONHEADER 'Bitmap type header found using entry DataOffset + 1
|
||
|
IconHSize {{Cb|AS}} {{Cb|LONG}} 'size of ICON header (always 40 bytes)
|
||
|
ICONWidth {{Cb|AS}} {{Cb|LONG}} 'bitmap width in pixels. (width and double height may be missing)
|
||
|
ICONDepth {{Cb|AS}} {{Cb|LONG}} 'Total map height in pixels (TWO TIMES the image height).
|
||
|
NumPlanes {{Cb|AS}} {{Cb|INTEGER}} 'number of color planes. Must be set to 1.
|
||
|
BPP {{Cb|AS}} {{Cb|INTEGER}} 'bits per pixel 1, 4, 8, 16, 24 or 32.(USE THIS for BPP)
|
||
|
Compress {{Cb|AS}} {{Cb|LONG}} 'compression method should always be 0.
|
||
|
RAWSize {{Cb|AS}} {{Cb|LONG}} 'size of the raw ICON image data(may only be {{Cb|XOR}} mask size).
|
||
|
Hres {{Cb|AS}} {{Cb|LONG}} 'horizontal resolution of the image(not normally used)
|
||
|
Vres {{Cb|AS}} {{Cb|LONG}} 'vertical resolution of the image(not normally used)
|
||
|
NumColors {{Cb|AS}} {{Cb|LONG}} 'number of colors in the color palette(not normally used)
|
||
|
SigColors {{Cb|AS}} {{Cb|LONG}} 'number of important colors used(not normally used)
|
||
|
{{Cb|END}} {{Cb|TYPE}} '40 byte
|
||
|
'' ''
|
||
|
{{TextEnd}}
|
||
|
{{CodeStart}}
|
||
|
'' ''
|
||
|
{{Cl|REM}} {{Cl|$INCLUDE}}: 'IconType.BI'
|
||
|
{{Cl|DEFINT}} A-Z
|
||
|
{{Cl|DIM}} Icon {{Cl|AS}} IconType
|
||
|
{{Cl|DIM}} {{Cl|SHARED}} Item, BPP
|
||
|
{{Cl|DIM}} {{Cl|SHARED}} wide&, deep&, bmp&, bmpStretch&
|
||
|
{{Cl|DIM}} Image(26000)
|
||
|
dst& = {{Cl|_NEWIMAGE}}(800, 600, 32)
|
||
|
{{Cl|SCREEN (statement)|SCREEN}} dst&
|
||
|
|
||
|
hdr$ = " & File ID = # ## Image(s) in file #######, bytes "
|
||
|
ico$ = " Size = ## X ## Colors = ## Planes = # BPP = ## "
|
||
|
cur$ = " Size = ## X ## Colors = ## HotSpot X = ## Y = ## "
|
||
|
dat$ = " DATA Size = #####, bytes {{Cl|DATA}} Offset = ######, "
|
||
|
bm1$ = " HeaderSize = ## MaskArea = ## X ## Planes = # BPP = ## "
|
||
|
bm2$ = " Compression = # RAW Data Size = ######, bytes "
|
||
|
|
||
|
{{Cl|LOCATE}} 20, 20: {{Cl|LINE INPUT}} "Enter an ICOn or CURsor file name: ", IconName$
|
||
|
L = {{Cl|LEN}}(IconName$)
|
||
|
{{Cl|IF}} L = 0 {{Cl|THEN}} {{Cl|SOUND}} 400, 4: {{Cl|SYSTEM}}
|
||
|
dot = {{Cl|INSTR}}(IconName$, ".")
|
||
|
{{Cl|IF}} dot = 0 {{Cl|THEN}}
|
||
|
Save$ = IconName$: IconName$ = IconName$ + ".ICO"
|
||
|
{{Cl|ELSE}} Save$ = {{Cl|LEFT$}}(IconName$, dot - 1)
|
||
|
{{Cl|END IF}}
|
||
|
{{Cl|OPEN}} IconName$ {{Cl|FOR (file statement)|FOR}} {{Cl|BINARY}} {{Cl|AS}} #1
|
||
|
length& = {{Cl|LOF}}(1)
|
||
|
{{Cl|PRINT}}
|
||
|
{{Cl|IF}} length& {{Cl|THEN}}
|
||
|
{{Cl|GET}} #1, 1, Icon
|
||
|
{{Cl|SELECT CASE}} Icon.ID
|
||
|
{{Cl|CASE}} 1: IC$ = "Icon": ent$ = ico$
|
||
|
{{Cl|CASE}} 2: IC$ = "Cursor": ent$ = cur$
|
||
|
{{Cl|CASE ELSE}}: IC$ = "Bitmap?"
|
||
|
{{Cl|END SELECT}}
|
||
|
{{Cl|LOCATE}} 22, 20: {{Cl|PRINT USING}} hdr$; IC$; Icon.ID; Icon.Count; length&
|
||
|
{{Cl|IF}} Icon.Count {{Cl|THEN}}
|
||
|
count = Icon.Count
|
||
|
{{Cl|DIM}} {{Cl|SHARED}} Entry(count) {{Cl|AS}} ICONENTRY
|
||
|
{{Cl|DIM}} {{Cl|SHARED}} Header(count) {{Cl|AS}} ICONHEADER
|
||
|
{{Cl|FOR...NEXT|FOR}} Item = 1 {{Cl|TO}} count '16 bytes each entry
|
||
|
{{Cl|GET}} #1, , Entry(Item)
|
||
|
{{Cl|NEXT}}
|
||
|
{{Cl|VIEW PRINT}} 24 {{Cl|TO}} 32
|
||
|
{{Cl|FOR...NEXT|FOR}} Item = 1 {{Cl|TO}} count
|
||
|
{{Cl|GET}} #1, Entry(Item).DataOffset + 1, Header(Item) 'ADD 1 to offsets!
|
||
|
{{Cl|COLOR}} {{Cl|_RGB}}(255, 255, 0): {{Cl|LOCATE}} 24, 30
|
||
|
{{Cl|IF}} count > 1 {{Cl|THEN}} {{Cl|PRINT}} " IMAGE ENTRY #"; Item {{Cl|ELSE}} {{Cl|PRINT}} " IMAGE ENTRY"
|
||
|
{{Cl|COLOR}} {{Cl|_RGB}}(50, 200, 255)
|
||
|
{{Cl|PRINT USING}} ent$; Entry(Item).PWidth; Entry(Item).PDepth; Entry(Item).NumColors; Entry(Item).HotSpotX; Entry(Item).HotSpotY
|
||
|
{{Cl|PRINT USING}} dat$; Entry(Item).DataSize; Entry(Item).DataOffset
|
||
|
{{Cl|PRINT USING}} bm1$; Header(Item).IconHSize; Header(Item).ICONWidth; Header(Item).ICONDepth, Header(Item).NumPlanes; Header(Item).BPP
|
||
|
{{Cl|PRINT USING}} bm2$; Header(Item).Compress; Header(Item).RAWSize
|
||
|
{{Cl|PRINT}}
|
||
|
k$ = {{Cl|INPUT$}}(1) 'Palette(4 or 8BPP) and/or {{Cl|XOR (boolean)|XOR}} mask starts immediately after an ICONHEADER
|
||
|
wide& = Entry(Item).PWidth: deep& = Entry(Item).PDepth: BPP = Header(Item).BPP
|
||
|
{{Cl|IF}} BPP > 8 {{Cl|THEN}} BitColor = 32 {{Cl|ELSE}} BitColor = 256 'assign for proper colors
|
||
|
bmpStretch& = {{Cl|_NEWIMAGE}}(4 * wide&, 4 * deep&, BitColor) 'set either 256 or 32
|
||
|
bmp& = {{Cl|_NEWIMAGE}}(wide&, deep&, BitColor) 'don't bother with {{Cl|_FREEIMAGE}}, reuse them!
|
||
|
{{Cl|SELECT CASE}} BPP
|
||
|
{{Cl|CASE}} 1: OneBit
|
||
|
{{Cl|CASE}} 4: FourBIT
|
||
|
{{Cl|CASE}} 8: EightBIT
|
||
|
{{Cl|CASE}} {{Cl|IS}} > 8: True{{Cl|COLOR}}
|
||
|
{{Cl|END SELECT}}
|
||
|
{{Cl|IF}} BPP < 24 {{Cl|THEN}} {{Cl|_COPYPALETTE}} bmp&, bmpStretch&
|
||
|
{{Cl|_PUTIMAGE}} , bmp&, bmpStretch&
|
||
|
{{Cl|_DEST}} 0: {{Cl|_PUTIMAGE}} (100, 0), bmpStretch&
|
||
|
{{Cl|SOUND}} 600, 3
|
||
|
{{Cl|COLOR}} {{Cl|_RGB}}(255, 0, 255): {{Cl|LOCATE}} {{Cl|CSRLIN}}, 30: {{Cl|PRINT}} "Save as Bitmap? (Y/N)";
|
||
|
k$ = {{Cl|INPUT$}}(1)
|
||
|
k$ = {{Cl|UCASE$}}(k$)
|
||
|
{{Cl|PRINT}} k$ + {{Cl|SPACE$}}(1);
|
||
|
{{Cl|IF}} k$ = "Y" {{Cl|THEN}}
|
||
|
SaveFile$ = Save$ + {{Cl|LTRIM$}}({{Cl|STR$}}(Item)) + ".BMP"
|
||
|
ThirtyTwoBit 0, 0, wide& - 1, deep& - 1, bmp&, SaveFile$
|
||
|
{{Cl|END IF}}
|
||
|
{{Cl|IF}} k$ = "Y" {{Cl|THEN}} {{Cl|PRINT}} "Saved!" {{Cl|ELSE}} {{Cl|PRINT}} "Not saved"
|
||
|
{{Cl|AND (boolean)|AND}}Mask
|
||
|
{{Cl|IF}} BPP < 24 {{Cl|THEN}} {{Cl|_COPYPALETTE}} bmp&, bmpStretch&
|
||
|
{{Cl|_PUTIMAGE}} , bmp&, bmpStretch&
|
||
|
{{Cl|_DEST}} 0: {{Cl|_PUTIMAGE}} (400, 0), bmpStretch&
|
||
|
{{Cl|IF}} k$ = "Y" {{Cl|THEN}}
|
||
|
ANDFile$ = Save$ + {{Cl|LTRIM$}}({{Cl|STR$}}(Item)) + "BG.BMP"
|
||
|
ThirtyTwoBit 0, 0, wide& - 1, deep& - 1, bmp&, ANDFile$
|
||
|
{{Cl|END IF}}
|
||
|
k$ = {{Cl|INPUT$}}(1)
|
||
|
{{Cl|CLS}}
|
||
|
{{Cl|NEXT}}
|
||
|
{{Cl|VIEW PRINT}}
|
||
|
{{Cl|ELSE}} {{Cl|SOUND}} 400, 4: {{Cl|CLOSE}} #1: {{Cl|PRINT}} "No images entries found!": {{Cl|END}}
|
||
|
{{Cl|END IF}}
|
||
|
{{Cl|ELSE}}: {{Cl|CLOSE}} #1: {{Cl|SOUND}} 400, 4: {{Cl|KILL}} IconName$: {{Cl|END}}
|
||
|
{{Cl|END IF}}
|
||
|
{{Cl|CLOSE}} #1
|
||
|
{{Cl|END}}
|
||
|
|
||
|
{{Cl|SUB}} OneBit 'adapted from TheBob's Winbit 'B & W monochrome images ONLY (NO {{Cl|PALETTE}} data)
|
||
|
BitsOver = wide& {{Cl|MOD}} 32
|
||
|
{{Cl|IF}} BitsOver {{Cl|THEN}} ZeroPAD$ = {{Cl|SPACE$}}((32 - BitsOver) \ 8)
|
||
|
{{Cl|_DEST}} bmp&
|
||
|
y = deep& - 1: p$ = " "
|
||
|
{{Cl|DO}}
|
||
|
x = 0
|
||
|
{{Cl|DO}}
|
||
|
{{Cl|GET}} #1, , p$
|
||
|
Byte{{Cl|VAL}} = {{Cl|ASC}}(p$)
|
||
|
{{Cl|FOR...NEXT|FOR}} Bit% = 7 {{Cl|TO}} 0 {{Cl|STEP}} -1 'read bits left to right
|
||
|
{{Cl|IF}} Byte{{Cl|VAL}} {{Cl|AND}} 2 ^ Bit% {{Cl|THEN}} {{Cl|PSET}} (x, y), 15 {{Cl|ELSE}} {{Cl|PSET}} (x, y), 0
|
||
|
x = x + 1
|
||
|
{{Cl|NEXT}} Bit%
|
||
|
{{Cl|LOOP}} {{Cl|WHILE}} x < wide&
|
||
|
{{Cl|GET}} #1, , ZeroPAD$ ' 'prevents odd width image skewing
|
||
|
y = y - 1 '
|
||
|
{{Cl|LOOP}} {{Cl|UNTIL}} y = -1
|
||
|
{{Cl|END SUB}}
|
||
|
|
||
|
{{Cl|SUB}} EightBIT 'adapted from TheBob's Winbit '256 palette data Colors (8 BPP)
|
||
|
{{Cl|IF}} wide& {{Cl|MOD}} 4 {{Cl|THEN}} ZeroPAD$ = {{Cl|SPACE$}}(4 - (wide& {{Cl|MOD}} 4))
|
||
|
{{Cl|_DEST}} bmp&
|
||
|
a$ = " ": u$ = " "
|
||
|
{{Cl|OUT}} {{Cl|&H}}3C8, 0
|
||
|
{{Cl|FOR...NEXT|FOR}} Colr = 0 {{Cl|TO}} 255
|
||
|
{{Cl|GET}} #1, , a$: Blu = {{Cl|ASC}}(a$) \ 4
|
||
|
{{Cl|GET}} #1, , a$: Grn = {{Cl|ASC}}(a$) \ 4
|
||
|
{{Cl|GET}} #1, , a$: Red = {{Cl|ASC}}(a$) \ 4
|
||
|
{{Cl|OUT}} {{Cl|&H}}3C9, Red
|
||
|
{{Cl|OUT}} {{Cl|&H}}3C9, Grn
|
||
|
{{Cl|OUT}} {{Cl|&H}}3C9, Blu
|
||
|
{{Cl|GET}} #1, , u$ '--- unused byte
|
||
|
{{Cl|NEXT}} Colr
|
||
|
y = deep& - 1: p$ = " "
|
||
|
{{Cl|DO}}: x = 0
|
||
|
{{Cl|DO}}
|
||
|
{{Cl|GET}} #1, , p$
|
||
|
{{Cl|PSET}} (x, y), {{Cl|ASC}}(p$)
|
||
|
x = x + 1
|
||
|
{{Cl|LOOP}} {{Cl|WHILE}} x < wide&
|
||
|
{{Cl|GET}} #1, , ZeroPAD$ ' 'prevents odd width image skewing
|
||
|
y = y - 1
|
||
|
{{Cl|LOOP}} {{Cl|UNTIL}} y = -1
|
||
|
{{Cl|END SUB}}
|
||
|
|
||
|
{{Cl|SUB}} FourBIT 'adapted from TheBob's Winbit '16 palette data colors (4 BPP = 8 or 16 color)
|
||
|
{{Cl|_DEST}} bmp&
|
||
|
{{Cl|IF}} wide& {{Cl|MOD}} 8 {{Cl|THEN}} ZeroPAD$ = {{Cl|SPACE$}}((8 - wide& {{Cl|MOD}} 8) \ 2) 'prevents odd width image skewing
|
||
|
a$ = " ": u$ = " "
|
||
|
{{Cl|FOR...NEXT|FOR}} Colr = 0 {{Cl|TO}} 15
|
||
|
{{Cl|OUT}} {{Cl|&H}}3C8, Colr
|
||
|
{{Cl|GET}} #1, , a$: Blu = {{Cl|ASC}}(a$) \ 4
|
||
|
{{Cl|GET}} #1, , a$: Grn = {{Cl|ASC}}(a$) \ 4
|
||
|
{{Cl|GET}} #1, , a$: Red = {{Cl|ASC}}(a$) \ 4
|
||
|
{{Cl|OUT}} {{Cl|&H}}3C9, Red
|
||
|
{{Cl|OUT}} {{Cl|&H}}3C9, Grn
|
||
|
{{Cl|OUT}} {{Cl|&H}}3C9, Blu
|
||
|
{{Cl|GET}} #1, , u$ '--- unused byte
|
||
|
{{Cl|NEXT}} Colr
|
||
|
y = deep& - 1: p$ = " "
|
||
|
{{Cl|DO}}
|
||
|
x = 0
|
||
|
{{Cl|DO}}
|
||
|
{{Cl|GET}} #1, , p$
|
||
|
HiNIBBLE = {{Cl|ASC}}(p$) \ {{Cl|&H}}10
|
||
|
LoNIBBLE = {{Cl|ASC}}(p$) {{Cl|AND (boolean)|AND}} {{Cl|&H}}F
|
||
|
{{Cl|PSET}} (x, y), HiNIBBLE
|
||
|
x = x + 1
|
||
|
{{Cl|PSET}} (x, y), LoNIBBLE
|
||
|
x = x + 1
|
||
|
{{Cl|LOOP}} {{Cl|WHILE}} x < wide&
|
||
|
{{Cl|GET}} #1, , ZeroPAD$ ' 'prevents odd width image skewing
|
||
|
y = y - 1
|
||
|
{{Cl|LOOP}} {{Cl|UNTIL}} y = -1
|
||
|
{{Cl|END SUB}}
|
||
|
|
||
|
{{Cl|SUB}} ANDMask ' '{{Cl|AND (boolean)|AND}} MASK is B & W. Black area holds {{Cl|XOR (boolean)|XOR}} colors, white displays background
|
||
|
BitsOver = wide& {{Cl|MOD}} 32
|
||
|
{{Cl|IF}} BitsOver {{Cl|THEN}} ZeroPAD$ = {{Cl|SPACE$}}((32 - BitsOver) \ 8) 'look for sizes not multiples of 32 bits
|
||
|
{{Cl|_DEST}} bmp&
|
||
|
{{Cl|IF}} BPP < 24 {{Cl|THEN}} {{Cl|PALETTE}} ' 'remove for a PUT using previous {{Cl|XOR (boolean)|XOR}} mask palette data
|
||
|
y = deep& - 1: a$ = " ": p$ = " "
|
||
|
{{Cl|DO}}
|
||
|
x = 0
|
||
|
{{Cl|DO}}
|
||
|
{{Cl|GET}} #1, , a$
|
||
|
Byte{{Cl|VAL}} = {{Cl|ASC}}(a$) 'MSBit is left when calculating 16 X 16 cursor map 2 byte integer
|
||
|
{{Cl|FOR...NEXT|FOR}} Bit% = 7 {{Cl|TO}} 0 {{Cl|STEP}} -1 'values despite M$ documentation that says otherwise!
|
||
|
{{Cl|IF}} Byte{{Cl|VAL}} {{Cl|AND}} 2 ^ Bit% {{Cl|THEN}} '{{Cl|LONG}} values cannot be used in a cursor file!
|
||
|
{{Cl|IF}} BPP > 8 {{Cl|THEN}} {{Cl|PSET}} (x, y), {{Cl|_RGB32}}(255, 255, 255) {{Cl|ELSE}} {{Cl|PSET}} (x, y), 15
|
||
|
{{Cl|ELSE}}: {{Cl|IF}} BPP > 8 {{Cl|THEN}} {{Cl|PSET}} (x, y), {{Cl|_RGB32}}(0, 0, 0) {{Cl|ELSE}} {{Cl|PSET}} (x, y), 0
|
||
|
{{Cl|END IF}}
|
||
|
x = x + 1 '16 X 16 = 32 bytes, 32 X 32 = 128 bytes {{Cl|AND (boolean)|AND}} MASK SIZES
|
||
|
{{Cl|NEXT}} Bit% '48 X 48 = 288 bytes, 64 X 64 = 512 bytes, 128 X 128 = 2048 bytes
|
||
|
{{Cl|LOOP}} {{Cl|WHILE}} x < wide&
|
||
|
{{Cl|GET}} #1, , ZeroPAD$ '16 X 16 and 48 X 48 = 2 byte end padder per row in the {{Cl|AND (boolean)|AND}} MASK
|
||
|
y = y - 1 'adds 32 and 96 bytes respectively to the raw data size!
|
||
|
{{Cl|LOOP}} {{Cl|UNTIL}} y = -1
|
||
|
{{Cl|END SUB}}
|
||
|
|
||
|
{{Cl|SUB}} True{{Cl|COLOR}} ' ' 16 Million colors. NO {{Cl|PALETTE}}! Colored by pixels (24 or 32 BPP)
|
||
|
{{Cl|_DEST}} bmp&
|
||
|
{{Cl|IF}} ((BMP.PWidth * 3) {{Cl|MOD}} 4) <> 0 {{Cl|THEN}} '3 byte pixels
|
||
|
ZeroPAD$ = {{Cl|SPACE$}}((4 - ((BMP.PWidth * 3) {{Cl|MOD}} 4)))
|
||
|
{{Cl|END IF}}
|
||
|
R$ = " ": G$ = " ": B$ = " "
|
||
|
y = deep& - 1
|
||
|
{{Cl|DO}}
|
||
|
x = 0
|
||
|
{{Cl|DO}}
|
||
|
{{Cl|GET}} #1, , B$ '3 bytes set RGB color intensities
|
||
|
{{Cl|GET}} #1, , G$
|
||
|
{{Cl|GET}} #1, , R$
|
||
|
red& = {{Cl|ASC}}(R$)
|
||
|
green& = {{Cl|ASC}}(G$)
|
||
|
blue& = {{Cl|ASC}}(B$)
|
||
|
{{Cl|PSET}} (x, y), {{Cl|_RGB}}(red&, green&, blue&) 'returns closest attribute in 4 or 8 bit
|
||
|
x = x + 1
|
||
|
{{Cl|LOOP}} {{Cl|WHILE}} x < wide&
|
||
|
{{Cl|GET}} #1, , ZeroPAD$ ' 'prevents odd width image skewing
|
||
|
y = y - 1
|
||
|
{{Cl|LOOP}} {{Cl|UNTIL}} y = -1
|
||
|
{{Cl|END SUB}} '' ''
|
||
|
|
||
|
{{Cl|REM}} {{Cl|$INCLUDE}}: '32BitSUB.BM'
|
||
|
|
||
|
{{CodeEnd}}
|
||
|
{{TextStart}}
|
||
|
|
||
|
'*********************************** 32BitSUB.BM INCLUDE FILE *******************************
|
||
|
|
||
|
{{Cb|SUB}} ThirtyTwoBit (x1%, y1%, x2%, y2%, image&, Filename$)
|
||
|
{{Cb|DIM}} Colors8%(255)
|
||
|
{{Cb|IF}} x1% > x2% {{Cb|THEN}} {{Cb|SWAP}} x1%, x2%
|
||
|
{{Cb|IF}} y1% > y2% {{Cb|THEN}} {{Cb|SWAP}} y1%, y2%
|
||
|
|
||
|
{{Cb|_SOURCE}} image&
|
||
|
pixelbytes& = {{Cb|_PIXELSIZE}}(image&)
|
||
|
{{Cb|IF}} pixelbytes& = 0 {{Cb|THEN}} {{Cb|BEEP}}: {{Cb|EXIT SUB}} 'no text screens
|
||
|
|
||
|
FileType$ = "BM"
|
||
|
QB64$ = "QB64" 'free advertiising in reserved bytes
|
||
|
{{Cb|IF}} pixelbytes& = 1 {{Cb|THEN}} OffsetBITS& = 1078 {{Cb|ELSE}} OffsetBITS& = 54 'no palette in 24/32 bit
|
||
|
InfoHEADER& = 40
|
||
|
PictureWidth& = (x2% - x1%) + 1 ' don't exceed maximum screen resolutions!
|
||
|
PictureDepth& = (y2% - y1%) + 1
|
||
|
NumPLANES% = 1
|
||
|
{{Cb|IF}} pixelbytes& = 1 {{Cb|THEN}} BPP% = 8 {{Cb|ELSE}} BPP% = 24
|
||
|
Compression& = 0
|
||
|
WidthPELS& = 3780
|
||
|
DepthPELS& = 3780
|
||
|
{{Cb|IF}} pixelbytes& = 1 {{Cb|THEN}} NumColors& = 256 '24/32 bit say none
|
||
|
|
||
|
{{Cb|IF}} (PictureWidth& {{Cb|AND (boolean)|AND}} 3) {{Cb|THEN}} ZeroPAD$ = {{Cb|SPACE$}}(4 - (PictureWidth& {{Cb|AND (boolean)|AND}} 3))
|
||
|
|
||
|
ImageSize& = (PictureWidth& + {{Cb|LEN}}(ZeroPAD$)) * PictureDepth&
|
||
|
FileSize& = ImageSIZE& + OffsetBITS&
|
||
|
f = {{Cb|FREEFILE}}
|
||
|
{{Cb|OPEN}} Filename$ {{Cb|FOR (file statement)|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}} pixelbytes& = 1 {{Cb|THEN}} '4 or 8 BPP Palettes set for 256 colors
|
||
|
u$ = {{Cb|CHR$}}(0)
|
||
|
{{Cb|FOR...NEXT|FOR}} c& = 0 {{Cb|TO}} 255 'PUT as BGR order colors
|
||
|
cv& = {{Cb|_PALETTECOLOR (function)|_PALLETTECOLOR}}(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}} pixelbytes& = 1 {{Cb|THEN}}
|
||
|
a$ = {{Cb|CHR$}}(c&)
|
||
|
Colors8%({{Cb|ASC}}(a$)) = 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}} Colors8%(n) = 1 {{Cb|THEN}} SigColors& = SigColors& + 1
|
||
|
{{Cb|NEXT}} n
|
||
|
{{Cb|PUT}} #f, 51, SigColors&
|
||
|
{{Cb|CLOSE}} #f
|
||
|
{{Cb|END SUB}} '' ''
|
||
|
'' ''
|
||
|
{{TextEnd}}
|
||
|
{{small|Adapted from code by Bob Seguin}}
|
||
|
<center>'''If full code is not displayed, refresh browser!'''</center>
|
||
|
|
||
|
|
||
|
<center>'''NOTE: Black areas of an image may become "see through" unless another color attribute is used and set to black!'''</center>
|
||
|
|
||
|
: This can be done by changing another color attribute's RGB settings to 0 or almost 0 and creating a mask after using it in solid black areas of a 4 or 8 BPP palette image. This can also be done using [[_PUTIMAGE]] with 32 bit [[_CLEARCOLOR]] settings.
|
||
|
|
||
|
<center>''See the following page:'' [[Creating Sprite Masks]]</center>
|
||
|
|
||
|
==Icon to Bitmap Conversion Function==
|
||
|
|
||
|
The following program uses a conversion function with the [[TYPE]] definitions inside of the function to eliminate an [[$INCLUDE]] library file.
|
||
|
{{CodeStart}}
|
||
|
{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 256)
|
||
|
{{Cl|_TITLE}} "Icon Converter"
|
||
|
icon$ = "daphne.ico" '<<<<<<<<< change icon file name
|
||
|
bitmap$ = "tempfile.bmp"
|
||
|
indx% = 5 '1 minimum <<<<<<< higher values than count get highest entry image in icon file
|
||
|
|
||
|
{{Cl|IF...THEN|IF}} Icon2BMP(icon$, bitmap$, indx%) {{Cl|THEN}}
|
||
|
img& = {{Cl|_LOADIMAGE}}(bitmap$)
|
||
|
{{Cl|PRINT}} img&
|
||
|
{{Cl|IF...THEN|IF}} img& < -1 {{Cl|THEN}} ' check that handle value is good before loading
|
||
|
{{Cl|_ICON}} img& ' place image in header
|
||
|
{{Cl|_PUTIMAGE}} (300, 250), img& 'place image on screen
|
||
|
{{Cl|_FREEIMAGE}} img& ' always free unused handles to save memory
|
||
|
'{{Cl|KILL}} bitmap$ ' comment out and/or rename to save the bitmaps
|
||
|
{{Cl|END IF}}
|
||
|
{{Cl|ELSE}} {{Cl|PRINT}} "Could not create bitmap!"
|
||
|
{{Cl|END IF}}
|
||
|
{{Cl|END}}
|
||
|
' ----------------------------------------------------
|
||
|
|
||
|
{{Cl|FUNCTION}} Icon2BMP% (filein {{Cl|AS}} {{Cl|STRING}}, fileout {{Cl|AS}} {{Cl|STRING}}, index {{Cl|AS}} {{Cl|INTEGER}})
|
||
|
{{Cl|TYPE}} ICONTYPE ' Icon or cursor file header
|
||
|
Reserved {{Cl|AS}} {{Cl|INTEGER}} ' Reserved (always 0)
|
||
|
ID {{Cl|AS}} {{Cl|INTEGER}} ' Resource ID (Icon = 1, Cursor = 2)
|
||
|
Count {{Cl|AS}} {{Cl|INTEGER}} ' Number of icon bitmaps in Directory of icon entries array
|
||
|
{{Cl|END}} {{Cl|TYPE}} '6 bytes
|
||
|
{{Cl|TYPE}} ENTRYTYPE ' or unanimated Cursor entry (ANI are animated cursors)
|
||
|
Wide {{Cl|AS}} {{Cl|_UNSIGNED}} {{Cl|_BYTE}} ' Width of icon in pixels (USE THIS) Use {{Cl|_UNSIGNED}} over 127
|
||
|
High {{Cl|AS}} {{Cl|_UNSIGNED}} {{Cl|_BYTE}} ' Height of icon in pixels (USE THIS) Use {{Cl|_UNSIGNED}} over 127
|
||
|
NumColors {{Cl|AS}} {{Cl|_BYTE}} ' Maximum number of colors. (2, 8 or 16 colors. 256 or 24/32 bit = 0)
|
||
|
RES2 {{Cl|AS}} {{Cl|_BYTE}} ' Reserved. Not used (always 0)
|
||
|
HotSpotX {{Cl|AS}} {{Cl|INTEGER}} ' Icon: NumberPlanes(normally 0), Cursor: hotspot pixels from left
|
||
|
HotSpotY {{Cl|AS}} {{Cl|INTEGER}} ' Icon: BitsPerPixel(normally 0), Cursor: hotspot pixels from top
|
||
|
DataSize {{Cl|AS}} {{Cl|LONG}} ' Length of image data in bytes minus Icon and Entry headers (USE THIS)
|
||
|
Offset {{Cl|AS}} {{Cl|LONG}} ' Start Offset byte position of icon bitmap header(add 1 if {{Cl|TYPE}} GET)
|
||
|
{{Cl|END}} {{Cl|TYPE}} '16 bytes
|
||
|
{{Cl|TYPE}} PREHEADER ' Bitmap information not in icon BM header
|
||
|
BM {{Cl|AS}} {{Cl|INTEGER}} ' Integer value changed to "BM" by PUT
|
||
|
Size {{Cl|AS}} {{Cl|LONG}} ' Size of the data file({{Cl|LOF}})
|
||
|
Reser {{Cl|AS}} {{Cl|LONG}}' 2 reserved integers are zero automatically
|
||
|
BOffset {{Cl|AS}} {{Cl|LONG}} ' Start offset of pixel data(next byte)
|
||
|
{{Cl|END}} {{Cl|TYPE}} '14 bytes
|
||
|
{{Cl|TYPE}} BMPHEADER ' Bitmap type header found using entry DataOffset + 1
|
||
|
IconHSize {{Cl|AS}} {{Cl|LONG}} ' size of ICON header (always 40 bytes)
|
||
|
PWidth {{Cl|AS}} {{Cl|LONG}} ' bitmap width in pixels (signed integer).
|
||
|
PDepth {{Cl|AS}} {{Cl|LONG}} ' Total map height in pixels (signed integer is 2 times image height)
|
||
|
NumPlanes {{Cl|AS}} {{Cl|INTEGER}} ' number of color planes. Must be set to 1.
|
||
|
BPP {{Cl|AS}} {{Cl|INTEGER}} ' bits per pixel 1, 4, 8, 16, 24 or 32.(USE THIS)
|
||
|
Compress {{Cl|AS}} {{Cl|LONG}} ' compression method should always be 0.
|
||
|
RAWSize {{Cl|AS}} {{Cl|LONG}} ' size of the raw ICON image data(may only be {{Cl|XOR (boolean)|XOR}} mask size).
|
||
|
Hres {{Cl|AS}} {{Cl|LONG}} ' horizontal resolution of the image(not normally used)
|
||
|
Vres {{Cl|AS}} {{Cl|LONG}} ' vertical resolution of the image(not normally used)
|
||
|
NumColors {{Cl|AS}} {{Cl|LONG}} ' number of colors in the color palette(not normally used)
|
||
|
SigColors {{Cl|AS}} {{Cl|LONG}} ' number of important colors used(not normally used)
|
||
|
{{Cl|END}} {{Cl|TYPE}} '40 bytes palette and image data immediately follow this header!
|
||
|
|
||
|
{{Cl|DIM}} ICON {{Cl|AS}} ICONTYPE, ENT {{Cl|AS}} ENTRYTYPE, PRE {{Cl|AS}} PREHEADER, BMP {{Cl|AS}} BMPHEADER
|
||
|
|
||
|
rf = {{Cl|FREEFILE}}
|
||
|
{{Cl|IF...THEN|IF}} {{Cl|LCASE$}}({{Cl|RIGHT$}}(filein, 4)) = ".ico" {{Cl|THEN}} 'check file extension is ICO only
|
||
|
{{Cl|OPEN}} filein {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|ACCESS}} {{Cl|READ}} {{Cl|AS}} rf
|
||
|
{{Cl|ELSE}} {{Cl|EXIT FUNCTION}}
|
||
|
{{Cl|END IF}}
|
||
|
{{Cl|GET}} rf, , ICON 'GET 6 byte icon header
|
||
|
{{Cl|IF...THEN|IF}} ICON.ID <> 1 {{Cl|OR (boolean)|OR}} ICON.Count = 0 {{Cl|THEN}} {{Cl|CLOSE}} rf: {{Cl|EXIT FUNCTION}}
|
||
|
{{Cl|IF...THEN|IF}} index > 0 {{Cl|AND (boolean)|AND}} index <= ICON.Count {{Cl|THEN}} entry = 16 * (index - 1) {{Cl|ELSE}} entry = 16 * (ICON.Count - 1)
|
||
|
{{Cl|PRINT}} ICON.Count, entry
|
||
|
{{Cl|SEEK}} rf, 1 + 6 + entry 'start of indexed Entry header selected
|
||
|
{{Cl|GET}} rf, , ENT 'GET 16 byte Entry Header set by index request or highest available
|
||
|
|
||
|
{{Cl|SEEK}} rf, 1 + ENT.Offset 'go to BMP header offset given in Entry header
|
||
|
{{Cl|GET}} rf, , BMP 'GET 40 byte icon bitmap header information
|
||
|
{{Cl|IF...THEN|IF}} BMP.BPP <= 24 {{Cl|THEN}} pixelbytes = BMP.BPP / 8 {{Cl|ELSE}} pixelbytes = 3
|
||
|
{{Cl|IF...THEN|IF}} BMP.BPP > 1 {{Cl|AND (boolean)|AND}} BMP.BPP <= 8 {{Cl|THEN}} palettebytes = 4 * (2 ^ BMP.BPP) {{Cl|ELSE}} palettebytes = 0
|
||
|
datasize& = (ENT.Wide * ENT.High * pixelbytes) + palettebytes 'no padder should be necessary
|
||
|
filesize& = datasize& + 14 + 40 ' data and palette + header
|
||
|
bmpoffset& = palettebytes + 54 ' data offset from start of bitmap
|
||
|
BMP.PWidth = ENT.Wide
|
||
|
BMP.PDepth = ENT.High
|
||
|
BMP.RAWSize = datasize& - palettebytes
|
||
|
|
||
|
PRE.BM = {{Cl|CVI}}("BM") 'integer value changes to "BM" in file
|
||
|
PRE.Size = filesize&
|
||
|
PRE.BOffset = bmpoffset& 'start of data after header and palette if used
|
||
|
|
||
|
wf = {{Cl|FREEFILE}}
|
||
|
{{Cl|OPEN}} fileout {{Cl|FOR...NEXT|FOR}} {{Cl|BINARY}} {{Cl|AS}} wf
|
||
|
{{Cl|PUT}} wf, , PRE 'PUT 14 byte bitmap information
|
||
|
{{Cl|PUT}} wf, , BMP 'PUT 40 byte bitmap header information
|
||
|
{{Cl|SEEK}} rf, 1 + ENT.Offset + 40
|
||
|
dat$ = {{Cl|STRING$}}(datasize&, 0) 'create string variable the length of remaining image data
|
||
|
{{Cl|GET}} rf, , dat$ 'GET remaining palette and only the XOR image data after the indexed header
|
||
|
{{Cl|PUT}} wf, , dat$ 'PUT remaining data into new bitmap file
|
||
|
{{Cl|CLOSE}} rf, wf
|
||
|
Icon2BMP = ICON.Count 'function returns number of images available in icon file
|
||
|
{{Cl|END FUNCTION}} '' ''
|
||
|
{{CodeEnd}}
|
||
|
{{small|Code by Ted Weissgerber}}
|
||
|
: ''Note:'' The index selected or the highest numbered icon image less than the index value is the image displayed.
|
||
|
|
||
|
==References==
|
||
|
|
||
|
''See also:''
|
||
|
* [[Creating Icons from Bitmaps]]
|
||
|
* [[Bitmaps]], [[Icons and Cursors]]
|
||
|
* [[_CLEARCOLOR]]
|
||
|
* [[_ALPHA]], [[_ICON]]
|
||
|
* [[SaveIcon32]] {{text|(create icons from any image)}}
|
||
|
|
||
|
|
||
|
{{PageNavigation}}
|