! Document name: st1

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

line 1,2
line 2,3
line 1,4
line 1,7
line 2,9
line 11,8
line 12,10
line 7,9
line 3,4
line 4,11
line 3,12

tri 1,4,7
tri 4,7,8
tri 8,4,11
tri 1,7,9
tri 1,9,2
tri 1,2,3
tri 1,3,4
tri 2,9,10
tri 2,3,10
tri 3,12,10
tri 7,8,9
tri 8,9,10
tri 11,12,8
tri 12,8,10

del top
end