pro	MYPLOT, x, y, red=red, _extra=_extra

;+
; NAME:
;	MYPLOT
;
; PURPOSE:
;	Mattia's Very Own Plotting Routine
;
; INPUTS:
;	X - abscissa/ordinate data points (if Y is/isnot set)
;	Y (optional) - ordinate data points
; KEYWORDS:
;	RED (SCL INT) - plotting reduction factor (one out of RED points is actually plotted)
;	(e.g. for crowded plots and/or to speed up plotting)
;
; MODIFICATION HISTORY:
;	01 May 2007	Written by Mattia Vaccari
;-

on_error,2

if keyword_set(red) then begin
  j=lindgen(n_elements(x)/red)*red
endif else j=lindgen(n_elements(x))

if keyword_set(y) then plot,x[j],y[j],_extra=_extra else plot,x[j],_extra=_extra

end