Changeset 957 for palm/trunk/SCRIPTS/NCL/spectra.ncl
 Timestamp:
 Jul 20, 2012 10:57:49 AM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SCRIPTS/NCL/spectra.ncl
r827 r957 751 751 png_output = new((/no_frames/), string) 752 752 j = 0 753 do i=0, no_frames1 754 j = i + 1 755 if (j .LE. 9) then 756 png_output(i) = file_out+".00000"+j+".png" 757 end if 758 if (j .GT. 9 .AND. j .LE. 99) then 759 png_output(i) = file_out+".0000"+j+".png" 760 end if 761 if (j .GT. 99 .AND. j .LE. 999) then 762 png_output(i) = file_out+".000"+j+".png" 763 end if 764 if (j .GT. 999) then 765 png_output(i) = file_out+".00"+j+".png" 766 end if 767 768 ;using imagemagick's convert for reducing the white 769 ;space around the plot 770 cmd = "convert geometry 1000x1000 density 300 trim " + \ 771 png_output(i) + " " + png_output(i) 753 754 if (no_frames .eq. 1) then 755 if (ncl_version .GE. 6 ) then 756 png_output(0) = file_out+".png" 757 else 758 png_output(0) = file_out+".00000"+1+".png" 759 end if 760 ;using imagemagick's convert for reducing the white 761 ;space around the plot 762 cmd = "convert geometry 1000x1000 density 300 trim " + \ 763 png_output(0) + " " + png_output(0) 772 764 system(cmd) 773 end do 765 else 766 767 do i=0, no_frames1 768 j = i + 1 769 if (j .LE. 9) then 770 png_output(i) = file_out+".00000"+j+".png" 771 end if 772 if (j .GT. 9 .AND. j .LE. 99) then 773 png_output(i) = file_out+".0000"+j+".png" 774 end if 775 if (j .GT. 99 .AND. j .LE. 999) then 776 png_output(i) = file_out+".000"+j+".png" 777 end if 778 if (j .GT. 999) then 779 png_output(i) = file_out+".00"+j+".png" 780 end if 781 782 ;using imagemagick's convert for reducing the white 783 ;space around the plot 784 cmd = "convert geometry 1000x1000 density 300 trim " + \ 785 png_output(i) + " " + png_output(i) 786 system(cmd) 787 end do 788 end if 774 789 775 790 print(" ")
Note: See TracChangeset
for help on using the changeset viewer.