{Nach drücken der Taste 'Plot_a4'}

DEFINE Plot_a4
  Plot_laserjet_a4_init
  Set_sys_plot_stop_on_error 1  				{Stopt den Plot bei Fehler}
  INQ_ENV 7								{Abfragecode für die Position des aktuellen Teils}
  LET P1 (INQ 101)						{linker unterer Punkt des aktuellen Teils}
  LET P2 (INQ 102)						{rechter oberer Punkt des aktuellen Teils}
  LET X (X_OF P2 - X_OF P1)					{Breite des aktuellen Teils}
  LET Y (Y_OF P2 - Y_OF P1)					{Höhe des aktuellen Teils}
  IF (Y > X)							{Wenn das Bild höher als breit ist ...}
    Set_sys_plot_rot (-(pi / 2))				{drehe das Bild um 90°}
  ELSE								{wenn nicht ...}
    Set_sys_plot_rot 0						{... nicht}
  END_IF
  Set_sys_plot_center on        				{zentrieren des Bildes}
  IF (Plot_pdf_masstab = 1)					{trift nicht zu da am anfang auf 0 gesetzt und nicht umgestellt}
    Set_sys_plot_plotscale 1    {1:1}
  ELSE
  END_IF
  LET Sys_plot_source ALL       				{Alles drucken}
  LET Sys_plot_as_displayed 0   				{Zeichnung wie dargestellt drucken}
  Plot_pix_color 0              				{Schwarz/WeiÞ-Druck}
  Set_sys_plot_format "A4" Plot_define_format_viewport Sm_plot_pp_update	{Setzt das Plotformat auf A4, die beiden Befehle danach konnte ich nicht finden}
  Plot_define_format_viewport					{noch mal einer der 2, die ich nicht versteh}
  Plot_laserjet_drucken
END_DEFINE





DEFINE Plot_laserjet_a4_init
  LET Plot_format 4						{Bestimmt die maximal bedruckbare Fläche}
  LET Plot_druckertyp 'A4'					{Definiert die Blattgröße um später den richtigen Drucker auswählen zu können}
  Plot_druckertyp_def						{Ändert den Netzwerkdrucker anhand 'Plot_druckertyp' - brauch ich nicht}
  Select_plot_config "'LaserJet 5000 (A4)'"		{keine Ahnung}
  Set_sys_plot_configuration "'LaserJet 5000 (A4)'"	{Legt den Namen der Plotkonfiguration fest}
  Set_sys_plot_type 'LJ5000/A4'				{Legt gewählten Typ für die Plotter fest}
  Set_sys_plot_filename_generate 1				{1 sollte false sein ==> Namenspräfix als Plotziel verwenden}
  Set_sys_plot_filename_prefix 'c:/temp/PLOT'		{das Plotziel}
END_DEFINE


DEFINE Plot_laserjet_drucken
  Plot_laserjet_defaults					{Definiert die Farben und Strichstärken}
  Sm_plot_pp_update						{Noch mal der 2. der nicht verstandenen}
  Spezial_sm_plot							{Konfiguriert das Plotmenu}
  Plot_plot								{Startet den Plot - bei mir muß das start_plot sein, da es plot_plot nicht gibt}
  RUN 'print /D:lpt2 c:\temp\PLOT*'				{Der bis jetzt nur in eine Datei umgeleitete Plot wird hier tatsächlich gedruckt}
  PURGE_FILE 'c:/temp/PLOT*' CONFIRM			{und die Datei gelöscht}
  Select_plot_config 'GDI Printer' Spezial_sm_plot  	{Rücksetzen auf Standarddrucker}
END_DEFINE