PRO PLOT_CMDTIMES, T1, T2, row, color=color ON_ERROR, 2 ; ; Check the number of parameters. ; IF N_PARAMS() NE 3 THEN $ MESSAGE, 'Syntax: PLOT_CMDTIMES, T1, T2, ROW' IF N_ELEMENTS(ROW) EQ 0 THEN ROW=0 IF N_ELEMENTS(color) EQ 0 THEN color = !d.table_size-1 Y1 = ROW+.25 Y2 = ROW+.75 FOR I = 0,N_ELEMENTS(T1)-1 DO BEGIN X1 = T1(I) > !X.CRANGE(0) X2 = T2(I) < !X.CRANGE(1) IF X2 GT X1 THEN POLYFILL, [X1,X2,X2,X1], [Y1,Y1,Y2,Y2], $ color = color ENDFOR RETURN END ;--------------------------------------------------------------------------- ; End of 'PLOT_CMDTIMES.PRO'. ;---------------------------------------------------------------------------