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