QB64.org Forum

Active Forums => Programs => Topic started by: bplus on February 22, 2020, 08:00:36 pm

Title: Chart Color32.bi
Post by: 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]

1. _TITLE "Chart Color32.bi" 'b+ 2020-02-22  for QB64 v1.4 and newer
2. $COLOR:32
3. TYPE ColorConst
4.     name AS STRING
5.     value AS STRING
6. END TYPE
7. DIM cc(0 TO 269) AS ColorConst
8. SCREEN _NEWIMAGE(720, 640, 32)
9. _SCREENMOVE 100, 20
10. 'load data
11. FOR i = 0 TO 269
12.     READ cc(i).name, cc(i).value
13.     row = INT(i / 18): col = i MOD 18
14.     LINE (col * 40, row * 40)-STEP(40, 40), VAL(cc(i).value), BF
15. NEXT
16. WHILE _KEYDOWN(27) = 0
17.     WHILE _MOUSEINPUT: WEND
18.     mx = INT(_MOUSEX / 40): my = INT(_MOUSEY / 40)
19.     LINE (0, 600)-(720, 640), Black~&, BF
20.     cText 720 / 2 + 2, 620 + 2, 36, Razzmatazz~&, cc(my * 18 + mx).name + ", " + cc(my * 18 + mx).value
21.     cText 720 / 2, 620, 36, Azure~&, cc(my * 18 + mx).name + ", " + cc(my * 18 + mx).value
22.     _DISPLAY
23.     _LIMIT 30
24. WEND
25. SYSTEM
26. 'Color32.bi as data
27. DATA AliceBlue~&,&HFFF0F8FF
28. DATA Almond~&,&HFFEFDECD
29. DATA AntiqueBrass~&,&HFFCD9575
30. DATA AntiqueWhite~&,&HFFFAEBD7
31. DATA Apricot~&,&HFFFDD9B5
32. DATA Aqua~&,&HFF00FFFF
33. DATA Aquamarine~&,&HFF7FFFD4
34. DATA Asparagus~&,&HFF87A96B
35. DATA AtomicTangerine~&,&HFFFFA474
36. DATA Azure~&,&HFFF0FFFF
37. DATA BananaMania~&,&HFFFAE7B5
38. DATA Beaver~&,&HFF9F8170
39. DATA Beige~&,&HFFF5F5DC
40. DATA Bisque~&,&HFFFFE4C4
41. DATA Bittersweet~&,&HFFFD7C6E
42. DATA Black~&,&HFF000000
43. DATA BlanchedAlmond~&,&HFFFFEBCD
44. DATA BlizzardBlue~&,&HFFACE5EE
45. DATA Blue~&,&HFF0000FF
46. DATA BlueBell~&,&HFFA2A2D0
47. DATA BlueGray~&,&HFF6699CC
48. DATA BlueGreen~&,&HFF0D98BA
49. DATA BlueViolet~&,&HFF8A2BE2
50. DATA Blush~&,&HFFDE5D83
51. DATA BrickRed~&,&HFFCB4154
52. DATA Brown~&,&HFFA52A2A
53. DATA BurlyWood~&,&HFFDEB887
54. DATA BurntOrange~&,&HFFFF7F49
55. DATA BurntSienna~&,&HFFEA7E5D
56. DATA CadetBlue~&,&HFF5F9EA0
57. DATA Canary~&,&HFFFFFF99
58. DATA CaribbeanGreen~&,&HFF1CD3A2
59. DATA CarnationPink~&,&HFFFFAACC
60. DATA Cerise~&,&HFFDD4492
61. DATA Cerulean~&,&HFF1DACD6
62. DATA ChartReuse~&,&HFF7FFF00
63. DATA Chestnut~&,&HFFBC5D58
64. DATA Chocolate~&,&HFFD2691E
65. DATA Copper~&,&HFFDD9475
66. DATA Coral~&,&HFFFF7F50
67. DATA Cornflower~&,&HFF9ACEEB
68. DATA CornflowerBlue~&,&HFF6495ED
69. DATA Cornsilk~&,&HFFFFF8DC
70. DATA CottonCandy~&,&HFFFFBCD9
71. DATA CrayolaAquamarine~&,&HFF78DBE2
72. DATA CrayolaBlue~&,&HFF1F75FE
73. DATA CrayolaBlueViolet~&,&HFF7366BD
74. DATA CrayolaBrown~&,&HFFB4674D
75. DATA CrayolaCadetBlue~&,&HFFB0B7C6
76. DATA CrayolaForestGreen~&,&HFF6DAE81
77. DATA CrayolaGold~&,&HFFE7C697
78. DATA CrayolaGoldenrod~&,&HFFFCD975
79. DATA CrayolaGray~&,&HFF95918C
80. DATA CrayolaGreen~&,&HFF1CAC78
81. DATA CrayolaGreenYellow~&,&HFFF0E891
82. DATA CrayolaIndigo~&,&HFF5D76CB
83. DATA CrayolaLavender~&,&HFFFCB4D5
84. DATA CrayolaMagenta~&,&HFFF664AF
85. DATA CrayolaMaroon~&,&HFFC8385A
86. DATA CrayolaMidnightBlue~&,&HFF1A4876
87. DATA CrayolaOrange~&,&HFFFF7538
88. DATA CrayolaOrangeRed~&,&HFFFF2B2B
89. DATA CrayolaOrchid~&,&HFFE6A8D7
90. DATA CrayolaPlum~&,&HFF8E4585
91. DATA CrayolaRed~&,&HFFEE204D
92. DATA CrayolaSalmon~&,&HFFFF9BAA
93. DATA CrayolaSeaGreen~&,&HFF9FE2BF
94. DATA CrayolaSilver~&,&HFFCDC5C2
95. DATA CrayolaSkyBlue~&,&HFF80DAEB
96. DATA CrayolaSpringGreen~&,&HFFECEABE
97. DATA CrayolaTann~&,&HFFFAA76C
98. DATA CrayolaThistle~&,&HFFEBC7DF
99. DATA CrayolaViolet~&,&HFF926EAE
100. DATA CrayolaYellow~&,&HFFFCE883
101. DATA CrayolaYellowGreen~&,&HFFC5E384
102. DATA Crimson~&,&HFFDC143C
103. DATA Cyan~&,&HFF00FFFF
104. DATA Dandelion~&,&HFFFDDB6D
105. DATA DarkBlue~&,&HFF00008B
106. DATA DarkCyan~&,&HFF008B8B
107. DATA DarkGoldenRod~&,&HFFB8860B
108. DATA DarkGray~&,&HFFA9A9A9
109. DATA DarkGreen~&,&HFF006400
110. DATA DarkKhaki~&,&HFFBDB76B
111. DATA DarkMagenta~&,&HFF8B008B
112. DATA DarkOliveGreen~&,&HFF556B2F
113. DATA DarkOrange~&,&HFFFF8C00
114. DATA DarkOrchid~&,&HFF9932CC
115. DATA DarkRed~&,&HFF8B0000
116. DATA DarkSalmon~&,&HFFE9967A
117. DATA DarkSeaGreen~&,&HFF8FBC8F
118. DATA DarkSlateBlue~&,&HFF483D8B
119. DATA DarkSlateGray~&,&HFF2F4F4F
120. DATA DarkTurquoise~&,&HFF00CED1
121. DATA DarkViolet~&,&HFF9400D3
122. DATA DeepPink~&,&HFFFF1493
123. DATA DeepSkyBlue~&,&HFF00BFFF
124. DATA Denim~&,&HFF2B6CC4
125. DATA DesertSand~&,&HFFEFCDB8
126. DATA DimGray~&,&HFF696969
127. DATA DodgerBlue~&,&HFF1E90FF
128. DATA Eggplant~&,&HFF6E5160
129. DATA ElectricLime~&,&HFFCEFF1D
130. DATA Fern~&,&HFF71BC78
131. DATA FireBrick~&,&HFFB22222
132. DATA Floralwhite~&,&HFFFFFAF0
133. DATA ForestGreen~&,&HFF228B22
134. DATA Fuchsia~&,&HFFC364C5
135. DATA FuzzyWuzzy~&,&HFFCC6666
136. DATA Gainsboro~&,&HFFDCDCDC
137. DATA GhostWhite~&,&HFFF8F8FF
138. DATA Gold~&,&HFFFFD700
139. DATA GoldenRod~&,&HFFDAA520
140. DATA GrannySmithApple~&,&HFFA8E4A0
141. DATA Gray~&,&HFF808080
142. DATA Green~&,&HFF008000
143. DATA GreenBlue~&,&HFF1164B4
144. DATA GreenYellow~&,&HFFADFF2F
145. DATA HoneyDew~&,&HFFF0FFF0
146. DATA HotMagenta~&,&HFFFF1DCE
147. DATA HotPink~&,&HFFFF69B4
148. DATA Inchworm~&,&HFFB2EC5D
149. DATA IndianRed~&,&HFFCD5C5C
150. DATA Indigo~&,&HFF4B0082
151. DATA Ivory~&,&HFFFFFFF0
152. DATA JazzberryJam~&,&HFFCA3767
153. DATA JungleGreen~&,&HFF3BB08F
154. DATA Khaki~&,&HFFF0E68C
155. DATA LaserLemon~&,&HFFFEFE22
156. DATA Lavender~&,&HFFE6E6FA
157. DATA LavenderBlush~&,&HFFFFF0F5
158. DATA LawnGreen~&,&HFF7CFC00
159. DATA LemonChiffon~&,&HFFFFFACD
160. DATA LemonYellow~&,&HFFFFF44F
161. DATA LightBlue~&,&HFFADD8E6
162. DATA LightCoral~&,&HFFF08080
163. DATA LightCyan~&,&HFFE0FFFF
164. DATA LightGoldenRodYellow~&,&HFFFAFAD2
165. DATA LightGray~&,&HFFD3D3D3
166. DATA LightGreen~&,&HFF90EE90
167. DATA LightPink~&,&HFFFFB6C1
168. DATA LightSalmon~&,&HFFFFA07A
169. DATA LightSeaGreen~&,&HFF20B2AA
170. DATA LightSkyBlue~&,&HFF87CEFA
171. DATA LightSlateGray~&,&HFF778899
172. DATA LightSteelBlue~&,&HFFB0C4DE
173. DATA LightYellow~&,&HFFFFFFE0
174. DATA Lime~&,&HFF00FF00
175. DATA LimeGreen~&,&HFF32CD32
176. DATA Linen~&,&HFFFAF0E6
177. DATA MacaroniAndCheese~&,&HFFFFBD88
178. DATA Magenta~&,&HFFFF00FF
179. DATA MagicMint~&,&HFFAAF0D1
180. DATA Mahogany~&,&HFFCD4A4C
181. DATA Maize~&,&HFFEDD19C
182. DATA Manatee~&,&HFF979AAA
183. DATA MangoTango~&,&HFFFF8243
184. DATA Maroon~&,&HFF800000
185. DATA Mauvelous~&,&HFFEF98AA
186. DATA MediumAquamarine~&,&HFF66CDAA
187. DATA MediumBlue~&,&HFF0000CD
188. DATA MediumOrchid~&,&HFFBA55D3
189. DATA MediumPurple~&,&HFF9370DB
190. DATA MediumSeaGreen~&,&HFF3CB371
191. DATA MediumSlateBlue~&,&HFF7B68EE
192. DATA MediumSpringGreen~&,&HFF00FA9A
193. DATA MediumTurquoise~&,&HFF48D1CC
194. DATA MediumVioletRed~&,&HFFC71585
195. DATA Melon~&,&HFFFDBCB4
196. DATA MidnightBlue~&,&HFF191970
197. DATA MintCream~&,&HFFF5FFFA
198. DATA MistyRose~&,&HFFFFE4E1
199. DATA Moccasin~&,&HFFFFE4B5
200. DATA MountainMeadow~&,&HFF30BA8F
201. DATA Mulberry~&,&HFFC54B8C
202. DATA NavajoWhite~&,&HFFFFDEAD
203. DATA Navy~&,&HFF000080
204. DATA NavyBlue~&,&HFF1974D2
205. DATA NeonCarrot~&,&HFFFFA343
206. DATA OldLace~&,&HFFFDF5E6
207. DATA Olive~&,&HFF808000
208. DATA OliveDrab~&,&HFF6B8E23
209. DATA OliveGreen~&,&HFFBAB86C
210. DATA Orange~&,&HFFFFA500
211. DATA OrangeRed~&,&HFFFF4500
212. DATA OrangeYellow~&,&HFFF8D568
213. DATA Orchid~&,&HFFDA70D6
214. DATA OuterSpace~&,&HFF414A4C
215. DATA OutrageousOrange~&,&HFFFF6E4A
216. DATA PacificBlue~&,&HFF1CA9C9
217. DATA PaleGoldenRod~&,&HFFEEE8AA
218. DATA PaleGreen~&,&HFF98FB98
219. DATA PaleTurquoise~&,&HFFAFEEEE
220. DATA PaleVioletRed~&,&HFFDB7093
221. DATA PapayaWhip~&,&HFFFFEFD5
222. DATA Peach~&,&HFFFFCFAB
223. DATA PeachPuff~&,&HFFFFDAB9
224. DATA Periwinkle~&,&HFFC5D0E6
225. DATA Peru~&,&HFFCD853F
226. DATA PiggyPink~&,&HFFFDDDE6
227. DATA PineGreen~&,&HFF158078
228. DATA Pink~&,&HFFFFC0CB
229. DATA PinkFlamingo~&,&HFFFC74FD
230. DATA PinkSherbet~&,&HFFF78FA7
231. DATA Plum~&,&HFFDDA0DD
232. DATA PowderBlue~&,&HFFB0E0E6
233. DATA Purple~&,&HFF800080
234. DATA PurpleHeart~&,&HFF7442C8
235. DATA PurpleMountainsMajesty~&,&HFF9D81BA
236. DATA PurplePizzazz~&,&HFFFE4EDA
237. DATA RadicalRed~&,&HFFFF496C
238. DATA RawSienna~&,&HFFD68A59
239. DATA RawUmber~&,&HFF714B23
240. DATA RazzleDazzleRose~&,&HFFFF48D0
241. DATA Razzmatazz~&,&HFFE3256B
242. DATA Red~&,&HFFFF0000
243. DATA RedOrange~&,&HFFFF5349
244. DATA RedViolet~&,&HFFC0448F
245. DATA RobinsEggBlue~&,&HFF1FCECB
246. DATA RosyBrown~&,&HFFBC8F8F
247. DATA RoyalBlue~&,&HFF4169E1
248. DATA RoyalPurple~&,&HFF7851A9
249. DATA SaddleBrown~&,&HFF8B4513
250. DATA Salmon~&,&HFFFA8072
251. DATA SandyBrown~&,&HFFF4A460
252. DATA Scarlet~&,&HFFFC2847
253. DATA ScreaminGreen~&,&HFF76FF7A
254. DATA SeaGreen~&,&HFF2E8B57
255. DATA SeaShell~&,&HFFFFF5EE
256. DATA Sepia~&,&HFFA5694F
257. DATA Shadow~&,&HFF8A795D
258. DATA Shamrock~&,&HFF45CEA2
259. DATA ShockingPink~&,&HFFFB7EFD
260. DATA Sienna~&,&HFFA0522D
261. DATA Silver~&,&HFFC0C0C0
262. DATA SkyBlue~&,&HFF87CEEB
263. DATA SlateBlue~&,&HFF6A5ACD
264. DATA SlateGray~&,&HFF708090
265. DATA Snow~&,&HFFFFFAFA
266. DATA SpringGreen~&,&HFF00FF7F
267. DATA SteelBlue~&,&HFF4682B4
268. DATA Sunglow~&,&HFFFFCF48
269. DATA SunsetOrange~&,&HFFFD5E53
270. DATA Tann~&,&HFFD2B48C
271. DATA Teal~&,&HFF008080
272. DATA TealBlue~&,&HFF18A7B5
273. DATA Thistle~&,&HFFD8BFD8
274. DATA TickleMePink~&,&HFFFC89AC
275. DATA Timberwolf~&,&HFFDBD7D2
276. DATA Tomato~&,&HFFFF6347
277. DATA TropicalRainForest~&,&HFF17806D
278. DATA Tumbleweed~&,&HFFDEAA88
279. DATA Turquoise~&,&HFF40E0D0
280. DATA TurquoiseBlue~&,&HFF77DDE7
281. DATA UnmellowYellow~&,&HFFFFFF66
282. DATA Violet~&,&HFFEE82EE
283. DATA VioletBlue~&,&HFF324AB2
284. DATA VioletRed~&,&HFFF75394
285. DATA VividTangerine~&,&HFFFFA089
286. DATA VividViolet~&,&HFF8F509D
287. DATA Wheat~&,&HFFF5DEB3
288. DATA White~&,&HFFFFFFFF
289. DATA Whitesmoke~&,&HFFF5F5F5
290. DATA WildBlueYonder~&,&HFFA2ADD0
291. DATA WildStrawberry~&,&HFFFF43A4
292. DATA WildWatermelon~&,&HFFFC6C85
293. DATA Wisteria~&,&HFFCDA4DE
294. DATA Yellow~&,&HFFFFFF00
295. DATA YellowGreen~&,&HFF9ACD32
296. DATA YellowOrange~&,&HFFFFAE42
297.  
298. SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
299.     DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
300.     fg = _DEFAULTCOLOR
301.     'screen snapshot
302.     cur& = _DEST
303.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
304.     _DEST I&
305.     COLOR K, _RGBA32(0, 0, 0, 0)
306.     _PRINTSTRING (0, 0), txt$
307.     mult = textHeight / 16
308.     xlen = LEN(txt$) * 8 * mult
309.     _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
310.     COLOR fg
311.     _FREEIMAGE I&
312. END SUB
313.  
314.  

