Author Topic: Chart Color32.bi (Read 4992 times)

bplus · « **on:** February 22, 2020, 08:00:36 pm »

Check out the colors and names for $COLOR:32 Metacommand

UPDATE : Warning code below contains a bug when mouse goes off the colors, fixed in following replies (two versions now: Hexadecimal and Decimal color values, Decimal is sorted by value rather than by color name.)

Code: QB64: [Select]

_TITLE "Chart Color32.bi" 'b+ 2020-02-22  for QB64 v1.4 and newer
$COLOR:32
TYPE ColorConst
    name AS STRING
    value AS STRING
END TYPE
DIM cc(0 TO 269) AS ColorConst
SCREEN _NEWIMAGE(720, 640, 32)
_SCREENMOVE 100, 20
'load data
FOR i = 0 TO 269
    READ cc(i).name, cc(i).value
    row = INT(i / 18): col = i MOD 18
    LINE (col * 40, row * 40)-STEP(40, 40), VAL(cc(i).value), BF
NEXT
WHILE _KEYDOWN(27) = 0
    WHILE _MOUSEINPUT: WEND
    mx = INT(_MOUSEX / 40): my = INT(_MOUSEY / 40)
    LINE (0, 600)-(720, 640), Black~&, BF
    cText 720 / 2 + 2, 620 + 2, 36, Razzmatazz~&, cc(my * 18 + mx).name + ", " + cc(my * 18 + mx).value
    cText 720 / 2, 620, 36, Azure~&, cc(my * 18 + mx).name + ", " + cc(my * 18 + mx).value
    _DISPLAY
    _LIMIT 30
