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

[wei at geodynamics.org]

Author: wei
Date: 2007-03-08 14:19:06 -0800 (Thu, 08 Mar 2007)
New Revision: 6204

Modified:
   geodyn/3D/MAG/trunk/idl/magline.pro
Log:
Modified magline.pro, so the colors are identical in PostCript and on display

Modified: geodyn/3D/MAG/trunk/idl/magline.pro
===================================================================
--- geodyn/3D/MAG/trunk/idl/magline.pro	2007-03-08 20:53:10 UTC (rev 6203)
+++ geodyn/3D/MAG/trunk/idl/magline.pro	2007-03-08 22:19:06 UTC (rev 6204)
@@ -167,6 +167,14 @@
 ;DEFAULT TITLE
 	PTITLE='' & PTITLE=RUNID
 
+;SPECIFY WINDOW INFORMATION
+        XDIM=18.0
+        YDIM=24.0
+        XWIND=800
+        YWIND=800
+        CSZ=1.00 & CSB=1.50 & CSS=0.720       ; CHARACTER SIZES
+        SZF=1.00                      ; MAKES PS CHARACTERS SAME SIZE
+
 ;*************************************************************************
 ;**************  HERE THE PLOTTING MENU STARTS  **************************
 ;*************************************************************************
@@ -174,15 +182,17 @@
 
 LABEL0: PRINT,"ENTER OPTION:"
 	PRINT,"STOP=0;  DRAW FIELD LINES=1;  ERASE=2;  COLORS=3;"
-	PRINT,"PRINT JPG=4; CHANGE TITLE=5"
+	PRINT,"PRINT PS=41, PRINT JPG=42; CHANGE TITLE=5"
 	READ,IOPTION
+
 	
 	CASE IOPTION OF
 	0: GOTO, LABEL99
 	1: GOTO, LABEL1
 	2: GOTO, LABEL2
 	3: GOTO, LABEL3
-	4: GOTO, LABEL4
+	41: GOTO, LABEL41
+        42: GOTO, LABEL42
 	5: GOTO, LABEL5
 	ELSE: GOTO, LABEL0
 	ENDCASE
@@ -397,10 +407,15 @@
 	SET_PLOT,'X'
 
 ;SPECIFY WINDOW INFORMATION
-	XWIND=800
-	YWIND=800
+; 	XDIM=18.0
+;	YDIM=24.0
+;	XWIND=800
+;	YWIND=800
 	WINDOW,0,XSIZE=XWIND,YSIZE=YWIND,TITLE='GRAPHIC WINDOW'
-				
+;        CSZ=1.00 & CSB=1.50 & CSS=0.720       ; CHARACTER SIZES
+;        SZF=1.00                      ; MAKES PS CHARACTERS SAME SIZE
+
+
 ;DISPLAY IMAGE
 	TVSCL,IMAGE	
 
@@ -427,22 +442,37 @@
 READ,DENGRID
 GOTO, LABEL0
 
-LABEL4:
-OUTFILE=''
-PRINT,"ENTER JPG FILENAME:"
-READ,OUTFILE
-;READS A 24-BIT SCREEN IMAGE, CONVERTS TO JPEG (IDL NO LONGER SUPPORTS GIF)
-AJPEG=TVRD(TRUE=3)
-WRITE_JPEG,OUTFILE,AJPEG,TRUE=3
+LABEL41: &
+
+OUTFILE=' '
+PRINT,'OUTPUT FILE NAME?'
+READ, OUTFILE
+displayColors = !D.N_COLORS
+SET_PLOT,'PS'
+DEVICE,FILENAME=OUTFILE,/COLOR, BITS_PER_PIXEL=8 
+TV, BYTSCL(image, TOP=displayColors-1)
+;DEVICE,XSIZE=XDIM,YSIZE=YDIM,XOFFSET=1.8,YOFFSET=2.0
+;LOADCT, 39
+;TVSCL, IMAGE
 GOTO, LABEL0
 
+LABEL42:
+OUTFILE=' '
+PRINT,'OUTPUT FILE NAME?'
+READ, OUTFILE
+
+;READS A 24-BIT SCREEN IMAGE AND CONVERTS TO JPEG (IDL NO LONGER SUPPORTS GIF)
+ AJPEG=TVRD(TRUE=3)
+ WRITE_JPEG,OUTFILE,AJPEG,TRUE=3
+; IJPGPS=0
+GOTO, LABEL0
+
 LABEL5:
 PRINT,"CURRENT TITLE:" & PRINT,PTITLE
 PRINT, "ENTER NEW TITLE:"
 READ,PTITLE
 GOTO, LABEL0
 
-
 LABEL99: PRINT, "EXIT FROM PROGRAM MAGLINE"
 
 END