Resalte partes del cuerpo: Nuevo en Wolfram Language 11

Resalte partes del cuerpo

Muestre las piernas sin los músculos y con la tibia izquierda resaltada en color morado.

In[1]:=

AnatomyPlot3D[{AnatomyForm[<|\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "left tibia", Typeset`boxes$$ = 
         TemplateBox[{"\"left tibia\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"AnatomicalStructure\"", ",", "\"LeftTibia\""}], "]"}], 
           "\"Entity[\\\"AnatomicalStructure\\\", \
\\\"LeftTibia\\\"]\"", "\"anatomical structure\""}, "Entity"], 
         Typeset`allassumptions$$ = {}, Typeset`assumptions$$ = {}, 
         Typeset`open$$ = {1, 2}, Typeset`querystate$$ = {
         "Online" -> True, "Allowed" -> True, 
          "mparse.jsp" -> 0.671418`6.278537973535592, 
          "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{212., {7., 15.}},
TrackedSymbols:>{
           Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$,
             Typeset`assumptions$$, Typeset`open$$, 
            Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\) -> Purple, 
    Entity["AnatomicalStructure", "Muscle"] -> FaceForm[]|>], \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "legs", Typeset`boxes$$ = 
      TemplateBox[{"\"leg\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"AnatomicalStructure\"", ",", "\"Leg\""}], "]"}], 
        "\"Entity[\\\"AnatomicalStructure\\\", \\\"Leg\\\"]\"", 
        "\"anatomical structure\""}, "Entity"], 
      Typeset`allassumptions$$ = {{
       "type" -> "Clash", "word" -> "legs", 
        "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "4", 
        "Values" -> {{
          "name" -> "Anatomy", "desc" -> "an anatomical structure", 
           "input" -> "*C.legs-_*Anatomy-"}, {
          "name" -> "Movie", "desc" -> "a movie", 
           "input" -> "*C.legs-_*Movie-"}, {
          "name" -> "Book", "desc" -> "a book", 
           "input" -> "*C.legs-_*Book-"}, {
          "name" -> "Word", "desc" -> "a word", 
           "input" -> "*C.legs-_*Word-"}}}}, 
      Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
      Typeset`querystate$$ = {
      "Online" -> True, "Allowed" -> True, 
       "mparse.jsp" -> 0.623428`6.246331297327735, "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{204., {7., 15.}},
TrackedSymbols:>{
        Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, 
         Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)}, ImageSize -> 300]

Out[1]=