在 Mathematica 中使用图形通过交叉替换磁盘

考虑以下列表：

dalist = {{47.9913, 11.127, 208}, {47.5212, 10.3002, 208}, 
          {49.7695, 9.96838, 160}, {48.625, 12.7042, 436}}

这些是屏幕上眼睛注视的坐标，在每个子列表中，

#1是 X 坐标，

#2Y 坐标和

#3，在该特定位置花费的持续时间

然后我使用以下内容：

Disk[{#[[1]], #[[2]]}, 3N[#[[3]]/Total[dalist[[All, 3]]]]] & /@ dalist

绘制具有持续时间加权直径的圆盘。

我想画十字，两段在中间相交，每一段的长度等于圆盘直径，如下图所示。

这就是我所拥有的：

Graphics[{
          Line[{{#[[1]] - 3 N[#[[3]]/Total[dalist[[All, 3]]]], #[[2]]},
                {#[[1]] + 3 N[#[[3]]/Total[dalist[[All, 3]]]], #[[2]]}}] & /@ dalist,
          Line[{{#[[1]], #[[2]] - 3 N[#[[3]]/Total[dalist[[All, 3]]]]},
                {#[[1]], #[[2]] + 3 N[#[[3]]/Total[dalist[[All, 3]]]]}}] & /@ dalist}]

我想知道是否有一种更简单的方法，使用类似于 ListPlot 中存在的 PlotMarkers 的方法

使用两条线。就像是：

pointTrans =
  {
     Line[{{#[[1]] - l, #[[2]]}, {#[[1]] + l, #[[2]]}}],
     Line[{{#[[1]], #[[2]] - l}, {#[[1]], #[[2]] + l}}]
     } /. l -> #[[3]]/Mean[dalist[[All, 3]]] &;

pointTrans /@ dalist // Graphics // Show