27af3052 |
1 | puts "============" |
2 | puts "OCC25777: Draw Harness, ViewerTest - make commands defining standard views to match their names" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | pload MODELING VISUALIZATION |
7 | |
8 | box b0 -70 -70 -70 140 140 140 |
9 | |
10 | # Top View |
11 | text2brep top Top -height 30 -aspect bold -halign center -valign center -pos 0 30 70 -plane 0 0 1 1 0 0 -composite on |
12 | explode top Sh |
13 | prism ptop top 0 0 -10 |
14 | |
15 | # Bottom View |
16 | text2brep bottom Bottom -height 30 -aspect bold -halign center -valign center -pos 0 -30 -70 -plane 0 0 -1 1 0 0 -composite on |
17 | explode bottom Sh |
18 | prism pbottom bottom 0 0 10 |
19 | |
20 | # Front View |
21 | text2brep front Front -height 30 -aspect bold -halign left -valign top -pos -70 -70 65 -plane 0 -1 0 1 0 0 -composite on |
22 | explode front Sh |
23 | prism pfront front 0 10 0 |
24 | |
25 | # Back View |
26 | text2brep back Back -height 30 -aspect bold -halign left -valign bottom -pos 70 70 -60 -plane 0 1 0 -1 0 0 -composite on |
27 | explode back Sh |
28 | prism pback back 0 -10 0 |
29 | |
30 | # Right View |
31 | text2brep right Right -height 30 -aspect bold -halign left -valign top -pos 70 -60 65 -plane 1 0 0 0 1 0 -composite on |
32 | explode right Sh |
33 | prism pright right -10 0 0 |
34 | |
35 | # Left View |
36 | text2brep left Left -height 30 -aspect bold -halign left -valign bottom -pos -70 60 -60 -plane -1 0 0 0 -1 0 -composite on |
37 | explode left Sh |
38 | prism pleft left 10 0 0 |
39 | |
40 | # Cut operations |
41 | bcut cutbox b0 ptop |
42 | bcut cutbox cutbox pbottom |
43 | bcut cutbox cutbox pfront |
44 | bcut cutbox cutbox pback |
45 | bcut cutbox cutbox pleft |
46 | bcut cutbox cutbox pright |
47 | |
48 | vclear |
49 | vclose all |
50 | vinit |
51 | |
52 | vtrihedron tr |
53 | vdisplay cutbox |
54 | |
55 | vfit |
56 | |
57 | # Axo View |
58 | vaxo |
59 | vdump $imagedir/${casename}_new_0_axo.png |
60 | |
61 | axo |
62 | fit |
63 | xwd $imagedir/${casename}_old_0_axo.png |
64 | |
65 | vsetdispmode 1 |
66 | vmoveto 200 200 |
67 | |
68 | # Front View |
69 | vfront |
70 | vdump $imagedir/${casename}_new_1_front.png |
71 | |
72 | front |
73 | fit |
74 | xwd $imagedir/${casename}_old_1_front.png |
75 | |
76 | # Back View |
77 | vback |
78 | vdump $imagedir/${casename}_new_2_back.png |
79 | |
80 | back |
81 | fit |
82 | xwd $imagedir/${casename}_old_2_back.png |
83 | |
84 | # Right View |
85 | vright |
86 | vdump $imagedir/${casename}_new_3_right.png |
87 | |
88 | right |
89 | fit |
90 | xwd $imagedir/${casename}_old_3_right.png |
91 | |
92 | # Left View |
93 | vleft |
94 | vdump $imagedir/${casename}_new_4_left.png |
95 | |
96 | left |
97 | fit |
98 | xwd $imagedir/${casename}_old_4_left.png |
99 | |
100 | # Top View |
101 | vtop |
102 | vdump $imagedir/${casename}_new_5_top.png |
103 | |
104 | top |
105 | fit |
106 | xwd $imagedir/${casename}_old_5_top.png |
107 | |
108 | # Bottom View |
109 | vbottom |
110 | vdump $imagedir/${casename}_new_6_bottom.png |
111 | |
112 | bottom |
113 | fit |
114 | xwd $imagedir/${casename}_old_6_bottom.png |