blob: dba17cd38f33d037419214c386da6302e52dbdf3 (
plain)
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
|
set stationname $tcl_platform(platform)
if { ${stationname} == "windows" } {
proc winfo { aTest aWindow } { return False }
}
proc sage { a} {
global stationname
if { ${stationname} != "windows" } {
if { ![winfo exists .h ] } {
toplevel .h -bg azure3
wm title .h "INFO AISViewer"
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
}
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 attributs : 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 positionning 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"
|
