-
Notifications
You must be signed in to change notification settings - Fork 100
/
Copy pathrun.fbl
56 lines (49 loc) · 1022 Bytes
/
run.fbl
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
sys cad2fbd Welle.step
read result.fbd
#node 1 0 0 0
#node 2 0 0 0
asgn n 3
div all auto 4 30 0.5
elty all te10
mesh all
seta s1 s A001
seta s2 s A009
comp s* do
comp s* do
send s1 abq sur
send s2 abq sur
# this is required as workaround for an export bug
comp all do
send all abq
view elem
# image
ulin bearing surfaces (red and blue)
view elem
plot f all n
plus f s1 r
plus f s2 b
frame
hcpy png Refs/cgx-mesh
sys ccx solve
read solve.frd new
view sh
# show undeformed model edges
anim model
# loop over movies
valu counter 0
while counter < 20
valu counter + counter 1
# convert counter value to integer
valu counter int counter
ulin Mode counter
# build output file name from prefix, counter and extension
valu to & Refs/shape_ counter
valu to & to .gif
# make sure that the frequency is correctly displayed
ds counter e 4
# write 11 frames from the output of the subsequent command
movi frames auto
ds counter a 4
# store the file under the target name
sys mv movie.gif to
endwhile