/macle-bresil { 13 dict begin /h exch def /r exch def /k1 0.4 def /k2 0.15 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 /SBDF [ 1 2 5 { /n exch def n 60 mul cos r mul n 60 mul sin r mul h 2 div } for ] def /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 /Sbdf [ 1 2 5 { /n exch def n 60 mul cos r mul n 60 mul sin r mul h 2 div neg } for ] def /SACE1 [ 0 1 2 { /n exch def n 120 mul cos r mul n 120 mul sin r mul h 2 div k1 r mul sub} for ] def /SACE2 [ 0 1 2 { /n exch def n 120 mul cos 1 k2 sub mul n 120 mul 60 add cos k2 mul add r mul n 120 mul sin 1 k2 sub mul n 120 mul 60 add sin k2 mul add r mul h 2 div} for ] def /SACE3 [ 0 1 2 { /n exch def n 120 mul cos 1 k2 sub mul r mul n 120 mul sin 1 k2 sub mul r mul 1 k2 sub h 2 div mul k2 h 2 div r add mul add} for ] def /SACE4 [ 0 1 2 { /n exch def n 120 mul cos 1 k1 sub mul k1 n 120 mul 60 sub cos mul add r mul n 120 mul sin 1 k1 sub mul k1 n 120 mul 60 sub sin mul add r mul h 2 div} for ] def /Shaut [ 0 0 h 2 div r add ] def /Sbas [ 0 0 h 2 div neg r sub] def % le bas /Sace1 [ 0 1 2 { /n exch def n 120 mul cos r mul n 120 mul sin r mul h 2 div neg k1 r mul add} for ] def /Sace2 [ 0 1 2 { /n exch def n 120 mul cos 1 k1 sub mul n 120 mul 60 add cos k1 mul add r mul n 120 mul sin 1 k1 sub mul n 120 mul 60 add sin k1 mul add r mul h 2 div neg} for ] def /Sace3 [ 0 1 2 { /n exch def n 120 mul cos 1 k2 sub mul r mul n 120 mul sin 1 k2 sub mul r mul 1 k2 sub h 2 div mul neg k2 h 2 div r add mul sub} for ] def /Sace4 [ 0 1 2 { /n exch def n 120 mul cos 1 k2 sub mul k2 n 120 mul 60 sub cos mul add r mul n 120 mul sin 1 k2 sub mul k2 n 120 mul 60 sub sin mul add r mul h 2 div neg} for ] def /S [ Shaut aload pop SBDF aload pop SACE1 aload pop SACE2 aload pop SACE3 aload pop SACE4 aload pop Sbdf aload pop Sace1 aload pop Sace2 aload pop Sace3 aload pop Sace4 aload pop Sbas aload pop ] def /Squartz [ Shaut aload pop SABCDEF aload pop Sabcdef aload pop Sbas aload pop ] def /Fquartz [ [0 1 2] [0 2 3] [0 3 4] [0 4 5] [0 5 6] [0 6 1] [1 7 8 2] [2 8 9 3] [3 9 10 4] [4 10 11 5] [5 11 12 6] [6 12 7 1] [7 13 8] [8 13 9] [9 13 10] [10 13 11] [11 13 12] [12 13 7] ] def /F[ % les faces de dessus [0 3 13 10] [0 1 14 11] [0 2 15 12] [0 10 7 1] [0 11 8 2] [0 12 9 3] % les chanfreins [4 7 10 13] [5 8 11 14] [6 9 12 15] % les faces laterales [3 18 28 19 4 13] [7 4 19 22 16 1] [1 16 29 20 5 14] [8 5 20 23 17 2] [2 17 30 21 6 15] [9 6 21 24 18 3] % [19 28 25 22] [20 29 26 23] [21 30 27 24] % les faces de dessous [31 25 28 18] [31 26 29 16] [31 27 30 17] [31 16 22 25] [31 17 23 26] [31 18 24 27] ] def S F generesolid end } def /pst-macle-bresil { r h macle-bresil gere_pstricks_opt } def