Changeset 35 for trunk/ToBeReviewed/PLOTS/DESSINE/scontour.pro

Timestamp:

05/02/06 16:44:47 (18 years ago)

Author:

pinsard

Message:

upgrade of PLOTS/DESSINE according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/PLOTS/DESSINE/scontour.pro (copied) (copied from trunk/PLOTS/DESSINE/scontour.pro) (2 diffs)

trunk/ToBeReviewed/PLOTS/DESSINE/scontour.pro

@@ -31 +31 @@
 ; EXAMPLE:
 ;      IDL> z = dist(100) 
-;      IDL> scontour, z, nlevels=10,petit=[1,2,1],xstyle=1,ystyle=1
+;      IDL> scontour, z, nlevels=10,small=[1,2,1],xstyle=1,ystyle=1
 ;      IDL> @ps
 ;
@@ -43 +43 @@
 @common
 ; 1) je reinitialise l''environnememt graphique (les variables !x, !y et !p): 
-   if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 
+  if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 
 ; 2) je place le dessin a l'ecran comme sur le postcript 
-   IF chkstru(ex, 'overplot')EQ 0 THEN placedessin, 'autre', _extra = ex
+; if ex contains norease and c_orientation keywords we force ex.noerase = 0
+  IF chkstru(ex, 'overplot') EQ 0 THEN placedessin, 'autre', _extra = ex
+; fiddle when noerase is used with c_orentation...
+; call contour with /nodata to get the graphic envoronment, then force
+; noerase = 0 and overplot = 1
+  IF size(ex, /type) EQ 8 THEN BEGIN
+; check if noerase is used with c_orentation
+    alltags = strlowcase(tag_names(ex))
+    dummy = where(alltags EQ 'noerase', count1)
+    dummy = where(alltags EQ 'c_orientation', count2)
+    IF count1*count2 NE 0 THEN BEGIN 
+      case n_params() OF
+        1:contour, x, /nodata, _EXTRA = ex
+        2:contour, x, y, /nodata, _EXTRA = ex
+        3:contour, x, y, z, /nodata, _EXTRA = ex
+      endcase
+      ex.noerase = 0
+      ex = get_extra(/overplot, _extra = ex)
+      noerase_orientation = 1
+    ENDIF 
+  ENDIF 
 ; 3) je fais mon joli dessin 
-   case n_params() OF
-      1:contour, x, _EXTRA = ex
-      2:contour, x, y, _EXTRA = ex
-      3:contour, x, y, z, _EXTRA = ex
+  case n_params() OF
+    1:contour, x, xstyle = 1, ystyle = 1, _EXTRA = ex
+    2:contour, x, y, xstyle = 1, ystyle = 1, _EXTRA = ex
+    3:contour, x, y, z, xstyle = 1, ystyle = 1, _EXTRA = ex
+  ENDCASE
+; fiddle when noerase is used with c_orentation... draw the contour axis
+  IF keyword_set(noerase_orientation)  THEN BEGIN
+    ex.noerase = 1
+    ex.overplot = 0
+    case n_params() OF
+      1:contour, x, xstyle = 1, ystyle = 1, /nodata, _EXTRA = ex
+      2:contour, x, y, xstyle = 1, ystyle = 1, /nodata, _EXTRA = ex
+      3:contour, x, y, z, xstyle = 1, ystyle = 1, /nodata, _EXTRA = ex
+    ENDCASE
+  ENDIF
+; 4) je termine le dessin 
+  terminedessin, _extra = ex 
 
-   endcase
-   
-; 4) je termine le dessin 
-   terminedessin, _extra=ex 
-
-   return
+  return
 end