autocrop 6 -6 4 SetCamPos 0 0 0 SetCamView 2 setlinejoin .1 setlinewidth 3 newcube .5 solidtronque dup .8 solidaffine %dup .8 solidaffine dup videsolid dup [.5 .6] solidputhuecolors dup (.5 setgray) inputcolors drawsolid**