Title: Re: Chart Color32.bi
Post by: FellippeHeitor 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.

Title: Re: Chart Color32.bi
Post by: bplus on February 22, 2020, 08:03:58 pm

Thanks Fellippe, I will :)

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

Title: Re: Chart Color32.bi
Post by: 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

Title: Re: Chart Color32.bi
Post by: bplus 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]

1. _TITLE "Chart Color32_bi" 'b+ 2020-02-22  for QB64 v1.4 and newer
2. $COLOR:32
3. TYPE ColorConst
4.     NAME AS STRING
5.     value AS STRING
6. END TYPE
7. DIM SHARED cc(0 TO 269) AS ColorConst
8. SCREEN _NEWIMAGE(720, 640, 32)
9. _SCREENMOVE 100, 20
10. 'load data
11. FOR i = 0 TO 269
12.     READ cc(i).NAME, cc(i).value
13.     row = INT(i / 18): col = i MOD 18
14.     LINE (col * 40, row * 40)-STEP(40, 40), VAL(cc(i).value), BF
15. NEXT
16.  
17. WHILE _KEYDOWN(27) = 0
18.     WHILE _MOUSEINPUT: WEND
19.     mx = INT(_MOUSEX / 40): my = INT(_MOUSEY / 40)
20.     IF mx >= 0 AND mx <= 18 AND my >= 0 AND my <= 14 THEN
21.         LINE (0, 600)-(720, 640), Black~&, BF
22.         oRed = (255 + _RED32(VAL(cc(my * 18 + mx).value)) - 128) MOD 256
23.         oGrn = (255 + _GREEN32(VAL(cc(my * 18 + mx).value)) - 128) MOD 256
24.         oBlu = (255 + _BLUE32(VAL(cc(my * 18 + mx).value)) - 128) MOD 256
25.         cText 720 / 2 + 2, 620 + 2, 40, _RGB32(oRed, oGrn, oBlu), cc(my * 18 + mx).NAME + ", " + cc(my * 18 + mx).value
26.         cText 720 / 2, 620, 40, VAL(cc(my * 18 + mx).value), cc(my * 18 + mx).NAME + ", " + cc(my * 18 + mx).value
27.     END IF
28.     _DISPLAY
29.     _LIMIT 30
30. WEND
31. SYSTEM
32. 'Color32.bi as data
33. DATA AliceBlue~&,&HFFF0F8FF
34. DATA Almond~&,&HFFEFDECD
35. DATA AntiqueBrass~&,&HFFCD9575
36. DATA AntiqueWhite~&,&HFFFAEBD7
37. DATA Apricot~&,&HFFFDD9B5
38. DATA Aqua~&,&HFF00FFFF
39. DATA Aquamarine~&,&HFF7FFFD4
40. DATA Asparagus~&,&HFF87A96B
41. DATA AtomicTangerine~&,&HFFFFA474
42. DATA Azure~&,&HFFF0FFFF
43. DATA BananaMania~&,&HFFFAE7B5
44. DATA Beaver~&,&HFF9F8170
45. DATA Beige~&,&HFFF5F5DC
46. DATA Bisque~&,&HFFFFE4C4
47. DATA Bittersweet~&,&HFFFD7C6E
48. DATA Black~&,&HFF000000
49. DATA BlanchedAlmond~&,&HFFFFEBCD
50. DATA BlizzardBlue~&,&HFFACE5EE
51. DATA Blue~&,&HFF0000FF
52. DATA BlueBell~&,&HFFA2A2D0
53. DATA BlueGray~&,&HFF6699CC
54. DATA BlueGreen~&,&HFF0D98BA
55. DATA BlueViolet~&,&HFF8A2BE2
56. DATA Blush~&,&HFFDE5D83
57. DATA BrickRed~&,&HFFCB4154
58. DATA Brown~&,&HFFA52A2A
59. DATA BurlyWood~&,&HFFDEB887
60. DATA BurntOrange~&,&HFFFF7F49
61. DATA BurntSienna~&,&HFFEA7E5D
62. DATA CadetBlue~&,&HFF5F9EA0
63. DATA Canary~&,&HFFFFFF99
64. DATA CaribbeanGreen~&,&HFF1CD3A2
65. DATA CarnationPink~&,&HFFFFAACC
66. DATA Cerise~&,&HFFDD4492
67. DATA Cerulean~&,&HFF1DACD6
68. DATA ChartReuse~&,&HFF7FFF00
69. DATA Chestnut~&,&HFFBC5D58
70. DATA Chocolate~&,&HFFD2691E
71. DATA Copper~&,&HFFDD9475
72. DATA Coral~&,&HFFFF7F50
73. DATA Cornflower~&,&HFF9ACEEB
74. DATA CornflowerBlue~&,&HFF6495ED
75. DATA Cornsilk~&,&HFFFFF8DC
76. DATA CottonCandy~&,&HFFFFBCD9
77. DATA CrayolaAquamarine~&,&HFF78DBE2
78. DATA CrayolaBlue~&,&HFF1F75FE
79. DATA CrayolaBlueViolet~&,&HFF7366BD
80. DATA CrayolaBrown~&,&HFFB4674D
81. DATA CrayolaCadetBlue~&,&HFFB0B7C6
82. DATA CrayolaForestGreen~&,&HFF6DAE81
83. DATA CrayolaGold~&,&HFFE7C697
84. DATA CrayolaGoldenrod~&,&HFFFCD975
85. DATA CrayolaGray~&,&HFF95918C
86. DATA CrayolaGreen~&,&HFF1CAC78
87. DATA CrayolaGreenYellow~&,&HFFF0E891
88. DATA CrayolaIndigo~&,&HFF5D76CB
89. DATA CrayolaLavender~&,&HFFFCB4D5
90. DATA CrayolaMagenta~&,&HFFF664AF
91. DATA CrayolaMaroon~&,&HFFC8385A
92. DATA CrayolaMidnightBlue~&,&HFF1A4876
93. DATA CrayolaOrange~&,&HFFFF7538
94. DATA CrayolaOrangeRed~&,&HFFFF2B2B
95. DATA CrayolaOrchid~&,&HFFE6A8D7
96. DATA CrayolaPlum~&,&HFF8E4585
97. DATA CrayolaRed~&,&HFFEE204D
98. DATA CrayolaSalmon~&,&HFFFF9BAA
99. DATA CrayolaSeaGreen~&,&HFF9FE2BF
100. DATA CrayolaSilver~&,&HFFCDC5C2
101. DATA CrayolaSkyBlue~&,&HFF80DAEB
102. DATA CrayolaSpringGreen~&,&HFFECEABE
103. DATA CrayolaTann~&,&HFFFAA76C
104. DATA CrayolaThistle~&,&HFFEBC7DF
105. DATA CrayolaViolet~&,&HFF926EAE
106. DATA CrayolaYellow~&,&HFFFCE883
107. DATA CrayolaYellowGreen~&,&HFFC5E384
108. DATA Crimson~&,&HFFDC143C
109. DATA Cyan~&,&HFF00FFFF
110. DATA Dandelion~&,&HFFFDDB6D
111. DATA DarkBlue~&,&HFF00008B
112. DATA DarkCyan~&,&HFF008B8B
113. DATA DarkGoldenRod~&,&HFFB8860B
114. DATA DarkGray~&,&HFFA9A9A9
115. DATA DarkGreen~&,&HFF006400
116. DATA DarkKhaki~&,&HFFBDB76B
117. DATA DarkMagenta~&,&HFF8B008B
118. DATA DarkOliveGreen~&,&HFF556B2F
119. DATA DarkOrange~&,&HFFFF8C00
120. DATA DarkOrchid~&,&HFF9932CC
121. DATA DarkRed~&,&HFF8B0000
122. DATA DarkSalmon~&,&HFFE9967A
123. DATA DarkSeaGreen~&,&HFF8FBC8F
124. DATA DarkSlateBlue~&,&HFF483D8B
125. DATA DarkSlateGray~&,&HFF2F4F4F
126. DATA DarkTurquoise~&,&HFF00CED1
127. DATA DarkViolet~&,&HFF9400D3
128. DATA DeepPink~&,&HFFFF1493
129. DATA DeepSkyBlue~&,&HFF00BFFF
130. DATA Denim~&,&HFF2B6CC4
131. DATA DesertSand~&,&HFFEFCDB8
132. DATA DimGray~&,&HFF696969
133. DATA DodgerBlue~&,&HFF1E90FF
134. DATA Eggplant~&,&HFF6E5160
135. DATA ElectricLime~&,&HFFCEFF1D
136. DATA Fern~&,&HFF71BC78
137. DATA FireBrick~&,&HFFB22222
138. DATA Floralwhite~&,&HFFFFFAF0
139. DATA ForestGreen~&,&HFF228B22
140. DATA Fuchsia~&,&HFFC364C5
141. DATA FuzzyWuzzy~&,&HFFCC6666
142. DATA Gainsboro~&,&HFFDCDCDC
143. DATA GhostWhite~&,&HFFF8F8FF
144. DATA Gold~&,&HFFFFD700
145. DATA GoldenRod~&,&HFFDAA520
146. DATA GrannySmithApple~&,&HFFA8E4A0
147. DATA Gray~&,&HFF808080
148. DATA Green~&,&HFF008000
149. DATA GreenBlue~&,&HFF1164B4
150. DATA GreenYellow~&,&HFFADFF2F
151. DATA HoneyDew~&,&HFFF0FFF0
152. DATA HotMagenta~&,&HFFFF1DCE
153. DATA HotPink~&,&HFFFF69B4
154. DATA Inchworm~&,&HFFB2EC5D
155. DATA IndianRed~&,&HFFCD5C5C
156. DATA Indigo~&,&HFF4B0082
157. DATA Ivory~&,&HFFFFFFF0
158. DATA JazzberryJam~&,&HFFCA3767
159. DATA JungleGreen~&,&HFF3BB08F
160. DATA Khaki~&,&HFFF0E68C
161. DATA LaserLemon~&,&HFFFEFE22
162. DATA Lavender~&,&HFFE6E6FA
163. DATA LavenderBlush~&,&HFFFFF0F5
164. DATA LawnGreen~&,&HFF7CFC00
165. DATA LemonChiffon~&,&HFFFFFACD
166. DATA LemonYellow~&,&HFFFFF44F
167. DATA LightBlue~&,&HFFADD8E6
168. DATA LightCoral~&,&HFFF08080
169. DATA LightCyan~&,&HFFE0FFFF
170. DATA LightGoldenRodYellow~&,&HFFFAFAD2
171. DATA LightGray~&,&HFFD3D3D3
172. DATA LightGreen~&,&HFF90EE90
173. DATA LightPink~&,&HFFFFB6C1
174. DATA LightSalmon~&,&HFFFFA07A
175. DATA LightSeaGreen~&,&HFF20B2AA
176. DATA LightSkyBlue~&,&HFF87CEFA
177. DATA LightSlateGray~&,&HFF778899
178. DATA LightSteelBlue~&,&HFFB0C4DE
179. DATA LightYellow~&,&HFFFFFFE0
180. DATA Lime~&,&HFF00FF00
181. DATA LimeGreen~&,&HFF32CD32
182. DATA Linen~&,&HFFFAF0E6
183. DATA MacaroniAndCheese~&,&HFFFFBD88
184. DATA Magenta~&,&HFFFF00FF
185. DATA MagicMint~&,&HFFAAF0D1
186. DATA Mahogany~&,&HFFCD4A4C
187. DATA Maize~&,&HFFEDD19C
188. DATA Manatee~&,&HFF979AAA
189. DATA MangoTango~&,&HFFFF8243
190. DATA Maroon~&,&HFF800000
191. DATA Mauvelous~&,&HFFEF98AA
192. DATA MediumAquamarine~&,&HFF66CDAA
193. DATA MediumBlue~&,&HFF0000CD
194. DATA MediumOrchid~&,&HFFBA55D3
195. DATA MediumPurple~&,&HFF9370DB
196. DATA MediumSeaGreen~&,&HFF3CB371
197. DATA MediumSlateBlue~&,&HFF7B68EE
198. DATA MediumSpringGreen~&,&HFF00FA9A
199. DATA MediumTurquoise~&,&HFF48D1CC
200. DATA MediumVioletRed~&,&HFFC71585
201. DATA Melon~&,&HFFFDBCB4
202. DATA MidnightBlue~&,&HFF191970
203. DATA MintCream~&,&HFFF5FFFA
204. DATA MistyRose~&,&HFFFFE4E1
205. DATA Moccasin~&,&HFFFFE4B5
206. DATA MountainMeadow~&,&HFF30BA8F
207. DATA Mulberry~&,&HFFC54B8C
208. DATA NavajoWhite~&,&HFFFFDEAD
209. DATA Navy~&,&HFF000080
210. DATA NavyBlue~&,&HFF1974D2
211. DATA NeonCarrot~&,&HFFFFA343
212. DATA OldLace~&,&HFFFDF5E6
213. DATA Olive~&,&HFF808000
214. DATA OliveDrab~&,&HFF6B8E23
215. DATA OliveGreen~&,&HFFBAB86C
216. DATA Orange~&,&HFFFFA500
217. DATA OrangeRed~&,&HFFFF4500
218. DATA OrangeYellow~&,&HFFF8D568
219. DATA Orchid~&,&HFFDA70D6
220. DATA OuterSpace~&,&HFF414A4C
221. DATA OutrageousOrange~&,&HFFFF6E4A
222. DATA PacificBlue~&,&HFF1CA9C9
223. DATA PaleGoldenRod~&,&HFFEEE8AA
224. DATA PaleGreen~&,&HFF98FB98
225. DATA PaleTurquoise~&,&HFFAFEEEE
226. DATA PaleVioletRed~&,&HFFDB7093
227. DATA PapayaWhip~&,&HFFFFEFD5
228. DATA Peach~&,&HFFFFCFAB
229. DATA PeachPuff~&,&HFFFFDAB9
230. DATA Periwinkle~&,&HFFC5D0E6
231. DATA Peru~&,&HFFCD853F
232. DATA PiggyPink~&,&HFFFDDDE6
233. DATA PineGreen~&,&HFF158078
234. DATA Pink~&,&HFFFFC0CB
235. DATA PinkFlamingo~&,&HFFFC74FD
236. DATA PinkSherbet~&,&HFFF78FA7
237. DATA Plum~&,&HFFDDA0DD
238. DATA PowderBlue~&,&HFFB0E0E6
239. DATA Purple~&,&HFF800080
240. DATA PurpleHeart~&,&HFF7442C8
241. DATA PurpleMountainsMajesty~&,&HFF9D81BA
242. DATA PurplePizzazz~&,&HFFFE4EDA
243. DATA RadicalRed~&,&HFFFF496C
244. DATA RawSienna~&,&HFFD68A59
245. DATA RawUmber~&,&HFF714B23
246. DATA RazzleDazzleRose~&,&HFFFF48D0
247. DATA Razzmatazz~&,&HFFE3256B
248. DATA Red~&,&HFFFF0000
249. DATA RedOrange~&,&HFFFF5349
250. DATA RedViolet~&,&HFFC0448F
251. DATA RobinsEggBlue~&,&HFF1FCECB
252. DATA RosyBrown~&,&HFFBC8F8F
253. DATA RoyalBlue~&,&HFF4169E1
254. DATA RoyalPurple~&,&HFF7851A9
255. DATA SaddleBrown~&,&HFF8B4513
256. DATA Salmon~&,&HFFFA8072
257. DATA SandyBrown~&,&HFFF4A460
258. DATA Scarlet~&,&HFFFC2847
259. DATA ScreaminGreen~&,&HFF76FF7A
260. DATA SeaGreen~&,&HFF2E8B57
261. DATA SeaShell~&,&HFFFFF5EE
262. DATA Sepia~&,&HFFA5694F
263. DATA Shadow~&,&HFF8A795D
264. DATA Shamrock~&,&HFF45CEA2
265. DATA ShockingPink~&,&HFFFB7EFD
266. DATA Sienna~&,&HFFA0522D
267. DATA Silver~&,&HFFC0C0C0
268. DATA SkyBlue~&,&HFF87CEEB
269. DATA SlateBlue~&,&HFF6A5ACD
270. DATA SlateGray~&,&HFF708090
271. DATA Snow~&,&HFFFFFAFA
272. DATA SpringGreen~&,&HFF00FF7F
273. DATA SteelBlue~&,&HFF4682B4
274. DATA Sunglow~&,&HFFFFCF48
275. DATA SunsetOrange~&,&HFFFD5E53
276. DATA Tann~&,&HFFD2B48C
277. DATA Teal~&,&HFF008080
278. DATA TealBlue~&,&HFF18A7B5
279. DATA Thistle~&,&HFFD8BFD8
280. DATA TickleMePink~&,&HFFFC89AC
281. DATA Timberwolf~&,&HFFDBD7D2
282. DATA Tomato~&,&HFFFF6347
283. DATA TropicalRainForest~&,&HFF17806D
284. DATA Tumbleweed~&,&HFFDEAA88
285. DATA Turquoise~&,&HFF40E0D0
286. DATA TurquoiseBlue~&,&HFF77DDE7
287. DATA UnmellowYellow~&,&HFFFFFF66
288. DATA Violet~&,&HFFEE82EE
289. DATA VioletBlue~&,&HFF324AB2
290. DATA VioletRed~&,&HFFF75394
291. DATA VividTangerine~&,&HFFFFA089
292. DATA VividViolet~&,&HFF8F509D
293. DATA Wheat~&,&HFFF5DEB3
294. DATA White~&,&HFFFFFFFF
295. DATA Whitesmoke~&,&HFFF5F5F5
296. DATA WildBlueYonder~&,&HFFA2ADD0
297. DATA WildStrawberry~&,&HFFFF43A4
298. DATA WildWatermelon~&,&HFFFC6C85
299. DATA Wisteria~&,&HFFCDA4DE
300. DATA Yellow~&,&HFFFFFF00
301. DATA YellowGreen~&,&HFF9ACD32
302. DATA YellowOrange~&,&HFFFFAE42
303.  
304. SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
305.     DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
306.     fg = _DEFAULTCOLOR
307.     'screen snapshot
308.     cur& = _DEST
309.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
310.     _DEST I&
311.     COLOR K, _RGBA32(0, 0, 0, 0)
312.     _PRINTSTRING (0, 0), txt$
313.     mult = textHeight / 16
314.     xlen = LEN(txt$) * 8 * mult
315.     _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
316.     COLOR fg
317.     _FREEIMAGE I&
318. END SUB
319.  
320.  

