Arrows from GraphicsComplex not converted to Normal form correctly

Question

Bug introduced in 7.0 or earlier and persisting through 13.1

Show @ Graph[{1 -> 2, 2 -> 3}, Frame -> True]
Normal @ %

Is this a pure bug, or have I missed something?

InputForms reveal that Disks are converted correctly while Arrows remain in GraphicsComplex form. Going with investigation further, I found that not all Arrows...

{#, Normal @ #} & @ Graphics[
    GraphicsComplex[
      {{0, 0}, {1., 0}, {2., 0}}, 
      {
        {Thickness@.05, Blue, Arrow[{{1, 2}, {2, 3}}, .03]},
        {Thickness@.01, Red, Arrow[{1, 2}, .03], Arrow[{2, 3}, .03]}
    }], 
    ImageSize -> 300
]

So, as we can see, "separate" arrows are converted correctly while those gathered under one Arrow are not...

Q is there any quick fix to convert Graph to normal form correctly?

V10.3.1 Win 10

Normal[# /. a : Arrow[{__List}, _] :> Thread@a] gives a quick fix for these examples — Simon Woods, Jan 29 '16 at 18:35
I don't see how this can be anything but a bug so I am adding the tag. — Mr.Wizard, Jan 29 '16 at 23:26

Simon Woods · Accepted Answer · 2016-01-29T18:55:52.383

10

Normal[# /. a : Arrow[{__List}, Except[_List]] :> Thread @ a]

gives a quick fix for these examples.

edited Jan 29 '16 at 18:55

answered Jan 29 '16 at 18:46

Simon Woods

84,945
8
175
324

1

I'd add Except[_List] for the second argument since it can be a list too. Or better map with it. – Kuba Jan 29 '16 at 18:53
@Kuba, good point – Simon Woods Jan 29 '16 at 18:56

Arrows from GraphicsComplex not converted to Normal form correctly

1 Answers1

Linked