;;(display "am_plot_customize wird gelesen")

;;========================================
;; Anpassungen fuer Plotter-Strichstaerken
;;========================================
(AM_PLOT_LTYPE_LENGTH :lt_length 6)
(reset-plotter)
(define-plotter-type 
  :language     "HPGL"
  :center        t
  :plotter_type '("7570A" "7570")
  )
(define-plotter-type 
  :language     "HPGL2_RTL"
  :no_linetype_adjust t
  :front_string '("chr(27)" "'E'" "chr(27)" "'&l3o0E'" "chr(27)" "'*p50Y'" "chr(27)" "'*ct5710Y'" "chr(27)" "'%0B'")
  :append_string '("';'" "chr(27)" "'E'")
  :plotter_type '("LASERJET/III/A4" "LJ/III/A4" "LASERJET/IV/A4" "LJ/IV/A4")
  )

;; Laserjet mit Papierlade fuer A3
;;   Bemerkung :      "chr(27)" "'&l1H'"    
;;                     in untenstehenden :front_string setzt die Papierlade
(define-plotter-type 
  :language     "HPGL2_RTL"
  :no_linetype_adjust t
  :front_string '("chr(27)" "'E'" "chr(27)" "chr(27)" "'&l1H'" "'&l3o0E'" "chr(27)" "'*p50Y'" "chr(27)" "'*ct5710Y'" "chr(27)" "'%0B'")
  :append_string '("';'" "chr(27)" "'E'")
  :plotter_type '("LASERJET/III/A3" "LJ/III/A3" "LASERJET/IV/A3" "LJ/IV/A3")
)

(define-plotter-type 
  :language     "HPGL2_RTL"
  :plotter_type '("DESIGNJET650/R" "DJET650/R")
  )

;; -------------------------
;; Stifttransformationen
(define-plot-transformation "P1"                  :pen_width 0.4 :pen_number 1)
(define-plot-transformation "P3" :color "RED"     :pen_width 0.3 :pen_number 2)
(define-plot-transformation "P4" :color "GREEN"   :pen_width 0.1 :pen_number 3)
(define-plot-transformation "P5" :color "YELLOW"  :pen_width 0.1 :pen_number 4)
(define-plot-transformation "P6" :color "BLUE"    :pen_width 0.3 :pen_number 5)
(define-plot-transformation "P7" :color "MAGENTA" :pen_width 0.6 :pen_number 6)
(define-plot-transformation "P8" :color "CYAN"    :pen_width 0.1 :pen_number 7)
(define-plot-transformation "P2" :color "BLACK"                  :pen_number 0)
(define-plot-macro "Stiftzuordnung"
  :plot_transf '("P1" "P2" "P3" "P4" "P5" "P6" "P7" "P8")
  )

;; Plotter S&W
(define-plot-transformation "P1" :line_type "ALL"     :color "ALL"     :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.5  :pen_number 1)
(define-plot-transformation "P2" :line_type "ALL"     :color "BLACK"   :screen_pen_size "ALL" :new_linetype "SAME"                 :pen_number 0)
(define-plot-transformation "P3" :line_type "ALL"     :color "RED"     :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.25 :pen_number 1)
(define-plot-transformation "P4" :line_type "ALL"     :color "GREEN"   :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.7  :pen_number 1)
(define-plot-transformation "P5" :line_type "ALL"     :color "YELLOW"  :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.35 :pen_number 1)
(define-plot-transformation "P6" :line_type "ALL"     :color "BLUE"    :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.1  :pen_number 1)
(define-plot-transformation "P7" :line_type "ALL"     :color "MAGENTA" :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.1  :pen_number 1)
(define-plot-transformation "P8" :line_type "ALL"     :color "CYAN"    :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.1  :pen_number 1)
(define-plot-transformation "P9" :line_type "PHANTOM" :color "CYAN"    :screen_pen_size "ALL" :new_linetype "SAME"                 :pen_number 0)
(define-plot-macro "Schwarz_Weis"
  :plot_transf '("P1" "P2" "P3" "P4" "P5" "P6" "P7" "P8" "P9")
)


;; Plotter Farbe
(define-plot-transformation "P1" :line_type "ALL"     :color "ALL"     :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.5  :pen_number 1)
(define-plot-transformation "P2" :line_type "ALL"     :color "BLACK"   :screen_pen_size "ALL" :new_linetype "SAME"                 :pen_number 0)
(define-plot-transformation "P3" :line_type "ALL"     :color "RED"     :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.25 :pen_number 2)
(define-plot-transformation "P4" :line_type "ALL"     :color "GREEN"   :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.7  :pen_number 3)
(define-plot-transformation "P5" :line_type "ALL"     :color "YELLOW"  :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.35 :pen_number 4)
(define-plot-transformation "P6" :line_type "ALL"     :color "BLUE"    :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.1  :pen_number 5)
(define-plot-transformation "P7" :line_type "ALL"     :color "MAGENTA" :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.1  :pen_number 6)
(define-plot-transformation "P8" :line_type "ALL"     :color "CYAN"    :screen_pen_size "ALL" :new_linetype "SAME" :pen_width 0.1  :pen_number 7)
(define-plot-transformation "P9" :line_type "PHANTOM" :color "CYAN"    :screen_pen_size "ALL" :new_linetype "SAME"                 :pen_number 0)
(define-plot-macro "Farbe"
  :plot_transf '("P1" "P2" "P3" "P4" "P5" "P6" "P7" "P8" "P9")
  :true_color_plotting nil
)


(define-plotter-configuration 
  :plotter_name       "dsnj_1"
  :plotter_type       "DJET650/R"
  :filename_prefix    "|lp -or -s -dplotter"
  :filename_generate  nil
)

(define-plotter-configuration         ;;;LAST --> DEFAULT 
  :plotter_name       "Laserjet"
  :plotter_type       "LJ/IV/A4"
  :filename_prefix    "|lp -or -s -dlj_sys"
  :filename_generate  nil
  :macro_name         "Scharz_Weis"
)