WEND
SYSTEM
'Color32.bi as data
DATA AliceBlue~&,&HFFF0F8FF
DATA Almond~&,&HFFEFDECD
DATA AntiqueBrass~&,&HFFCD9575
DATA AntiqueWhite~&,&HFFFAEBD7
DATA Apricot~&,&HFFFDD9B5
DATA Aqua~&,&HFF00FFFF
DATA Aquamarine~&,&HFF7FFFD4
DATA Asparagus~&,&HFF87A96B
DATA AtomicTangerine~&,&HFFFFA474
DATA Azure~&,&HFFF0FFFF
DATA BananaMania~&,&HFFFAE7B5
DATA Beaver~&,&HFF9F8170
DATA Beige~&,&HFFF5F5DC
DATA Bisque~&,&HFFFFE4C4
DATA Bittersweet~&,&HFFFD7C6E
DATA Black~&,&HFF000000
DATA BlanchedAlmond~&,&HFFFFEBCD
DATA BlizzardBlue~&,&HFFACE5EE
DATA Blue~&,&HFF0000FF
DATA BlueBell~&,&HFFA2A2D0
DATA BlueGray~&,&HFF6699CC
DATA BlueGreen~&,&HFF0D98BA
DATA BlueViolet~&,&HFF8A2BE2
DATA Blush~&,&HFFDE5D83
DATA BrickRed~&,&HFFCB4154
DATA Brown~&,&HFFA52A2A
DATA BurlyWood~&,&HFFDEB887
DATA BurntOrange~&,&HFFFF7F49
DATA BurntSienna~&,&HFFEA7E5D
DATA CadetBlue~&,&HFF5F9EA0
DATA Canary~&,&HFFFFFF99
DATA CaribbeanGreen~&,&HFF1CD3A2
DATA CarnationPink~&,&HFFFFAACC
DATA Cerise~&,&HFFDD4492
DATA Cerulean~&,&HFF1DACD6
DATA ChartReuse~&,&HFF7FFF00
DATA Chestnut~&,&HFFBC5D58
DATA Chocolate~&,&HFFD2691E
DATA Copper~&,&HFFDD9475
DATA Coral~&,&HFFFF7F50
DATA Cornflower~&,&HFF9ACEEB
DATA CornflowerBlue~&,&HFF6495ED
DATA Cornsilk~&,&HFFFFF8DC
DATA CottonCandy~&,&HFFFFBCD9
DATA CrayolaAquamarine~&,&HFF78DBE2
DATA CrayolaBlue~&,&HFF1F75FE
DATA CrayolaBlueViolet~&,&HFF7366BD
DATA CrayolaBrown~&,&HFFB4674D
DATA CrayolaCadetBlue~&,&HFFB0B7C6
DATA CrayolaForestGreen~&,&HFF6DAE81
DATA CrayolaGold~&,&HFFE7C697
DATA CrayolaGoldenrod~&,&HFFFCD975
DATA CrayolaGray~&,&HFF95918C
DATA CrayolaGreen~&,&HFF1CAC78
DATA CrayolaGreenYellow~&,&HFFF0E891
DATA CrayolaIndigo~&,&HFF5D76CB
DATA CrayolaLavender~&,&HFFFCB4D5
DATA CrayolaMagenta~&,&HFFF664AF
DATA CrayolaMaroon~&,&HFFC8385A
DATA CrayolaMidnightBlue~&,&HFF1A4876
DATA CrayolaOrange~&,&HFFFF7538
DATA CrayolaOrangeRed~&,&HFFFF2B2B
DATA CrayolaOrchid~&,&HFFE6A8D7
DATA CrayolaPlum~&,&HFF8E4585
DATA CrayolaRed~&,&HFFEE204D
DATA CrayolaSalmon~&,&HFFFF9BAA
DATA CrayolaSeaGreen~&,&HFF9FE2BF
DATA CrayolaSilver~&,&HFFCDC5C2
DATA CrayolaSkyBlue~&,&HFF80DAEB
DATA CrayolaSpringGreen~&,&HFFECEABE
DATA CrayolaTann~&,&HFFFAA76C
DATA CrayolaThistle~&,&HFFEBC7DF
DATA CrayolaViolet~&,&HFF926EAE
DATA CrayolaYellow~&,&HFFFCE883
DATA CrayolaYellowGreen~&,&HFFC5E384
DATA Crimson~&,&HFFDC143C
DATA Cyan~&,&HFF00FFFF
DATA Dandelion~&,&HFFFDDB6D
DATA DarkBlue~&,&HFF00008B
DATA DarkCyan~&,&HFF008B8B
DATA DarkGoldenRod~&,&HFFB8860B
DATA DarkGray~&,&HFFA9A9A9
DATA DarkGreen~&,&HFF006400
DATA DarkKhaki~&,&HFFBDB76B
DATA DarkMagenta~&,&HFF8B008B
DATA DarkOliveGreen~&,&HFF556B2F
DATA DarkOrange~&,&HFFFF8C00
DATA DarkOrchid~&,&HFF9932CC
DATA DarkRed~&,&HFF8B0000
DATA DarkSalmon~&,&HFFE9967A
DATA DarkSeaGreen~&,&HFF8FBC8F
DATA DarkSlateBlue~&,&HFF483D8B
DATA DarkSlateGray~&,&HFF2F4F4F
DATA DarkTurquoise~&,&HFF00CED1
DATA DarkViolet~&,&HFF9400D3
DATA DeepPink~&,&HFFFF1493
DATA DeepSkyBlue~&,&HFF00BFFF
DATA Denim~&,&HFF2B6CC4
DATA DesertSand~&,&HFFEFCDB8
DATA DimGray~&,&HFF696969
DATA DodgerBlue~&,&HFF1E90FF
DATA Eggplant~&,&HFF6E5160
DATA ElectricLime~&,&HFFCEFF1D
DATA Fern~&,&HFF71BC78
DATA FireBrick~&,&HFFB22222
DATA Floralwhite~&,&HFFFFFAF0
DATA ForestGreen~&,&HFF228B22
DATA Fuchsia~&,&HFFC364C5
DATA FuzzyWuzzy~&,&HFFCC6666
DATA Gainsboro~&,&HFFDCDCDC
DATA GhostWhite~&,&HFFF8F8FF
DATA Gold~&,&HFFFFD700
DATA GoldenRod~&,&HFFDAA520
DATA GrannySmithApple~&,&HFFA8E4A0
DATA Gray~&,&HFF808080
DATA Green~&,&HFF008000
DATA GreenBlue~&,&HFF1164B4
DATA GreenYellow~&,&HFFADFF2F
DATA HoneyDew~&,&HFFF0FFF0
DATA HotMagenta~&,&HFFFF1DCE
DATA HotPink~&,&HFFFF69B4
DATA Inchworm~&,&HFFB2EC5D
DATA IndianRed~&,&HFFCD5C5C
DATA Indigo~&,&HFF4B0082
DATA Ivory~&,&HFFFFFFF0
DATA JazzberryJam~&,&HFFCA3767
DATA JungleGreen~&,&HFF3BB08F
DATA Khaki~&,&HFFF0E68C
DATA LaserLemon~&,&HFFFEFE22
DATA Lavender~&,&HFFE6E6FA
DATA LavenderBlush~&,&HFFFFF0F5
DATA LawnGreen~&,&HFF7CFC00
DATA LemonChiffon~&,&HFFFFFACD
DATA LemonYellow~&,&HFFFFF44F
DATA LightBlue~&,&HFFADD8E6
DATA LightCoral~&,&HFFF08080
DATA LightCyan~&,&HFFE0FFFF
DATA LightGoldenRodYellow~&,&HFFFAFAD2
DATA LightGray~&,&HFFD3D3D3
DATA LightGreen~&,&HFF90EE90
DATA LightPink~&,&HFFFFB6C1
DATA LightSalmon~&,&HFFFFA07A
DATA LightSeaGreen~&,&HFF20B2AA
DATA LightSkyBlue~&,&HFF87CEFA
DATA LightSlateGray~&,&HFF778899
DATA LightSteelBlue~&,&HFFB0C4DE
DATA LightYellow~&,&HFFFFFFE0
DATA Lime~&,&HFF00FF00
DATA LimeGreen~&,&HFF32CD32
DATA Linen~&,&HFFFAF0E6
DATA MacaroniAndCheese~&,&HFFFFBD88
DATA Magenta~&,&HFFFF00FF
DATA MagicMint~&,&HFFAAF0D1
DATA Mahogany~&,&HFFCD4A4C
DATA Maize~&,&HFFEDD19C
DATA Manatee~&,&HFF979AAA
DATA MangoTango~&,&HFFFF8243
DATA Maroon~&,&HFF800000
DATA Mauvelous~&,&HFFEF98AA
DATA MediumAquamarine~&,&HFF66CDAA
DATA MediumBlue~&,&HFF0000CD
DATA MediumOrchid~&,&HFFBA55D3
DATA MediumPurple~&,&HFF9370DB
DATA MediumSeaGreen~&,&HFF3CB371
DATA MediumSlateBlue~&,&HFF7B68EE
DATA MediumSpringGreen~&,&HFF00FA9A
DATA MediumTurquoise~&,&HFF48D1CC
DATA MediumVioletRed~&,&HFFC71585
DATA Melon~&,&HFFFDBCB4
DATA MidnightBlue~&,&HFF191970
DATA MintCream~&,&HFFF5FFFA
DATA MistyRose~&,&HFFFFE4E1
DATA Moccasin~&,&HFFFFE4B5
DATA MountainMeadow~&,&HFF30BA8F
DATA Mulberry~&,&HFFC54B8C
DATA NavajoWhite~&,&HFFFFDEAD
DATA Navy~&,&HFF000080
DATA NavyBlue~&,&HFF1974D2
DATA NeonCarrot~&,&HFFFFA343
DATA OldLace~&,&HFFFDF5E6
DATA Olive~&,&HFF808000
DATA OliveDrab~&,&HFF6B8E23
DATA OliveGreen~&,&HFFBAB86C
DATA Orange~&,&HFFFFA500
DATA OrangeRed~&,&HFFFF4500
DATA OrangeYellow~&,&HFFF8D568
DATA Orchid~&,&HFFDA70D6
DATA OuterSpace~&,&HFF414A4C
DATA OutrageousOrange~&,&HFFFF6E4A
DATA PacificBlue~&,&HFF1CA9C9
DATA PaleGoldenRod~&,&HFFEEE8AA
DATA PaleGreen~&,&HFF98FB98
DATA PaleTurquoise~&,&HFFAFEEEE
DATA PaleVioletRed~&,&HFFDB7093
DATA PapayaWhip~&,&HFFFFEFD5
DATA Peach~&,&HFFFFCFAB
DATA PeachPuff~&,&HFFFFDAB9
DATA Periwinkle~&,&HFFC5D0E6
DATA Peru~&,&HFFCD853F
DATA PiggyPink~&,&HFFFDDDE6
DATA PineGreen~&,&HFF158078
DATA Pink~&,&HFFFFC0CB
DATA PinkFlamingo~&,&HFFFC74FD
DATA PinkSherbet~&,&HFFF78FA7
DATA Plum~&,&HFFDDA0DD
DATA PowderBlue~&,&HFFB0E0E6
DATA Purple~&,&HFF800080
DATA PurpleHeart~&,&HFF7442C8
DATA PurpleMountainsMajesty~&,&HFF9D81BA
DATA PurplePizzazz~&,&HFFFE4EDA
DATA RadicalRed~&,&HFFFF496C
DATA RawSienna~&,&HFFD68A59
DATA RawUmber~&,&HFF714B23
DATA RazzleDazzleRose~&,&HFFFF48D0
DATA Razzmatazz~&,&HFFE3256B
DATA Red~&,&HFFFF0000
DATA RedOrange~&,&HFFFF5349
DATA RedViolet~&,&HFFC0448F
DATA RobinsEggBlue~&,&HFF1FCECB
DATA RosyBrown~&,&HFFBC8F8F
DATA RoyalBlue~&,&HFF4169E1
DATA RoyalPurple~&,&HFF7851A9
DATA SaddleBrown~&,&HFF8B4513
DATA Salmon~&,&HFFFA8072
DATA SandyBrown~&,&HFFF4A460
DATA Scarlet~&,&HFFFC2847
DATA ScreaminGreen~&,&HFF76FF7A
DATA SeaGreen~&,&HFF2E8B57
DATA SeaShell~&,&HFFFFF5EE
DATA Sepia~&,&HFFA5694F
DATA Shadow~&,&HFF8A795D
DATA Shamrock~&,&HFF45CEA2
DATA ShockingPink~&,&HFFFB7EFD
DATA Sienna~&,&HFFA0522D
DATA Silver~&,&HFFC0C0C0
DATA SkyBlue~&,&HFF87CEEB
DATA SlateBlue~&,&HFF6A5ACD
DATA SlateGray~&,&HFF708090
DATA Snow~&,&HFFFFFAFA
DATA SpringGreen~&,&HFF00FF7F
DATA SteelBlue~&,&HFF4682B4
DATA Sunglow~&,&HFFFFCF48
DATA SunsetOrange~&,&HFFFD5E53
DATA Tann~&,&HFFD2B48C
DATA Teal~&,&HFF008080
DATA TealBlue~&,&HFF18A7B5
DATA Thistle~&,&HFFD8BFD8
DATA TickleMePink~&,&HFFFC89AC
DATA Timberwolf~&,&HFFDBD7D2
DATA Tomato~&,&HFFFF6347
DATA TropicalRainForest~&,&HFF17806D
DATA Tumbleweed~&,&HFFDEAA88
DATA Turquoise~&,&HFF40E0D0
DATA TurquoiseBlue~&,&HFF77DDE7
DATA UnmellowYellow~&,&HFFFFFF66
DATA Violet~&,&HFFEE82EE
DATA VioletBlue~&,&HFF324AB2
DATA VioletRed~&,&HFFF75394
DATA VividTangerine~&,&HFFFFA089
DATA VividViolet~&,&HFF8F509D
DATA Wheat~&,&HFFF5DEB3
DATA White~&,&HFFFFFFFF
DATA Whitesmoke~&,&HFFF5F5F5
DATA WildBlueYonder~&,&HFFA2ADD0
DATA WildStrawberry~&,&HFFFF43A4
DATA WildWatermelon~&,&HFFFC6C85
DATA Wisteria~&,&HFFCDA4DE
DATA Yellow~&,&HFFFFFF00
DATA YellowGreen~&,&HFF9ACD32
DATA YellowOrange~&,&HFFFFAE42
 
SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
    DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
    fg = _DEFAULTCOLOR
    'screen snapshot
    cur& = _DEST
    I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
    _DEST I&
    COLOR K, _RGBA32(0, 0, 0, 0)
    _PRINTSTRING (0, 0), txt$
    mult = textHeight / 16
    xlen = LEN(txt$) * 8 * mult
    _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
    COLOR fg
    _FREEIMAGE I&
END SUB
 
 

FellippeHeitor · « **Reply #1 on:** February 22, 2020, 08:01:59 pm »

That's very neat, bplus. Thanks for sharing.

Suggestion: make the font "shadow" the same color I'm hovering.

PS: I sometimes get "Subscript out of range" at startup, line 20.

bplus · « **Reply #2 on:** February 22, 2020, 08:03:58 pm »

Thanks Fellippe, I will :)

Oops let's try the opposite color, things can look blurry.

johnno56 · « **Reply #3 on:** February 22, 2020, 08:29:21 pm »

Cool... You are lucky I had QB64 1.4 installed... 1.3 kicked up a fuss in regards to line #2... lol

Nicely done! Is it possible to have the colours in chromatic order? Nah! Kidding! Just the blue ones will be fine... lol

bplus · « **Reply #4 on:** February 22, 2020, 08:39:41 pm »

Quote from: johnno56 on February 22, 2020, 08:29:21 pm

Cool... You are lucky I had QB64 1.4 installed... 1.3 kicked up a fuss in regards to line #2... lol

Nicely done! Is it possible to have the colours in chromatic order? Nah! Kidding! Just the blue ones will be fine... lol

Hi Johnno,

As a matter of fact I tried a Qsort on the color values just now and it really wasn't much more organized than the harlequin chart originally (but the sort was after I converted to hexadecimal which makes a difference I think). There are like a dozen beige's in there!

Here is the chart with labels in the color moused over and it's opposite as shadow PLUS I discovered an error when mouse goes out of bounds of the array and fixed that.

Code: QB64: [Select]

_TITLE "Chart Color32_bi" 'b+ 2020-02-22  for QB64 v1.4 and newer
$COLOR:32
TYPE ColorConst
    NAME AS STRING
    value AS STRING
END TYPE
DIM SHARED cc(0 TO 269) AS ColorConst
SCREEN _NEWIMAGE(720, 640, 32)
_SCREENMOVE 100, 20
'load data
FOR i = 0 TO 269
    READ cc(i).NAME, cc(i).value
    row = INT(i / 18): col = i MOD 18
    LINE (col * 40, row * 40)-STEP(40, 40), VAL(cc(i).value), BF
NEXT
 
WHILE _KEYDOWN(27) = 0
    WHILE _MOUSEINPUT: WEND
    mx = INT(_MOUSEX / 40): my = INT(_MOUSEY / 40)
    IF mx >= 0 AND mx <= 18 AND my >= 0 AND my <= 14 THEN
        LINE (0, 600)-(720, 640), Black~&, BF
        oRed = (255 + _RED32(VAL(cc(my * 18 + mx).value)) - 128) MOD 256
        oGrn = (255 + _GREEN32(VAL(cc(my * 18 + mx).value)) - 128) MOD 256
        oBlu = (255 + _BLUE32(VAL(cc(my * 18 + mx).value)) - 128) MOD 256
        cText 720 / 2 + 2, 620 + 2, 40, _RGB32(oRed, oGrn, oBlu), cc(my * 18 + mx).NAME + ", " + cc(my * 18 + mx).value
        cText 720 / 2, 620, 40, VAL(cc(my * 18 + mx).value), cc(my * 18 + mx).NAME + ", " + cc(my * 18 + mx).value
    END IF
    _DISPLAY
    _LIMIT 30
