Animate a rotating 3D Lissajous curve and save it to MP4 and ASCII.
Demonstrates that animation works the same way for vector/raster
backends (.mp4) and the ASCII backend (.txt).
Variables
| Type |
Attributes |
|
Name |
| Initial | |
|
integer,
|
parameter
|
:: |
N_POINTS |
= |
200 |
|
|
integer,
|
parameter
|
:: |
N_FRAMES |
= |
60 |
|
|
character(len=*),
|
parameter
|
:: |
OUTDIR |
= |
"output/example/fortran/3d_animation_demo" |
|
|
type(figure_t),
|
pointer
|
:: |
pfig |
|
|
|
|
type(animation_t)
|
|
:: |
anim |
|
|
|
|
real(kind=wp),
|
dimension(N_POINTS)
|
:: |
xs |
|
|
|
|
real(kind=wp),
|
dimension(N_POINTS)
|
:: |
ys |
|
|
|
|
real(kind=wp),
|
dimension(N_POINTS)
|
:: |
zs |
|
|
|
|
real(kind=wp)
|
|
:: |
t |
|
|
|
|
integer
|
|
:: |
i |
|
|
|
|
integer
|
|
:: |
status |
|
|
|
|
logical
|
|
:: |
ok |
|
|
|
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer,
|
intent(in) |
|
|
:: |
frame |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
character(len=*),
|
intent(in) |
|
|
:: |
label |
|
|
integer,
|
intent(in) |
|
|
:: |
st |
|