1# Original bug : cts21126
2# Date : 25 Nov 98
3
4restore [locate_data_file cts21126_base.brep] base
5
6circle c1 0 0 0 0 0 1 1 0 0 6.3
7mkedge e1 c1
8wire w1 e1
9mkplane cont w1 0
10
11# offset de 4 sur face base_3
12explode base face
13copy base_3 funtil
14ttranslate funtil 0 0 -4
15
16#depression until+offset
17featprism base cont cont 0 0 1 0 1
18featperform prism result funtil
19
20checkprops result -s 2976.57
21