0030857: Visualization - using one implementation of Text in graphic group
[occt.git] / tests / v3d / raytrace / bug26070
1 puts "============"
2 puts "OCC26070"
3 puts "============"
4 puts ""
5 #########################################################################
6 # Ray tracing with reflections is poor on rotated presentation
7 #########################################################################
8
9 #source samples/tcl/cad.tc
10 # make base 
11 box b0 0  0 0 12 7 6
12 explode b0 e
13 blend b01 b0 1 b0_8
14 blend b02 b01 1 b0_6
15
16 # make cut at bottom
17 box b1 3 -1 0 2 9 1.5
18 bcut b2 b02 b1
19 explode b2 e
20 blend b3 b2 1 b2_27
21 blend b4 b3 1 b2_30
22
23 # make central cut
24 box h1 3 -1 2.5 2 9 0.5
25 box h2 3 -1 3 2 9 2
26 plane p 4 -1 3 0 1 0
27 pcylinder c p 1 9
28 bcommon h3 h2 c
29 bcut b5 b4 h1
30 bcut b6 b5 h3
31
32 # make side cut
33 box b7 9 -1 1 2 9 4
34 explode b7 e
35 blend b71 b7 1 b7_6
36 blend b72 b71 1 b7_8
37 bcut b8 b6 b72
38
39 # make box for inner cylindrical cut
40 box bc1 -1 0 2 9 1 4
41 box bc2 2 -1 2 4 3 3
42 bcut bc3 bc1 bc2
43 explode bc3 e
44 blend bc4 bc3 1 bc3_20
45 blend bc5 bc4 1 bc3_23
46 blend bc6 bc5 1.99 bc3_21
47 blend bc7 bc6 1.99 bc3_22
48
49 # make inner cylindrical cut
50 explode bc7 f
51 revol r bc7_1 -1 0 6 1 0 0 100
52 bcut b9 b8 r
53
54 # make outer cylindrical cut
55 plane p2 -1 0 6 1 0 0
56 pcylinder c2 p2 6 15
57 bcommon res b9 c2
58
59 # show result
60 #donly res
61 trotate res 0 0 0 0 0 1 90
62 #vinit
63 vdisplay res
64 vsetdispmode 1
65 #vaspects res -setFaceBoundaryDraw 1 -setFaceBoundaryColor WHITE
66 vfit
67
68 vrenderparams -rayTrace -reflections
69 vlocation res -rotate 0 0 0 0 0 1 180
70 vfit