% 14 octobre 2006
/newparallelepiped {
2 dict begin
/c exch 2 div def
/b exch 2 div def
/a exch 2 div def
/F [
[0 1 2 3]
[0 4 5 1]
[1 5 6 2]
[2 6 7 3]
[0 3 7 4]
[4 7 6 5]
] def
%% tableau des sommets
/S [
a b c %% 0
a neg b c %% 1
a neg b neg c %% 2
a b neg c %% 3
a b c neg %% 4
a neg b c neg %% 5
a neg b neg c neg %% 6
a b neg c neg %% 7
] def
S F generesolid
} def
|