1 files changed, 8 insertions, 8 deletions

diff --git a/app/mpg/1987/src/MTRXPLOT.ELA b/app/mpg/1987/src/MTRXPLOT.ELA
index 4068866..d7bf6f9 100644
--- a/app/mpg/1987/src/MTRXPLOT.ELA
+++ b/app/mpg/1987/src/MTRXPLOT.ELA
@@ -66,7 +66,7 @@ END PROC zeichensatz;
 

 PROC drawing area (REAL VAR x cm, y cm, INT VAR x pixel, y pixel) : 

    x cm := 23.0;    y cm := 13.7;   {***** Horizontale und vertikale *****}

-                                    {***** GrӇe in Zentimetern.     *****}

+                                    {***** GrĂ¶ĂŸe in Zentimetern.     *****}

    x pixel := 511;  y pixel := 255  {***** Koordinaten des rechten   *****}

                                     {***** oberen Punktes.           *****}

 END PROC drawing area;

@@ -81,13 +81,13 @@ PROC clear :
   stift := PEN : (black, white, 0, durchgehend, FALSE, TRUE);

   pos := POS : (0, 0);

 

-(*    L”schen der Hiddenmaxima      *);

+(*    Löschen der Hiddenmaxima      *);

   reset;

 

-(*    Ausgabe der Bildmatrix auf dem Endger„t      *);

+(*    Ausgabe der Bildmatrix auf dem EndgerÀt      *);

   put screen;

 

-(*    L”schen der Bildmatrix       *);

+(*    Löschen der Bildmatrix       *);

   clear (screen)

 

 END PROC clear;

@@ -248,11 +248,11 @@ hidden:
 END PROC visible;

 

 PROC draw (TEXT CONST record, REAL CONST angle, height, width):

-{**** Hier werden Texte mit dem Winkel 'angle',der H”he 'height' und *****}

+{**** Hier werden Texte mit dem Winkel 'angle',der Höhe 'height' und *****}

 {**** der Breite 'width' gezeichnet. Falls die Hardware dieses       *****}

-{**** bereits erm”glicht, so mssen die Variable 'zeichen' und die   *****}

-{**** Prozedur Zeichensatz gel”scht werden. Der Datenraum            *****}

-{**** 'STD Zeichensatz' wird in diesem Fall nicht ben”tigt.          *****}

+{**** bereits ermöglicht, so mĂŒssen die Variable 'zeichen' und die   *****}

+{**** Prozedur Zeichensatz gelöscht werden. Der Datenraum            *****}

+{**** 'STD Zeichensatz' wird in diesem Fall nicht benötigt.          *****}

   BOOL CONST horizontal :: NOT (abs (angle) MOD 180.0 > 45.0 AND abs (angle) MOD 180.0 < 135.0);

   INT CONST x fak :: character width, x step :: character x step,

             y fak :: character height, y step :: character y step;