Ignore:
Timestamp:
06/19/06 16:14:56 (18 years ago)
Author:
smasson
Message:

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

Location:
trunk/SRC/ToBeReviewed/COULEURS
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/COULEURS/color24.pro

    r19 r114  
    4646 
    4747FUNCTION COLOR24, number 
     48; 
     49  compile_opt idl2, strictarrsubs 
     50; 
    4851 
    4952   ; This FUNCTION accepts a [red, green, blue] triple that 
    … …  
    6972num24bit = 0L 
    7073 
    71 FOR j=0,2 DO num24bit = num24bit + ((number(j) MOD 16) * base16(0,j)) + $ 
    72    (Fix(number(j)/16) * base16(1,j)) 
     74FOR j=0,2 DO num24bit = num24bit + ((number[j] MOD 16) * base16[0,j]) + $ 
     75   (Fix(number[j]/16) * base16[1,j]) 
    7376    
    7477RETURN, num24bit 

  • trunk/SRC/ToBeReviewed/COULEURS/colorbar.pro

    r19 r114  
    121121              PSCOLOR=pscolor, CB_TITLE=cb_title, VERTICAL=vertical, TOP=top, RIGHT=right, CB_LOG = CB_log, _extra = ex 
    122122                                ; Is the PostScript device selected? 
     123; 
     124  compile_opt idl2, strictarrsubs 
     125; 
    123126 
    124127   postScriptDevice = (!D.NAME EQ 'PS') 
    … …  
    207210                                ; Get starting locations in DEVICE coordinates. 
    208211 
    209    xstart = position(0) * !D.X_VSIZE 
    210    ystart = position(1) * !D.Y_VSIZE 
     212   xstart = position[0] * !D.X_VSIZE 
     213   ystart = position[1] * !D.Y_VSIZE 
    211214 
    212215                                ; Get the size of the bar in DEVICE coordinates. 
    213216 
    214    xsize = (position(2) - position(0)) * !D.X_VSIZE 
    215    ysize = (position(3) - position(1)) * !D.Y_VSIZE 
     217   xsize = (position[2] - position[0]) * !D.X_VSIZE 
     218   ysize = (position[3] - position[1]) * !D.Y_VSIZE 
    216219 
    217220                                ; For PostScript output only, draw the annotation in !P.COLOR 

  • trunk/SRC/ToBeReviewed/COULEURS/getcolor.pro

    r19 r114  
    181181 
    182182FUNCTION COLOR24, number 
     183; 
     184  compile_opt idl2, strictarrsubs 
     185; 
    183186 
    184187   ; This FUNCTION accepts a [red, green, blue] triple that 
    … …  
    204207num24bit = 0L 
    205208 
    206 FOR j=0,2 DO num24bit = num24bit + ((number(j) MOD 16) * base16(0,j)) + $ 
    207    (Fix(number(j)/16) * base16(1,j)) 
     209FOR j=0,2 DO num24bit = num24bit + ((number[j] MOD 16) * base16[0,j]) + $ 
     210   (Fix(number[j]/16) * base16[1,j]) 
    208211 
    209212RETURN, num24bit 
    … …  
    214217FUNCTION GETCOLOR, thisColor, index, TRUE=truecolor, $ 
    215218   NAMES=colornames, LOAD=load, START=start 
     219; 
     220  compile_opt idl2, strictarrsubs 
     221; 
    216222 
    217223   ; Set up the color vectors. 
    … …  
    315321 
    316322varInfo = SIZE(thisColor) 
    317 IF varInfo(varInfo(0) + 1) NE 7 THEN $ 
     323IF varInfo[varInfo[0] + 1] NE 7 THEN $ 
    318324   MESSAGE, 'The color name must be a string.' 
    319325thisColor = STRUPCASE(thisColor) 
    … …  
    326332   ; set the index to a YELLOW color, and continue. 
    327333 
    328 IF colorIndex(0) LT 0 THEN BEGIN 
     334IF colorIndex[0] LT 0 THEN BEGIN 
    329335   MESSAGE, "Can't find color. Returning YELLOW.", /INFORMATIONAL 
    330336   colorIndex = 3 
    … …  
    333339   ; Get the color triple. 
    334340 
    335 r = rvalue(colorIndex) 
    336 g = gvalue(colorIndex) 
    337 b = bvalue(colorIndex) 
     341r = rvalue[colorIndex] 
     342g = gvalue[colorIndex] 
     343b = bvalue[colorIndex] 
    338344returnColor = REFORM([r, g, b], 1, 3) 
    339345 

  • trunk/SRC/ToBeReviewed/COULEURS/lct.pro

    r19 r114  
    3535;------------------------------------------------------------ 
    3636PRO lct, numero, GET_NAME = get_name, LIGHTNESS = Lightness, _EXTRA = ex 
     37; 
     38  compile_opt idl2, strictarrsubs 
     39; 
    3740@common 
    3841; le mot cle file est passe par l''intermediere de EXTRA? 

  • trunk/SRC/ToBeReviewed/COULEURS/newpalette.pro

    r19 r114  
    4040; le mot cle file est passe par l''intermediere de EXTRA? 
    4141; definition du mon du fichier qui contient les palettes de couleur 
     42; 
     43  compile_opt idl2, strictarrsubs 
     44; 
    4245   if n_elements(ex) NE 0 then BEGIN  
    4346      if (where(tag_names(ex) EQ 'FILE'))[0] NE -1 then nompal=ex.FILE ELSE nompal='palette.tbl' 

  • trunk/SRC/ToBeReviewed/COULEURS/palit.pro

    r97 r114  
    88;- 
    99PRO palit, coef, red, green, blue 
     10; 
     11  compile_opt idl2, strictarrsubs 
     12; 
    1013   IF n_elements(coef) EQ 0 THEN coef = 0.5 
    1114   IF n_elements(red) EQ 0 THEN tvlct, red, green, blue, /get 

  • trunk/SRC/ToBeReviewed/COULEURS/xlct.pro

    r19 r114  
    66PRO XLCT_PSAVE                  ;Save/Restore our plotting state. 
    77;  Swaps our state with the current state each time its called. 
     8; 
     9  compile_opt idl2, strictarrsubs 
     10; 
    811 
    912COMMON xlct_com, r0, g0, b0, tfun, state, filename, cps, psave, pnt, $ 
    … …  
    2528 
    2629pro xlct_alert_caller 
     30; 
     31  compile_opt idl2, strictarrsubs 
     32; 
    2733COMMON xlct_com, r0, g0, b0, tfun, state, filename, cps, psave, pnt, $ 
    2834        top, bot, silent, chop, lock, g_lbl, vbot, vtop, g_slider, $ 
    … …  
    5157; Redraw the ramp image. 
    5258PRO xlct_show 
     59; 
     60  compile_opt idl2, strictarrsubs 
     61; 
    5362COMMON xlct_com, r0, g0, b0, tfun, state, filename, cps, psave, pnt, $ 
    5463        top, bot, silent, chop, lock, g_lbl, vbot, vtop, g_slider, $ 
    … …  
    6877 
    6978PRO xlct_draw_cps, i, c 
     79; 
     80  compile_opt idl2, strictarrsubs 
     81; 
    7082COMMON colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr 
    7183COMMON xlct_com, r0, g0, b0, tfun, state, filename, cps, psave, pnt, $ 
    … …  
    8698 
    8799PRO xlct_transfer, UPDATE=update 
     100; 
     101  compile_opt idl2, strictarrsubs 
     102; 
    88103COMMON colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr 
    89104COMMON xlct_com, r0, g0, b0, tfun, state, filename, cps, psave, pnt, $ 
    … …  
    115130 
    116131PRO xlct_event, event 
     132; 
     133  compile_opt idl2, strictarrsubs 
     134; 
    117135COMMON colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr 
    118136COMMON xlct_com, r0, g0, b0, tfun, state, filename, cps, psave, pnt, $ 
    … …  
    430448          MODAL=modal, BLOCK=block, UPDATECALLBACK=updt_cb_name, $ 
    431449          UPDATECBDATA=updt_cb_data 
     450; 
     451  compile_opt idl2, strictarrsubs 
     452; 
    432453 
    433454   COMMON colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr 

  • trunk/SRC/ToBeReviewed/COULEURS/xpal.pro

    r19 r114  
    157157; color maps and set !P appropriately. Returns 1 if the colors changed, 
    158158; 0 otherwise. 
     159; 
     160  compile_opt idl2, strictarrsubs 
     161; 
    159162  common xp_com, xpw, state 
    160163 
    … …  
    176179 
    177180pro XP_ALERT_CALLER 
     181; 
     182  compile_opt idl2, strictarrsubs 
     183; 
    178184 
    179185  common xp_com, xpw, state 
    … …  
    200206  ; For visuals with static colormaps, update the graphics 
    201207  ; after a change by XLOADCT. 
     208; 
     209  compile_opt idl2, strictarrsubs 
     210; 
    202211  if ((COLORMAP_APPLICABLE(redrawRequired) GT 0) and $ 
    203212        (redrawRequired GT 0)) then begin 
    … …  
    208217 
    209218pro XP_REDRAW 
     219; 
     220  compile_opt idl2, strictarrsubs 
     221; 
    210222 
    211223  common xp_com, xpw, state 
    … …  
    227239;       - 'G': Draw the data part of the Green plot 
    228240;       - 'B': Draw the data part of the Blue plot 
     241; 
     242  compile_opt idl2, strictarrsubs 
     243; 
    229244 
    230245  common xp_com, xpw, state 
    … …  
    303318;       - 'G': ... 
    304319;       - 'B': ... 
     320; 
     321  compile_opt idl2, strictarrsubs 
     322; 
    305323  common xp_com, xpw, state 
    306324  common colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr 
    … …  
    348366 
    349367pro XP_BUTTON_EVENT, event 
     368; 
     369  compile_opt idl2, strictarrsubs 
     370; 
    350371 
    351372   common xp_com, xpw, state 
    … …  
    461482 
    462483PRO xp_button_event_event, ev 
     484; 
     485  compile_opt idl2, strictarrsubs 
     486; 
    463487COMMON basecommon,  bas212, bas222,  bas232 
    464488  WIDGET_CONTROL, ev.id,  GET_UVALUE = uval 
    … …  
    485509 
    486510pro XP_EVENT, event 
     511; 
     512  compile_opt idl2, strictarrsubs 
     513; 
    487514 
    488515   common xp_com, xpw, state 
    … …  
    532559pro XPAL, group=group, BLOCK=block, UPDATECALLBACK=updt_cb_name, $ 
    533560        UPDATECBDATA=updt_cb_data 
     561; 
     562  compile_opt idl2, strictarrsubs 
     563; 
    534564 
    535565 
Note: See TracChangeset for help on using the changeset viewer.