WOLFRAM

Wolfram Language & System Documentation Center

Build Custom Meters

Create custom meters by combining gauges and graphics:
Wolfram Language code: Voltmeter[v_, opts___] := Graphics[{{(*case*){EdgeForm[{Thickness[.007], GrayLevel[0]}], GrayLevel[.2], Rectangle[{-1.2, -1.1}, {1.2, 1.3}, RoundingRadius -> .2]}, (*case holes*){White, Disk[{-1, -.9}, .05], Disk[{1, -.9}, .05], Disk[{1, 1.1}, .05], Disk[{-1, 1.1}, .05]}, (*case outer rim*){Black, Disk[{0, .1}, 1.15], GrayLevel[.5], Disk[{-.02, .12}, 1.13], GrayLevel[.2], Disk[{0, .1}, 1.11]}, (*face highlight*)EdgeForm[{CapForm["Round"], Thickness[.02], Hue[.125, .7, .6]}], Hue[.125, 1, 1], Disk[{.02, .1}, 1, {1.1Pi, -.1Pi}], (*face shadow*){EdgeForm[{CapForm["Round"], Thickness[.01], Hue[.125, 1, 1]}], Hue[.125, 1, 1], Disk[{-.02, .12}, 1, {1.1Pi, -.1Pi}]}, (*face*){EdgeForm[], Hue[.125, .5, 1], Rotate[Polygon[({.1, -.04} + #&) /@ Flatten[{{{0, 0}, {0, 1}}, Array[{Sin[2Pi * (# / 50)], Cos[2Pi * (# / 50)]}&, 30]}, 1], VertexColors -> Flatten[{Hue[.125, 0, 1], Array[Hue[.125, .5, 1]&, 50 + 1]}]], 30 / 50 Pi, {0, 0}]}, (*case mid line highlight*){Hue[.125, .7, .6], Thickness[.025], CapForm["Round"], Line[{{-.95, -.2}, {0, .1}, {.95, -.2}}]}, (*case mid disk highlight*){Hue[.125, .7, .6], Disk[{0, 0}, .25, {.95Pi, .05Pi}]}}, Inset[AngularGauge[v, {0, 100}, GaugeFaceStyle -> None, GaugeFrameStyle -> None, GaugeMarkers -> Graphics[{Hue[0, 1, .7], Polygon[{{.1, .03}, {.1, -.03}, {.95, -.03}, {1, 0}, {.95, .03}}]}], GaugeLabels -> {Placed[Style["VOLTS", FontFamily -> "Helvetica", Bold, FontSize -> Scaled[.08], White], {.5, .35}]}, LabelStyle -> Directive[FontFamily -> "Helvetica", FontSize -> Scaled[.06]], ScaleOrigin -> {{.85Pi, .15Pi}, .9}, ScaleDivisions -> {2, 10}, ScaleRanges -> {{Scaled[.75], Scaled[1]}}, ScaleRangeStyle -> Hue[0, 1, .7, .7], AxesStyle -> Opacity[0], TicksStyle -> {Thickness[.01], Thickness[.005]}, ImageSize -> Automatic, ImagePadding -> None], {0, 0}, {0, 0}, {1.75, Automatic}], {(*case mid disk*)GrayLevel[.2], Disk[{0, 0}, .2], GrayLevel[0], Disk[{0, 0}, .075], Disk[{-.85, -.4}, .05], Disk[{.85, -.4}, .05]}}, PlotRangeClipping -> True, opts];
Wolfram Language code: Grid[Partition[Table[Voltmeter[v], {v, 10, 90, 10}], 3]]