150ed3d5 |
1 | puts "========" |
2 | puts "Allow 3D objects with Graphic3d_TMF_2d flag" |
3 | puts "========" |
4 | |
5 | pload MODELING VISUALIZATION |
6 | |
7 | # four rectangles |
8 | box b4 -175 -125 -5 350 250 1 |
9 | box b3 -150 -100 -4 300 200 1 |
10 | box b2 -125 -75 -3 250 150 1 |
11 | box b1 -100 -50 -2 200 100 1 |
12 | |
13 | # text label |
14 | text2brep t "texT | Text\ntexT | Text" -height 50 |
1f26f80b |
15 | bounding t -save xx yy zz aTX aTY zz |
1a0339b4 |
16 | ttranslate t -0.5*aTX -0.5*aTY 1 |
150ed3d5 |
17 | |
18 | # sphere |
19 | psphere s 50 |
20 | |
21 | # clock marks |
22 | set aPnts {} |
23 | for {set i 1} {$i <= 1} {incr i} { vertex p1_$i [expr 75+5*$i] 86 1; lappend aPnts p1_$i } |
24 | compound {*}$aPnts p1 |
25 | |
26 | set aPnts {} |
27 | for {set i 1} {$i <= 2} {incr i} { vertex p2_$i [expr 130+5*$i] 86 1; lappend aPnts p2_$i } |
28 | compound {*}$aPnts p2 |
29 | |
30 | set aPnts {} |
31 | for {set i 1} {$i <= 3} {incr i} { vertex p3_$i [expr 130+5*$i] 0 1; lappend aPnts p3_$i } |
32 | compound {*}$aPnts p3 |
33 | |
34 | set aPnts {} |
35 | for {set i 1} {$i <= 4} {incr i} { vertex p4_$i [expr 120+5*$i] -85 1; lappend aPnts p4_$i } |
36 | compound {*}$aPnts p4 |
37 | |
38 | set aPnts {} |
39 | for {set i 1} {$i <= 5} {incr i} { vertex p5_$i [expr 55+5*$i] -85 1; lappend aPnts p5_$i } |
40 | compound {*}$aPnts p5 |
41 | |
42 | set aPnts {} |
43 | for {set i 1} {$i <= 6} {incr i} { vertex p6_$i [expr -18+5*$i] -85 1; lappend aPnts p6_$i } |
44 | compound {*}$aPnts p6 |
45 | |
46 | set aPnts {} |
47 | for {set i 1} {$i <= 7} {incr i} { vertex p7_$i [expr -85+5*$i] -85 1; lappend aPnts p7_$i } |
48 | compound {*}$aPnts p7 |
49 | |
50 | set aPnts {} |
51 | for {set i 1} {$i <= 8} {incr i} { vertex p8_$i [expr -160+5*$i] -85 1; lappend aPnts p8_$i } |
52 | compound {*}$aPnts p8 |
53 | |
54 | set aPnts {} |
55 | for {set i 1} {$i <= 9} {incr i} { vertex p9_$i [expr -160+5*$i] 0 1; lappend aPnts p9_$i } |
56 | compound {*}$aPnts p9 |
57 | |
58 | set aPnts {} |
59 | for {set i 1} {$i <=10} {incr i} { vertex p10_$i [expr -165+5*$i] 86 1; lappend aPnts p10_$i } |
60 | compound {*}$aPnts p10 |
61 | |
62 | set aPnts {} |
63 | for {set i 1} {$i <=11} {incr i} { vertex p11_$i [expr -100+5*$i] 86 1; lappend aPnts p11_$i } |
64 | compound {*}$aPnts p11 |
65 | |
66 | set aPnts {} |
67 | for {set i 1} {$i <=12} {incr i} { vertex p12_$i [expr -30+5*$i] 86 1; lappend aPnts p12_$i } |
68 | compound {*}$aPnts p12 |
69 | |
70 | # entire list of 2d presentations |
71 | set aList {b1 b2 b3 b4 s t p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12} |
72 | |
73 | vclear |
74 | vinit View1 |
75 | vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos 0 0 {*}$aList |
76 | vsetmaterial b1 b2 b3 b4 t PLASTIC |
77 | vsetcolor b1 RED |
78 | vsetcolor b2 GREEN |
79 | vsetcolor b3 BLUE1 |
80 | vsetcolor b4 MAGENTA1 |
81 | vsetcolor t GOLD |
82 | vsetlocation s 0 0 -1 |
83 | |
84 | box bb 1000 1000 1000 |
85 | vdisplay -dispMode 0 bb |
86 | vfit |
87 | vdump $imagedir/${casename}_center.png |
88 | |
89 | vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos -1 1 {*}$aList |
90 | vdump $imagedir/${casename}_tl.png |
91 | |
92 | vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos 1 1 {*}$aList |
93 | vdump $imagedir/${casename}_tr.png |
94 | |
95 | vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos 1 -1 {*}$aList |
96 | vdump $imagedir/${casename}_br.png |
97 | |
98 | vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos -1 -1 {*}$aList |
99 | vdump $imagedir/${casename}_bl.png |
100 | |
101 | vmoveto 110 385 |
102 | vselect 110 385 |
103 | set aColor [vreadpixel 110 385 rgb name] |
104 | if { $aColor != "WHITE" } { puts "Error: wrong object is highlighted" } |