kin.fbl

# run the simulations and generate the images
ulin Kinematic coupling
sys cp kpin.inc pin.inc
sys ccx solve > solve-k.log
read solve.frd new
read solve.inp nom

frame
view elem
rot -z
rot u 90
rot l 45
rot u 45
tra l 30
plot fv all

# loop over movies
valu counter 0
while counter < 10
  valu counter + counter 1
  # convert counter value to integer
  valu counter int counter
  # build output file name from prefix, counter and extension
  valu target & Refs/kin counter
  valu target & target .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 movie under the target name target
  sys mv movie.gif target
endwhile

ds 12 e 7
view disp
scal d 100
frame
rot -z
rot u 90
rot l 45
rot u 45
tra l 30
plot fv all
hcpy png Refs/se-kin

sys rm Eigenvalues_1.txt
sys dat2txt.py solve
sys gnuplot frequency.plt
sys mv f.png Refs/f-kin.png