Title: Re: Chart Color32.bi
Post by: _vince on February 22, 2020, 09:09:49 pm

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

Title: Re: Chart Color32.bi
Post by: bplus 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 (https://gitlab.com/adammajewski/color_gradient)

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

Title: Re: Chart Color32.bi
Post by: bplus 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]

1. _TITLE "Chart Color32_bi Decimal Sorted by Decimal Values" 'b+ 2020-02-22  for QB64 v1.4 and newer
2. 'this one is sorted by color value ascending as go down and right in chart
3. ' Did you know Aqua and Cyan have the same color value?!?!?
4.  
5. $COLOR:32
6. TYPE ColorConst
7.     NAME AS STRING
8.     value AS _UNSIGNED LONG
9. END TYPE
10. DIM SHARED cc(0 TO 269) AS ColorConst
11. SCREEN _NEWIMAGE(720, 640, 32)
12. _SCREENMOVE 100, 20
13. 'load data
14. FOR i = 0 TO 269
15.     READ cc(i).NAME, cc(i).value
16.     row = INT(i / 18): col = i MOD 18
17.     LINE (col * 40, row * 40)-STEP(40, 40), cc(i).value, BF
18. NEXT
19. QSort 0, 269
20. FOR i = 0 TO 269
21.     row = INT(i / 18): col = i MOD 18
22.     LINE (col * 40, row * 40)-STEP(40, 40), cc(i).value, BF
23. NEXT
24.  
25. WHILE _KEYDOWN(27) = 0
26.     WHILE _MOUSEINPUT: WEND
27.     mx = INT(_MOUSEX / 40): my = INT(_MOUSEY / 40)
28.     IF mx >= 0 AND mx <= 18 AND my >= 0 AND my <= 14 THEN
29.         LINE (0, 600)-(720, 640), Black~&, BF
30.         oRed = (255 + _RED32(255 + cc(my * 18 + mx).value) - 128) MOD 256
31.         oGrn = (255 + _GREEN32(255 + cc(my * 18 + mx).value) - 128) MOD 256
32.         oBlu = (255 + _BLUE32(255 + cc(my * 18 + mx).value) - 128) MOD 256
33.         cText 720 / 2 + 2, 620 + 2, 40, _RGB32(oRed, oGrn, oBlu), cc(my * 18 + mx).NAME + "," + STR$(cc(my * 18 + mx).value)
34.         cText 720 / 2, 620, 40, cc(my * 18 + mx).value, cc(my * 18 + mx).NAME + "," + STR$(cc(my * 18 + mx).value)
35.     END IF
36.     _DISPLAY
37.     _LIMIT 30
38. WEND
39. SYSTEM
40.  
41. 'Color32.bi as data
42. DATA AliceBlue~&,4293982463
43. DATA Almond~&,4293910221
44. DATA AntiqueBrass~&,4291663221
45. DATA AntiqueWhite~&,4294634455
46. DATA Apricot~&,4294826421
47. DATA Aqua~&,4278255615
48. DATA Aquamarine~&,4286578644
49. DATA Asparagus~&,4287080811
50. DATA AtomicTangerine~&,4294943860
51. DATA Azure~&,4293984255
52. DATA BananaMania~&,4294633397
53. DATA Beaver~&,4288643440
54. DATA Beige~&,4294309340
55. DATA Bisque~&,4294960324
56. DATA Bittersweet~&,4294802542
57. DATA Black~&,4278190080
58. DATA BlanchedAlmond~&,4294962125
59. DATA BlizzardBlue~&,4289521134
60. DATA Blue~&,4278190335
61. DATA BlueBell~&,4288848592
62. DATA BlueGray~&,4284914124
63. DATA BlueGreen~&,4279081146
64. DATA BlueViolet~&,4287245282
65. DATA Blush~&,4292763011
66. DATA BrickRed~&,4291510612
67. DATA Brown~&,4289014314
68. DATA BurlyWood~&,4292786311
69. DATA BurntOrange~&,4294934345
70. DATA BurntSienna~&,4293557853
71. DATA CadetBlue~&,4284456608
72. DATA Canary~&,4294967193
73. DATA CaribbeanGreen~&,4280079266
74. DATA CarnationPink~&,4294945484
75. DATA Cerise~&,4292691090
76. DATA Cerulean~&,4280134870
77. DATA ChartReuse~&,4286578432
78. DATA Chestnut~&,4290534744
79. DATA Chocolate~&,4291979550
80. DATA Copper~&,4292711541
81. DATA Coral~&,4294934352
82. DATA Cornflower~&,4288335595
83. DATA CornflowerBlue~&,4284782061
84. DATA Cornsilk~&,4294965468
85. DATA CottonCandy~&,4294950105
86. DATA CrayolaAquamarine~&,4286110690
87. DATA CrayolaBlue~&,4280251902
88. DATA CrayolaBlueViolet~&,4285753021
89. DATA CrayolaBrown~&,4290013005
90. DATA CrayolaCadetBlue~&,4289771462
91. DATA CrayolaForestGreen~&,4285378177
92. DATA CrayolaGold~&,4293379735
93. DATA CrayolaGoldenrod~&,4294760821
94. DATA CrayolaGray~&,4287992204
95. DATA CrayolaGreen~&,4280069240
96. DATA CrayolaGreenYellow~&,4293978257
97. DATA CrayolaIndigo~&,4284315339
98. DATA CrayolaLavender~&,4294751445
99. DATA CrayolaMagenta~&,4294337711
100. DATA CrayolaMaroon~&,4291311706
101. DATA CrayolaMidnightBlue~&,4279912566
102. DATA CrayolaOrange~&,4294931768
103. DATA CrayolaOrangeRed~&,4294912811
104. DATA CrayolaOrchid~&,4293306583
105. DATA CrayolaPlum~&,4287513989
106. DATA CrayolaRed~&,4293795917
107. DATA CrayolaSalmon~&,4294941610
108. DATA CrayolaSeaGreen~&,4288668351
109. DATA CrayolaSilver~&,4291675586
110. DATA CrayolaSkyBlue~&,4286634731
111. DATA CrayolaSpringGreen~&,4293716670
112. DATA CrayolaTann~&,4294616940
113. DATA CrayolaThistle~&,4293642207
114. DATA CrayolaViolet~&,4287786670
115. DATA CrayolaYellow~&,4294764675
116. DATA CrayolaYellowGreen~&,4291158916
117. DATA Crimson~&,4292613180
118. DATA Cyan~&,4278255615
119. DATA Dandelion~&,4294826861
120. DATA DarkBlue~&,4278190219
121. DATA DarkCyan~&,4278225803
122. DATA DarkGoldenRod~&,4290283019
123. DATA DarkGray~&,4289309097
124. DATA DarkGreen~&,4278215680
125. DATA DarkKhaki~&,4290623339
126. DATA DarkMagenta~&,4287299723
127. DATA DarkOliveGreen~&,4283788079
128. DATA DarkOrange~&,4294937600
129. DATA DarkOrchid~&,4288230092
130. DATA DarkRed~&,4287299584
131. DATA DarkSalmon~&,4293498490
132. DATA DarkSeaGreen~&,4287609999
133. DATA DarkSlateBlue~&,4282924427
134. DATA DarkSlateGray~&,4281290575
135. DATA DarkTurquoise~&,4278243025
136. DATA DarkViolet~&,4287889619
137. DATA DeepPink~&,4294907027
138. DATA DeepSkyBlue~&,4278239231
139. DATA Denim~&,4281035972
140. DATA DesertSand~&,4293905848
141. DATA DimGray~&,4285098345
142. DATA DodgerBlue~&,4280193279
143. DATA Eggplant~&,4285419872
144. DATA ElectricLime~&,4291755805
145. DATA Fern~&,4285643896
146. DATA FireBrick~&,4289864226
147. DATA Floralwhite~&,4294966000
148. DATA ForestGreen~&,4280453922
149. DATA Fuchsia~&,4290995397
150. DATA FuzzyWuzzy~&,4291585638
151. DATA Gainsboro~&,4292664540
152. DATA GhostWhite~&,4294506751
153. DATA Gold~&,4294956800
154. DATA GoldenRod~&,4292519200
155. DATA GrannySmithApple~&,4289258656
156. DATA Gray~&,4286611584
157. DATA Green~&,4278222848
158. DATA GreenBlue~&,4279329972
159. DATA GreenYellow~&,4289593135
160. DATA HoneyDew~&,4293984240
161. DATA HotMagenta~&,4294909390
162. DATA HotPink~&,4294928820
163. DATA Inchworm~&,4289915997
164. DATA IndianRed~&,4291648604
165. DATA Indigo~&,4283105410
166. DATA Ivory~&,4294967280
167. DATA JazzberryJam~&,4291442535
168. DATA JungleGreen~&,4282101903
169. DATA Khaki~&,4293977740
170. DATA LaserLemon~&,4294901282
171. DATA Lavender~&,4293322490
172. DATA LavenderBlush~&,4294963445
173. DATA LawnGreen~&,4286381056
174. DATA LemonChiffon~&,4294965965
175. DATA LemonYellow~&,4294964303
176. DATA LightBlue~&,4289583334
177. DATA LightCoral~&,4293951616
178. DATA LightCyan~&,4292935679
179. DATA LightGoldenRodYellow~&,4294638290
180. DATA LightGray~&,4292072403
181. DATA LightGreen~&,4287688336
182. DATA LightPink~&,4294948545
183. DATA LightSalmon~&,4294942842
184. DATA LightSeaGreen~&,4280332970
185. DATA LightSkyBlue~&,4287090426
186. DATA LightSlateGray~&,4286023833
187. DATA LightSteelBlue~&,4289774814
188. DATA LightYellow~&,4294967264
189. DATA Lime~&,4278255360
190. DATA LimeGreen~&,4281519410
191. DATA Linen~&,4294635750
192. DATA MacaroniAndCheese~&,4294950280
193. DATA Magenta~&,4294902015
194. DATA MagicMint~&,4289392849
195. DATA Mahogany~&,4291643980
196. DATA Maize~&,4293775772
197. DATA Manatee~&,4288125610
198. DATA MangoTango~&,4294935107
199. DATA Maroon~&,4286578688
200. DATA Mauvelous~&,4293892266
201. DATA MediumAquamarine~&,4284927402
202. DATA MediumBlue~&,4278190285
203. DATA MediumOrchid~&,4290401747
204. DATA MediumPurple~&,4287852763
205. DATA MediumSeaGreen~&,4282168177
206. DATA MediumSlateBlue~&,4286277870
207. DATA MediumSpringGreen~&,4278254234
208. DATA MediumTurquoise~&,4282962380
209. DATA MediumVioletRed~&,4291237253
210. DATA Melon~&,4294818996
211. DATA MidnightBlue~&,4279834992
212. DATA MintCream~&,4294311930
213. DATA MistyRose~&,4294960353
214. DATA Moccasin~&,4294960309
215. DATA MountainMeadow~&,4281383567
216. DATA Mulberry~&,4291120012
217. DATA NavajoWhite~&,4294958765
218. DATA Navy~&,4278190208
219. DATA NavyBlue~&,4279858386
220. DATA NeonCarrot~&,4294943555
221. DATA OldLace~&,4294833638
222. DATA Olive~&,4286611456
223. DATA OliveDrab~&,4285238819
224. DATA OliveGreen~&,4290426988
225. DATA Orange~&,4294944000
226. DATA OrangeRed~&,4294919424
227. DATA OrangeYellow~&,4294497640
228. DATA Orchid~&,4292505814
229. DATA OuterSpace~&,4282468940
230. DATA OutrageousOrange~&,4294929994
231. DATA PacificBlue~&,4280068553
232. DATA PaleGoldenRod~&,4293847210
233. DATA PaleGreen~&,4288215960
234. DATA PaleTurquoise~&,4289720046
235. DATA PaleVioletRed~&,4292571283
236. DATA PapayaWhip~&,4294963157
237. DATA Peach~&,4294954923
238. DATA PeachPuff~&,4294957753
239. DATA Periwinkle~&,4291154150
240. DATA Peru~&,4291659071
241. DATA PiggyPink~&,4294827494
242. DATA PineGreen~&,4279599224
243. DATA Pink~&,4294951115
244. DATA PinkFlamingo~&,4294735101
245. DATA PinkSherbet~&,4294414247
246. DATA Plum~&,4292714717
247. DATA PowderBlue~&,4289781990
248. DATA Purple~&,4286578816
249. DATA PurpleHeart~&,4285809352
250. DATA PurpleMountainsMajesty~&,4288512442
251. DATA PurplePizzazz~&,4294856410
252. DATA RadicalRed~&,4294920556
253. DATA RawSienna~&,4292250201
254. DATA RawUmber~&,4285614883
255. DATA RazzleDazzleRose~&,4294920400
256. DATA Razzmatazz~&,4293076331
257. DATA Red~&,4294901760
258. DATA RedOrange~&,4294923081
259. DATA RedViolet~&,4290790543
260. DATA RobinsEggBlue~&,4280274635
261. DATA RosyBrown~&,4290547599
262. DATA RoyalBlue~&,4282477025
263. DATA RoyalPurple~&,4286075305
264. DATA SaddleBrown~&,4287317267
265. DATA Salmon~&,4294606962
266. DATA SandyBrown~&,4294222944
267. DATA Scarlet~&,4294715463
268. DATA ScreaminGreen~&,4285988730
269. DATA SeaGreen~&,4281240407
270. DATA SeaShell~&,4294964718
271. DATA Sepia~&,4289030479
272. DATA Shadow~&,4287265117
273. DATA Shamrock~&,4282764962
274. DATA ShockingPink~&,4294672125
275. DATA Sienna~&,4288696877
276. DATA Silver~&,4290822336
277. DATA SkyBlue~&,4287090411
278. DATA SlateBlue~&,4285160141
279. DATA SlateGray~&,4285563024
280. DATA Snow~&,4294966010
281. DATA SpringGreen~&,4278255487
282. DATA SteelBlue~&,4282811060
283. DATA Sunglow~&,4294954824
284. DATA SunsetOrange~&,4294794835
285. DATA Tann~&,4291998860
286. DATA Teal~&,4278222976
287. DATA TealBlue~&,4279805877
288. DATA Thistle~&,4292394968
289. DATA TickleMePink~&,4294740396
290. DATA Timberwolf~&,4292597714
291. DATA Tomato~&,4294927175
292. DATA TropicalRainForest~&,4279730285
293. DATA Tumbleweed~&,4292782728
294. DATA Turquoise~&,4282441936
295. DATA TurquoiseBlue~&,4286045671
296. DATA UnmellowYellow~&,4294967142
297. DATA Violet~&,4293821166
298. DATA VioletBlue~&,4281486002
299. DATA VioletRed~&,4294398868
300. DATA VividTangerine~&,4294942857
301. DATA VividViolet~&,4287582365
302. DATA Wheat~&,4294303411
303. DATA White~&,4294967295
304. DATA Whitesmoke~&,4294309365
305. DATA WildBlueYonder~&,4288851408
306. DATA WildStrawberry~&,4294919076
307. DATA WildWatermelon~&,4294732933
308. DATA Wisteria~&,4291667166
309. DATA Yellow~&,4294967040
310. DATA YellowGreen~&,4288335154
311. DATA YellowOrange~&,4294946370
312.  
313. SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
314.     DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
315.     fg = _DEFAULTCOLOR
316.     'screen snapshot
317.     cur& = _DEST
318.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
319.     _DEST I&
320.     COLOR K, _RGBA32(0, 0, 0, 0)
321.     _PRINTSTRING (0, 0), txt$
322.     mult = textHeight / 16
323.     xlen = LEN(txt$) * 8 * mult
324.     _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
325.     COLOR fg
326.     _FREEIMAGE I&
327. END SUB
328.  
329. SUB QSort (Start, Finish) 'cc needs to be shared array
330.     DIM i AS INTEGER, j AS INTEGER, x AS _UNSIGNED LONG
331.     i = Start
332.     j = Finish
333.     x = cc(INT((i + j) / 2)).value
334.     WHILE i <= j
335.         WHILE cc(i).value < x
336.             i = i + 1
337.         WEND
338.         WHILE cc(j).value > x
339.             j = j - 1
340.         WEND
341.         IF i <= j THEN
342.             SWAP cc(i), cc(j)
343.             i = i + 1
344.             j = j - 1
345.         END IF
346.     WEND
347.     IF j > Start THEN QSort Start, j
348.     IF i < Finish THEN QSort i, Finish
349. END SUB
350.  
351.  

