-
Notifications
You must be signed in to change notification settings - Fork 97
/
gmsh.fbl
45 lines (41 loc) · 912 Bytes
/
gmsh.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
sys gmsh - Welle.geo
read mesh.inp
zap +CPS6
comp s* do
send s1 abq sur
send s2 abq sur
send all abq
# 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/mesh
sys ccx solve
read solve.frd new
# ref node plots, nodes are defined in the INP file
ulin Ref nodes
plot n r1 r 10
plus n r2 b 10
hcpy png Refs/refnodes
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_gmsh_ 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