WEND
SYSTEM
'Color32.bi as data
DATA AliceBlue~&,&HFFF0F8FF
DATA Almond~&,&HFFEFDECD
DATA AntiqueBrass~&,&HFFCD9575
DATA AntiqueWhite~&,&HFFFAEBD7
DATA Apricot~&,&HFFFDD9B5
DATA Aqua~&,&HFF00FFFF
DATA Aquamarine~&,&HFF7FFFD4
DATA Asparagus~&,&HFF87A96B
DATA AtomicTangerine~&,&HFFFFA474
DATA Azure~&,&HFFF0FFFF
DATA BananaMania~&,&HFFFAE7B5
DATA Beaver~&,&HFF9F8170
DATA Beige~&,&HFFF5F5DC
DATA Bisque~&,&HFFFFE4C4
DATA Bittersweet~&,&HFFFD7C6E
DATA Black~&,&HFF000000
DATA BlanchedAlmond~&,&HFFFFEBCD
DATA BlizzardBlue~&,&HFFACE5EE
DATA Blue~&,&HFF0000FF
DATA BlueBell~&,&HFFA2A2D0
DATA BlueGray~&,&HFF6699CC
DATA BlueGreen~&,&HFF0D98BA
DATA BlueViolet~&,&HFF8A2BE2
DATA Blush~&,&HFFDE5D83
DATA BrickRed~&,&HFFCB4154
DATA Brown~&,&HFFA52A2A
DATA BurlyWood~&,&HFFDEB887
DATA BurntOrange~&,&HFFFF7F49
DATA BurntSienna~&,&HFFEA7E5D
DATA CadetBlue~&,&HFF5F9EA0
DATA Canary~&,&HFFFFFF99
DATA CaribbeanGreen~&,&HFF1CD3A2
DATA CarnationPink~&,&HFFFFAACC
DATA Cerise~&,&HFFDD4492
DATA Cerulean~&,&HFF1DACD6
DATA ChartReuse~&,&HFF7FFF00
DATA Chestnut~&,&HFFBC5D58
DATA Chocolate~&,&HFFD2691E
DATA Copper~&,&HFFDD9475
DATA Coral~&,&HFFFF7F50
DATA Cornflower~&,&HFF9ACEEB
DATA CornflowerBlue~&,&HFF6495ED
DATA Cornsilk~&,&HFFFFF8DC
DATA CottonCandy~&,&HFFFFBCD9
DATA CrayolaAquamarine~&,&HFF78DBE2
DATA CrayolaBlue~&,&HFF1F75FE
DATA CrayolaBlueViolet~&,&HFF7366BD
DATA CrayolaBrown~&,&HFFB4674D
DATA CrayolaCadetBlue~&,&HFFB0B7C6
DATA CrayolaForestGreen~&,&HFF6DAE81
DATA CrayolaGold~&,&HFFE7C697
DATA CrayolaGoldenrod~&,&HFFFCD975
DATA CrayolaGray~&,&HFF95918C
DATA CrayolaGreen~&,&HFF1CAC78
DATA CrayolaGreenYellow~&,&HFFF0E891
DATA CrayolaIndigo~&,&HFF5D76CB
DATA CrayolaLavender~&,&HFFFCB4D5
DATA CrayolaMagenta~&,&HFFF664AF
DATA CrayolaMaroon~&,&HFFC8385A
DATA CrayolaMidnightBlue~&,&HFF1A4876
DATA CrayolaOrange~&,&HFFFF7538
DATA CrayolaOrangeRed~&,&HFFFF2B2B
DATA CrayolaOrchid~&,&HFFE6A8D7
DATA CrayolaPlum~&,&HFF8E4585
DATA CrayolaRed~&,&HFFEE204D
DATA CrayolaSalmon~&,&HFFFF9BAA
DATA CrayolaSeaGreen~&,&HFF9FE2BF
DATA CrayolaSilver~&,&HFFCDC5C2
DATA CrayolaSkyBlue~&,&HFF80DAEB
DATA CrayolaSpringGreen~&,&HFFECEABE
DATA CrayolaTann~&,&HFFFAA76C
DATA CrayolaThistle~&,&HFFEBC7DF
DATA CrayolaViolet~&,&HFF926EAE
DATA CrayolaYellow~&,&HFFFCE883
DATA CrayolaYellowGreen~&,&HFFC5E384
DATA Crimson~&,&HFFDC143C
DATA Cyan~&,&HFF00FFFF
DATA Dandelion~&,&HFFFDDB6D
DATA DarkBlue~&,&HFF00008B
DATA DarkCyan~&,&HFF008B8B
DATA DarkGoldenRod~&,&HFFB8860B
DATA DarkGray~&,&HFFA9A9A9
DATA DarkGreen~&,&HFF006400
DATA DarkKhaki~&,&HFFBDB76B
DATA DarkMagenta~&,&HFF8B008B
DATA DarkOliveGreen~&,&HFF556B2F
DATA DarkOrange~&,&HFFFF8C00
DATA DarkOrchid~&,&HFF9932CC
DATA DarkRed~&,&HFF8B0000
DATA DarkSalmon~&,&HFFE9967A
DATA DarkSeaGreen~&,&HFF8FBC8F
DATA DarkSlateBlue~&,&HFF483D8B
DATA DarkSlateGray~&,&HFF2F4F4F
DATA DarkTurquoise~&,&HFF00CED1
DATA DarkViolet~&,&HFF9400D3
DATA DeepPink~&,&HFFFF1493
DATA DeepSkyBlue~&,&HFF00BFFF
DATA Denim~&,&HFF2B6CC4
DATA DesertSand~&,&HFFEFCDB8
DATA DimGray~&,&HFF696969
DATA DodgerBlue~&,&HFF1E90FF
DATA Eggplant~&,&HFF6E5160
DATA ElectricLime~&,&HFFCEFF1D
DATA Fern~&,&HFF71BC78
DATA FireBrick~&,&HFFB22222
DATA Floralwhite~&,&HFFFFFAF0
DATA ForestGreen~&,&HFF228B22
DATA Fuchsia~&,&HFFC364C5
DATA FuzzyWuzzy~&,&HFFCC6666
DATA Gainsboro~&,&HFFDCDCDC
DATA GhostWhite~&,&HFFF8F8FF
DATA Gold~&,&HFFFFD700
DATA GoldenRod~&,&HFFDAA520
DATA GrannySmithApple~&,&HFFA8E4A0
DATA Gray~&,&HFF808080
DATA Green~&,&HFF008000
DATA GreenBlue~&,&HFF1164B4
DATA GreenYellow~&,&HFFADFF2F
DATA HoneyDew~&,&HFFF0FFF0
DATA HotMagenta~&,&HFFFF1DCE
DATA HotPink~&,&HFFFF69B4
DATA Inchworm~&,&HFFB2EC5D
DATA IndianRed~&,&HFFCD5C5C
DATA Indigo~&,&HFF4B0082
DATA Ivory~&,&HFFFFFFF0
DATA JazzberryJam~&,&HFFCA3767
DATA JungleGreen~&,&HFF3BB08F
DATA Khaki~&,&HFFF0E68C
DATA LaserLemon~&,&HFFFEFE22
DATA Lavender~&,&HFFE6E6FA
DATA LavenderBlush~&,&HFFFFF0F5
DATA LawnGreen~&,&HFF7CFC00
DATA LemonChiffon~&,&HFFFFFACD
DATA LemonYellow~&,&HFFFFF44F
DATA LightBlue~&,&HFFADD8E6
DATA LightCoral~&,&HFFF08080
DATA LightCyan~&,&HFFE0FFFF
DATA LightGoldenRodYellow~&,&HFFFAFAD2
DATA LightGray~&,&HFFD3D3D3
DATA LightGreen~&,&HFF90EE90
DATA LightPink~&,&HFFFFB6C1
DATA LightSalmon~&,&HFFFFA07A
DATA LightSeaGreen~&,&HFF20B2AA
DATA LightSkyBlue~&,&HFF87CEFA
DATA LightSlateGray~&,&HFF778899
DATA LightSteelBlue~&,&HFFB0C4DE
DATA LightYellow~&,&HFFFFFFE0
DATA Lime~&,&HFF00FF00
DATA LimeGreen~&,&HFF32CD32
DATA Linen~&,&HFFFAF0E6
DATA MacaroniAndCheese~&,&HFFFFBD88
DATA Magenta~&,&HFFFF00FF
DATA MagicMint~&,&HFFAAF0D1
DATA Mahogany~&,&HFFCD4A4C
DATA Maize~&,&HFFEDD19C
DATA Manatee~&,&HFF979AAA
DATA MangoTango~&,&HFFFF8243
DATA Maroon~&,&HFF800000
DATA Mauvelous~&,&HFFEF98AA
DATA MediumAquamarine~&,&HFF66CDAA
DATA MediumBlue~&,&HFF0000CD
DATA MediumOrchid~&,&HFFBA55D3
DATA MediumPurple~&,&HFF9370DB
DATA MediumSeaGreen~&,&HFF3CB371
DATA MediumSlateBlue~&,&HFF7B68EE
DATA MediumSpringGreen~&,&HFF00FA9A
DATA MediumTurquoise~&,&HFF48D1CC
DATA MediumVioletRed~&,&HFFC71585
DATA Melon~&,&HFFFDBCB4
DATA MidnightBlue~&,&HFF191970
DATA MintCream~&,&HFFF5FFFA
DATA MistyRose~&,&HFFFFE4E1
DATA Moccasin~&,&HFFFFE4B5
DATA MountainMeadow~&,&HFF30BA8F
DATA Mulberry~&,&HFFC54B8C
DATA NavajoWhite~&,&HFFFFDEAD
DATA Navy~&,&HFF000080
DATA NavyBlue~&,&HFF1974D2
DATA NeonCarrot~&,&HFFFFA343
DATA OldLace~&,&HFFFDF5E6
DATA Olive~&,&HFF808000
DATA OliveDrab~&,&HFF6B8E23
DATA OliveGreen~&,&HFFBAB86C
DATA Orange~&,&HFFFFA500
DATA OrangeRed~&,&HFFFF4500
DATA OrangeYellow~&,&HFFF8D568
DATA Orchid~&,&HFFDA70D6
DATA OuterSpace~&,&HFF414A4C
DATA OutrageousOrange~&,&HFFFF6E4A
DATA PacificBlue~&,&HFF1CA9C9
DATA PaleGoldenRod~&,&HFFEEE8AA
DATA PaleGreen~&,&HFF98FB98
DATA PaleTurquoise~&,&HFFAFEEEE
DATA PaleVioletRed~&,&HFFDB7093
DATA PapayaWhip~&,&HFFFFEFD5
DATA Peach~&,&HFFFFCFAB
DATA PeachPuff~&,&HFFFFDAB9
DATA Periwinkle~&,&HFFC5D0E6
DATA Peru~&,&HFFCD853F
DATA PiggyPink~&,&HFFFDDDE6
DATA PineGreen~&,&HFF158078
DATA Pink~&,&HFFFFC0CB
DATA PinkFlamingo~&,&HFFFC74FD
DATA PinkSherbet~&,&HFFF78FA7
DATA Plum~&,&HFFDDA0DD
DATA PowderBlue~&,&HFFB0E0E6
DATA Purple~&,&HFF800080
DATA PurpleHeart~&,&HFF7442C8
DATA PurpleMountainsMajesty~&,&HFF9D81BA
DATA PurplePizzazz~&,&HFFFE4EDA
DATA RadicalRed~&,&HFFFF496C
DATA RawSienna~&,&HFFD68A59
DATA RawUmber~&,&HFF714B23
DATA RazzleDazzleRose~&,&HFFFF48D0
DATA Razzmatazz~&,&HFFE3256B
DATA Red~&,&HFFFF0000
DATA RedOrange~&,&HFFFF5349
DATA RedViolet~&,&HFFC0448F
DATA RobinsEggBlue~&,&HFF1FCECB
DATA RosyBrown~&,&HFFBC8F8F
DATA RoyalBlue~&,&HFF4169E1
DATA RoyalPurple~&,&HFF7851A9
DATA SaddleBrown~&,&HFF8B4513
DATA Salmon~&,&HFFFA8072
DATA SandyBrown~&,&HFFF4A460
DATA Scarlet~&,&HFFFC2847
DATA ScreaminGreen~&,&HFF76FF7A
DATA SeaGreen~&,&HFF2E8B57
DATA SeaShell~&,&HFFFFF5EE
DATA Sepia~&,&HFFA5694F
DATA Shadow~&,&HFF8A795D
DATA Shamrock~&,&HFF45CEA2
DATA ShockingPink~&,&HFFFB7EFD
DATA Sienna~&,&HFFA0522D
DATA Silver~&,&HFFC0C0C0
DATA SkyBlue~&,&HFF87CEEB
DATA SlateBlue~&,&HFF6A5ACD
DATA SlateGray~&,&HFF708090
DATA Snow~&,&HFFFFFAFA
DATA SpringGreen~&,&HFF00FF7F
DATA SteelBlue~&,&HFF4682B4
DATA Sunglow~&,&HFFFFCF48
DATA SunsetOrange~&,&HFFFD5E53
DATA Tann~&,&HFFD2B48C
DATA Teal~&,&HFF008080
DATA TealBlue~&,&HFF18A7B5
DATA Thistle~&,&HFFD8BFD8
DATA TickleMePink~&,&HFFFC89AC
DATA Timberwolf~&,&HFFDBD7D2
DATA Tomato~&,&HFFFF6347
DATA TropicalRainForest~&,&HFF17806D
DATA Tumbleweed~&,&HFFDEAA88
DATA Turquoise~&,&HFF40E0D0
DATA TurquoiseBlue~&,&HFF77DDE7
DATA UnmellowYellow~&,&HFFFFFF66
DATA Violet~&,&HFFEE82EE
DATA VioletBlue~&,&HFF324AB2
DATA VioletRed~&,&HFFF75394
DATA VividTangerine~&,&HFFFFA089
DATA VividViolet~&,&HFF8F509D
DATA Wheat~&,&HFFF5DEB3
DATA White~&,&HFFFFFFFF
DATA Whitesmoke~&,&HFFF5F5F5
DATA WildBlueYonder~&,&HFFA2ADD0
DATA WildStrawberry~&,&HFFFF43A4
DATA WildWatermelon~&,&HFFFC6C85
DATA Wisteria~&,&HFFCDA4DE
DATA Yellow~&,&HFFFFFF00
DATA YellowGreen~&,&HFF9ACD32
DATA YellowOrange~&,&HFFFFAE42
 
SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
    DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
    fg = _DEFAULTCOLOR
    'screen snapshot
    cur& = _DEST
    I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
    _DEST I&
    COLOR K, _RGBA32(0, 0, 0, 0)
    _PRINTSTRING (0, 0), txt$
    mult = textHeight / 16
    xlen = LEN(txt$) * 8 * mult
    _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
    COLOR fg
    _FREEIMAGE I&
END SUB
 
 

_vince · « **Reply #5 on:** February 22, 2020, 09:09:49 pm »

Here is an interesting related page
https://gitlab.com/adammajewski/color_gradient

bplus · « **Reply #6 on:** February 22, 2020, 09:25:09 pm »

Quote from: _vince on February 22, 2020, 09:09:49 pm

Here is an interesting related page
https://gitlab.com/adammajewski/color_gradient

Oh thanks _vince that looks like something I was trying to figure in hsl2rgb thread.

bplus · « **Reply #7 on:** February 22, 2020, 10:06:56 pm »

Here is the decimal values version of the color values and this time the color values are sorted, did you know Aqua is the same exact color value as Cyan?

Code: QB64: [Select]

_TITLE "Chart Color32_bi Decimal Sorted by Decimal Values" 'b+ 2020-02-22  for QB64 v1.4 and newer
'this one is sorted by color value ascending as go down and right in chart
' Did you know Aqua and Cyan have the same color value?!?!?
 
