Changeset 783 for misc

Timestamp:

07/15/07 11:47:49 (14 months ago)

Author:

mankoff

Message:

Added defaults and option for XYZ scale and title. See source:/misc/clouds/xiastrec.pro

Files:

• misc/clouds/d_vectrack.pro (modified) (3 diffs)

misc/clouds/d_vectrack.pro

@@ -1084 +1084 @@
     ; Compute coordinate conversion to normalize.
     maxDim = MAX([xMax, yMax, zMax])
-    xs = [-0.5 * xMax/maxDim,1.0/maxDim]
-    ys = [-0.5 * yMax/maxDim,1.0/maxDim]
+    xxscl = XIASTREC( meta, 'xscale' ) ? meta.xscale : 1
+    xs = [-0.5 * xMax/maxDim,1.0/maxDim] * xxscl
+    yyscl = XIASTREC( meta, 'yscale' ) ? meta.yscale : 1
+    ys = [-0.5 * yMax/maxDim,1.0/maxDim] * yyscl
     ;zs = [(-zMin2/(zMax2-zMin2))-0.5, 1.0/(zMax2-zMin2)]
-    zoom = 1.3
-    zs = [-0.5*zMax/maxDim, 1.0/maxDim]*zoom
+    zzscl = XIASTREC( meta, 'zscale' ) ? meta.zscale : 1.5
+    zs = [-0.5*zMax/maxDim, 1.0/maxDim] * zzscl
 
 ; Create the axis objects.
-    oXTitle = OBJ_NEW('IDLgrText', 'X')
+    oXTitle = OBJ_NEW('IDLgrText', XIASTREC(meta,'xtitle')?meta.xtitle:'X')
     oAxis = OBJ_NEW('IDLgrAxis', 0, COLOR=[255,255,255],RANGE=[0,xMax-1],$
              TITLE=oXTitle,TICKLEN=2,$
@@ -1099 +1101 @@
     oGroup->Add, oAxis
 
-    oYTitle = OBJ_NEW('IDLgrText','Y' )
+    oYTitle = OBJ_NEW('IDLgrText', XIASTREC(meta,'ytitle')?meta.ytitle:'Y')
     oAxis = OBJ_NEW('IDLgrAxis', 1, COLOR=[255,255,255],RANGE=[0,yMax-1],$
              TITLE=oYTitle,TICKLEN=2,$
@@ -1107 +1109 @@
     oGroup->Add, oAxis
 
-    oZTitle = OBJ_NEW('IDLgrText','Z')
+    oZTitle = OBJ_NEW('IDLgrText', XIASTREC(meta,'ztitle')?meta.ztitle:'Z')
     ;oTickText = OBJ_NEW('IDLgrText', STRTRIM(makex(0,zMax,zMax/5),2))
     oAxis = OBJ_NEW('IDLgrAxis', 2, COLOR=[255,255,255], $