[cig-commits] r5777 - geodyn/3D/MAG/trunk/idl

[wei at geodynamics.org]

Author: wei
Date: 2007-01-12 10:19:56 -0800 (Fri, 12 Jan 2007)
New Revision: 5777

Modified:
   geodyn/3D/MAG/trunk/idl/magmovieCIG.pro
Log:
Revised magmovieCIG.pro to includes the device command for color display on Mac

Modified: geodyn/3D/MAG/trunk/idl/magmovieCIG.pro
===================================================================
--- geodyn/3D/MAG/trunk/idl/magmovieCIG.pro	2007-01-12 05:04:35 UTC (rev 5776)
+++ geodyn/3D/MAG/trunk/idl/magmovieCIG.pro	2007-01-12 18:19:56 UTC (rev 5777)
@@ -9,7 +9,12 @@
 ;
 
 ; *************  TO DISPLAY MOVIE, ENTER "MOVIE,FRAMES,ORDER=0" AFTER
-; *************  THIS PROGRAM HAS TERMINATED
+; *************  THIS PROGRAM HAS TERMINATED
+
+;SET UP X-WINDOW FOR COLOR DISPLAY
+SET_PLOT,'X'
+;SET DEVICE FOR COLOR on Mac
+DEVICE, RETAIN=2, DECOMPOSED=0
 
 ;DEFINE THE VALUE OF PI:
 	PI= 3.1415926
@@ -76,8 +81,9 @@
            V   = FLTARR(NPFULL,NI)
            VI  = FLTARR(NPFULL,NI)
 
-;DEFINE WINDOW SIZE
-	PRINT,'WINDOW SIZE IN PIXEL?  DEFAULT=300 / 200'
+;DEFINE WINDOW SIZE
+	 WXSIZE=300
+	PRINT,'WINDOW SIZE IN PIXEL?  DEFAULT=300'
          READ,WXSIZE
          WYSIZE=WXSIZE