Select Code to Download

my $cube = [
    [-0.5, 0.5, 0.5],[ 0.5, 0.5, 0.5],[ 0.5,-0.5, 0.5],[-0.5,-0.5, 0.5
+], # front face 
    [-0.5, 0.5,-0.5],[ 0.5, 0.5,-0.5],[ 0.5,-0.5,-0.5],[-0.5,-0.5,-0.5
+], # back face
];

[
    [-0.50000000000000011, 0.49999999999999989, 0.49999999999999971],
...
    [ 0.49999999999999921,-0.500000000000000001,-0.500000000000000022]
+,
    [-0.50000000000000011,-0.4999999999999999002,-0.50000000000000001]
+, # back face
];