-4.5 5 setxrange
-2 3 setyrange
20 setxunit
5 10 6 SetCamPos
0 0 0 SetCamView
%qplanxy
2 setlinejoin 

3 [4] newcube 
%% dup 0 solidrmface
%% dup 1 solidrmface
%% dup 2 solidrmface
%% dup 3 solidrmface
%% dup 4 solidrmface
%% dup 5 solidrmface
dup [0 1 25 {} for]  solidrmfaces
dup 6 solidisinface ==
dup videsolid
%solidgetinouttable () exch aload pop boum
dup 8 solidisinface ==
dup [0 .5] solidputinouthuecolors
dup [.5 .55] solidputinhuecolors
drawsolid**

/solidisempty {} def