(reset-plotter)

(define-plotter-type 
  :language     "HPGL"
  :no_linetype_adjust t
  :plotter_type '("HP_LASERJET_5000")
)


(define-plot-transformation "P1" 
	:line_type "ALL"     
	:color "ALL"     
	:pen_width 3  
	:pen_number 0
)

(define-plot-transformation "P1" 
	:line_type "SOLID"     
	:color "WHITE"     
	:pen_width 3  
	:pen_number 1
)

(define-plot-macro "HP"
  :plot_transf '("P1")
)


(define-plotter-configuration         
  :plotter_name       "HP_LASERJET_5000"
  :plotter_type       "HP_LASERJET_5000"
  :filename_prefix    "|lp -or -s -dlj_sys"
  :filename_generate  nil
  :macro_name         "HP"
)