Title: Re: Chart Color32.bi
Post by: johnno56 on February 23, 2020, 02:55:52 am

bplus,

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

Nicely done.

Title: Re: Chart Color32.bi
Post by: bplus 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]

1. _TITLE "Neon Blue" 'b+ 2020-02-23
2. SCREEN _NEWIMAGE(1200, 200, 32)
3. WHILE _KEYDOWN(27) = 0
4.     cText 600, 100, 64, &HFF0000FF, "Hi Johnno!"
5.     _DELAY RND * .1
6.     cText 600, 100, 64, &HFFFFFFFF, "Hi Johnno!"
7.     _DELAY RND * .05
8. WEND
9.  
10. 'center the text at x, y with given height and color
11. SUB cText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
12.     DIM fg AS _UNSIGNED LONG, cur&, I&, mult, xlen
13.     fg = _DEFAULTCOLOR
14.     'screen snapshot
15.     cur& = _DEST
16.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
17.     _DEST I&
18.     COLOR K, _RGBA32(0, 0, 0, 0)
19.     _PRINTSTRING (0, 0), txt$
20.     mult = textHeight / 16
21.     xlen = LEN(txt$) * 8 * mult
22.     _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
23.     COLOR fg
24.     _FREEIMAGE I&
25. END SUB
26.  
27.  

Title: Re: Chart Color32.bi
Post by: 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 (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)

Title: Re: Chart Color32.bi
Post by: bplus 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 (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?

Title: Re: Chart Color32.bi
Post by: TempodiBasic on February 24, 2020, 09:06:15 am

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

Title: Re: Chart Color32.bi
Post by: bplus 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

Text Only | Text with Attachments