Cases che/001/E1,E3,E7,K1,K3,K7 stop test because they need too much memory and swap.

#Common (begin) for all cases:
proc OFFSETSHAPE {distance faces calcul type} {
        uplevel #0 explode s f
        uplevel #0 offsetparameter 1e-7 $calcul $type
        uplevel #0 offsetload s $distance $faces
        uplevel #0 offsetperform result
}
set calcul "c"
set type "i"
#Common for E.. cases:
pcone s 9 4 15 90
trotate s 0 0 0 0 0 1 90
#it's E1:
OFFSETSHAPE 1 {} $calcul $type
#it's E3:
OFFSETSHAPE 1 {s_5} $calcul $type
#it's E7:
OFFSETSHAPE 1 {s_2 s_3} $calcul $type
#Common for K.. cases:
circle w -20 0 0 20
mkedge w w 0 pi*2/5
wire w w
polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
mkplane profile profile
pipe s w profile
#it's K1:
OFFSETSHAPE 1 {} $calcul $type
#it's K3:
OFFSETSHAPE 1 {s_2} $calcul $type
#it's K7:
OFFSETSHAPE 1 {s_4 s_5} $calcul $type