pro do_all ;------------------------------------------------------------------------------- ; generate all wave surface JPG and animated GIF files ;------------------------------------------------------------------------------- sit,nn,pt,act,nc,bc,ec,lc ; select image type and corresponding plot parameters print,'**** Choose if you want to include animated wave surface rotations ****' print,'**** Wave surface rotations can reveal more wave surface topology ****' print,'**** If animations ARE NOT included this will take about 5 minutes ****' print,'**** If animations ARE included this will take about 2.5 hours ****' print,'**** (0/1) 0 -> do not include animations, 1 -> animation included ****' ta=0 read,ta spawn,'cp cijkl.data Results/cijkl.data.txt' do_tp_jpg,pt,act,nc,bc,ec,lc do_tp_vrml1,nc,act do_tp_vrml2,nc,act IF ta eq 1 THEN do_tp_anim,nn,pt,act,nc,bc,ec,lc exit return end