src/DrawResources/StandardViews.tcl

   1 # Copyright (c) 1999-2012 OPEN CASCADE SAS
   2 #
   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.
   7 #
   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.
  10 #
  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.
  17
  18 #
  19 # view management scripts
  20 #
  21 #
  22
  23 proc mu4 {} {
  24     global tcl_platform
  25     set stationname $tcl_platform(platform)
  26     delete
  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
  32 #    } else {
  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
  37 #    }
  38 }
  39
  40 help mu4 ", Four views layout" "DRAW Graphic Commands"
  41
  42 proc mu7 {} {
  43     delete
  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
  51 }
  52 help mu7 ", Seven views layout" "DRAW Graphic Commands"
  53
  54 proc mu8 {} {
  55     delete
  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
  64 }
  65 help mu8 ", Seven views layout" "DRAW Graphic Commands"
  66
  67 proc mu24 {} {
  68     delete
  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
  73
  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
  78
  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
  83
  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
  88
  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
  93
  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
  98
  99 }
 100 help mu24 ", 24 views layout" "DRAW Graphic Commands"
 101
 102 proc axo {} {
 103     global tcl_platform
 104     set stationname $tcl_platform(platform)
 105     delete
 106 #    if { ${stationname} == "windows" } {
 107 #       view 1 AXON 10 120 600 600
 108 #    } else {
 109         view 1 AXON 465 20 800 800
 110 #    }
 111 }
 112 help axo ", One axonometric view" "DRAW Graphic Commands"
 113
 114 proc haxo {} {
 115     delete
 116     view 1 AXON 465 20 800 800*20.4/29.1
 117 }
 118 help haxo ", One axonometric horizontal view" "DRAW Graphic Commands"
 119
 120 proc vaxo {} {
 121     delete
 122     view 1 AXON 705 20 800*20.4/29.1 800
 123 }
 124 help vaxo ", One axonometric vertical view" "DRAW Graphic Commands"
 125
 126 proc pers {} {
 127     delete
 128     view 1 PERS 465 20 800 800
 129 }
 130 help pers ", One perspective view" "DRAW Graphic Commands"
 131
 132 proc hpers {} {
 133     delete
 134     view 1 PERS 465 20 800 800*20.4/29.1
 135 }
 136 help hpers ", One perspective horizontal view" "DRAW Graphic Commands"
 137
 138 proc vpers {} {
 139     delete
 140     view 1 PERS 705 20 800*20.4/29.1 800
 141 }
 142 help vpers ", One perspective vertical view" "DRAW Graphic Commands"
 143
 144 proc front {} {
 145     delete
 146     view 1 +X+Z 465 20 800 800
 147 }
 148 help front ", One front view" "DRAW Graphic Commands"
 149
 150 proc hfront {} {
 151     delete
 152     view 1 +X+Z 465 20 800 800*20.4/29.1
 153 }
 154 help hfront ", One front horizontal view" "DRAW Graphic Commands"
 155
 156 proc vfront {} {
 157     delete
 158     view 1 +X+Z 705 20 800*20.4/29.1 800
 159 }
 160 help vfront ", One front vertical view" "DRAW Graphic Commands"
 161
 162 proc top {} {
 163     delete
 164     view 1 +X+Y 465 20 800 800
 165 }
 166 help top ", One top view" "DRAW Graphic Commands"
 167
 168 proc htop {} {
 169     delete
 170     view 1 +X+Y 465 20 800 800*20.4/29.1
 171 }
 172 help htop ", One top horizontal view" "DRAW Graphic Commands"
 173
 174 proc vtop {} {
 175     delete
 176     view 1 +X+Y 705 20 800*20.4/29.1 800
 177 }
 178 help vtop ", One top vertical view" "DRAW Graphic Commands"
 179
 180 proc left {} {
 181     delete
 182     view 1 -Y+Z 465 20 800 800
 183 }
 184 help left ", One left view" "DRAW Graphic Commands"
 185
 186 proc hleft {} {
 187     delete
 188     view 1 -Y+Z 465 20 800 800*20.4/29.1
 189 }
 190 help hleft ", One left horizontal view" "DRAW Graphic Commands"
 191
 192 proc vleft {} {
 193     delete
 194     view 1 -Y+Z 705 20 800*20.4/29.1 800
 195 }
 196 help vleft ", One left vertical view" "DRAW Graphic Commands"
 197
 198 proc back {} {
 199     delete
 200     view 1 -X+Z 465 20 800 800
 201 }
 202 help back ", One back view" "DRAW Graphic Commands"
 203
 204 proc hback {} {
 205     delete
 206     view 1 -X+Z 465 20 800 800*20.4/29.1
 207 }
 208 help hback ", One back horizontal view" "DRAW Graphic Commands"
 209
 210 proc vback {} {
 211     delete
 212     view 1 -X+Z 705 20 800*20.4/29.1 800
 213 }
 214 help vback ", One back vertical view" "DRAW Graphic Commands"
 215
 216 proc right {} {
 217     delete
 218     view 1 +Y+Z 465 20 800 800
 219 }
 220 help right ", One right view" "DRAW Graphic Commands"
 221
 222 proc hright {} {
 223     delete
 224     view 1 +Y+Z 465 20 800 800*20.4/29.1
 225 }
 226 help hright ", One right horizontal view" "DRAW Graphic Commands"
 227
 228 proc vright {} {
 229     delete
 230     view 1 +Y+Z 705 20 800*20.4/29.1 800
 231 }
 232 help vright ", One right vertical view" "DRAW Graphic Commands"
 233
 234 proc bottom {} {
 235     delete
 236     view 1 +X-Z 465 20 800 800
 237 }
 238 help bottom ", One bottom view" "DRAW Graphic Commands"
 239
 240 proc hbottom {} {
 241     delete
 242     view 1 +X-Z 465 20 800 800*20.4/29.1
 243 }
 244 help hbottom ", One bottom horizontal view" "DRAW Graphic Commands"
 245
 246 proc vbottom {} {
 247     delete
 248     view 1 +X-Z 705 20 800*20.4/29.1 800
 249 }
 250 help vbottom ", One bottom vertical view" "DRAW Graphic Commands"
 251
 252 proc v2d {} {
 253     delete
 254     view 1 -2D- 465 20 800 800
 255 }
 256 help v2d ", One 2d view" "DRAW Graphic Commands"
 257
 258 proc av2d {} {
 259     delete
 260     global tcl_platform
 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
 265 #    } else {
 266         view 2 -2D-  728 20 400 400
 267         view 1 AXON 728 450 400 400
 268 #    }
 269 }
 270 help av2d ", axono and 2d view" "DRAW Graphic Commands"
 271
 272 proc v2d2 {} {
 273     view 2 -2D-  728 20 400 400
 274 }
 275 help v2d2 "2d view on number 2" "DRAW Graphic Commands"
 276
 277 proc smallview {{v AXON}} {
 278     global tcl_platform
 279     set stationname $tcl_platform(platform)
 280     delete
 281 #    if { ${stationname} == "windows" } {
 282 #       view 1 $v 328 350 300 300
 283 #    } else {
 284         view 1 $v 728 450 400 400
 285 #    }
 286 }
 287
 288 help smallview " AXON PERS -2D- +X+Y ..." "DRAW Graphic Commands"