Maxima

wxMaxima16.04.2の動作確認。

(%i2)

load(cordcarte)$
sc3Dm(alc,V0,x0):=
   gr3d(     allocation=alc,     view=V0,     Wall(x0),     Coord(x0),
     Walk(x0),     VectInPl(x0),     Legs(x0),    Frame(x0),color=cyan,
transparent=true,   NormPl(x0))$

 

(%i18)

x0:[1,1,sqrt(2)]$
y0:1$
z0:sqrt(2)$
NoCoords()$
wxdraw(
   sc3Dm([[0,1/2],[1/2,1/2]],[90,90],x0),
   sc3Dm([[1/2,1/2],[1/2,1/2]],[90,0],x0),
   sc3Dm([[0,0],[1/2,1/2]],[0,90],x0),
   sc3Dm([[1/2,0],[1/2,1/2]],[80,120],x0)
);


(%i13)

wxdraw(
   sc3Dm([[0,0],[1,1]],[80,120],x0));