4dknife.m problems

[WOLKOWISKY JAY H <wolkowis at euclid.Colorado.EDU>]

Hi,

I've been trying to learn to use the "4dknife.m" package which I got 
from Mathsource, but I've had problems. The following is the output
from one of my Mathematica sessions. Any help would be greatly 
appreciated.

Thanks,

Jay H. Wolkowisky
Dept. of Math.
Univ. of Colorado
Boulder, Co 80309

wolkowis at euclid.colorado.edu


Mathematica 2.2 for DOS 387
Copyright 1988-93 Wolfram Research, Inc.

In[1]:= <<4dknife.m

In[2]:= cube={{{1,0,0},1},{{0,1,0},1},{{0,0,1},1},
        {{-1,0,0},1},{{0,-1,0},1},{{0,0,-1},1}};

In[3]:= dimensionBlade[{cube}]

Flatten::innf: Non-negative integer or Infinity expected at position 2 in 
    Flatten[{{<<6>>}}, -4].

Flatten::innf: Non-negative integer or Infinity expected at position 2 in 
    Flatten[{{<<1>>}}, -4].

Flatten::innf: Non-negative integer or Infinity expected at position 2 in 
    Flatten[{<<1>>}, -2].

General::stop: Further output of Flatten::innf
     will be suppressed during this calculation.

Flatten::normal: 
   Normal expression expected at position 1 in Flatten[-2, {<<1>>}].

Graphics3D::gprim: Unknown Graphics3D primitive -1. encountered.

Graphics3D::gprim: Unknown Graphics3D primitive -1. encountered.

Graphics3D::gprim: 
   Unknown Graphics3D primitive Flatten[{<<1>>}, -4] encountered.

General::stop: Further output of Graphics3D::gprim
     will be suppressed during this calculation.

Flatten::normal: 
   Normal expression expected at position 1 in Flatten[-2, {<<2>>}].

Flatten::normal: 
   Normal expression expected at position 1 in Flatten[-2, {<<3>>}].

General::stop: Further output of Flatten::normal
     will be suppressed during this calculation.