! Document name: st2

!st1
! 1991 GSCNE
if c<>0 then 1
let c=0.17
1: if d<>0 then 2
let d=0.10
2: if d<c then 3
let d=c
3:
addz c
base
node -b/2*tan (e),0,0
node b/2*tan (e),b,0
node b/2*tan (e),b,-c
node -b/2*tan (e),0,-c
node -b/2*tan (e),0,-c-d
node  b/2*tan (e),b,-c-d
node a-b/2*tan (f),0,0
node a-b/2*tan (f),0,-d
node a+b/2*tan (f),b,0
node a+b/2*tan (f),b,-d

line 1,2
line 2,3
line 1,4
line 1,7
line 2,9
line 5,8
line 6,10
line 7,9

if g=0 then 4
if g=1 then 5

line 7,8
line 9,10

if g=2 then 4

5:
line 4,5
line 3,6

4:
tri 1,5,7
tri 5,7,8
tri 1,7,9
tri 1,9,2
tri 1,2,6
tri 1,5,6
tri 2,9,10
tri 2,6,10
tri 7,8,9
tri 8,9,10
tri 5,6,8
tri 6,8,10

del top
end