Skip to content
Snippets Groups Projects
Commit 7b771ab5 authored by Christophe Geuzaine's avatar Christophe Geuzaine
Browse files 

group the 2 anim demos in a single, interactive one
parent 32c3a236
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
demos/anim-all.script deleted 100644 → 0
+ 0
− 65
View file @ 32c3a236
//
// Animate all views (together) and save the animation as a 320x240
// mpeg and a 320x240 animated gif
//
// Requirements: mpeg_encode, whirlgif and a UNIX shell
//
// Output: anim.mpg and anim.gif
//
General.GraphicsWidth = 320 ;
General.GraphicsHeight = 240 ;
Print.JpegQuality = 100;
For i In {1:View[0].NbTimeStep}
Draw;
Print Sprintf("anim-%03g.jpg", i);
Print Sprintf("anim-%03g.gif", i);
For j In {1:PostProcessing.NbViews}
View[j-1].TimeStep++;
EndFor
EndFor
// create the parameter file for mpeg_encode
System 'echo "PATTERN I" > anim.par' ;
System 'echo "BASE_FILE_FORMAT JPEG" >> anim.par' ;
System 'echo "GOP_SIZE 30" >> anim.par' ;
System 'echo "SLICES_PER_FRAME 1" >> anim.par' ;
System 'echo "PIXEL HALF" >> anim.par' ;
System 'echo "RANGE 10" >> anim.par' ;
System 'echo "PSEARCH_ALG TWOLEVEL" >> anim.par' ;
System 'echo "BSEARCH_ALG CROSS2" >> anim.par' ;
System 'echo "IQSCALE 1" >> anim.par' ;
System 'echo "PQSCALE 10" >> anim.par' ;
System 'echo "BQSCALE 25" >> anim.par' ;
System 'echo "REFERENCE_FRAME DECODED" >> anim.par' ;
System 'echo "OUTPUT anim.mpg" >> anim.par' ;
System 'echo "INPUT_CONVERT *" >> anim.par' ;
System 'echo "INPUT_DIR ." >> anim.par' ;
System 'echo "INPUT" >> anim.par' ;
System Sprintf('echo "anim-*.jpg [001-%03g]" >> anim.par', View[0].NbTimeStep) ;
System 'echo "END_INPUT" >> anim.par' ;
// Call mpeg_encode
System "mpeg_encode anim.par" ;
// Call whirlgif
System "whirlgif -minimize -loop -o anim.gif anim-*.gif" ;
// Clean-up all temp files
System "rm -f anim-*.gif" ;
System "rm -f anim-*.jpg" ;
System "rm -f anim.par" ;
// One could also rename the output files with the view name
// System StrCat( StrCat("mv anim.gif ", Sprintf(View[0].Name)), ".gif");
// System StrCat( StrCat("mv anim.mpg ", Sprintf(View[0].Name)), ".mpg");
demos/anim-seq.script deleted 100644 → 0
+ 0
− 80
View file @ 32c3a236
//
// Animate all views (sequentially) and save the animation as a
// 320x240 mpeg and a 320x240 animated gif
//
// Requirements: mpeg_encode, whirlgif and a UNIX shell
//
// Output: anim.mpg and anim.gif
//
General.GraphicsWidth = 320 ;
General.GraphicsHeight = 240 ;
Print.JpegQuality = 100;
// Hide all views
For i In {1:PostProcessing.NbViews}
View[i-1].Visible = 0;
EndFor
// Loop on all views
index = 0;
For i In {1:PostProcessing.NbViews}
// Display view i-1
View[i-1].Visible = 1;
// Loop on all solutions in view i-1
For j In {1:View[i-1].NbTimeStep}
index++;
Draw;
Print Sprintf("anim-%03g.jpg", index);
Print Sprintf("anim-%03g.gif", index);
View[i-1].TimeStep++;
EndFor
View[i-1].Visible = 0;
EndFor
// create the parameter file for mpeg_encode
System 'echo "PATTERN I" > anim.par' ;
System 'echo "BASE_FILE_FORMAT JPEG" >> anim.par' ;
System 'echo "GOP_SIZE 30" >> anim.par' ;
System 'echo "SLICES_PER_FRAME 1" >> anim.par' ;
System 'echo "PIXEL HALF" >> anim.par' ;
System 'echo "RANGE 10" >> anim.par' ;
System 'echo "PSEARCH_ALG TWOLEVEL" >> anim.par' ;
System 'echo "BSEARCH_ALG CROSS2" >> anim.par' ;
System 'echo "IQSCALE 1" >> anim.par' ;
System 'echo "PQSCALE 10" >> anim.par' ;
System 'echo "BQSCALE 25" >> anim.par' ;
System 'echo "REFERENCE_FRAME DECODED" >> anim.par' ;
System 'echo "OUTPUT anim.mpg" >> anim.par' ;
System 'echo "INPUT_CONVERT *" >> anim.par' ;
System 'echo "INPUT_DIR ." >> anim.par' ;
System 'echo "INPUT" >> anim.par' ;
System Sprintf('echo "anim-*.jpg [001-%03g]" >> anim.par', index) ;
System 'echo "END_INPUT" >> anim.par' ;
// Call mpeg_encode
System "mpeg_encode anim.par" ;
// Call whirlgif
System "whirlgif -minimize -loop -o anim.gif anim-*.gif" ;
// Clean-up all temp files
System "rm -f anim-*.gif" ;
System "rm -f anim-*.jpg" ;
System "rm -f anim.par" ;
demos/anim.script 0 → 100644
+ 95
− 0
View file @ 7b771ab5
// A demo script to save mpeg or gif animations of post-processing views
oldw = General.GraphicsWidth;
oldh = General.GraphicsHeight;
all = GetValue("Animate one view at a time, or all views together (0=one, 1=all)?", 1) ;
General.GraphicsWidth = GetValue("Width of animation?", 320);
General.GraphicsHeight = GetValue("Height of animation?", 240) ;
format = GetValue("Animation format? (0=mpeg, 1=gif)?", 1) ;
MPEG = 0;
GIF = 1;
Print.JpegQuality = 100;
If(all)
For i In {1:PostProcessing.NbViews}
View[i-1].TimeStep = 0;
EndFor
// Use the first view as the reference
frame = View[0].NbTimeStep;
For index In {1:View[0].NbTimeStep}
Draw;
If(format == GIF)
Print Sprintf("/tmp/tmp%03g.gif", index);
EndIf
If(format == MPEG)
Print Sprintf("/tmp/tmp%03g.jpg", index);
EndIf
For j In {1:PostProcessing.NbViews}
View[j-1].TimeStep++;
EndFor
EndFor
EndIf
If(!all)
// Hide all views
For i In {1:PostProcessing.NbViews}
View[i-1].Visible = 0;
View[i-1].TimeStep = 0;
EndFor
index = 0;
For i In {1:PostProcessing.NbViews}
// Display view i-1
View[i-1].Visible = 1;
// Loop on all solutions in view i-1
For j In {1:View[i-1].NbTimeStep}
index++;
Draw;
If(format == GIF)
Print Sprintf("/tmp/tmp%03g.gif", index);
EndIf
If(format == MPEG)
Print Sprintf("/tmp/tmp%03g.jpg", index);
EndIf
View[i-1].TimeStep++;
EndFor
View[i-1].Visible = 0;
EndFor
EndIf
If(format == GIF)
// Call whirlgif
System "whirlgif -minimize -loop -o /tmp/animation.gif /tmp/tmp*.gif" ;
// Clean-up
System "rm -f /tmp/tmp*.gif" ;
EndIf
If(format == MPEG)
// create the parameter file for mpeg_encode
System 'echo "PATTERN I" > /tmp/tmp.par' ;
System 'echo "BASE_FILE_FORMAT JPEG" >> /tmp/tmp.par' ;
System 'echo "GOP_SIZE 30" >> /tmp/tmp.par' ;
System 'echo "SLICES_PER_FRAME 1" >> /tmp/tmp.par' ;
System 'echo "PIXEL HALF" >> /tmp/tmp.par' ;
System 'echo "RANGE 10" >> /tmp/tmp.par' ;
System 'echo "PSEARCH_ALG TWOLEVEL" >> /tmp/tmp.par' ;
System 'echo "BSEARCH_ALG CROSS2" >> /tmp/tmp.par' ;
System 'echo "IQSCALE 1" >> /tmp/tmp.par' ;
System 'echo "PQSCALE 10" >> /tmp/tmp.par' ;
System 'echo "BQSCALE 25" >> /tmp/tmp.par' ;
System 'echo "REFERENCE_FRAME DECODED" >> /tmp/tmp.par' ;
System 'echo "OUTPUT /tmp/animation.mpg" >> /tmp/tmp.par' ;
System 'echo "INPUT_CONVERT *" >> /tmp/tmp.par' ;
System 'echo "INPUT_DIR ." >> /tmp/tmp.par' ;
System 'echo "INPUT" >> /tmp/tmp.par' ;
System Sprintf('echo "/tmp/tmp*.jpg [001-%03g]" >> /tmp/tmp.par', index) ;
System 'echo "END_INPUT" >> /tmp/tmp.par' ;
// Call mpeg_encode
System "mpeg_encode /tmp/tmp.par" ;
// Clean-up
System "rm -f /tmp/tmp*.jpg /tmp/tmp.par" ;
EndIf
General.GraphicsWidth = oldw;
General.GraphicsHeight = oldh;
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment