4D color to RGB

Ortwin Zillgen (4/10/14 8:51 PM)

color><param>00000,0000,DDEE/param>AAn old tech note showed how to
convert a 4D color index to an RGB value using the 4D Chart command CT
Index to color. I have not found an alternative yet to use in 4D v14.
Any suggestions?
/color>
here some code from Rob Laveaux.

$indexColor_L:=$1
Case of
: ($indexColor_L<<=0)
: ($indexColor_L>256)
Else
$indexColor_L:=$indexColor_L-1

?// ?von Rob Laveaux 17.8.2012 via iNug
ARRAY LONGINT($t_ColorTable;255)

$t_ColorTable{0}:=0xFFFFFFFF
$t_ColorTable{1}:=0xFFFFFF00
$t_ColorTable{2}:=0xFFFF6600
$t_ColorTable{3}:=0xFFEE0000
$t_ColorTable{4}:=0xFFFF0099
$t_ColorTable{5}:=0xFF000099
$t_ColorTable{6}:=0xFF0000FF
$t_ColorTable{7}:=0xFF0099FF
$t_ColorTable{8}:=0xFF00BB00
$t_ColorTable{9}:=0xFF009900
$t_ColorTable{10}:=0xFF663300
$t_ColorTable{11}:=0xFF444444
$t_ColorTable{12}:=0xFFDDDDDD
$t_ColorTable{13}:=0xFF996600
$t_ColorTable{14}:=0xFFAAAAAA
$t_ColorTable{15}:=0xFF000000
$t_ColorTable{16}:=0xFFFF005E
$t_ColorTable{17}:=0xFFFF0456
$t_ColorTable{18}:=0xFFFF0048
$t_ColorTable{19}:=0xFFFF004B
$t_ColorTable{20}:=0xFFFF0032
$t_ColorTable{21}:=0xFFFF0027
$t_ColorTable{22}:=0xFFFF001C
$t_ColorTable{23}:=0xFFFF0011
$t_ColorTable{24}:=0xFFFF0006
$t_ColorTable{25}:=0xFFFF0400
$t_ColorTable{26}:=0xFFFF0F00
$t_ColorTable{27}:=0xFFFF1A00
$t_ColorTable{28}:=0xFFFF2500
$t_ColorTable{29}:=0xFFFF3000
$t_ColorTable{30}:=0xFFFF3B00
$t_ColorTable{31}:=0xFFFF4600
$t_ColorTable{32}:=0xFFFF4D00
$t_ColorTable{33}:=0xFFFF5400
$t_ColorTable{34}:=0xFFFF5B00
$t_ColorTable{35}:=0xFFFF6200
$t_ColorTable{36}:=0xFFFF6900
$t_ColorTable{37}:=0xFFFF7203
$t_ColorTable{38}:=0xFFFF7C04
$t_ColorTable{39}:=0xFFFF8202
$t_ColorTable{40}:=0xFFFF8A06
$t_ColorTable{41}:=0xFFFF9203
$t_ColorTable{42}:=0xFFFF9902
$t_ColorTable{43}:=0xFFFFA003
$t_ColorTable{44}:=0xFFFF9F00
$t_ColorTable{45}:=0xFFFFAE10
$t_ColorTable{46}:=0xFFFFB107
$t_ColorTable{47}:=0xFFFFB804
$t_ColorTable{48}:=0xFFFFC000
$t_ColorTable{49}:=0xFFFFC704
$t_ColorTable{50}:=0xFFFFCE00
$t_ColorTable{51}:=0xFFFFD700
$t_ColorTable{52}:=0xFFFFDF03
$t_ColorTable{53}:=0xFFFFE605
$t_ColorTable{54}:=0xFFFFEF0A
$t_ColorTable{55}:=0xFFFFF604
$t_ColorTable{56}:=0xFFFFFD06
$t_ColorTable{57}:=0xFFF9FF00
$t_ColorTable{58}:=0xFFF2FF04
$t_ColorTable{59}:=0xFFEBFF00
$t_ColorTable{60}:=0xFFE2FF00
$t_ColorTable{61}:=0xFFD3FF00
$t_ColorTable{62}:=0xFFCAFF00
$t_ColorTable{63}:=0xFFC3FF00
$t_ColorTable{64}:=0xFFBCFF00
$t_ColorTable{65}:=0xFFA6FF00
$t_ColorTable{66}:=0xFF90FF00
$t_ColorTable{67}:=0xFF7AFF00
$t_ColorTable{68}:=0xFF64FF00
$t_ColorTable{69}:=0xFF4FFF00
$t_ColorTable{70}:=0xFF3CFF03
$t_ColorTable{71}:=0xFF0CFF00
$t_ColorTable{72}:=0xFF03FF0C
$t_ColorTable{73}:=0xFF04FF23
$t_ColorTable{74}:=0xFF00FF35
$t_ColorTable{75}:=0xFF00FF4B
$t_ColorTable{76}:=0xFF00FF60
$t_ColorTable{77}:=0xFF00FF76
$t_ColorTable{78}:=0xFF00FF8C
$t_ColorTable{79}:=0xFF00FFA7
$t_ColorTable{80}:=0xFF00FFA7
$t_ColorTable{81}:=0xFF00FFB1
$t_ColorTable{82}:=0xFF00FFBB
$t_ColorTable{83}:=0xFF00FFC5
$t_ColorTable{84}:=0xFF00FFD0
$t_ColorTable{85}:=0xFF00FFDA
$t_ColorTable{86}:=0xFF00FFE4
$t_ColorTable{87}:=0xFF00FFEE
$t_ColorTable{88}:=0xFF00FFF8
$t_ColorTable{89}:=0xFF00FDFF
$t_ColorTable{90}:=0xFF00F3FF
$t_ColorTable{91}:=0xFF00E9FF
$t_ColorTable{92}:=0xFF00E0FF
$t_ColorTable{93}:=0xFF00D5FF
$t_ColorTable{94}:=0xFF00CBFF
$t_ColorTable{95}:=0xFF00C1FF
$t_ColorTable{96}:=0xFF00B4FF
$t_ColorTable{97}:=0xFF00A1FF
$t_ColorTable{98}:=0xFF008EFF
$t_ColorTable{99}:=0xFF007CFF
$t_ColorTable{100}:=0xFF0069FF
$t_ColorTable{101}:=0xFF0056FF
$t_ColorTable{102}:=0xFF0043FF
$t_ColorTable{103}:=0xFF0128FF
$t_ColorTable{104}:=0xFF001EFF
$t_ColorTable{105}:=0xFF000BFF
$t_ColorTable{106}:=0xFF0700FF
$t_ColorTable{107}:=0xFF1900FF
$t_ColorTable{108}:=0xFF2C00FF
$t_ColorTable{109}:=0xFF3F00FF
$t_ColorTable{110}:=0xFF5200FF
$t_ColorTable{111}:=0xFF6500FF
$t_ColorTable{112}:=0xFF7800FF
$t_ColorTable{113}:=0xFF8B00FF
$t_ColorTable{114}:=0xFF9E00FF
$t_ColorTable{115}:=0xFFB100FF
$t_ColorTable{116}:=0xFFC400FF
$t_ColorTable{117}:=0xFFD700FF
$t_ColorTable{118}:=0xFFEA00FF
$t_ColorTable{119}:=0xFFFD00FF
$t_ColorTable{120}:=0xFFFF03EF
$t_ColorTable{121}:=0xFFFF00DC
$t_ColorTable{122}:=0xFFFF00C9
$t_ColorTable{123}:=0xFFFF00B6
$t_ColorTable{124}:=0xFFFF00A3
$t_ColorTable{125}:=0xFFFF0090
$t_ColorTable{126}:=0xFFFF007D
$t_ColorTable{127}:=0xFFFF006A
$t_ColorTable{128}:=0xFFFFE0E0
$t_ColorTable{129}:=0xFFFFC0C0
$t_ColorTable{130}:=0xFFFFA0A0
$t_ColorTable{131}:=0xFFFF7F7F
$t_ColorTable{132}:=0xFFFF5F5F
$t_ColorTable{133}:=0xFFFF4040
$t_ColorTable{134}:=0xFFFF2020
$t_ColorTable{135}:=0xFFFF0000
$t_ColorTable{136}:=0xFFEC0F00
$t_ColorTable{137}:=0xFFD80000
$t_ColorTable{138}:=0xFFCF0000
$t_ColorTable{139}:=0xFFB00000
$t_ColorTable{140}:=0xFF9C0000
$t_ColorTable{141}:=0xFF880000
$t_ColorTable{142}:=0xFF740000
$t_ColorTable{143}:=0xFF600000
$t_ColorTable{144}:=0xFFFFF0DF
$t_ColorTable{145}:=0xFFFFE0C0
$t_ColorTable{146}:=0xFFFFCFA0
$t_ColorTable{147}:=0xFFFFBE7F
$t_ColorTable{148}:=0xFFFFB05F
$t_ColorTable{149}:=0xFFFFA140
$t_ColorTable{150}:=0xFFFF9120
$t_ColorTable{151}:=0xFFFF8100
$t_ColorTable{152}:=0xFFEC7700
$t_ColorTable{153}:=0xFFD86D00
$t_ColorTable{154}:=0xFFC46300
$t_ColorTable{155}:=0xFFB05900
$t_ColorTable{156}:=0xFF9C5200
$t_ColorTable{157}:=0xFF884500
$t_ColorTable{158}:=0xFF743B00
$t_ColorTable{159}:=0xFF603000
$t_ColorTable{160}:=0xFFFFFFDF
$t_ColorTable{161}:=0xFFFFFFC0
$t_ColorTable{162}:=0xFFFFFFA0
$t_ColorTable{163}:=0xFFFFFF7F
$t_ColorTable{164}:=0xFFFEFF5F
$t_ColorTable{165}:=0xFFFEFF40
$t_ColorTable{166}:=0xFFFEFF20
$t_ColorTable{167}:=0xFFFEFF00
$t_ColorTable{168}:=0xFFEAEC00
$t_ColorTable{169}:=0xFFD6D700
$t_ColorTable{170}:=0xFFC2C300
$t_ColorTable{171}:=0xFFAEAF00
$t_ColorTable{172}:=0xFF9E9F00
$t_ColorTable{173}:=0xFF878800
$t_ColorTable{174}:=0xFF737400
$t_ColorTable{175}:=0xFF5F6000
$t_ColorTable{176}:=0xFFE2FFDF
$t_ColorTable{177}:=0xFFC5FFC0
$t_ColorTable{178}:=0xFFA7FFA0
$t_ColorTable{179}:=0xFF89FF7F
$t_ColorTable{180}:=0xFF6CFF5F
$t_ColorTable{181}:=0xFF4FFF40
$t_ColorTable{182}:=0xFF31FF20
$t_ColorTable{183}:=0xFF13FF00
$t_ColorTable{184}:=0xFF12EC00
$t_ColorTable{185}:=0xFF10D800
$t_ColorTable{186}:=0xFF0FC400
$t_ColorTable{187}:=0xFF0DB000
$t_ColorTable{188}:=0xFF0C9C00
$t_ColorTable{189}:=0xFF0A8800
$t_ColorTable{190}:=0xFF097400
$t_ColorTable{191}:=0xFF076000
$t_ColorTable{192}:=0xFFDFFFFF
$t_ColorTable{193}:=0xFFC0FFFF
$t_ColorTable{194}:=0xFFA0FFFF
$t_ColorTable{195}:=0xFF7FFEFF
$t_ColorTable{196}:=0xFF5FFEFF
$t_ColorTable{197}:=0xFF40FEFF
$t_ColorTable{198}:=0xFF20FDFF
$t_ColorTable{199}:=0xFF00FDFF
$t_ColorTable{200}:=0xFF00E9EC
$t_ColorTable{201}:=0xFF00D6D8
$t_ColorTable{202}:=0xFF00C2C4
$t_ColorTable{203}:=0xFF00AEB0
$t_ColorTable{204}:=0xFF009B9C
$t_ColorTable{205}:=0xFF008788
$t_ColorTable{206}:=0xFF007374
$t_ColorTable{207}:=0xFF005F60
$t_ColorTable{208}:=0xFFDFE4FF
$t_ColorTable{209}:=0xFFC0CAFF
$t_ColorTable{210}:=0xFFA0AFFF
$t_ColorTable{211}:=0xFF7F93FF
$t_ColorTable{212}:=0xFF5F78FF
$t_ColorTable{213}:=0xFF405EFF
$t_ColorTable{214}:=0xFF2042FF
$t_ColorTable{215}:=0xFF0027FF
$t_ColorTable{216}:=0xFF0024EC
$t_ColorTable{217}:=0xFF0021D8
$t_ColorTable{218}:=0xFF0020CF
$t_ColorTable{219}:=0xFF001BB0
$t_ColorTable{220}:=0xFF00189C
$t_ColorTable{221}:=0xFF001588
$t_ColorTable{222}:=0xFF001274
$t_ColorTable{223}:=0xFF000E60
$t_ColorTable{224}:=0xFFFFDFFF
$t_ColorTable{225}:=0xFFFFC0FF
$t_ColorTable{226}:=0xFFFFA0FF
$t_ColorTable{227}:=0xFFFF7FFF
$t_ColorTable{228}:=0xFFFF5FFF
$t_ColorTable{229}:=0xFFFF40FF
$t_ColorTable{230}:=0xFFFF20FF
$t_ColorTable{231}:=0xFFFF00FF
$t_ColorTable{232}:=0xFFEB00EC
$t_ColorTable{233}:=0xFFD700D8
$t_ColorTable{234}:=0xFFCF00CF
$t_ColorTable{235}:=0xFFB000B0
$t_ColorTable{236}:=0xFF9C009C
$t_ColorTable{237}:=0xFF880088
$t_ColorTable{238}:=0xFF740074
$t_ColorTable{239}:=0xFF600060
$t_ColorTable{240}:=0xFFFFFFFF
$t_ColorTable{241}:=0xFFEEEEEE
$t_ColorTable{242}:=0xFFDDDDDD
$t_ColorTable{243}:=0xFFCCCCCC
$t_ColorTable{244}:=0xFFC0C0C0
$t_ColorTable{245}:=0xFFAAAAAA
$t_ColorTable{246}:=0xFF999999
$t_ColorTable{247}:=0xFF888888
$t_ColorTable{248}:=0xFF777777
$t_ColorTable{249}:=0xFF666666
$t_ColorTable{250}:=0xFF555555
$t_ColorTable{251}:=0xFF404040
$t_ColorTable{252}:=0xFF333333
$t_ColorTable{253}:=0xFF222222
$t_ColorTable{254}:=0xFF111111
$t_ColorTable{255}:=0xFF000000

$return_L:=$t_ColorTable{$indexColor_L}

Regards
O r t w i n ?Z i l l g e n
---------------------------------------------
<mailto:info@... =A0=A0<http://dddd.mettre.de?4713>
<feed://dddd.mettre.de/dddd.xml> <https://twitter.com/Ozett>
member of developer-network <http://www.die4dwerkstatt.de>

Reply to this message

Summary created 4/10/14 at 4:01PM by Intellex Corporation

Comments welcome at: feedback@intellexcorp.com