/calcite {
13 dict begin
/h exch def
/r exch def
/k 1 def
/SABCDEF [
0 1 5 {
/n exch def
n 60 mul cos r mul
n 60 mul sin r mul
h 2 div }
for
]
def
/SABCDEF1 [
0 1 5 {
/n exch def
n 60 mul cos r mul
n 60 mul sin r mul
h 2 div k r mul sub}
for
]
def
/SABCDEF2 [
0 1 5 {
/n exch def
n 60 mul cos 1 k sub mul n 1 add 60 mul cos k mul add r mul
n 60 mul sin 1 k sub mul n 1 add 60 mul sin k mul add r mul
h 2 div}
for
]
def
/SABCDEF3 [
0 1 5 {
/n exch def
n 60 mul cos 1 k sub mul n 1 sub 60 mul cos k mul add r mul
n 60 mul sin 1 k sub mul n 1 sub 60 mul sin k mul add r mul
h 2 div}
for
]
def

/SK123 [
% K1
60 cos 
120 cos add 2 div r mul
60 sin r mul
120 sin r mul add 2 div
h 2 div r 0.5 mul sub
% K2
180 cos r mul
240 cos r mul add 2 div
180 sin r mul
240 sin r mul add 2 div
h 2 div r 0.5 mul sub
% K3
300 cos r mul
0 cos r mul add 2 div
300 sin r mul
0 sin r mul add 2 div
h 2 div r 0.5 mul sub
]
def

/SK456 [
% K4
0 cos r mul
60 cos r mul add 2 div
0 sin r mul
60 sin r mul add 2 div
h 2 div r 0.5 mul sub neg
% K5
120 cos r mul
180 cos r mul add 2 div
120 sin r mul
180 sin r mul add 2 div
h 2 div r 0.5 mul sub neg
% K6
240 cos r mul
300 cos r mul add 2 div
240 sin r mul
300 sin r mul add 2 div
h 2 div r 0.5 mul sub neg
%
]
def
/Shaut [ 0 0 h 2 div ] def
/Sbas [ 0 0 h 2 div neg ] def
% le bas
/Sabcdef [
0 1 5 {
/n exch def
n 60 mul cos r mul
n 60 mul sin r mul
h 2 div neg }
for
]
def
/Sabcdef1 [
0 1 5 {
/n exch def
n 60 mul cos r mul
n 60 mul sin r mul
h 2 div k r mul sub neg}
for
]
def
/Sabcdef2 [
0 1 5 {
/n exch def
n 60 mul cos 1 k sub mul n 1 add 60 mul cos k mul add r mul
n 60 mul sin 1 k sub mul n 1 add 60 mul sin k mul add r mul
h 2 div neg}
for
]
def
/Sabcdef3 [
0 1 5 {
/n exch def
n 60 mul cos 1 k sub mul n 1 sub 60 mul cos k mul add r mul
n 60 mul sin 1 k sub mul n 1 sub 60 mul sin k mul add r mul
h 2 div neg}
for
]
def

/S [
% SABCDEF aload pop
SABCDEF1 aload pop
% SABCDEF2 aload pop
% SABCDEF3 aload pop
SK123 aload pop
Shaut aload pop
% Sabcdef aload pop
Sabcdef1 aload pop
% Sabcdef2 aload pop
% Sabcdef3 aload pop
SK456 aload pop
Sbas aload pop
] def

/F[
% les pentagones de dessus
[0 1 6 9 8] %
[2 3 7 9 6] %
[4 5 8 9 7] %
% les faces laterales
[0 10 16 11 1]
[2 12 17 13 3]
[4 14 18 15 5]
[6 1 11 12 2]
[7 3 13 14 4]
[8 5 15 10 0]
% les pentagones de dessous
[15 18 19 16 10]
[17 12 11 16 19]
[13 17 19 18 14]
] def
S F generesolid
end
}
 def
/pst-calcite {
  r h calcite
   gere_pstricks_opt
  }
  def