CLockGuage[] does not work

[amindanial]

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]

It is indeed a bug, there is some issue with Line. Most probably there is a pattern, which we did not implement.

[JerryI]

By the way, we usually put all, what we tested to Reference section (Plotting function, Graphics, Graphics3D)

[amindanial]

In the new version 2.6.5 the command ClockGauge[] produces the dial without arms.

[JerryI]

We still could not manage to implement a correct transformation of arms. Clock is basically a normal Graphics with Text and other nodes inside, but arms are other Graphics embedded using Inset (such an overhead!). The last two do not work nicely in our implementation.

[JerryI]

If you really need clock, for now I would suggest to make them from the primitives

here is my attempt ;)

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

[JerryI]

In principle we could just do this one of our initialization scripts

Unprotect[ClockGauge]
ClearAll[ClockGauge]

ClockGauge = clock

but first we try to do our best on supporting the native one.