Message Boards Message Boards

0
|
2738 Views
|
0 Replies
|
0 Total Likes
View groups...
Share
Share this post:
GROUPS:

why is the copied plot not the same as the source plot?

Posted 10 years ago

I make this plot:

myVertexes = {"Criminals", "cat", "dog", "human", "killer", "thug", 
  "macho"}; myVertexLabels = 
 Table[myVertexes[[i]] -> 
   Placed[Rotate[
     Panel[myVertexes[[i]], 
      Background -> 
       If[AnyTrue[{"Criminals", "human", 
          "macho"}, # == myVertexes[[i]] &], Orange, Yellow]], -\[Pi]/
      2], Center], {i, Length[myVertexes]}]; 
myEdgeShape[el_, ___] := Arrow[el, 0.2]; CriminalTree = 
 TreeGraph[{"Criminals" -> "cat", "Criminals" -> "dog", 
   Style["Criminals" -> "human", Thick, Orange], "human" -> "killer", 
   "human" -> "thug", Style["human" -> "macho", Thick, Orange]}, 
  DirectedEdges -> True, EdgeShapeFunction -> myEdgeShape, 
  VertexLabels -> myVertexLabels]; Rotate[
 Image[CriminalTree], \[Pi]/2]

When I copy and paste it to Paint or Word is inverted Why LOL ?

POSTED BY: bogd timo
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract