1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
# Copyright (c) 1999-2014 OPEN CASCADE SAS
#
#Category: Demos
#Title: Displaying 3d viewer
#
# This file is part of Open CASCADE Technology software library.
#
# This library is free software; you can redistribute it and / or modify it
# under the terms of the GNU Lesser General Public version 2.1 as published
# by the Free Software Foundation, with special exception defined in the file
# OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
# distribution for complete text of the license and disclaimer of any warranty.
#
# Alternatively, this file may be used under the terms of Open CASCADE
# commercial license or contractual agreement.
# Command to log a message to both command-line and dialog window
proc sage { a} {
if { ![winfo exists .h ] } {
toplevel .h -bg azure3
wm title .h "INFO TEST HARNESS"
wm geometry .h +320+20
}
if { [winfo exists .h.m ] } {
set astring [.h.m cget -text]
set newstring "${astring} \n $a"
.h.m configure -text $newstring
puts $a
} else {
message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4 -text $a
puts $a
}
pack .h.m
update
}
if { [winfo exists .h ] } {
destroy .h
}
pload MODELING VISUALIZATION
sage " Creating the V3D Viewer"
sage " vinit"
sage " "
vinit
vclear
clear
sage " Creating the Topological Viewer"
sage " smallview"
sage " "
smallview
sage " Creating a box"
sage " box b -10 -10 -10 20 20 20"
sage " "
box b -10 -10 -10 20 20 20
fit
sage " Display the box in the V3D Viewer"
sage " vdisplay b"
sage " "
vdisplay b
vfit
nexplode b f
erase b
sage " Draft of two lateral faces "
sage " nexplode b f"
sage " depouille r b 0 0 -1 b_6 -15 10 -10 10 0 0 -1 "
sage " nexplode r f"
sage " depouille rr r 0 0 -1 r_1 -15 -10 -10 10 0 0 -1 "
sage " "
depouille r b 0 0 -1 b_6 -15 10 -10 10 0 0 -1
clear
nexplode r f
depouille rr r 0 0 -1 r_1 -15 -10 -10 10 0 0 -1
clear
nexplode rr e
verase b
vdisplay rr
vfit
sage " Fillet on four lateral edges, then on the top and bottom edges "
sage " nexplode rr e"
sage " blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11"
sage " nexplode result e"
sage " blend result result 2 result_11 3 result_12"
sage " "
blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11
erase rr
erase result
nexplode result e
blend result result 2 result_11 3 result_12
clear
nexplode result f
verase rr
vdisplay result
vfit
sage " Creating a profile on the top face "
sage " nexplode result f"
sage " profile p S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
"
sage " "
profile p S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
sage " Creating a prism"
sage " prism rr p 0 0 20"
sage " "
prism rr p 0 0 20
sage " Change some attributes : MATERIAL , TRANSPARENCY"
sage " vsetmaterial rr PLASTIC"
sage " vsetcolor rr RED"
sage " vsettransparency result 0.5"
sage " vsetdispmode 1"
sage " "
vdisplay rr
vsetmaterial rr PLASTIC
vsettransparency rr 0.5
vsetcolor rr RED
vsettransparency result 0.5
vsetdispmode 1
vfit
fit
sage " Fusion of this prism with the original part "
sage " fuse result rr result"
sage " "
fuse result rr result
donl result
vdisplay result
vdonly result
vfit
nexplode result f
erase result
fit
sage " Opening the top face"
sage " offsetshape r result -1 0.0001 result_17"
sage " "
nexplode result f
offsetshape r result -1 0.0001 result_17
vdisplay r
vdonly r
vfit
vsetcolor r MATRABLUE
vsettransparency r 0
sage " Creating a cylinder and positioning it"
sage " pcylinder cyl 2 300"
sage " trotate cyl cyl 0 0 0 1 0 0 45"
sage " ttranslate cyl cyl 0 7.5 0"
sage " "
pcylinder cyl 2 30
vdisplay cyl
vsetcolor cyl RED
vfit
trotate cyl cyl 0 0 0 1 0 0 45
ttranslate cyl cyl 0 7.5 0
vdisplay cyl
vsetcolor cyl RED
vfit
vdisplay cyl
vsetcolor cyl RED
vfit
sage "Demo completed"
|
