way to make movies of DCX (example data files)
; for pfc2d
new
def cycle_plot
loop i(1,100)
command
cycle 50
movie snap 0 file example2d.dcx ; <-----
end_command
end_loop
end
;
gen id 1 5 rad 1 1 x 0 10 y 0 10
prop dens 2000
init xvel 1000
fix x y
plot ball yellow
set plot dcx size 640 480 ; <-----
cycle_plot
; for pfc3d
new
def rot_plot
loop ii(1,90)
xr = ii*10
yr = ii*2
command
movie snap 0 file example3d.dcx : <-----
plot set rot xr yr 0
end_command
end_loop
end
