Color-565 Library: Unterschied zwischen den Versionen

Aus ProjectWiki
Wechseln zu:Navigation, Suche
K (How to use)
K
Zeile 1: Zeile 1:
 
== Overview ==
 
== Overview ==
 
Contains functions to map colors from 24-Bit RGB space to 16-Bit RGB space and vice versa and a list of 500+ named colors.
 
Contains functions to map colors from 24-Bit RGB space to 16-Bit RGB space and vice versa and a list of 500+ named colors.
 +
 +
 +
[http://www.mcselec.com/index2.php?option=com_forum&Itemid=59&page=viewtopic&t=12891 Forum thread]
  
  

Version vom 21. April 2015, 15:00 Uhr

Overview

Contains functions to map colors from 24-Bit RGB space to 16-Bit RGB space and vice versa and a list of 500+ named colors.


Forum thread


How to use

Include the library.

$include "Colors565.inc"

Convert 24-Bit RGB (8 Bit each) to 16 Bit (R: 5 Bit, G: 6 Bit, B: 5 Bit)

Dim Color As Word
Color = Color24to16([R], [G], [B])

Convert 16 Bit back to 24 Bit colors

Dim R As Byte, G As Byte, B As Byte
Color16to24 [16 Bit color], R, G, B

Alpha blending of 2 16 Bit colors

Dim Color1 As Word, Color2 As Word
Dim Mixedcolor As Word
Mixedcolor = Color16alpha(Color1, Color2, [Alpha 0 (Color1) - 31 (Color2)])

Included is a list of constants with 500+ named colors, which are also listed in the corresponding Excel-sheet and an example how to define custom color constants:

Const Color_custom =(((RED_8bit * 249) + 1014) And &HF800) + (Int(((GREEN_8bit * 253) + 505) / 32) And &H07E0) + Int(((BLUE_8bit * 249) + 1014) / 2048)

This Software is Donationware. <paypal>1</paypal> See here for more informations


Download