CLockGuage[] does not work

[JerryI]

Discussed in #325

^{Originally posted by amindanial January 2, 2025}
While I was trying some commands on WLJS notebook with Wolfram Engine 14.1, I found that ClockGuage[] does not work properly as shown in the following figure:

[JerryI]

We managed to make it work till this state

However, for some reason it uses multiple nested Graphics for arrow (oh God! Why not just draw them directly using polygon), on which geometric transformations are applied. It is a mess. It might be better to rewrite its definition

I checked DownValue

{HoldPattern[(ClockGauge[System`GaugesDump`a:PatternSequence[Except[_Dynamic|_?OptionQ],Except[_?OptionQ]...]|PatternSequence[],System`GaugesDump`o:OptionsPattern[]])?(Function[{System`GaugesDump`arg},Charting`ClockCheck[System`GaugesDump`arg,Charting`iDialGauge],HoldFirst])]:>With[{System`GaugesDump`res=Catch[Charting`iDialGauge["ClockGauge",System`GaugesDump`a,System`GaugesDump`o],"GaugeError",$Failed]},System`GaugesDump`res/;Head[Unevaluated[System`GaugesDump`res]]=!=$Failed],HoldPattern[(ClockGauge[System`GaugesDump`a:PatternSequence[_Dynamic[__],Except[_?OptionQ]...],System`GaugesDump`o:OptionsPattern[]])?(Function[{System`GaugesDump`arg},Charting`ClockCheck[System`GaugesDump`arg,Charting`iDialGauge],HoldFirst])]:>With[{System`GaugesDump`r=Catch[ReleaseHold[Charting`gaugeBoxes[2,"ClockGauge",StandardForm,System`GaugesDump`a,System`GaugesDump`o]],"GaugeError",$Failed]},If[Head[Unevaluated[System`GaugesDump`r]]=!=$Failed,Charting`makeGaugeBoxes[2,"ClockGauge",StandardForm,System`GaugesDump`a,System`GaugesDump`o],$Aborted]],HoldPattern[Charting`makeGaugeBoxes[2, ClockGauge, StandardForm, Dynamic[], System`GaugesDump`o:OptionsPattern[]]?(Function[{System`GaugesDump`arg},Charting`ClockCheck[System`GaugesDump`arg,Charting`iDialGauge],HoldFirst])]:>Module[{DynamicDump`time=DynamicBox[ToBoxes[Refresh[Floor[DateList[][[4 ;; 6]]], UpdateInterval -> 1], StandardForm]]},With[{System`GaugesDump`r=Catch[ReleaseHold[Charting`gaugeBoxes[2,"ClockGauge",StandardForm,DynamicDump`time,System`GaugesDump`o,Enabled->False]],"GaugeError",$Failed]},If[Head[Unevaluated[System`GaugesDump`r]]=!=$Failed,Charting`makeGaugeBoxes[2,"ClockGauge",StandardForm,DynamicDump`time,System`GaugesDump`o,Enabled->False],$Aborted]]]}

However, the rest is hidden

[JerryI]

Temporal solution

clock[date_DateObject] := {
  Lighter[Black], Disk[{0,0}, 1.2], 
  White, Disk[{0,0}, 1.1], Black,
  
  Table[With[{
    x = Cos[2Pi (-\[Alpha]+3) / 12],
    y = Sin[2Pi (-\[Alpha]+3) / 12]
  },
    If[IntegerQ[\[Alpha]], {
      Line[{1 {x,y}, 0.9 {x,y}}],
      Text[Style[\[Alpha], FontSize->16], 0.8 {x,y}, Round[{x,y}, 1]]
    }, Line[{1 {x,y}, 0.95 {x,y}}]]
  ], {\[Alpha], 1, 12 + 4/5, 1/5}],

  Darker[Red], Rotate[Polygon[{{0,0.04}, {0.7, 0.02}, {0.7,-0.02}, {0,-0.04}}],  (date["Hour"] + date["Minute"] / 60.0) 2Pi / 12.0   - Pi/2 , {0,0}],
  
  Rotate[Polygon[{{0,0.03}, {0.9, 0.01}, {0.9,-0.01}, {0,-0.03}}],    date["Minute"] 2Pi / 60.0 - Pi/2 , {0,0}]
} // Graphics