3

THE SOLUTION IS IN THE FIRST COMMENT. I´m waiting for C.E. put as an answer to give the OK.

Related to enter link description here where a solution to extract the colors used by BulletGauge was given, using

Trace[BulletGauge[{1, 1.8, 3, 3.4, 4, 5}, {2.4, 2.9}, {0,1.56, 3.5, 
4.8}], _ColorData] // Flatten // First

How to extract the gray levels used? for example in BulletGauge[{1, 1.8, 3, 3.4, 4, 5}, {2.4, 2.9}, {0, 1.56, 3.5, 4.8}, ImageSize -> Large]

where {0, 1.56, 3.5, 4.8} points indicate the number os levels.

I have tried deleting "First" but no succes.

Community
  • 1
Mika Ike
  • 3,241
  • 1
  • 23
  • 38
  • 2
    Cases[bg, _GrayLevel, Infinity] where bg is your BulletGauge command, maybe, if it's what you want. – C. E. Aug 18 '16 at 23:03
  • 1
    @C.E. YES, fantastic!! That´s a simple and excelent solution! Please, could you post as an answeer to give the OK ? . Moreover, a "relative" adaptation is a good and "alternative close to solution solution" to the mentioned question: using: Cases[bg, _RGBColor, Infinity] – Mika Ike Aug 19 '16 at 05:20

1 Answers1

3

This should work:

Cases[bg, _GrayLevel, Infinity]

where bg is a BulletGauge.

C. E.
  • 70,533
  • 6
  • 140
  • 264