-general infile= /tmp/UserName/arndt-movie scratchbase= ./Arndt-E- -3darrowplot lenarrows= 1 scale= 4, fcolour= 7, arrows= 5000, fonmat= yes eyeposition= ( 1.0, 2.3, 0.5 ) onlyplotfile= yes quantity= e # # A first Pass through the Results. # We want to know what the max-Values of the Fields are, # to not use autoscaling of the Arrow-Lengths and fonmat Patches. # define( FARROWMAX, 0 ) define( FMAXONMAT, 0 ) do ii= 1, 200 solution= ii # Just to not occupy too much FileSpace. system( rm -f ./*-3D-Arrowplot.*.gld ) doit define( FARROWMAX, max( FARROWMAX, @farrowmax ) ) define( FMAXONMAT, max( FMAXONMAT, @absfmax ) ) end do echo fArrowMax: FARROWMAX echo fonMatMax: FMAXONMAT # # The second pass through the Results. # We now know the Max Values, and scale every Frame for the same # Max Values that will occur in all the Frames. # fmaxonmat= FMAXONMAT / 2 # Slightly cheating. fscale= 1.5 / FARROWMAX do ii= 1, 200 solution= ii # Delete all *.gld Files in the current Directory, # so that the now to be created gld-File will be the only one. system( rm -f ./*.gld ) doit # Create the gld-File. # Convert the gld-File to a xwd-BitMap File. system( gd1.3dplot -xwd -geometry 650x530+1+1 ./*.gld ) # Convert the xwd-BitMap File ./dumped.window to GIF-File. # The Name of the GIF-File is constructed from the Name # of the just written gld-File. system( convert -verbose ./dumped.window `basename ./*-3D-Arrowplot.*.gld gld`gif ) # Move the created GIF-File to some other Directory. system( mv *.gif /tmp/UserName/garbage ) end do echo fArrowMax: FARROWMAX echo fonMatMax: FMAXONMAT