1 # Copyright (c) 1999-2012 OPEN CASCADE SAS
3 # The content of this file is subject to the Open CASCADE Technology Public
4 # License Version 6.5 (the "License"). You may not use the content of this file
5 # except in compliance with the License. Please obtain a copy of the License
6 # at http://www.opencascade.org and read it completely before using this file.
8 # The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
9 # main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
11 # The Original Code and all software distributed under the License is
12 # distributed on an "AS IS" basis, without warranty of any kind, and the
13 # Initial Developer hereby disclaims all such warranties, including without
14 # limitation, any warranties of merchantability, fitness for a particular
15 # purpose or non-infringement. Please see the License for the specific terms
16 # and conditions governing the rights and limitations under the License.
19 # view management scripts
25 set stationname $tcl_platform(platform)
27 # if { ${stationname} == "windows" } {
28 # view 1 +X+Z 20 20 300 300
29 # view 2 +X+Y 20 350 300 300
30 # view 3 -Y+Z 328 20 300 300
31 # view 4 AXON 328 350 300 300
33 view 1 +X+Z 320 20 400 400
34 view 2 +X+Y 320 450 400 400
35 view 3 -Y+Z 728 20 400 400
36 view 4 AXON 728 450 400 400
40 help mu4 ", Four views layout" "DRAW Graphic Commands"
44 view 1 +Y+Z 0 300 275 270
45 view 2 +X-Y 285 0 275 270
46 view 3 +X+Z 285 300 275 270
47 view 4 +X+Y 285 600 275 270
48 view 5 -Y+Z 570 300 275 270
49 view 6 -X+Z 855 300 275 270
50 view 7 AXON 855 600 275 270
52 help mu7 ", Seven views layout" "DRAW Graphic Commands"
56 view 1 +Y+Z 0 300 275 270
57 view 2 +X-Y 285 0 275 270
58 view 3 +X+Z 285 300 275 270
59 view 4 +X+Y 285 600 275 270
60 view 5 -Y+Z 570 300 275 270
61 view 6 PERS 855 0 275 270
62 view 7 -X+Z 855 300 275 270
63 view 8 AXON 855 600 275 270
65 help mu8 ", Seven views layout" "DRAW Graphic Commands"
69 view 1 +X+Y 0 0 180 190
70 view 2 -Y+X 0 220 180 190
71 view 3 -X-Y 0 440 180 190
72 view 4 +Y-X 0 660 180 190
74 view 5 +Y+X 190 0 180 190
75 view 6 -X+Y 190 220 180 190
76 view 7 -Y-X 190 440 180 190
77 view 8 +X-Y 190 660 180 190
79 view 9 +X+Z 380 0 180 190
80 view 10 -Z+X 380 220 180 190
81 view 11 -X-Z 380 440 180 190
82 view 12 +Z-X 380 660 180 190
84 view 13 +Z+X 570 0 180 190
85 view 14 -X+Z 570 220 180 190
86 view 15 -Z-X 570 440 180 190
87 view 16 +X-Z 570 660 180 190
89 view 17 +Y+Z 760 0 180 190
90 view 18 -Z+Y 760 220 180 190
91 view 19 -Y-Z 760 440 180 190
92 view 20 +Z-Y 760 660 180 190
94 view 21 +Z+Y 950 0 180 190
95 view 22 -Y+Z 950 220 180 190
96 view 23 -Z-Y 950 440 180 190
97 view 24 +Y-Z 950 660 180 190
100 help mu24 ", 24 views layout" "DRAW Graphic Commands"
104 set stationname $tcl_platform(platform)
106 # if { ${stationname} == "windows" } {
107 # view 1 AXON 10 120 600 600
109 view 1 AXON 465 20 800 800
112 help axo ", One axonometric view" "DRAW Graphic Commands"
116 view 1 AXON 465 20 800 800*20.4/29.1
118 help haxo ", One axonometric horizontal view" "DRAW Graphic Commands"
122 view 1 AXON 705 20 800*20.4/29.1 800
124 help vaxo ", One axonometric vertical view" "DRAW Graphic Commands"
128 view 1 PERS 465 20 800 800
130 help pers ", One perspective view" "DRAW Graphic Commands"
134 view 1 PERS 465 20 800 800*20.4/29.1
136 help hpers ", One perspective horizontal view" "DRAW Graphic Commands"
140 view 1 PERS 705 20 800*20.4/29.1 800
142 help vpers ", One perspective vertical view" "DRAW Graphic Commands"
146 view 1 +X+Z 465 20 800 800
148 help front ", One front view" "DRAW Graphic Commands"
152 view 1 +X+Z 465 20 800 800*20.4/29.1
154 help hfront ", One front horizontal view" "DRAW Graphic Commands"
158 view 1 +X+Z 705 20 800*20.4/29.1 800
160 help vfront ", One front vertical view" "DRAW Graphic Commands"
164 view 1 +X+Y 465 20 800 800
166 help top ", One top view" "DRAW Graphic Commands"
170 view 1 +X+Y 465 20 800 800*20.4/29.1
172 help htop ", One top horizontal view" "DRAW Graphic Commands"
176 view 1 +X+Y 705 20 800*20.4/29.1 800
178 help vtop ", One top vertical view" "DRAW Graphic Commands"
182 view 1 -Y+Z 465 20 800 800
184 help left ", One left view" "DRAW Graphic Commands"
188 view 1 -Y+Z 465 20 800 800*20.4/29.1
190 help hleft ", One left horizontal view" "DRAW Graphic Commands"
194 view 1 -Y+Z 705 20 800*20.4/29.1 800
196 help vleft ", One left vertical view" "DRAW Graphic Commands"
200 view 1 -X+Z 465 20 800 800
202 help back ", One back view" "DRAW Graphic Commands"
206 view 1 -X+Z 465 20 800 800*20.4/29.1
208 help hback ", One back horizontal view" "DRAW Graphic Commands"
212 view 1 -X+Z 705 20 800*20.4/29.1 800
214 help vback ", One back vertical view" "DRAW Graphic Commands"
218 view 1 +Y+Z 465 20 800 800
220 help right ", One right view" "DRAW Graphic Commands"
224 view 1 +Y+Z 465 20 800 800*20.4/29.1
226 help hright ", One right horizontal view" "DRAW Graphic Commands"
230 view 1 +Y+Z 705 20 800*20.4/29.1 800
232 help vright ", One right vertical view" "DRAW Graphic Commands"
236 view 1 +X-Z 465 20 800 800
238 help bottom ", One bottom view" "DRAW Graphic Commands"
242 view 1 +X-Z 465 20 800 800*20.4/29.1
244 help hbottom ", One bottom horizontal view" "DRAW Graphic Commands"
248 view 1 +X-Z 705 20 800*20.4/29.1 800
250 help vbottom ", One bottom vertical view" "DRAW Graphic Commands"
254 view 1 -2D- 465 20 800 800
256 help v2d ", One 2d view" "DRAW Graphic Commands"
261 set stationname $tcl_platform(platform)
262 # if { ${stationname} == "windows" } {
263 # view 2 -2D- 328 20 300 300
264 # view 1 AXON 328 350 300 300
266 view 2 -2D- 728 20 400 400
267 view 1 AXON 728 450 400 400
270 help av2d ", axono and 2d view" "DRAW Graphic Commands"
273 view 2 -2D- 728 20 400 400
275 help v2d2 "2d view on number 2" "DRAW Graphic Commands"
277 proc smallview {{v AXON}} {
279 set stationname $tcl_platform(platform)
281 # if { ${stationname} == "windows" } {
282 # view 1 $v 328 350 300 300
284 view 1 $v 728 450 400 400
288 help smallview " AXON PERS -2D- +X+Y ..." "DRAW Graphic Commands"