$COLOR:32
TYPE ColorConst
    NAME AS STRING
    value AS _UNSIGNED LONG
END TYPE
DIM SHARED cc(0 TO 269) AS ColorConst
SCREEN _NEWIMAGE(720, 640, 32)
_SCREENMOVE 100, 20
'load data
FOR i = 0 TO 269
    READ cc(i).NAME, cc(i).value
    row = INT(i / 18): col = i MOD 18
    LINE (col * 40, row * 40)-STEP(40, 40), cc(i).value, BF
NEXT
QSort 0, 269
FOR i = 0 TO 269
    row = INT(i / 18): col = i MOD 18
    LINE (col * 40, row * 40)-STEP(40, 40), cc(i).value, BF
NEXT
 
WHILE _KEYDOWN(27) = 0
    WHILE _MOUSEINPUT: WEND
    mx = INT(_MOUSEX / 40): my = INT(_MOUSEY / 40)
    IF mx >= 0 AND mx <= 18 AND my >= 0 AND my <= 14 THEN
        LINE (0, 600)-(720, 640), Black~&, BF
        oRed = (255 + _RED32(255 + cc(my * 18 + mx).value) - 128) MOD 256
        oGrn = (255 + _GREEN32(255 + cc(my * 18 + mx).value) - 128) MOD 256
        oBlu = (255 + _BLUE32(255 + cc(my * 18 + mx).value) - 128) MOD 256
        cText 720 / 2 + 2, 620 + 2, 40, _RGB32(oRed, oGrn, oBlu), cc(my * 18 + mx).NAME + "," + STR$(cc(my * 18 + mx).value)
        cText 720 / 2, 620, 40, cc(my * 18 + mx).value, cc(my * 18 + mx).NAME + "," + STR$(cc(my * 18 + mx).value)
    END IF
    _DISPLAY
    _LIMIT 30
WEND
SYSTEM
 
