Color Display

[Birdseye]

A useful code, this I found some time ago. It visually indicates how colors are named for use in the editor.


_SECTION_BEGIN("Color Display ");
/* Color Display */
numbars = LastValue(Cum(Status("barvisible")));
X = IIf(numbars >= 56, floor(numbars / 56), 1);

Plot( 20, "", int(Cum(1/X)%56 ), styleOwnScale | styleArea |
styleNoLabel,0,100);
Plot(28*X*sin(Cum(0.112/X)),"", SelectedValue(int(Cum(1/X)%56)),styleOwnScale |
styleLine, -X*50, X*40);
Plot(Cum(1)%(56*X) - 28*X,"num",SelectedValue(int(Cum(1/X)%56)),styleOwnScale |
styleHistogram | styleNoLabel, -X*50, X*40);

n = SelectedValue(int(Cum(1/X)%56));
colorstring = WriteIf(n ==0, "colorCustom1 - number 0",
WriteIf(n ==1, "colorCustom2 - number 1",
WriteIf(n ==2, "colorCustom3 - number 2",
WriteIf(n ==3, "colorCustom4 - number 3",
WriteIf(n ==4, "colorCustom5 - number 4",
WriteIf(n ==5, "colorCustom6 - number 5",
WriteIf(n ==6, "colorCustom7 - number 6",
WriteIf(n ==7, "colorCustom8 - number 7",
WriteIf(n ==8, "colorCustom9 - number 8",
WriteIf(n ==9, "colorCustom10 - number 9",
WriteIf(n ==10, "colorCustom11 - number 10",
WriteIf(n ==11, "colorCustom12 - number 11",
WriteIf(n ==12, "colorCustom13 - number 12",
WriteIf(n ==13, "colorCustom14 - number 13",
WriteIf(n ==14, "colorCustom15 - number 14",
WriteIf(n ==15, "colorCustom16 - number 15",
WriteIf(n ==16, "colorBlack - number 16",
WriteIf(n ==17, "colorBrown - number 17",
WriteIf(n ==18, "colorDarkOliveGreen - number 18",
WriteIf(n ==19, "colorDarkGreen - number 19",
WriteIf(n ==20, "colorDarkTeal - number 20",
WriteIf(n ==21, "colorDarkBlue - number 21",
WriteIf(n ==22, "colorIndigo - number 22",
WriteIf(n ==23, "colorDarkGrey - number 23",
WriteIf(n ==24, "colorDarkRed - number 24",
WriteIf(n ==25, "colorOrange - number 25",
WriteIf(n ==26, "colorDarkYellow - number 26",
WriteIf(n ==27, "colorGreen - number 27",
WriteIf(n ==28, "colorTeal - number 28",
WriteIf(n ==29, "colorBlue - number 29",
WriteIf(n ==30, "colorBlueGrey - number 30",
WriteIf(n ==31, "colorGrey40 - number 31",
WriteIf(n ==32, "colorRed - number 32",
WriteIf(n ==33, "colorLightOrange - number 33",
WriteIf(n ==34, "colorLime - number 34",
WriteIf(n ==35, "colorSeaGreen - number 35",
WriteIf(n ==36, "colorAqua - number 36",
WriteIf(n ==37, "colorLightBlue - number 37",
WriteIf(n ==38, "colorViolet - number 38",
WriteIf(n ==39, "colorGrey50 - number 39",
WriteIf(n ==40, "colorPink - number 40",
WriteIf(n ==41, "colorGold - number 41",
WriteIf(n ==42, "colorYellow - number 42",
WriteIf(n ==43, "colorBrightGreen - number 43",
WriteIf(n ==44, "colorTurquoise - number 44",
WriteIf(n ==45, "colorSkyblue - number 45",
WriteIf(n ==46, "colorPlum - number 46",
WriteIf(n ==47, "colorLightGrey - number 47",
WriteIf(n ==48, "colorRose - number 48",
WriteIf(n ==49, "colorTan - number 49",
WriteIf(n ==50, "colorLightYellow - number 50",
WriteIf(n ==51, "colorPaleGreen - number 51",
WriteIf(n ==52, "colorPaleTurquoise - number 52",
WriteIf(n ==53, "colorPaleBlue - number 53",
WriteIf(n ==54, "colorLavender - number 54",
WriteIf(n ==55, "colorWhite - number 55",
""))))))))))))))))))))))))))))))))))))))))))))))))))))))));
Title = EncodeColor(n)+"Bars per Color = "+X+ " The current
selection is "+ColorString;
_SECTION_END();