Changeset 240 for trunk/SRC/ToBeReviewed/PLOTS

Timestamp:

03/28/07 14:17:24 (17 years ago)

Author:

pinsard

Message:

replace some print by some report in some .pro (continuation)

Location:

trunk/SRC/ToBeReviewed/PLOTS

Files:

• DESSINE/bar_plot.pro (modified) (1 diff)
• DESSINE/pltt.pro (modified) (1 diff)
• LABEL/label_gmt.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/bar_plot.pro

@@ -141 +141 @@
 ;
 if (n_params(d) eq 0) then begin  ;Print call & return if no parameters
-  print,'bar_test,values,baselines=baselines,colors=colors,barnames=barnames,$'
-  print,' title=title,xtitle=xtitle,ytitle=ytitle,baserange=baserange, $'
-  print,' barwidth=barwidth,barspace=barspace,baroffset=baroffset, $'
-  print,' outline=outline,overplot=overplot,background=background, $'
-  print,' rotate=rotate'
+  ras = report(['bar_test,values,baselines=baselines,colors=colors,barnames=barnames,$', $
+  ' title=title,xtitle=xtitle,ytitle=ytitle,baserange=baserange, $', $
+  ' barwidth=barwidth,barspace=barspace,baroffset=baroffset, $', $
+  ' outline=outline,overplot=overplot,background=background, $', $
+  ' rotate=rotate'])
   return
 endif

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro

@@ -277 +277 @@
 
    IF type EQ 't' AND keyword_set(filter) THEN BEGIN
-      print, '    Applying a running mean filter of width '+string(filter, format = '(I3)')
+      ras = report('    Applying a running mean filter of width '+string(filter, format = '(I3)'))
       z2d = smooth(z2d, filter)
       z2d[0:filter/2-1] = 0.

trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_gmt.pro

@@ -59 +59 @@
       max=level_z2d[Ncontour-1]+intervalle
 
-      print, '     Number of contour intervals, plotting min & max ', ncontour, min, max
-      print, ' '
+      ras = report(['     Number of contour intervals, plotting min & max ' + $
+string(ncontour) + string(min)+ string(max),' '])
 
       ; color index