summaryrefslogtreecommitdiff
path: root/app/mpg/1987/src/INCRPLOT.ELA
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2019-03-02 17:15:47 +0100
committerLars-Dominik Braun <lars@6xq.net>2019-03-02 17:15:47 +0100
commitc316cd982303f30f29075f31bcd910f9be38bb25 (patch)
tree12ba04bd0f2a94bd48583ee5f2ab269b6ba5c8b3 /app/mpg/1987/src/INCRPLOT.ELA
parent50acf53648b6562853cb26aa4e7062a5ced66908 (diff)
downloadeumel-src-master.tar.gz
eumel-src-master.tar.bz2
eumel-src-master.zip
Convert charset to utf8HEADmaster
Files imported in commit 98cab31fc3659e33aef260efca55bf9f1753164c were exported from EUMEL to DOS and used codepage 437/850(?). Convert files to UTF-8 where possible. Some files were left as-is. I’m not sure whether converting these would be correct.
Diffstat (limited to 'app/mpg/1987/src/INCRPLOT.ELA')
-rw-r--r--app/mpg/1987/src/INCRPLOT.ELA22
1 files changed, 11 insertions, 11 deletions
diff --git a/app/mpg/1987/src/INCRPLOT.ELA b/app/mpg/1987/src/INCRPLOT.ELA
index 408ab5f..72d46dc 100644
--- a/app/mpg/1987/src/INCRPLOT.ELA
+++ b/app/mpg/1987/src/INCRPLOT.ELA
@@ -73,7 +73,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;
@@ -96,7 +96,7 @@ PROC clear :
point := "";
reset;
- {***** neue Zeichenfl„che *****}
+ {***** neue ZeichenflÀche *****}
out ("P")
END PROC clear;
@@ -111,7 +111,7 @@ set background:
{***** Hintergrundfarbe setzen *****} .
set foreground:
- {***** Stift ausw„hlen *****} .
+ {***** Stift auswÀhlen *****} .
set thickness:
{***** Es wird ein breiterer Sift simuliert, indem jeder Punkt *****}
@@ -131,9 +131,9 @@ set thickness:
point CAT (thickness DIV 2) * up right .
set linetype:
- {***** Falls das Endger„t hardwarem„áig verschieden Linientypen *****}
- {***** besitzt, k”nnen diese hier angesteuert werden. Ansonsten *****}
- {***** werden sie softwarem„áig simuliert. *****}
+ {***** Falls das EndgerĂ€t hardwaremĂ€ĂŸig verschieden Linientypen *****}
+ {***** besitzt, können diese hier angesteuert werden. Ansonsten *****}
+ {***** werden sie softwaremĂ€ĂŸig simuliert. *****}
pattern pos := 0;
SELECT linetype OF
CASE durchgehend : line pattern := -1
@@ -235,7 +235,7 @@ do right step :
old error INCR right error .
check point :
- { In Abh„ngigkeit vom Ergebnis der Prozedur 'visible' wird der *****}
+ { In AbhÀngigkeit vom Ergebnis der Prozedur 'visible' wird der *****}
{ Stift gehoben oder gesenkt. *****}
IF visible (pos)
@@ -263,11 +263,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;