/macle { 13 dict begin /k exch def /h exch def /r exch def %k 0.5 gt {/k 0.5 def} if /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 % 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 Sabcdef aload pop Sabcdef1 aload pop Sabcdef2 aload pop Sabcdef3 aload pop ] def /F[ % les trapezes de dessus [0 1 7 12] [2 3 9 14] [4 5 11 16] % le dessus [12 7 14 9 16 11] % le dessous [41 34 39 32 37 30] % les faces laterales [0 24 30 37 25 1] [1 25 26 2 14 7] [2 26 32 39 27 3] [28 4 16 9 3 27] [4 28 34 41 29 5] [5 29 24 0 12 11] % les trapezes de dessous [39 34 28 27] [24 29 41 30] [25 37 32 26] ] def S F generesolid end } def /pst-macle { r h a macle gere_pstricks_opt } def