2 puts "================"
5 puts "================"
24 set Shell_X ${Shape_X}
25 set Shell_Y ${Shape_Y}
27 set Solid_X ${Shape_X}
28 set Solid_Y ${Shape_Y}
39 checkcolor ${Shape_X} ${Shape_Y} 1 1 0
42 checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0
45 checkcolor ${Edge_X} ${Edge_Y} 1 1 0
48 checkcolor ${Wire_X} ${Wire_Y} 1 1 0
51 checkcolor ${Face_X} ${Face_Y} 1 1 0
54 checkcolor ${Shell_X} ${Shell_Y} 1 1 0
57 checkcolor ${Solid_X} ${Solid_Y} 1 1 0
64 OCC74_set b ${SetSelectMode}
65 set GetSelectMode [OCC74_get b]
66 if { ${GetSelectMode} != ${SetSelectMode} } {
67 puts "Select Mode = ${GetSelectMode}"
68 puts "OCC74: Get Select Mode Error "
70 vmoveto ${Shape_X} ${Shape_Y}
72 checkcolor ${Shape_X} ${Shape_Y} 0 1 1
77 OCC74_set b ${SetSelectMode}
78 set GetSelectMode [OCC74_get b]
79 if { ${GetSelectMode} != ${SetSelectMode} } then {
80 puts "Select Mode = ${GetSelectMode}"
81 puts "OCC74: Get Select Mode Error "
83 vmoveto ${Vertex_X} ${Vertex_Y}
85 checkcolor ${Vertex_X} ${Vertex_Y} 0 1 1
90 OCC74_set b ${SetSelectMode}
91 set GetSelectMode [OCC74_get b]
92 if { ${GetSelectMode} != ${SetSelectMode} } then {
93 puts "Select Mode = ${GetSelectMode}"
94 puts "OCC74: Get Select Mode Error "
96 vmoveto ${Edge_X} ${Edge_Y}
98 checkcolor ${Edge_X} ${Edge_Y} 0 1 1
103 OCC74_set b ${SetSelectMode}
104 set GetSelectMode [OCC74_get b]
105 if { ${GetSelectMode} != ${SetSelectMode} } then {
106 puts "Select Mode = ${GetSelectMode}"
107 puts "OCC74: Get Select Mode Error "
109 vmoveto ${Wire_X} ${Wire_Y}
111 checkcolor ${Wire_X} ${Wire_Y} 0 1 1
116 OCC74_set b ${SetSelectMode}
117 set GetSelectMode [OCC74_get b]
118 if { ${GetSelectMode} != ${SetSelectMode} } then {
119 puts "Select Mode = ${GetSelectMode}"
120 puts "OCC74: Get Select Mode Error "
122 vmoveto ${Face_X} ${Face_Y}
124 checkcolor ${Face_X} ${Face_Y} 0 1 1
129 OCC74_set b ${SetSelectMode}
130 set GetSelectMode [OCC74_get b]
131 if { ${GetSelectMode} != ${SetSelectMode} } then {
132 puts "Select Mode = ${GetSelectMode}"
133 puts "OCC74: Get Select Mode Error "
135 vmoveto ${Shell_X} ${Shell_Y}
137 checkcolor ${Shell_X} ${Shell_Y} 0 1 1
142 OCC74_set b ${SetSelectMode}
143 set GetSelectMode [OCC74_get b]
144 if { ${GetSelectMode} != ${SetSelectMode} } then {
145 puts "Select Mode = ${GetSelectMode}"
146 puts "OCC74: Get Select Mode Error "
148 vmoveto ${Solid_X} ${Solid_Y}
150 checkcolor ${Solid_X} ${Solid_Y} 0 1 1
155 OCC74_set b ${SetSelectMode}
156 set GetSelectMode [OCC74_get b]
157 if { ${GetSelectMode} != ${SetSelectMode} } then {
158 puts "Select Mode = ${GetSelectMode}"
159 puts "OCC74: Get Select Mode Error "
164 vmoveto ${Shape_X} ${Shape_Y}
166 checkcolor ${Shape_X} ${Shape_Y} 1 1 0
170 vmoveto ${Vertex_X} ${Vertex_Y}
172 checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0
176 vmoveto ${Edge_X} ${Edge_Y}
178 checkcolor ${Edge_X} ${Edge_Y} 1 1 0
182 vmoveto ${Wire_X} ${Wire_Y}
184 checkcolor ${Wire_X} ${Wire_Y} 1 1 0
188 vmoveto ${Face_X} ${Face_Y}
190 checkcolor ${Face_X} ${Face_Y} 1 1 0
194 vmoveto ${Shell_X} ${Shell_Y}
196 checkcolor ${Shell_X} ${Shell_Y} 1 1 0
200 vmoveto ${Solid_X} ${Solid_Y}
202 checkcolor ${Solid_X} ${Solid_Y} 1 1 0