Как я могу построить график функции, определенной на единичном симплексе в Mathematica?

Я пытаюсь построить график функции в Mathematica , который определен над единичным симплексом. В качестве случайного примера предположим, что я хочу построить график sin (x1 * x2 * x3) по всем x1, x2, x3 таким образом, чтобы x1, x2, x3> = 0 и x1 + x2 + x3 = 1. Есть ли какой-нибудь изящный способ сделать это, кроме очевидного способа написать что-то вроде

Plot3D[If[x+y<=1,Sin[x y(1-x-y)]],{x,0,1},{y,0,1}]

?

В идеале я хочу построить только на симплексе. Я нашел сайт http://octavia.zoology.washington.edu/Mathematica/ , на котором есть старый пакет, но он не работает с моей последней версией Mathematica .