'Color32.bi as data
DATA AliceBlue~&,4293982463
DATA Almond~&,4293910221
DATA AntiqueBrass~&,4291663221
DATA AntiqueWhite~&,4294634455
DATA Apricot~&,4294826421
DATA Aqua~&,4278255615
DATA Aquamarine~&,4286578644
DATA Asparagus~&,4287080811
DATA AtomicTangerine~&,4294943860
DATA Azure~&,4293984255
DATA BananaMania~&,4294633397
DATA Beaver~&,4288643440
DATA Beige~&,4294309340
DATA Bisque~&,4294960324
DATA Bittersweet~&,4294802542
DATA Black~&,4278190080
DATA BlanchedAlmond~&,4294962125
DATA BlizzardBlue~&,4289521134
DATA Blue~&,4278190335
DATA BlueBell~&,4288848592
DATA BlueGray~&,4284914124
DATA BlueGreen~&,4279081146
DATA BlueViolet~&,4287245282
DATA Blush~&,4292763011
DATA BrickRed~&,4291510612
DATA Brown~&,4289014314
DATA BurlyWood~&,4292786311
DATA BurntOrange~&,4294934345
DATA BurntSienna~&,4293557853
DATA CadetBlue~&,4284456608
DATA Canary~&,4294967193
DATA CaribbeanGreen~&,4280079266
DATA CarnationPink~&,4294945484
DATA Cerise~&,4292691090
DATA Cerulean~&,4280134870
DATA ChartReuse~&,4286578432
DATA Chestnut~&,4290534744
DATA Chocolate~&,4291979550
DATA Copper~&,4292711541
DATA Coral~&,4294934352
DATA Cornflower~&,4288335595
DATA CornflowerBlue~&,4284782061
DATA Cornsilk~&,4294965468
DATA CottonCandy~&,4294950105
DATA CrayolaAquamarine~&,4286110690
DATA CrayolaBlue~&,4280251902
DATA CrayolaBlueViolet~&,4285753021
DATA CrayolaBrown~&,4290013005
DATA CrayolaCadetBlue~&,4289771462
DATA CrayolaForestGreen~&,4285378177
DATA CrayolaGold~&,4293379735
DATA CrayolaGoldenrod~&,4294760821
DATA CrayolaGray~&,4287992204
DATA CrayolaGreen~&,4280069240
DATA CrayolaGreenYellow~&,4293978257
DATA CrayolaIndigo~&,4284315339
DATA CrayolaLavender~&,4294751445
DATA CrayolaMagenta~&,4294337711
DATA CrayolaMaroon~&,4291311706
DATA CrayolaMidnightBlue~&,4279912566
DATA CrayolaOrange~&,4294931768
DATA CrayolaOrangeRed~&,4294912811
DATA CrayolaOrchid~&,4293306583
DATA CrayolaPlum~&,4287513989
DATA CrayolaRed~&,4293795917
DATA CrayolaSalmon~&,4294941610
DATA CrayolaSeaGreen~&,4288668351
DATA CrayolaSilver~&,4291675586
DATA CrayolaSkyBlue~&,4286634731
DATA CrayolaSpringGreen~&,4293716670
DATA CrayolaTann~&,4294616940
DATA CrayolaThistle~&,4293642207
DATA CrayolaViolet~&,4287786670
DATA CrayolaYellow~&,4294764675
DATA CrayolaYellowGreen~&,4291158916
DATA Crimson~&,4292613180
DATA Cyan~&,4278255615
DATA Dandelion~&,4294826861
DATA DarkBlue~&,4278190219
DATA DarkCyan~&,4278225803
DATA DarkGoldenRod~&,4290283019
DATA DarkGray~&,4289309097
DATA DarkGreen~&,4278215680
DATA DarkKhaki~&,4290623339
DATA DarkMagenta~&,4287299723
DATA DarkOliveGreen~&,4283788079
DATA DarkOrange~&,4294937600
DATA DarkOrchid~&,4288230092
DATA DarkRed~&,4287299584
DATA DarkSalmon~&,4293498490
DATA DarkSeaGreen~&,4287609999
DATA DarkSlateBlue~&,4282924427
DATA DarkSlateGray~&,4281290575
DATA DarkTurquoise~&,4278243025
DATA DarkViolet~&,4287889619
DATA DeepPink~&,4294907027
DATA DeepSkyBlue~&,4278239231
DATA Denim~&,4281035972
DATA DesertSand~&,4293905848
DATA DimGray~&,4285098345
DATA DodgerBlue~&,4280193279
DATA Eggplant~&,4285419872
DATA ElectricLime~&,4291755805
DATA Fern~&,4285643896
DATA FireBrick~&,4289864226
DATA Floralwhite~&,4294966000
DATA ForestGreen~&,4280453922
DATA Fuchsia~&,4290995397
DATA FuzzyWuzzy~&,4291585638
DATA Gainsboro~&,4292664540
DATA GhostWhite~&,4294506751
DATA Gold~&,4294956800
DATA GoldenRod~&,4292519200
DATA GrannySmithApple~&,4289258656
DATA Gray~&,4286611584
DATA Green~&,4278222848
DATA GreenBlue~&,4279329972
DATA GreenYellow~&,4289593135
DATA HoneyDew~&,4293984240
DATA HotMagenta~&,4294909390
DATA HotPink~&,4294928820
DATA Inchworm~&,4289915997
DATA IndianRed~&,4291648604
DATA Indigo~&,4283105410
DATA Ivory~&,4294967280
DATA JazzberryJam~&,4291442535
DATA JungleGreen~&,4282101903
DATA Khaki~&,4293977740
DATA LaserLemon~&,4294901282
DATA Lavender~&,4293322490
DATA LavenderBlush~&,4294963445
DATA LawnGreen~&,4286381056
DATA LemonChiffon~&,4294965965
DATA LemonYellow~&,4294964303
DATA LightBlue~&,4289583334
DATA LightCoral~&,4293951616
DATA LightCyan~&,4292935679
DATA LightGoldenRodYellow~&,4294638290
DATA LightGray~&,4292072403
DATA LightGreen~&,4287688336
DATA LightPink~&,4294948545
DATA LightSalmon~&,4294942842
DATA LightSeaGreen~&,4280332970
DATA LightSkyBlue~&,4287090426
DATA LightSlateGray~&,4286023833
DATA LightSteelBlue~&,4289774814
DATA LightYellow~&,4294967264
DATA Lime~&,4278255360
DATA LimeGreen~&,4281519410
DATA Linen~&,4294635750
DATA MacaroniAndCheese~&,4294950280
DATA Magenta~&,4294902015
DATA MagicMint~&,4289392849
DATA Mahogany~&,4291643980
DATA Maize~&,4293775772
DATA Manatee~&,4288125610
DATA MangoTango~&,4294935107
DATA Maroon~&,4286578688
DATA Mauvelous~&,4293892266
DATA MediumAquamarine~&,4284927402
DATA MediumBlue~&,4278190285
DATA MediumOrchid~&,4290401747
DATA MediumPurple~&,4287852763
DATA MediumSeaGreen~&,4282168177
DATA MediumSlateBlue~&,4286277870
DATA MediumSpringGreen~&,4278254234
DATA MediumTurquoise~&,4282962380
DATA MediumVioletRed~&,4291237253
DATA Melon~&,4294818996
DATA MidnightBlue~&,4279834992
DATA MintCream~&,4294311930
DATA MistyRose~&,4294960353
DATA Moccasin~&,4294960309
DATA MountainMeadow~&,4281383567
DATA Mulberry~&,4291120012
DATA NavajoWhite~&,4294958765
DATA Navy~&,4278190208
DATA NavyBlue~&,4279858386
DATA NeonCarrot~&,4294943555
DATA OldLace~&,4294833638
DATA Olive~&,4286611456
DATA OliveDrab~&,4285238819
DATA OliveGreen~&,4290426988
DATA Orange~&,4294944000
DATA OrangeRed~&,4294919424
DATA OrangeYellow~&,4294497640
DATA Orchid~&,4292505814
DATA OuterSpace~&,4282468940
DATA OutrageousOrange~&,4294929994
DATA PacificBlue~&,4280068553
DATA PaleGoldenRod~&,4293847210
DATA PaleGreen~&,4288215960
DATA PaleTurquoise~&,4289720046
DATA PaleVioletRed~&,4292571283
DATA PapayaWhip~&,4294963157
DATA Peach~&,4294954923
DATA PeachPuff~&,4294957753
DATA Periwinkle~&,4291154150
DATA Peru~&,4291659071
DATA PiggyPink~&,4294827494
DATA PineGreen~&,4279599224
DATA Pink~&,4294951115
DATA PinkFlamingo~&,4294735101
DATA PinkSherbet~&,4294414247
DATA Plum~&,4292714717
DATA PowderBlue~&,4289781990
DATA Purple~&,4286578816
DATA PurpleHeart~&,4285809352
DATA PurpleMountainsMajesty~&,4288512442
DATA PurplePizzazz~&,4294856410
DATA RadicalRed~&,4294920556
DATA RawSienna~&,4292250201
DATA RawUmber~&,4285614883
DATA RazzleDazzleRose~&,4294920400
DATA Razzmatazz~&,4293076331
DATA Red~&,4294901760
DATA RedOrange~&,4294923081
DATA RedViolet~&,4290790543
DATA RobinsEggBlue~&,4280274635
DATA RosyBrown~&,4290547599
DATA RoyalBlue~&,4282477025
DATA RoyalPurple~&,4286075305
DATA SaddleBrown~&,4287317267
DATA Salmon~&,4294606962
DATA SandyBrown~&,4294222944
DATA Scarlet~&,4294715463
DATA ScreaminGreen~&,4285988730
DATA SeaGreen~&,4281240407
DATA SeaShell~&,4294964718
DATA Sepia~&,4289030479
DATA Shadow~&,4287265117
DATA Shamrock~&,4282764962
DATA ShockingPink~&,4294672125
DATA Sienna~&,4288696877
DATA Silver~&,4290822336
DATA SkyBlue~&,4287090411
DATA SlateBlue~&,4285160141
DATA SlateGray~&,4285563024
DATA Snow~&,4294966010
DATA SpringGreen~&,4278255487
DATA SteelBlue~&,4282811060
DATA Sunglow~&,4294954824
DATA SunsetOrange~&,4294794835
DATA Tann~&,4291998860
DATA Teal~&,4278222976
DATA TealBlue~&,4279805877
DATA Thistle~&,4292394968
DATA TickleMePink~&,4294740396
DATA Timberwolf~&,4292597714
DATA Tomato~&,4294927175
DATA TropicalRainForest~&,4279730285
DATA Tumbleweed~&,4292782728
DATA Turquoise~&,4282441936
DATA TurquoiseBlue~&,4286045671
DATA UnmellowYellow~&,4294967142
DATA Violet~&,4293821166
DATA VioletBlue~&,4281486002
DATA VioletRed~&,4294398868
DATA VividTangerine~&,4294942857
DATA VividViolet~&,4287582365
DATA Wheat~&,4294303411
DATA White~&,4294967295
DATA Whitesmoke~&,4294309365
DATA WildBlueYonder~&,4288851408
DATA WildStrawberry~&,4294919076
DATA WildWatermelon~&,4294732933
DATA Wisteria~&,4291667166
DATA Yellow~&,4294967040
DATA YellowGreen~&,4288335154
DATA YellowOrange~&,4294946370
 
SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
    DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
    fg = _DEFAULTCOLOR
    'screen snapshot
    cur& = _DEST
    I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
    _DEST I&
    COLOR K, _RGBA32(0, 0, 0, 0)
    _PRINTSTRING (0, 0), txt$
    mult = textHeight / 16
    xlen = LEN(txt$) * 8 * mult
    _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
    COLOR fg
    _FREEIMAGE I&
END SUB
 
SUB QSort (Start, Finish) 'cc needs to be shared array
    DIM i AS INTEGER, j AS INTEGER, x AS _UNSIGNED LONG
    i = Start
    j = Finish
    x = cc(INT((i + j) / 2)).value
    WHILE i <= j
        WHILE cc(i).value < x
            i = i + 1
        WEND
        WHILE cc(j).value > x
            j = j - 1
        WEND
        IF i <= j THEN
            SWAP cc(i), cc(j)
            i = i + 1
            j = j - 1
        END IF
    WEND
    IF j > Start THEN QSort Start, j
    IF i < Finish THEN QSort i, Finish
END SUB
 
 

johnno56 · « **Reply #8 on:** February 23, 2020, 02:55:52 am »

bplus,

Good move with the "shadows". Neon Carrot? Who would have guessed?

Nicely done.

bplus · « **Reply #9 on:** February 23, 2020, 11:50:53 am »

Quote from: johnno56 on February 23, 2020, 02:55:52 am

bplus,

Good move with the "shadows". Neon Carrot? Who would have guessed?

Nicely done.

Thank Fellippe for using color in labeling idea. I see he found and noted the mouse bug while I was fixing the label coloring.

Johnno I'd think you'd like to see Neon Blue, I have that!

Code: QB64: [Select]

_TITLE "Neon Blue" 'b+ 2020-02-23
SCREEN _NEWIMAGE(1200, 200, 32)
WHILE _KEYDOWN(27) = 0
    cText 600, 100, 64, &HFF0000FF, "Hi Johnno!"
    _DELAY RND * .1
    cText 600, 100, 64, &HFFFFFFFF, "Hi Johnno!"
    _DELAY RND * .05
WEND
 
'center the text at x, y with given height and color
SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
    DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
    fg = _DEFAULTCOLOR
    'screen snapshot
    cur& = _DEST
    I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
    _DEST I&
    COLOR K, _RGBA32(0, 0, 0, 0)
    _PRINTSTRING (0, 0), txt$
    mult = textHeight / 16
    xlen = LEN(txt$) * 8 * mult
    _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
    COLOR fg
    _FREEIMAGE I&
END SUB
 
 

TempodiBasic · « **Reply #10 on:** February 23, 2020, 02:46:46 pm »

Very fine the tool of verifing...
What color do you think for me? Please not Green White and Red like here https://www.google.it/url?sa=i&url=http%3A%2F%2Fwww.casar1962.com%2Fit%2Fricette%2Fspaghetti-al-sugo-pomodoro-basilico%2F&psig=AOvVaw2TPbNaVSXwXD9JNOkAHmrq&ust=1582573554494000&source=images&cd=vfe&ved=2ahUKEwjZm9KFuOjnAhVGtaQKHSXjC7EQjRx6BAgAEAc

bplus · « **Reply #11 on:** February 23, 2020, 03:54:24 pm »

Quote from: TempodiBasic on February 23, 2020, 02:46:46 pm

Very fine the tool of verifing...
What color do you think for me? Please not Green White and Red like here https://www.google.it/url?sa=i&url=http%3A%2F%2Fwww.casar1962.com%2Fit%2Fricette%2Fspaghetti-al-sugo-pomodoro-basilico%2F&psig=AOvVaw2TPbNaVSXwXD9JNOkAHmrq&ust=1582573554494000&source=images&cd=vfe&ved=2ahUKEwjZm9KFuOjnAhVGtaQKHSXjC7EQjRx6BAgAEAc

"Please not Green White and Red like here"

Ah, but your table is ready?

TempodiBasic · « **Reply #12 on:** February 24, 2020, 09:06:15 am »

@bplus
Thanks for the plate I'm just hungry.

bplus · « **Reply #13 on:** February 24, 2020, 11:49:28 am »

Oh hey! we have messages and notifications, nice do-dads!

@TempodiBasic
As I recall that was a spaghetti fork.

Next we need a Democrat so Pete will show up with the wine.

@bplus
What member number are you?

19

News:

Author Topic: Chart Color32.bi (Read 4992 times)

bplus

Chart Color32.bi

FellippeHeitor

Re: Chart Color32.bi

bplus

Re: Chart Color32.bi

johnno56

Re: Chart Color32.bi

bplus

Re: Chart Color32.bi

_vince

Re: Chart Color32.bi

bplus

Re: Chart Color32.bi

bplus

Re: Chart Color32.bi

johnno56

Re: Chart Color32.bi

bplus

Re: Chart Color32.bi

TempodiBasic

Re: Chart Color32.bi

bplus

Re: Chart Color32.bi

TempodiBasic

Re: Chart Color32.bi

bplus

Re: Chart Color32.bi