RosettaCodeData/Task/Draw-a-rotating-cube/Maple/draw-a-rotating-cube.maple

plots:-display(
    seq(
        plots:-display(
            plottools[cuboid]( [0,0,0], [1,1,1] ),
        axes=none, scaling=constrained, orientation=[0,45,i] ),
    i = 0..360, 20 ),
insequence=true );