#!/usr/bin/perl
#
# put together several pictures of a stellar interior
#   with appropriate delays between them

printf "hello\n";

$cmd = "gifsicle  -d 50 -o high_struct.gif ";
printf "cmd is ..$cmd..\n";

# repeat the early stages a lot 
for ($i = 0; $i < 32; $i++) {
  $cmd .= " sun_low_struct.gif ";
}
printf "cmd is ..$cmd..\n";
for ($i = 0; $i < 16; $i++) {
  $cmd .= " sun_low_struct_c.gif ";
}
for ($i = 0; $i < 8; $i++) {
  $cmd .= " sun_low_struct_d.gif ";
}
for ($i = 0; $i < 4; $i++) {
  $cmd .= " high_struct_e.gif ";
}
for ($i = 0; $i < 2; $i++) {
  $cmd .= " high_struct_f.gif ";
}
for ($i = 0; $i < 1; $i++) {
  $cmd .= " high_struct_g.gif ";
}

$ret = `$cmd`;
printf "ret is $ret \n";

exit 0;
