[categories] [index] [all (553)] [latest]
/S 32 def
/_m_DrawSide {
gsave
concat
0 0 S S rectfill
0 setgray
0 0 S S rectstroke
grestore
} def
/_t_l_r_DrawCube {
aload pop setrgbcolor [ 1 0.5 0 -1 0 0 ] _m_DrawSide % top
aload pop setrgbcolor [ -1 0.5 0 -1 0 0 ] _m_DrawSide % left
aload pop setrgbcolor [ 1 0.5 -1 0.5 0 0 ] _m_DrawSide % right
} def
200 500 translate
[1 0 0] [0 1 0] [0 0 1] _t_l_r_DrawCube