図形の切断面  cut.m

First Step

Get["Graphics`Polyhedra`"]Get["Graphics`Shapes`"]Show[Graphics3D[Cube[]], Boxed -> False]

Loading Package

Remove["Global`*"]Get["knife`"]Get["Graphics`Shapes`"]

Cut The Cube

\(cube = Graphics3D[Cube[]]; 

    gr = knife[cube, {1, 1, 1, 0}, {0, 0, 0}, { .3,  .3,  .3}]; 

    Show[gr, Boxed -> False]\)

\(gr = knife[cube, {2, 1, 1, 0}, {0, 0, 0}, { .3,  .3,  .3}]; 

    Show[gr, Boxed -> False]\)

\(gr = knife[cube, {1, 1, 1, 0}, {\(-30\), 0, 0}, { .3,  .3,  .3}]; 

    Show[gr, Boxed -> False]\)

\(gr = knife[cube, {1, 1, 1, 0}, {0, 0, 0}, {1, 1, 1}]; 

    Show[gr, Boxed -> False]\)

Cut and Do The Cube

\(Do[vec = 
        N[{Sin[\(π\ t\)\/180], Cos[\(π\ t\)\/180], 
            Sin[\(π\ t\)\/180], 0}]; 
	
      gr = knife[cube, vec, {0, 0, 0}, Drop[vec, \(-1\)]]; 
	
      Show[gr, PlotRange -> All, Boxed -> False, BoxRatios -> Automatic, 
        Axes -> False, DisplayFunction -> $DisplayFunction], {t, 0, 180, 15}]
      \)