0022614: Scaling fails with linear (p-)curves
[occt.git] / tests / bugs / modalg_5 / bug22614_1
1 puts "========================"
2 puts "OCC22614"
3 puts "========================" 
4 puts ""
5 #######################################################################
6 # Scaling fails with linear (p-)curves
7 #######################################################################
8
9 pcylinder p 10 50
10
11 explode p f
12
13 # p_1 is a cylindrical face
14 tscale p_1 0 0 0 0.001
15
16 renamevar p_1 result
17
18 set square 0.00314159
19
20 set nb_v_good 2
21 set nb_e_good 3
22 set nb_w_good 1
23 set nb_f_good 1
24 set nb_sh_good 0
25 set nb_sol_good 0
26 set nb_compsol_good 0
27 set nb_compound_good  0
28 set nb_shape_good 7
29
30 set 2dviewer 1