Changeset 114 for trunk/SRC/ToBeReviewed/UTILITAIRE/text_box.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:

• trunk/SRC/ToBeReviewed/UTILITAIRE/text_box.pro (modified) (7 diffs)

trunk/SRC/ToBeReviewed/UTILITAIRE/text_box.pro

@@ -17 +17 @@
 ; keywords
 ;  pos          4 element vector specifying the box position and size
-;               pos(0),pos(1) specify the lower left corner coordinate
-;               pos(2),pos(3) specify the upper right corner coordinate
+;               pos[0],pos[1] specify the lower left corner coordinate
+;               pos[2],pos[3] specify the upper right corner coordinate
 ;               data window normalized coordinates are use
 ;
@@ -43 +43 @@
                center=center,right=right,box=box,vert_space=vert_space, _EXTRA = ex
 ;
+;
+  compile_opt idl2, strictarrsubs
+;
         ON_ERROR, 2
 ;
@@ -63 +66 @@
   xx2=xx1+nx
   yy2=yy1+ny
-  pos=[(xx1-nnx(0))/(nnx(1)-nnx(0)),(yy1-nny(0))/(nny(1)-nny(0)),$
-       (xx2-nnx(0))/(nnx(1)-nnx(0)),(yy2-nny(0))/(nny(1)-nny(0))]
+  pos=[(xx1-nnx[0])/(nnx[1]-nnx[0]),(yy1-nny[0])/(nny[1]-nny[0]),$
+       (xx2-nnx[0])/(nnx[1]-nnx[0]),(yy2-nny[0])/(nny[1]-nny[0])]
   posstring=string(form='(a,4(f5.2,a))',$
-           ',pos=[',pos(0),',',pos(1),',',pos(2),',',pos(3),']')
+           ',pos=[',pos[0],',',pos[1],',',pos[2],',',pos[3],']')
   print,strcompress(posstring,/remove_all)
 
@@ -72 +75 @@
 endif else begin
   
-  xx1 = nnx(0)+pos(0)*(nnx(1)-nnx(0))
-  xx2 = nnx(0)+pos(2)*(nnx(1)-nnx(0))
-  yy1 = nny(0)+pos(1)*(nny(1)-nnx(0))
-  yy2 = nny(0)+pos(3)*(nny(1)-nnx(0))
+  xx1 = nnx[0]+pos[0]*(nnx[1]-nnx[0])
+  xx2 = nnx[0]+pos[2]*(nnx[1]-nnx[0])
+  yy1 = nny[0]+pos[1]*(nny[1]-nnx[0])
+  yy2 = nny[0]+pos[3]*(nny[1]-nnx[0])
 
 endelse
@@ -107 +110 @@
 ;   print,f='(8a8)','charsz','i','ilines','n_lines','lpnt','wlen','sum','xwdth'
     for i=0,nwords-1 do begin
-      sum=sum+wlen(i)+blen
+      sum=sum+wlen[i]+blen
       if sum+3*blen gt xx2-xx1 then begin
         ilines=ilines+1
-        sum=wlen(i)+blen
+        sum=wlen[i]+blen
       endif
-      lpnt(i)=ilines        
+      lpnt[i]=ilines        
       
-;      print,f='(f8.2,4i8,3f8.2)',charsize,i,ilines,n_lines,lpnt(i),$
-;                 wlen(i)+blen,sum+3*blen,xx2-xx1
+;      print,f='(f8.2,4i8,3f8.2)',charsize,i,ilines,n_lines,lpnt[i],$
+;                 wlen[i]+blen,sum+3*blen,xx2-xx1
     endfor        
     case 1 of
@@ -131 +134 @@
 for i=0,n_lines-1 do begin
   ii=where(lpnt eq i,nc)
-  maxlen=(total(wlen(ii))+nc*blen)>maxlen
-  lines(i)=string(f='(200a)',words(ii)+' ')
-; print,i,words(ii)
-; print,i,lines(i)
+  maxlen=(total(wlen[ii])+nc*blen)>maxlen
+  lines[i]=string(f='(200a)',words[ii]+' ')
+; print,i,words[ii]
+; print,i,lines[i]
 endfor
 
@@ -160 +163 @@
   for i_line = 0,n_lines-1 do begin
     yy = yy-dy
-;   print,xx,yy,lines(i_line),charsize
-    xyouts, xx, yy, lines(i_line), /device, charsize=charsize, $
+;   print,xx,yy,lines[i_line],charsize
+    xyouts, xx, yy, lines[i_line], /device, charsize=charsize, $
       alignment=align, color=color, font=-1, _extra = ex
   endfor