Das MPG-Graphik-System ist eine Sammlung von aufein-

ander aufbauenden Umgebungs- und Applikationspaketen, in

ist.

Folgende Leistungsmerkmale zeichnen die MPG-Graphik aus:

- verbesserter und nun auch in der Paket-Hierarchie voll-

- umfassende Dokumentation der EUMEL-Graphik und des

MPG-Graphik-Systems.

Ebene.

- indirekte Graphik-Ausgabe.

- komfortable Steuerung der Graphik-Ausgabe.

vorgesehenen Leistungen:

- beliebig breite Linien

- frei definierbare Linientypen mit Erhalt des Musters

bei verketteten Linien

- Ansatzfreie verkettete Linien durch abrundung der

Enden.

Desweiteren:

- frei definierbare Farben in normierter RGB-Codierung.

- automatische Einstellung der EUMEL-Farben auf den

(abschaltbar, also auch unterbrechungslose Ausgabe

#type ("prop7.5-16")#

#on ("u")#Applikationen:#off ("u")#

#type ("prop10-12")#

- die einfach zu programmierende 'TURTLE'-Graphik.

(PICFILE-Typ: 1102) verwendet, da diese einen um-

fassenderen Objektumfang (neue Version: keine Hidden-

Lines und kein Zeichen in Weltkoordinaten) bietet.

'GRAPHIK.Convert' in diesen Typ knvertiert werden.

- Fehler dieser Version (die auch in der neuen Version

- Die Ausgabe von PICTUREs und PICFILEs wurde von den

Verwaltungspaketen ('picture' bzw. 'picfile') abgespalten,

#type ("prop7.5-16")#

#on ("u")#Zum Graphik-Tasksystem:#off ("u")#

#type ("prop10-12")#

direkt zugreifen, und aufgrund der normierten An-

Zeichnungs-Primitiva (Gerade ziehen, positionieren usw.)

verwendet werden.

#type ("prop7.5-16")#

#type ("prop10-12")#

einzustellen, auf das ausgegeben werden soll.

Die vom Graphik-System verwendeten Konstanten

('drawing area' usw.) beziehen sich nunmehr auf das

Bei Verwendung der Zeichnungs-Primitiva ist zu beachten,

Die Ausgabe von PICFILEs erfolgt automatisch richtig, d.h.

'PLOT', die zur Ausgabe dynamische Kanal-Server erzeugt.

#type ("prop7.5-16")#

#type ("prop10-12")#

Benutzern von jeder Task im Graphik-Zweig aus erstellt

Teil 3: Konfigurierung der Graphik ........................ 30

Teil 3.1: Der Graphik-Konfigurator ........................ 30

Teil 3.2: Erstellung der Konfigurationsdateien ............ 31

2.0 Pseudo-Prozeduren ............................ 34

Teil 4: Graphik-Applikationen ............................. 37

Teil 4.1: Der Funktionenplotter 'FKT' ..................... 37

2.0 Das FKT-Menue ................................ 37

3.0 FKT-Menuepunkte .............................. 38

Teil 4.2: Die TURTLE-Graphik .............................. 44

#ib(1)#1.0 GRAPHIK.Basis#ie(1)#

1.1 #ib(2," (1.1)")#PACKET transformation#ie(2,"")#

1.2 #ib(2," (1.2)")#PACKET picture#ie(2,"")#

- Verwaltung des Datentyps PICTURE, der eine Bildebene objekt-

1.3 #ib(2," (1.3)")#PACKET picfile#ie(2,"")#

- Verwaltung des Datentyps PICFILE, der ein aus verschiedenen Bild-

ebenen (PICTURES) bestehendes Bild und seine (allgemeine) Abbildung

1.4 #ib(2," (1.4)")#PACKET devices#ie(2,"")#

#ib(1)#2.0 GRAPHIK.Configuration/GRAPHIK.Configurator#ie(1)#

2.1 #ib(2," (2.1)")#PACKET deviceinterface#ie(2,"")#

- Bereitstellung der allgemeinen graphischen Basisoperationen, die

- Das 'deviceinterface' wird vom 'GRAPHIK.Configurator' bei Bedarf

Konfigurationsdateien automatisch erzeugt.

#ib(1)#3.0 GRAPHIK.Plot#ie(1)#

3.1 #ib(2," (3.1)")#PACKET basisplot#ie(2,"")#

Basisoperationen.

3.2 #ib(2," (3.2)")#PACKET plotinterface#ie(2,"")#

3.3 #ib(2," (3.3)")#PACKET plot#ie(2,"")#

#page#

#type("pica")##on("u")##ib(1)#Teil 1.1: Generierung der Graphik#ie(1)##off("u")##type("prop.lq")#

#free(0.5)#

Das MPG-Graphik-Sytem befindet sich auf der Diskette 'GRAPHIK 2.1':

- archive ("GRAPHIK 2.1")

- fetch ("GRAPHIK.Install",archive)

- run ("GRAPHIK.Install")

des Graphik-Systems vornimmt.

Existiert auf dem Archiv eine Datei 'GRAPHIK.Configuration', so wird nachge-

stellt (siehe 'Neukonfiguration des Graphik-Systems', S. #to page ("newconf")#).

Mit der im Hintergrund ablaufenden Installation des Plotmanagers in der

(Sohn-)Task 'PLOT' (siehe 'Funktion von PLOT', S.#to page ("plotmanager")#) steht dann die Graphik allen

.

.

#ib(1)#1.0 Task: 'GRAPHIK'#ie(1)#

'GRAPHIK' ist die Ausgangstask des Graphik-Systems; in ihr werden (s.o) die

manager in der Task 'PLOT' kontrollieren

#ib(1)#2.0 Task: 'PLOT'#ie(1)##goalpage("plotmanager")#

verwaltet im Gegensatz zum 'PRINTER' aber nicht nur eine Warteschlange bzw.

Server sondern mehrere (die Anzahl ist durch die Konstante 'max spools' in

'GRAPHIK.Manager' festgelegt).

Warteschlangen verwalten !).

Sollte PLOT neben PRINTER zur graphischen Ausgabe auf dem Drucker arbei-

ten, so ist in PRINTER 'spool control task (/"PLOT")' einzustellen.

Der Plotmanager besitzt eine Kommandoebene, die wie folgt arbeitet:

folgende Kommandos gleichermassen auf alle Spools/Server wirken; sollen

die Kommandos auf nur einen Spool/Server wirken, so ist dieser mit 'select

Plotternamen angezeigt wird.

- 2.1 #ib(2," (2.1)")#listspool#ie(2,"")#

- 2.2 #ib(2," (2.2)")#clearspool#ie(2,"")#

abgebrochen (der Server beendet).

- 2.3 #ib(2," (2.3)")#spool control#ie(2,"")#

(TEXT CONST control task)

als privilegiert ein, d.h. Kommandos wie 'start', 'stop' usw. werden

von diesen Tasks wie auch von Systemstasks und von 'GRAPHIK'

aus zugelassen.

- 2.4 #ib(2," (2.4)")#stop#ie(2,"")#

Unterbricht eine evtl. laufende Ausgabe und unterbindet die

Eintrag erneut eingetragen wird.

- 2.5 #ib(2," (2.5)")#start#ie(2,"")#

- 2.6 #ib(2," (2.6)")#halt#ie(2,"")#

abgebrochen.

- 2.7 #ib(2," (2.7)")#select plotter#ie(2,"")#

zur Einstellung 'All-Plotter'.

aber auch die Wahl von Plottern anderer Stationen zu, was im

Plotmanager als 'All-Plotter' gewertet wird.

'All-Plotter' angewendet werden:

- 2.8 #ib(2," (2.8)")#killer#ie(2,"")#

an.

- 2.9 #ib(2," (2.9)")#first#ie(2,"")#

zum Vorziehen an.

#ib(1)#3.0 Task: 'FKT'#ie(1)#

Die Task 'FKT' stellt den Funktionenplotter FKT, bzw. dessen menuegesteuerten

Wird die Task mit dem Menuepunkt

'q' - in die Kommandoebene zurueck

Der Funktionenplotter wird in 'FKT' mit dem Kommando 'fktmanager' instal-

liert; er ist jedoch auch in jeder anderen Task mit dem Kommando 'fktplot'

erreichbar.

Die Pakete der Basisgraphik sind in der Datei 'GRAPHIK.Basis' enthalten, und

realisieren folgende Aufgaben:

- Vektorielle Abbildung virtueller Koordinaten unter Verwendung einer

und des Fensters ('window').

- Bereitstellung des Datentyps PICTURE, der die gemeinsame Manipulation

- Bereitstellung des Datentyps PICFILE, der die gemeinsame Manipulation

- Bereitstellung des Datentyps PLOTTER, der die freie Auswahl von End-

Zu den mit '*' gekennzeichneten Beschreibungen vgl. die Beschreibung im

Programmierhandbuch.

1.1 BOOL PROC #ib(2," (1.1)")#clippedline#ie(2," (PROC)")#

(REAL VAR x0, y0, x1, y1)

gebenen Anfangs- und Endkoordinaten einer Geraden auf die

1.2 PROC #ib(2," (1.2)")#drawingarea *#ie(2," (PROC)")#

(REAL VAR x cm, REAL VAR y cm, REAL VAR xp, REAL yp)

1.3 PROC #ib(2," (1.3)")#getvalues#ie(2," (PROC)")#

(ROW 3 ROW 2 REAL VAR, ROW 2 ROW 2 REAL VAR,

ROW 4 REAL VAR, ROW 2 REAL VAR, ROW 3 REAL VAR)

1.4 BOOL PROC #ib(2," (1.4)")#newvalues#ie(2," (PROC)")#

- Intern verwendete Prozedur, die anzeigt, ob die Transformations-

1.5 PROC #ib(2," (1.5)")#oblique *#ie(2," (PROC)")#

(REAL CONST a, b)

'schiefwinklig' ein; 'a;b' ist der Punkt in der X-Y-Ebene, auf den der

Einheitsvektor in Z-Richtung abgebildet werden soll.

1.8 PROC #ib(2," (1.8)")#setdrawingarea#ie(2," (PROC)")#

(REAL CONST x cm, y cm, x p, y p)

- Intern verwendete Prozedur, die vorm Beginn des Zeichnens dem

1.9 PROC #ib(2," (1.9)")#setvalues#ie(2," (PROC)")#

(ROW 3 ROW 2 REAL CONST, ROW 2 ROW 2 REAL CONST,

ROW 4 REAL CONST, ROW 2 REAL CONST, ROW 3 REAL CONST)

- Intern verwendete Prozedur, welche die Transformationsmatrix mit

1.10 PROC #ib(2," (1.10)")#transform#ie(2," (PROC)")#

(REAL CONST x, y, z, xp, yp)

1.11 PROC #ib(2," (1.11)")#view *#ie(2," (PROC)")#

(REAL CONST alpha, phi, theta)

Abbildung in Polarkoordinaten ein.

In der derzeitigen Version fehlerhaft !

1.13 PROC #ib(2," (1.13)")#view *#ie(2," (PROC)")#

(REAL CONST alpha)

'alpha' Grad !

1.14 PROC #ib(2," (1.14)")#viewport *#ie(2," (PROC)")##goalpage("viewport")#

(REAL CONST hormin, hormax, vertmin, vertmax)

vorangehend 'window (TRUE)' aufzurufen; damit die neuen Werte

1. Angabe in Weltkoordinaten (cm):

'hor min;vert min' - Position der unteren linken Ecke der ver-

'hor max;vert max' - Position der oberen rechten Ecke der ver-

hor max < 2.0 und vert max < 2.0 gilt.

gegebenen Quadrates liegt (unverzerrt).

= 'vert min' = 0 und 'vert max' = 1 zu setzen;

1.15 PROC #ib(2," (1.15)")#window *#ie(2," (PROC)")#

(REAL CONST xmin, xmax, ymin, ymax, zmin, zmax)

virtuellen Koordinaten in Bezug gesetzt werden sollen, mittels

1.16 PROC #ib(2," (1.16)")#window *#ie(2," (PROC)")#

(REAL CONST xmin, xmax, ymin, ymax)

1.17 PROC #ib(2," (1.17)")#window *#ie(2," (PROC)")#

(BOOL CONST update)

#page#

#ib(1)#2.0 Paket: picture#ie(1)#

2.2 OP #ib(2," (2.2)")#:= *#ie(2," (OP)")#

(PICTURE VAR dest, PICTURE CONST source)

2.3 PROC #ib(2," (2.3)")#bar *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST width, height, pattern)

- Zeichnet in 'pic' an der aktuellen Position ein Rechteck

die aktuelle X-Position die horizontale Position der vertikalen

Symmetrieachse des Rechtecks angibt.

Als 'pattern' z.Zt. implementiert:

3 - horizontal schraffiert

4 - vertikal schraffiert

5 - horizontal und vertikal schraffiert

2.4 OP #ib(2," (2.4)")#CAT *#ie(2," (OP)")#

(PICTURE VAR dest, PICTURE CONST add)

2.5 PROC #ib(2," (2.5)")#circle *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST x, y, rad, INT CONST pattern)

- Zeichnet in 'pic' an der Position 'x;y' mit dem Radius 'rad' und dem

2.6 INT PROC #ib(2," (2.6)")#dim *#ie(2," (PROC)")#

(PICTURE CONST pic)

(2 - zweidimensional; 3 - dreidimensional); wobei die Dimensionali-

2.7 PROC #ib(2," (2.7)")#draw *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST x, y, z)

2.8 PROC #ib(2," (2.8)")#draw *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST x, y, z)

2.9 PROC #ib(2," (2.9)")#draw *#ie(2," (PROC)")#

(PICTURE VAR pic, TEXT CONST text, REAL CONST angle, height, width)

'height/width' unter dem Winkel 'angle'.

2.10 PROC #ib(2," (2.10)")#draw *#ie(2," (PROC)")#

(PICTURE VAR pic, TEXT CONST text)

und normaler Ausrichtung.

2.11 PROC #ib(2," (2.11)")#draw cm *#ie(2," (PROC)")#

2.13 PROC #ib(2," (2.13)")#draw r *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST dx, dy, dz)

aktuellen Position.

2.14 PROC #ib(2," (2.14)")#draw r *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST dx, dy)

2.15 PROC #ib(2," (2.15)")#extrema *#ie(2," (PROC)")#

(PICTURE CONST pic, REAL VAR x min, x max, y min, y max, z min, z max)

Koordinaten aller Objekte in 'pic' ein.

2.16 PROC #ib(2," (2.16)")#extrema *#ie(2," (PROC)")#

(PICTURE CONST pic, REAL VAR x min, x max, y min, y max)

2.17 INT PROC #ib(2," (2.17)")#length *#ie(2," (PROC)")#

(PICTURE CONST pic)

2.18 PROC #ib(2," (2.18)")#move *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST x, y, z)

2.19 PROC #ib(2," (2.19)")#move *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST x, y)

2.20 PROC #ib(2," (2.20)")#move cm *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST x cm, y cm)

- Die aktuelle Zeichenposition wird auf 'x cm;y cm' verschoben, wobei

2.21 PROC #ib(2," (2.21)")#move cm r *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST d xcm, d ycm)

- Die aktuelle Zeichenposition wird um 'd xcm;d ycm' verschoben,

2.22 PROC #ib(2," (2.22)")#move r *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST dx, dy, dz)

2.23 PROC #ib(2," (2.23)")#move r *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST dx, dy)

2.24 PICTURE PROC #ib(2," (2.24)")#nilpicture *#ie(2," (PROC)")#

- Initialisierungsfunktion; liefert 'leeres Bild'.

2.25 INT PROC #ib(2," (2.25)")#pen *#ie(2," (PROC)")#

(PICTURE CONST pic)

2.26 PROC #ib(2," (2.26)")#pen *#ie(2," (PROC)")#

(PICTURE VAR pic, INT CONST no)

nehmen darf.

2.27 PICTURE PROC #ib(2," (2.27)")#picture *#ie(2," (PROC)")#

den Format in ein PICTURE verwandelt.

Das Format des TEXTes: <INT> Dimension : 2- oder 3-D

<INT> Zeichenstift-Nummer

<INT> Objektcode <...> Parameter.

- draw 1 Parameterfolge der Prozeduren.

- move 2

- text 3 > Vor dem Text wird als <INT> die

- draw r 5

- move cm 6

- draw cm 7

2.28 PROC #ib(2," (2.28)")#rotate *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST alpha, beta, gamma)

im positiven Sinne um die X-,Y-,Z-Achse gedreht; wobei nur ein

Winkel <> 0.0 sein darf.

2.29 PROC #ib(2," (2.29)")#rotate *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST alpha)

Sinne um die X-Achse gedreht.

2.30 PROC #ib(2," (2.30)")#stretch *#ie(2," (PROC)")#

- 'pic' wird um die Faktoren 'xc;yc;zc' gestreckt oder gestaucht:

Faktor > 1 -> Streckung

Faktor < 1 -> Stauchung

2.31 PROC #ib(2," (2.31)")#stretch *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST xc, yc)

2.32 TEXT PROC #ib(2," (2.32)")#text *#ie(2," (PROC)")#

(PICTURE CONST pic)

2.34 PROC #ib(2," (2.34)")#translate *#ie(2," (PROC)")#

(PICTURE VAR pic, REAL CONST dx, dy)

2.35 PROC #ib(2," (2.35)")#where *#ie(2," (PROC)")#

(PICTURE CONST pic, REAL VAR x, y, z)

Variablen 'x;y;z' ein.

2.36 PROC #ib(2," (2.36)")#where *#ie(2," (PROC)")#

(PICTURE CONST pic, REAL VAR x, y)

#page#

#ib(1)#3.0 Paket: 'picfile'#ie(1)#

3.5 PROC #ib(2," (3.5)")#background *#ie(2," (PROC)")#

(PICFILE VAR pf, INT CONST no)

3.6 PROC #ib(2," (3.6)")#delete picture *#ie(2," (PROC)")#

(PICFILE VAR pf)

3.7 PROC #ib(2," (3.7)")#down *#ie(2," (PROC)")#

(PICFILE VAR pf)

3.9 BOOL PROC #ib(2," (3.9)")#eof *#ie(2," (PROC)")#

(PICFILE CONST)

ist.

3.10 PROC #ib(2," (3.10)")#extrema *#ie(2," (PROC)")#

(PICFILE VAR pf, REAL VAR x min, x max, y min, y max, z min, z max)

Koordinaten aller Bilder in 'pf' ein.

3.11 PROC #ib(2," (3.11)")#extrema *#ie(2," (PROC)")#

(PICFILE VAR pf, REAL VAR x min, x max, y min, y max)

3.12 PROC #ib(2," (3.12)")#get *#ie(2," (PROC)")#

(PICFILE VAR pf, FILE VAR source)

'pf' ein.

3.13 PROC #ib(2," (3.13)")#get values *#ie(2," (PROC)")#

(PICFILE CONST pf, ROW 3 ROW 2 REAL VAR,ROW 2 ROW 2 REAL VAR,

ROW 4 REAL VAR, ROW 2 REAL VAR, ROW 3 REAL VAR)

gebenen Variablenfelder ein.

3.14 PROC #ib(2," (3.14)")#insert picture *#ie(2," (PROC)")#

(PICFILE VAR pf)

3.15 BOOL PROC #ib(2," (3.15)")#is first picture *#ie(2," (PROC)")#

(PICFILE CONST pf)

3.16 PROC #ib(2," (3.16)")#oblique *#ie(2," (PROC)")#

(PICFILE VAR pf, REAL CONST a, b)

Punkt in der X-Y-Ebene, auf den der Einheitsvektor in Z-Richtung

abgebildet werden soll.

3.17 PROC #ib(2," (3.17)")#perspective *#ie(2," (PROC)")#

(PICFILE VAR pf, REAL CONST x, y, z)

den Fluchtpunkt der Zentralperspektive an.

3.18 INT PROC #ib(2," (3.18)")#picture no *#ie(2," (PROC)")#

(PICFILE CONST pf)

3.19 INT PROC #ib(2," (3.19)")#pictures *#ie(2," (PROC)")#

(PICFILE CONST pf)

3.20 PROC #ib(2," (3.20)")#put *#ie(2," (PROC)")#

(FILE VAR dest, PICFILE CONST pf)

3.21 PROC #ib(2," (3.21)")#put picture *#ie(2," (PROC)")#

(PICFILE VAR pf, PICTURE CONST ins)

3.22 PROC #ib(2," (3.22)")#read picture *#ie(2," (PROC)")#

(PICFILE VAR pf, PICTURE VAR pic)

3.23 PROC #ib(2," (3.23)")#selected pen *#ie(2," (PROC)")#

(PICFILE VAR pf, INT CONST no, INT VAR color, thickness, linetype,

BOOL VAR visible)

eingestellten Werte ein, wobei 'no' die Werte 1 - 16 annehmen darf.

3.24 PROC #ib(2," (3.24)")#select pen *#ie(2," (PROC)")#

(PICFILE VAR pf, INT CONST no, INT CONST color, thickness, linetype,

BOOL CONST visible)

Stiftbreite, Art des Linenzuges ein, wobei 'no' die Werte 1 - 16

annehmen darf.

'visible' = FALSE bedeutet, das die mit diesem Stift gezogenen

Vordefiniert sind:

- color:

<0 - nicht standardisierte XOR-Modi

2 - rot

3 - blau

5 - schwarz

6 - weiss

n - Sonderfarben

- thickness:

- linetype:

0 - keine Linie

2 - gepunktete Linie

3 - kurz gesrichelte Linie

4 - lang gestrichelte Linie

5 - Strichpunktlinie

3.25 PROC #ib(2," (3.25)")#set values *#ie(2," (PROC)")#

(PICFILE VAR pf, ROW 3 ROW 2 REAL CONST,

ROW 2 ROW 2 REAL CONST,

ROW 4 REAL CONST,

ROW 2 REAL CONST, ROW 3 REAL CONST)

3.26 PROC #ib(2," (3.26)")#to eof *#ie(2," (PROC)")#

(PICFILE VAR pf)

3.29 PROC #ib(2," (3.29)")#up *#ie(2," (PROC)")#

(PICFILE VAR pf)

3.30 PROC #ib(2," (3.30)")#up *#ie(2," (PROC)")#

(PICFILE VAR pf, INT CONST step)

3.31 PROC #ib(2," (3.31)")#view *#ie(2," (PROC)")#

(PICFILE VAR pf, REAL CONST alpha, phi, theta)

Abbildung in Polarkoordinaten ein.

In der derzeitigen Version fehlerhaft !

3.33 PROC #ib(2," (3.33)")#view *#ie(2," (PROC)")#

(REAL CONST alpha)

Grad !

3.34 PROC #ib(2," (3.34)")#viewport *#ie(2," (PROC)")#

(PICFILE VAR pf, REAL CONST hor min, hor max, vert min, vert max)

Siehe dazu auch 'viewport' im 'transformation'-Paket (S. #topage("viewport")#).

3.35 PROC #ib(2," (3.35)")#window *#ie(2," (PROC)")#

(PICFILE VAR pf, REAL CONST x min, x max, y min, y max, z min, z max)

3.36 PROC #ib(2," (3.36)")#window *#ie(2," (PROC)")#

(PICFILE VAR pf, REAL CONST x min, x max, y min, y max)

3.37 PROC #ib(2," (3.37)")#write picture *#ie(2," (PROC)")#

(PICFILE VAR pf, PICTURE CONST new)

#page#

#ib(1)#4.0 Paket: 'devices'#ie(1)#

4.1 #ib(2," (4.1)")#TYPE PLOTTER#ie(2,"")#

seiner Station, seines Kanals, seines Namens sowie seiner Zeichen-

Descriptor, der zur Selektion verwendet wird, aus Station, Kanal

und Namen besteht; die Namen also nicht eindeutig vergeben

4.2 OP #ib(2," (4.2)")#:=#ie(2," (OP)")#

(PLOTTER VAR dest, PLOTTER CONST source)

4.3 BOOL OP #ib(2," (4.3)")#=#ie(2," (OP)")#

(PLOTTER CONST left, right)

4.4 INT PROC #ib(2," (4.4)")#actual plotter#ie(2," (PROC)")#

- Liefert die interne Verwaltungsnummer des eingestellten End-

4.5 INT PROC #ib(2," (4.5)")#channel#ie(2," (PROC)")#

(PLOTTER CONST plotter)

4.6 PROC #ib(2," (4.6)")#drawingarea#ie(2," (PROC)")#

(REAL VAR x cm, y cm, INT VAR x p, y p)

4.7 PROC #ib(2," (4.7)")#drawingarea#ie(2," (PROC)")#

(REAL VAR x cm, y cm, INT VAR x p, y p, PLOTTER CONST plotter)

von 'plotter' ein.

4.8 PROC #ib(2," (4.8)")#install plotter#ie(2," (PROC)")#

(TARGET VAR new descriptors)

seitig, d.h. die Ansteuerung fehlt).

4.9 TEXT PROC #ib(2," (4.9)")#name#ie(2," (PROC)")#

- Liefert den Namen von 'plotter'

4.10 PLOTTER PROC #ib(2," (4.10)")#no plotter#ie(2," (PROC)")#

4.11 PLOTTER PROC #ib(2," (4.11)")#plotter#ie(2," (PROC)")#

4.12 PLOTTER PROC #ib(2," (4.12)")#plotter#ie(2," (PROC)")#

(TEXT CONST descriptor)

'descriptor' hat folgendes Format:

4.13 TEXT PROC #ib(2," (4.13)")#plotterinfo#ie(2," (PROC)")#

(TEXT CONST descriptor, INT CONST length)

'descriptor' in aufbereiteter Form wiedergibt.

Format von 'descriptor' s.o.

4.14 THESAURUS PROC #ib(2," (4.14)")#plotters#ie(2," (PROC)")#

4.15 PROC #ib(2," (4.15)")#select plotter#ie(2," (PROC)")#

(PLOTTER CONST plotter)

4.16 PROC #ib(2," (4.16)")#select plotter#ie(2," (PROC)")#

(TEXT CONST descriptor)

4.17 PROC #ib(2," (4.17)")#select plotter#ie(2," (PROC)")#

4.18 INT PROC #ib(2," (4.18)")#station#ie(2," (PROC)")#

(PLOTTER CONST plotter)

#page#

#type("pica")##on("u")##ib(1)#Teil 2.1: Operationen des 'device interface'#ie(1)##off("u")##type("prop.lq")#

#free(0.5)#

Das automatisch vom 'GRAPHIK.Configurator' anhand von Konfigurationsda-

teien erstellte Paket 'device interface' realisiert die normierte, jedoch von

#ib(1)#1.0 Paket: 'device interface'#ie(1)#

1.1 INT PROC #ib(2," (1.1)")#background#ie(2," (PROC)")#

1.2 PROC #ib(2," (1.2)")#background#ie(2," (PROC)")#

(INT CONST color no)

1.3 PROC #ib(2," (1.3)")#box#ie(2," (PROC)")#

(INT CONST x1, y1, x2, y2, pattern)

1.4 PROC #ib(2," (1.4)")#circle#ie(2," (PROC)")#

(INT CONST x, y, rad, from, to)

Radius 'rad' mit dem Anfangswinkel 'from' und dem Endwinkel 'to'.

1.5 PROC #ib(2," (1.5)")#clear#ie(2," (PROC)")#

die Zeichenposition auf '0;0' und die Standardfarben

gesetzt werden.

1.6 PROC #ib(2," (1.6)")#clear#ie(2," (PROC)")#

(BOOL CONST onoff)

von 'clear' wirkungslos sind; mit TRUE werden sie entsprechend

wieder aktiviert.

1.7 INT PROC #ib(2," (1.7)")#color#ie(2," (PROC)")#

(INT CONST color no)

normierten RGB-Code von 0-999.

1.8 INT PROC #ib(2," (1.8)")#colors#ie(2," (PROC)")#

1.9 PROC #ib(2," (1.9)")#draw to#ie(2," (PROC)")#

(INT CONST x, y)

1.10 PROC #ib(2," (1.10)")#endplot#ie(2," (PROC)")#

- Wartet auf eine Eingabe des Benutzers und beendet dann die

graphische Ausgabe; ggf. durch Umschalten in den Text-Modus.

Bildschirm erhalten bleiben.

1.11 PROC #ib(2," (1.11)")#end plot#ie(2," (PROC)")#

(BOOL CONST onoff)

von 'endplot' wirkungslos sind; mit TRUE werden sie entsprechend

wieder aktiviert.

1.12 PROC #ib(2," (1.12)")#fill#ie(2," (PROC)")#

(INT CONST x, y, INT CONST pattern)

1.13 INT PROC #ib(2," (1.13)")#foreground#ie(2," (PROC)")#

1.14 PROC #ib(2," (1.14)")#foreground#ie(2," (PROC)")#

(INT CONST color no)

1.15 PROC #ib(2," (1.15)")#get cursor#ie(2," (PROC)")#

(INT VAR x, y, TEXT VAR exit char)

einer Position mittels eines graphischen Cursors (i.d.R.

Taste.

1.16 BOOL PROC #ib(2," (1.16)")#graphik cursor#ie(2," (PROC)")#

- Diese Prozedur gibt an, ob graphische Eingabeoperationen und

1.17 PROC #ib(2," (1.17)")#graphik cursor#ie(2," (PROC)")#

(INT CONST x, y, BOOL CONST onoff)

1.18 PROC #ib(2," (1.18)")#home#ie(2," (PROC)")#

- Positioniert die aktuelle Zeichenposition auf den Punkt '0;0'; bei

eingeschaltetem graphischen Cursor diesen auf die Mitte der

1.19 PROC #ib(2," (1.19)")#init plot#ie(2," (PROC)")#

(schaltet ggf. in den Graphik-Modus), wobei der Bildschirm jedoch

1.20 PROC #ib(2," (1.20)")#move to#ie(2," (PROC)")#

(INT CONST xp, yp)

- Die Position 'xp;yp' wird neue Stiftposition; die Wirkung ist unde-

1.21 PROC #ib(2," (1.21)")#prepare#ie(2," (PROC)")#

den entsprechenden Kanal angekoppelt, und andere Tasks am An-

koppeln gehindert (z.B. 'stop' des PRINTER-Servers). Dabei wird die

Prozedur erst dann verlassen, wenn die Aktion erfolgreich been-

1.23 PROC #ib(2," (1.23)")#setmarker#ie(2," (PROC)")#

(INT CONST xp, yp, type)

- Zeichnet an der Position 'xp;yp' eine Markierung; wobei die Wir-

Als 'type' sollten vorhanden sein:

0 - Kreuz '+'

1 - Kreuz diagonal 'x'

- weitere beliebig

1.24 PROC #ib(2," (1.24)")#setpalette#ie(2," (PROC)")#

setzten Farben.

1.25 PROC #ib(2," (1.25)")#setpixel#ie(2," (PROC)")#

1.26 PROC #ib(2," (1.26)")#stdcolors#ie(2," (PROC)")#

- Initialisiert die Paket-Intern verwendete Farbtabelle auf die

werden.

1.27 PROC #ib(2," (1.27)")#stdcolors#ie(2," (PROC)")#

(BOOL CONST onoff)

von 'stdcolors' wirkungslos sind; mit TRUE werden sie entspre-

chend wieder aktiviert.

#page#

Die Pakete zur Ausgabe von Graphiken (PICFILES) sind in der Datei

'GRAPHIK.Basis' enthalten, und realisieren folgende Leistungen:

- Im Datentyp PICTURE bzw. PICFILE in Codierter Form verwendete Ausgabe-

- Kommunikations- und Kontrolloperationen auf die Task 'PLOT' zur

indirekten Ausgabe von PICFILES.

- Ausgabeoperationen auf den Datentyp PICTURE bzw. PICFILE unter Be-

sich um virtuelle Koordinaten, d.h. die Ausgabe-Parameter wie 'viewport' und

#ib(1)#2.0 Paket: 'basisplot'#ie(1)#

2.1 PROC #ib(2," (2.1)")#bar *#ie(2," (PROC)")#

(INT CONST x, y, height, width, pattern)

'width/height' mit dem Muster 'pattern', wobei 'x;y' die untere linke

Ecke des Rechtecks angibt.

Als 'pattern' z.Zt. implementiert:

3 - horizontal schraffiert

4 - vertikal schraffiert

5 - horizontal und vertikal schraffiert

2.2 PROC #ib(2," (2.2)")#bar *#ie(2," (PROC)")#

(REAL CONST height, width, INT CONST pattern)

- siehe oben, jedoch mit Ausgangspunkt an der aktuellen Zeichen-

tale Position der vertikalen Symmetrieachse des Rechtecks angibt.

2.3 PROC #ib(2," (2.3)")#beginplot#ie(2," (PROC)")#

Startzustand versetzt wird, und dem Transformationspaket die

2.4 PROC #ib(2," (2.4)")#box *#ie(2," (PROC)")#

des verwendeten Teiles).

2.5 PROC #ib(2," (2.5)")#circle *#ie(2," (PROC)")#

(REAL CONST rad, from, to, INT CONST pattern)

- Zeichnet an aktuellen Position einen Kreis od. ein Kreissegment

des Radius 'rad'; beginnend bei 'from' bis zum Endwinkel 'to' und

implementiert).

2.6 PROC #ib(2," (2.6)")#draw *#ie(2," (PROC)")#

2.9 PROC #ib(2," (2.9)")#draw *#ie(2," (PROC)")#

(REAL CONST x, y)

2.10 PROC #ib(2," (2.10)")#draw *#ie(2," (PROC)")#

(TEXT CONST text, REAL CONST angle, height, width)

- Zeichnet den TEXT 'text' ab der aktuellen Zeichenposition unter

2.11 PROC #ib(2," (2.11)")#draw *#ie(2," (PROC)")#

- s.o., jedoch in Standard-Ausrichtung (0 Grad) und

2.12 PROC #ib(2," (2.12)")#draw cm *#ie(2," (PROC)")#

(REAL CONST x cm, y cm)

2.16 PROC #ib(2," (2.16)")#hidden lines *#ie(2," (PROC)")#

(BOOL CONST visible)

gabe ein (FALSE) bzw. aus.Ist dieser Modus eingeschaltet, so werden

Linien.

2.17 PROC #ib(2," (2.17)")#linetype#ie(2," (PROC)")#

(INT CONST line no, TEXT CONST bitpattern)

'1' bestehen sollte.

2.18 PROC #ib(2," (2.18)")#move *#ie(2," (PROC)")#

2.20 PROC #ib(2," (2.20)")#move *#ie(2," (PROC)")#

(REAL CONST x, y)

2.21 PROC #ib(2," (2.21)")#move cm#ie(2," (PROC)")#

(REAL CONST x cm, y cm)

2.24 PROC #ib(2," (2.24)")#move r *#ie(2," (PROC)")#

(REAL CONST d x, d y)

2.25 PROC #ib(2," (2.25)")#pen *#ie(2," (PROC)")#

(INT CONST background, foreground, thickness, linetype)

naten den Hintergrund 'background'; die Schreibfarbe

Linientyp 'linetype' (i.d.R. 1-6). Vergleiche 'select pen'.

2.26 PROC #ib(2," (2.26)")#reset *#ie(2," (PROC)")#

- Die mit 'hidden lines (FALSE)' vektorisiert abgespeicherte

2.27 PROC #ib(2," (2.27)")#reset linetypes *#ie(2," (PROC)")#

- Setzt die Linientypen 1-6 auf Standard-Linientypen: 1 - durch-

2 - gepunktete Linie

3 - kurz gestrichelte Linie

4 - lang gestrichelte Linie

2.29 PROC #ib(2," (2.29)")#where *#ie(2," (PROC)")#

(REAL VAR x, y, z)

2.30 PROC #ib(2," (2.30)")#where *#ie(2," (PROC)")#

(REAL VAR x, y)

2.31 PROC #ib(2," (2.31)")#zeichensatz *#ie(2," (PROC)")#

(TEXT CONST zeichenname)

tungen.

#page#

#ib(1)#3.0 Paket: 'plot interface'#ie(1)#

3.2 PROC #ib(2," (3.2)")#erase#ie(2," (PROC)")#

(TEXT CONST picname, PLOTTER CONST plotter)

Graphik-Ausgabe gespoolte task-eigene PICFILE 'picname'.

3.3 PROC #ib(2," (3.3)")#erase#ie(2," (PROC)")#

(THESAURUS CONST piclist, PLOTTER CONST plotter)

direkten Graphik-Ausgabe gespoolten task-eigenen PICFILES.

3.4 BOOL PROC #ib(2," (3.4)")#exists#ie(2," (PROC)")#

(TEXT CONST picname, PLOTTER CONST plotter)

'picname' zur indirekten Graphik-Ausgabe gespoolt wird.

Bei Aufruf aus 'GRAPHIK' kann auch die Existenz fremder zur Aus-

gabe gespoolter PICFILES erfragt werden.

(TEXT CONST picname, PLOTTER CONST plotter)

- Zieht das im Spool 'plotter' zur indirekten Ausgabe gespoolte

PICFILE 'picname' an die erste Stelle der Warteschlange. Der Auf-

3.6 PROC #ib(2," (3.6)")#generate plotmanager#ie(2," (PROC)")#

- Erzeugt die Task 'PLOT', in der dann im Hintergrund der Plot-

manager insertiert wird. Dabei darf 'PLOT' zuvor nicht existieren,

3.7 PROC #ib(2," (3.7)")#halt#ie(2," (PROC)")#

(PLOTTER CONST plotter)

- Unterbindet die weitere indirekte Graphik-Ausgabe aus dem Spool

'plotter'; eine aktuell laufende Ausgabe wird jedoch nicht ab-

3.8 PROC #ib(2," (3.8)")#list#ie(2," (PROC)")#

(FILE VAR list file, PLOTTER CONST plotter)

'plotter'.

3.9 PROC #ib(2," (3.9)")#list#ie(2," (PROC)")#

(PLOTTER CONST plotter)

3.10 THESAURUS PROC #ib(2," (3.10)")#picfiles#ie(2," (PROC)")#

- Liefert eine Liste der Namen aller in der Task enthaltenen

(PLOTTER CONST plotter)

- Nimmt die zuvor mit 'halt','wait for halt','stop' oder spoolseitig

unterbrochene indirekte Graphik-Ausgabe des Spools 'plotter'

3.14 PROC #ib(2," (3.14)")#stop#ie(2," (PROC)")#

(PLOTTER CONST plotter)

- Unterbricht sofort die aktuell laufende Ausgabe des Spools

das PICFILE, das aktuell ausgegeben wurde, erneut an erster

Steller der Warteschlange eingetragen.

4.1 PROC #ib(2," (4.1)")#plot *#ie(2," (PROC)")#

(PICTURE CONST picture)

- Ausgabe der Objektebene 'picture', unter Verwendung des in

4.2 PROC #ib(2," (4.2)")#plot *#ie(2," (PROC)")#

(PICFILE CONST pf)

'pf' mit 'select pen';'window';'viewport' usw. eingestellten

4.3 PROC #ib(2," (4.3)")#plot *#ie(2," (PROC)")#

(TEXT CONST picfile name)

#free(0.5)#

#goalpage("newconf")#

Die MPG-EUMEL-Graphik besitzt eine normierte Schnittstelle zu allen graphischen

Erzeugung graphischer Primitiva wie Gerade, Kreis, Rechteck und zur Be-

rechnung der konkreten Abbildung graphischer Objekte sowie zur Realisa-

diese Dateien an der Namensendung '.GCONF', und bietet diese zu

Programmbeginn zur Auswahl an.

und zwischengespeichert.

interface' in der Datei 'GRAPHIK.Configuration', indem die zwischengespei-

Einbindung ins Graphiksystem vom Konfigurationsprogramm vorgenommen

wird.

#page#

#type("pica")##on("u")##ib(1)#Teil 3.2: Erstellung der Konfigurationsdateien#ie(1)##off("u")##type("prop.lq")#

#free(0.5)#

tion der geforderten Leistungen und weitere Verwaltungs- und Berech-

nungsoperationen.

Das Konfigurationsprogramm erkennt die relevanten Daten bzw. Quelltexte

Prozedurdeklarationen, wobei die Namensgebung hinsichtlich des Pro-

(Semikolon, Doppelpunkt) fortzulassen.

Derartige Fehler werden jedoch i.d.R. vom Konfigurationsprogramm

zeduren nicht erkannt, sondern erst beim Compilieren des Gesamt-Paketes

vom ELAN-Compiler gemeldet werden.

(Die Korrektur im Gesamt-Paket sollte unterlassen werden, vielmehr ist

der Fehler in der entsprechenden Konfigurationsdatei zu beheben, falls

wurde.)

liche Objekte (Prozeduren, LET-Objekte, Variablen) einfach mit ein-

werden (z.B. Punkt am Ende des Prozedurrumpfes) nicht vorkommen

- Nicht realisierbare Pseudo-Prozeduren mit leerem Rumpf enthalten

Namensgebung: "ENVIRONMENT.GCONF"

erfolgt.

Die in 'ENVIRONMENT.GCONF' zeilenweise enthaltenen Informationen werden

dem Benutzer bei der Auswahl der Konfigurationsdateien mit angeboten; er

Namensgebung: "Dateizweck" (also beliebig)

- 'std primitives'

derten, hardwareseitig aber eventuell nicht bereitgestellten

Leistungen wie 'circle' und 'box'.

- 'matrix printer'

wird.

- 'terminal plot'

Konfigurationsprogramm erkannt und behandelt:

1.1 #ib(2," (1.1)")#COLORS#ie(2,"")#

Syntax: COLORS "RGB-Kombinationen";

- Dient der Definition der Standard-Farben.

- "RGB-Kombinationen": (TEXT) Pro Farbe 3-ziffrige RGB-

Kombinationen in normierter

Notation

(jeder Farbanteil wird durch

die Ziffern 0-9 dargestellt;

eine anteilige Umrechnung

vorzunehmen).

Die erste RGB-Kombination

verwendet (i.d.R. 000), bei

also "000999" einzusetzen.

1.2 #ib(2," (1.2)")#EDITOR#ie(2,"")#

Syntax: EDITOR;

folgende Eingabeprozeduren vorhanden sind:

- 'graphik cursor'

- 'get cursor'

- 'set marker'

gelasssen werden, brauchen also nicht mit leerer Leistung

implementiert werden.

1.3 #ib(2," (1.3)")#INCLUDE#ie(2,"")#

Syntax: INCLUDE "Name der Includedatei";

1.4 #ib(2," (1.4)")#LINK#ie(2,"")#

Syntax: LINK <Station>/<Kanal>, .... ;

nummer unterschieden werden.

(eigene Station)

1.5 #ib(2," (1.5)")#PLOTTER#ie(2,"")#

<Xpixel>,<Ypixel>,<Xcm>,<Ycm>;

(eigene Station)

- <Xpixel> : (INT) X-Rasterkoordinate des letzten

Pixels in X-Richtung (i.d.R

adressierbare Pixel - 1)

- <Ypixel> : (INT) Y-Rasterkoordinate des letzten

Pixels in Y-Richtung (s.o.)

vermeiden)

#ib(1)#2.0 Pseudo-Prozeduren#ie(1)#

2.1 PROC #ib(2," (2.1)")#background#ie(2," (PROC)")#

Syntax: PROC background (INT VAR type):

- Stellt die Hintergrundfarbe 'type' ein. Ist bei monochromen End-

erbrachte Leistung kontrolliert werden kann.

2.2 PROC #ib(2," (2.2)")#box#ie(2," (PROC)")#

Syntax: PROC box (INT CONST x1, y1, x2, y2, pattern):

rufen werden.

werden, wobei von System nur 'pattern' = 0 verwendet wird, was ein

2.3 PROC #ib(2," (2.3)")#circle#ie(2," (PROC)")#

Syntax: PROC circle (INT CONST x, y, rad, from, to):

Koordinaten 'x;y', die auch neue Zeichenposition werden. 'rad' gibt

den Radius und 'from,to' den Start bzw. Endwinkel im mathematisch

positivem Sinne an.

circle' aus 'std.GCONF' mit gleichen Parametern aufgerufen werden.

2.4 PROC #ib(2," (2.4)")#clear#ie(2," (PROC)")#

Syntax: PROC clear:

Die Zeichenposition wird '0;0' und die Standardfarben werden

eingestellt.

2.5 PROC #ib(2," (2.5)")#drawto#ie(2," (PROC)")#

Syntax: PROC drawto (INT CONST x, y):

- Zieht von der aktuellen Zeichenposition eine Gerade zu den Ko-

2.6 PROC #ib(2," (2.6)")#endplot#ie(2," (PROC)")#

Syntax: PROC endplot:

in den Text-Modus, ggf. Cursor einschalten.

2.7 PROC #ib(2," (2.7)")#fill#ie(2," (PROC)")#

Syntax: PROC fill (INT CONST x, y, pattern):

Polygonen (rundum geschlossen), wobei die genau erbrachte Lei-

2.8 PROC #ib(2," (2.8)")#foreground#ie(2," (PROC)")#

Syntax: PROC foreground (INT VAR type):

- Stellt die Vordergrundfarbe 'type' ein. Ist bei monochromen

erbrachte Leistung kontrolliert werden kann.

2.9 PROC #ib(2," (2.9)")#get cursor#ie(2," (PROC)")#

Syntax: PROC get cursor (INT VAR x, y, TEXT VAR exit char):

char' und die aktuelle Position des Cursors in 'x;y' eingetragen.

Der Cursor sollte nur innerhalb dieser Prozedur beweglich sein,

aber immer sichtbar bleiben (falls er eingeschaltet ist).

2.10 PROC #ib(2," (2.10)")#graphik cursor#ie(2," (PROC)")#

Syntax: PROC graphik cursor (INT CONST x, y, BOOL CONST on):

(i.d.R Fadenkreuz) ein oder aus bzw. setzt ihn auf eine bestimmte

Position.

Mit 'on' = TRUE wird der Cursor dauerhaft! eingeschaltet bzw. neu

positioniert, falls er bereits eingeschaltet war.

Durch Einschalten des Cursors wird die Wirkung von 'home'

normal - 'home' positioniert die Zeichenposition auf

'0;0'

cursor - 'home' positioniert die Zeichenposition und

den graphischen Cursor auf die Mitte der

2.11 PROC #ib(2," (2.11)")#home#ie(2," (PROC)")#

Syntax: PROC home:

- Die Zeichenposition wird auf '0;0' eingestellt; ist ein graphischer

Cursor eingeschaltet, so sollte dieser, sowie die Zeichenposition,

2.12 PROC #ib(2," (2.12)")#initplot#ie(2," (PROC)")#

Syntax: PROC initplot:

Wechsel in den Graphik-Modus, ggf. Cursor abschalten.

2.13 PROC #ib(2," (2.13)")#moveto#ie(2," (PROC)")#

Syntax: PROC moveto (INT CONST x, y):

- Die Zeichenposition wird auf die Koordinaten 'x;y' gesetzt, bei

2.14 PROC #ib(2," (2.14)")#prepare#ie(2," (PROC)")#

Syntax: PROC prepare:

Die eigene Task sollte an den Kanal angekoppelt, und andere Tasks

ggf. am Ankoppeln gehindert bzw. abgekoppelt werden (z.B. der

PRINTER-Server bei Drucker-Graphik). Es darf erst nach erfolg-

2.15 PROC #ib(2," (2.15)")#set marker#ie(2," (PROC)")#

Syntax: PROC set marker (INT CONST x, y, type):

- Zeichnet an der Position 'x;y', die auch neue Zeichenposition wird,

verwendet werden:

0 - Kreuz '+'

1 - Kreuz diagonal 'x'

2.16 PROC #ib(2," (2.16)")#setpalette#ie(2," (PROC)")#

Syntax: PROC setpalette:

- Stellt die aktuell eingestellten RGB-Kombinationen auf dem End-

INT PROC colors

(abgeleitet aus den mit 'COLOR' angebenen

Standard-Kombinationen).

INT PROC color (INT CONST no)

bedeutet: Farbe nicht initialisiert oder existiert nicht.

2.17 PROC #ib(2," (2.17)")#setpixel#ie(2," (PROC)")#

#type("pica")##on("u")##ib(1)#Teil 4.1: Der Funktionenplotter 'FKT'#ie(1)##off("u")##type("prop.lq")#

#free(0.5)#

Funktionen Graphen erstellen. Diese Graphen werden im System gespeichert.

folgende Eigenschaften:

- Der Name der Zeichnung (zum Wiederfinden)

- Das Format

- Der Graph mit den Achsen bzw. dem Rahmen.

wobei der Name aller Zeichnungen mit "PICFILE." beginnt.

Es wird von FKT zwischen den Definitions- und Wertebereich einerseits

und dem Format anderseits unterschieden:

Wertebereich wird vom Rechner automatisch ermittelt.

- Das Format besteht aus der Angabe von vier Werten, die Auskunft

gezeichnet wird.

Kommandoebene verwendet wird.

#ib(1)#2.0 Das FKT-Menue#ie(1)#

Das Menue des Funktionenplotters ist wie folgt aufgebaut:

- in der obersten Zeile wird der eingegebene Funktionsterm angezeigt

- die nachfolgende Zeile zeigt in eckigen Klammern den Definitions-

gezeichnet wird.

- dann folgt ebenfalls in eckigen Klammern der von FKT selbst zu

ermittelnde Wertebereich der Funktion innerhalb des zuvor

ist der Dialogbereich, in dem weitere Anfragen an den Benutzer oder

auch Fehlermeldungen erscheinen.

- Unterhalb der Bildschirmmitte werden die unten beschriebenen

Zeichnung ausgegeben werden soll, kann mit den Tasten 'Links' bzw.

'Rechts' eingestellt werden, wobei der Name des aktuell eingestellten

- Als unterste Zeile der FKT-Tapete folgt der Eingabebereich, hier wird

der Benutzer zur Eingabe eines bei den Menuepunkten genannten

Tastendruck dort angezeigt.

#ib(1)#3.0 FKT-Menuepunkte#ie(1)#

abgebrochen werden, die Eingabe wird dann ignoriert, und im Dialog-

bereich erscheint die Fehlermeldung 'F E H L E R : Abgebrochen'.

3.1 #ib(2," (3.1)")#(f) Funktionsterm eingeben#ie(2,"")#

Im Dialogbereich wird die Eingabe des Funktionsterms erwartet, wobei

Es stehen alle mathematischen Funktionen des EUMEL-Systems zur

2*x

[2x]

sind (x) (sind : Sinus in Altgrad )

1/(x*x+1)

log10 (abs (sin (x) + 5)) (abs : Absolutbetrag )

IF x = 0 THEN 0 ELSE 1/x END IF

IF x < 0 THEN x ELIF x = 0 THEN 1 ELSE x*x END IF

dabei immer in der angegebenen Form (alle, in der angegebenen Reihen-

IF --+--> THEN --+--> ELSE --> END IF

| |

+--- ELIF --+

IF x <= 0 OR x > 100 THEN 0 ELSE x*x END IF

z.B.:

IF x = 0 THEN luecke ELSE 1/x END IF

IF x < -0.05 THEN -1/x ELIF x > 0.05 THEN 1/x ELSE luecke END IF

Erstellen des Wertebereichs eine entspr. Fehlermeldung ausgegeben.

Fehlerquelle: Der Funktionsterm ist fehlerhaft.

Es tauchen z.B. dem Rechner unbekannte Operationen auf,

Multiplikationszeichen fehlen, andere Symbole als 'x' wurden

3.2 #ib(2," (3.2)")#(d) Definitionsbereich waehlen#ie(2,"")#

Im Dialogbereich wird die Eingabe von Unter- und Obergrenze erwartet,

wobei Untergrenze < Obergrenze gilt, ansonsten wird die Eingabe der

Obergrenze nochmals gefordert.

Fehlerquelle: Der Funktionsterm ist noch nicht vorhanden.

3.3 #ib(2," (3.3)")#(w) Wertebereich ermitteln lassen#ie(2,"")#

3.4 #ib(2," (3.4)")#(z) Zeichnung anfertigen#ie(2,"")#

ausgegeben werden, wenn sie erzeugt ist.

Mit diesem Menuepunkt werden die Zeichnungen nur erstellt, d.h. der

somit mehrfach ausgegeben werden.

Existiert bereits eine Zeichnung gleichen Namens, so erscheint im

Dialogbereich eine Anfrage, wie verfahren werden soll, wobei

- <e> : Die neue Zeichnung, welche hiernach erstellt wird, wird an die

haft, wenn mehrere od. abschnittsweise definierte Graphen

auf in eine Zeichnung kommen sollen.

Die Eingabe anderer Buchstaben wird ignoriert.

Namen abgelegt wird.

Danach wird im Dialogbereich erfragt, ob und wie das Format der

Nachdem die Zeichnung erstellt wurde, was durch den

Graph gezeichnet werden soll eingegeben werden.

Fehlerquelle: Wertebereich ist noch nicht bestimmt (siehe 4).

ymin, bzw. xmax ist kleiner

oder gleich xmin.

Im Dialogbereich wird der Name der auszugebenden Zeichnung erfragt,

wobei die zuletzt bearbeitete Zeichnung angeboten wird.

Auswahl aller vorhanden Bilder, von denen eines zur Ausgabe

Danach kann wie oben nochmals das Format variiert werden.

zentriert am oberen Rand.

werden, liegt der Ursprung nicht innerhalb der Zeichnung, so wird

3.6 #ib(2," (3.6)")#(t) Wertetafel erstellen lassen#ie(2,"")#

Funktionswerte zeigt.

erstellte Wertetafel gezeigt.

und die Tafel neu erstellen lassen.

Nach Verlassen der Anzeige wird noch gefragt, ob die Wertetafel

gedruckt, und ob sie aufbewahrt werden soll.

Fehlerquelle: Definitionsbereich bzw. Funktionsterm ist noch nicht

sind.

3.7 #ib(2," (3.7)")#(l) Zeichnungen auflisten#ie(2,"")#

3.8 #ib(2," (3.8)")#(?) Hilfestellung#ie(2,"")#

Es wird eine Kurzanleitung gezeigt.

Die Arbeit mit dem Funktionsplotter wird beendet, in normalen Tasks

erscheint die Ebene, aus der 'FKT' mit 'fktplot' aufgerufen wurde.

Wird die Task 'FKT' mit 'q' verlassen, so wird dagegen die Task

Bei der Ermittlung des Wertebereiches und beim Erstellen des Funk-

lich, alle Punkte des Definitionsbereiches zu benutzen. Deshalb wird

der Definitionsbereich diskretisiert, d.h. es wird eine endliche An-

Hier kann die Zahl der angezeigten Nachkommastellen eingestellt

in der Anzeige Sterne (*************).

Anzahl Vorkommastellen + Anz. Nachkommastellen = 12.

3.12 #ib(2," (3.12)")#(e) Arbeit beenden#ie(2,"")#

Die Arbeit mit 'FKT' wird abgeschlossen, die Task vom Terminal

d.h. nach erneutem Ankoppeln erscheint wieder die FKT-Tapete. In der

Task FKT bleiben die Zeichnungen bei Verlassen mit 'e' erhalten (im

Gegensatz zum Verlassen mit 'q').

3.13 #ib(2," (3.13)")#(L) Zeichnungen loeschen#ie(2,"")#

Es erscheint eine Namensliste aller in der Task enthaltenen

3.14 #ib(2," (3.14)")#(A) Zeichnungen archivieren#ie(2,"")#

Tasks geschickt, oder auch auf Diskette geschrieben werden.

Dazu wird der MPG-Dateimanager 'dm' verwendet.

3.15 #ib(2," (3.15)")#(b) Zeichnungen beschriften#ie(2,"")#

Beschriftungen verfahren werden soll:

- <a> : Die Operation wird abgebrochen.

Nun wird die Farbgebung aller Beschriftungen erfragt,

Positionierung der Beschriftung in zwei Weisen angeboten:

- in cm : Die nachfolgend einzugebenden Werte werden als

cm-Angabe relativ zur unteren linken Ecke der Zeichnung

- in REAL: Die nachfolgend einzugebenden Werte werden als

Koordinatenangabe im Koordinatensystem der erstellten

mm).

vorgenommen werden sollen.

Fehlerquelle: Zeichnung existiert nicht.

#type("pica")##on("u")##ib(1)#Teil 4.2: Die TURTLE-Graphik#ie(1)##off("u")##type("prop.lq")#

#free(0.5)#

Zeichnungen zu erstellen. Sie basiert auf dem in LOGO verwendeten Modell, in

kann.Bei den Bewegungen, die vornehmlich relativ zur alten Position bzw.

gesteuerte Zeichnungen, wie z.B. die rekursiven 'Sierpinski' - bzw. 'Hilbert'-

"Funktionen".

1.5 PROC #ib(2," (1.5)")#forward to#ie(2," (PROC)")#

(REAL CONST x,y)

- Die Zeichenposition wird absolut auf die Position 'x;y' gesetzt, die

1.6 PROC #ib(2," (1.6)")#endturtle#ie(2," (PROC)")#

- Wurde die Graphik im Direktmodus ('begin turtle' ohne Parameter),

also auch sofort sichtbar erzeugt, so wird die Graphikausgabe in

ausgegeben.

1.7 PROC #ib(2," (1.7)")#pendown#ie(2," (PROC)")#

1.8 PROC #ib(2," (1.8)")#beginturtle#ie(2," (PROC)")#

(TEXT CONST picfile name)

werden. Auf dem Bildschirm geschieht nichts. Ist das Picfile schon

1.9 PROC #ib(2," (1.9)")#beginturtle#ie(2," (PROC)")#

- Leitet die direkte graphische Ausgabe einer TURTLE-Graphik ein,

Sinne.

1.11 BOOL PROC #ib(2," (1.11)")#pen#ie(2," (PROC)")#

ist, also ob Bewegungen Linien hervorrufen oder nicht.

1.12 PROC #ib(2," (1.12)")#getturtle#ie(2," (PROC)")#

absolut eingetragen.

#page#

Sorgfalt erstellt bzw. weiterentwickelt.

#page#

#bottom off#

#head#

#end#

#type("pica")##on("u")##ib(1)#Stichwortverzeichnis#ie(1)##off("u")##type("prop.lq")#

#free(0.5)#

actual plotter (PROC) ............................ 17 (4.4)

ALL (OP) ......................................... 27 (3.1)

angle (PROC) ..................................... 44 (1.1)

name (PROC) ...................................... 17 (4.9)

newvalues (PROC) ................................. 5 (1.4)

nilpicture * (PROC) .............................. 10 (2.24)

no plotter (PROC) ................................ 17 (4.10)

oblique * (PROC) ................................. 5 (1.5), 14 (3.16)

:= (OP) .......................................... 8 (2.2), 13 (3.2), 13 (3.3),

prepare (PROC) ................................... 21 (1.21), 36 (2.14)

put picture * (PROC) ............................. 14 (3.21)

put * (PROC) ..................................... 14 (3.20)

read picture * (PROC) ............................ 14 (3.22)

reset linetypes * (PROC) ......................... 26 (2.27)

reset * (PROC) ................................... 26 (2.26)

reset zeichensatz * (PROC) ....................... 26 (2.28)

rotate * (PROC) .................................. 11 (2.28), 11 (2.29)

save (PROC) ...................................... 28 (3.12), 28 (3.11)

selected pen * (PROC) ............................ 15 (3.23)

select pen * (PROC) .............................. 15 (3.24)

#type ("basker12")#

#on("italics")#Zweidimensionale PICTURE brauchen weniger Speicherplatz als dreidimen-

angegeben.#off("italics")#

#on("underline")#Picture-Prozeduren#off("underline")#

CAT

OP CAT (PICTURE VAR l, PICTURE CONST r)

* left dimension <> right dimension

* Picture overflow

PICTURE.

nilpicture

draw

PROC draw (PICTURE VAR p, TEXT CONST text)

Zweck: Der angegebene Text wird gezeichnet. Der Anfang ist dabei die aktuelle

* Picture overflow

PROC draw (PICTURE VAR p, TEXT CONST text, REAL CONST angle,

height, bright)

wird.

* Picture overflow

PROC draw (PICTURE VAR p, REAL CONST x, y, z)

Zweck: Zeichnen einer Linie von der aktuellen Position zur Position (x, y, z).

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is two dimensional

PROC draw (PICTURE VAR p, REAL CONST x, y)

Zweck: Zeichnen einer Linie von der aktuellen Position zur Position (x, y).

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is three dimensional

draw r PROC draw r (PICTURE VAR p, REAL CONST x, y, z)

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is two dimensional

PROC draw r (PICTURE VAR p, REAL CONST x, y)

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is three dimensional

Zweck: Zeichnen einer Linie von der aktuellen Position zur Position (x, y) cm.

Dabei werden die angegebenen Projektionsparameter nicht beachtet,

sondern die Angaben in #on("bold")#Zentimeter#off("bold")# berechnet.

* Picture overflow

Zu viele Befehle in einem PICTURE

draw cm r

PROC draw cm r (PICTURE VAR p, REAL CONST x, y)

Dabei werden die angegebenen Projektionsparameter nicht beachtet,

sondern die Angaben in #on("bold")#Zentimeter#off("bold")# berechnet.

* Picture overflow

Zu viele Befehle in einem PICTURE

move

PROC move (PICTURE VAR p, REAL CONST x, y, z)

Zweck: Die aktuelle Position wird auf (x, y, z) gesetzt.

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is two dimensional

PROC move (PICTURE VAR p, REAL CONST x, y)

Zweck: Die aktuelle Position wird auf (x, y) gesetzt.

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is three dimensional

move r

PROC move r (PICTURE VAR p, REAL CONST x, y, z)

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is two dimensional

PROC move r (PICTURE VAR p, REAL CONST x, y)

Position.

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is three dimensional

Zweck: Die aktuelle Position wird auf (x, y) cm gesetzt. Dabei werden die an-

gegebenen Projektionsparameter nicht beachtet, sondern die Angaben in #on("bold")#

Zentimeter#off("bold")# berechnet.

* Picture overflow

Zu viele Befehle in einem PICTURE

move cm r

PROC move cm r (PICTURE VAR p, REAL CONST x, y)

gegebenen Projektionsparameter nicht beachtet, sondern die Angaben in #on("bold")#

Zentimeter#off("bold")# berechnet.

* Picture overflow

Zu viele Befehle in einem PICTURE

Zweck: Die Prozedur zeichnet an der aktuellen Position einen Balken mit dem

Muster #on("italics")#pattern#off("italics")#: 0 = Leerer Balken

1 = Gepunkteter Balken

3 = Horizontale Linien

4 = Vertikale Linien

5 = Gekreuzte Linien

6 = Diagonale Linien von Links nach Rechts

7 = Diagonale Linien von Rechts nach Links

8 = Gekreuzte diagonale Linien.

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is three dimensional

PROC circle (PICTURE VAR p, REAL CONST from, to, INT CONST

pattern)

Zweck: Die Prozedur zeichnet an der aktuellen Position ein Kreissegment vom

* Picture overflow

Zu viele Befehle in einem PICTURE

* Picture is three dimensional

PROC pen (PICTURE VAR p, INT CONST pen)

Zweck: Setzen des (virtuellen) Stiftes eines PICTURE. Bei pen=0 wird das

Picture nicht gezeichnet.

* pen out of range

extrema

PROC extrema (PICTURE CONST p, REAL VAR x min, x max, y min, y

max)

* Picture is three dimensional

PROC extrema (PICTURE CONST p, REAL VAR x min, x max, y min, y

max, z min, z max)

* Picture is two dimensional

where

PROC where (PICTURE CONST p, REAL VAR x, y, z)

Zweck: Die Prozedur liefert die aktuelle Stiftposition (Angaben mit #on("italics")#cm#off("italics")# werden

* Picture is two dimensional

PROC where (PICTURE CONST p, REAL VAR x, y, z)

Zweck: Die Prozedur liefert die aktuelle Stiftposition (Angaben mit #on("italics")#cm#off("italics")# werden

* Picture is three dimensional

rotate:

PROC rotate (PICTURE VAR p, REAL CONST angle)

Zweck: Das PICTURE wird um den Punkt (0, 0) um den Winkel #on("italics")#angle#off("italics")# (im

Dabei werden nur die Werte von #on("italics")#draw, draw r, move #off("italics")# und #on("italics")#move r#off("italics")#

PROC rotate (PICTURE CONST p, REAL CONST phi, theta, lambda ) :

PICTURE 1-397

Zweck: Das PICTURE wird um den Winkel #on("italics")#lambda#off("italics")# um die Drehachse #on("italics")#(phi,

theta)#off("italics")# gedreht.

Dabei werden nur die Werte von #on("italics")#draw, draw r, move #off("italics")# und #on("italics")#move r#off("italics")#

stretch

PROC stretch (PICTURE VAR pic, REAL CONST sx, sy)

Faktor

s > 1 eine Streckung

0 < s < 1 eine Stauchung

Dabei werden nur die Werte von #on("italics")#draw, draw r, move #off("italics")# und #on("italics")#move r#off("italics")#

* Picture is three dimensional

PROC stretch (PICTURE VAR p, REAL CONST sx, sy, sz)

Zweck: s. o.

* Picture is two dimensional

translate

PROC translate (PICTURE VAR p, REAL CONST dx, dy)

Zweck: Das PICTURE wird um #on("italics")#dx#off("italics")# und #on("italics")#dy#off("italics")# verschoben.

Dabei werden nur die Werte von #on("italics")#draw, draw r, move #off("italics")# und #on("italics")#move r#off("italics")#

* Picture is three dimensional

PROC translate (PICTURE VAR p, REAL CONST dx, dy, dz)

Zweck: s. o.

* Picture is two dimensional

plot PROC plot (PICTURE CONST p)

Zweck: Das Picfile wird gezeichnet.

auch kein Stift gsetzt und die Projektionsparameter bleiben

#on("underline")#Graphische PICFILE-Prozeduren#off("underline")#

PROC plot (TEXT CONST name)

Zweck: Der PICFILE mit dem Namen #on("italics")#name#off("italics")# wird entsprechend der angegebenen

Darstellungsart gezeichnet. Diese Parameter (#on("italics")#perspective, orthographic,

* PICFILE does not exist

Es existiert kein PICFILE mit dem Namen #on("italics")#name#off("underline")#

PROC plot (PICFILE VAR p)

Zweck: Der PICFILE #on("italics")#p#off("italics")# wird entsprechend der angegebenen Darstellungsart ge-

#on("bold")#zweidimensional:#off("bold")#

obligat: #on("italics")#window#off("italics")# (zweidimensional)

select pen

PROC select pen (PICFILE VAR p, INT CONST pen, colour, thickness, line

type,

Darstellung des Bildes #on("italics")#p#off("italics")# soll dem #on("italics")#virtuellen#off("italics")# Stift #on("italics")#pen#off("italics")# ein realer Stift

ness#off("italics")# hat und dabei Linien mit dem Typ #on("italics")#line type#off("italics")# zeichnet. Es wird die

Wenn #on("italics")#hidden lines#off("italics")# auf TRUE gesetzt wird, werden bei dreidimensionalen

Zeichnungen die verdeckten Linien mitgezeichnet, ansonsten werden sie

zuerst gezeichnet werden.

Dabei gelten folgende Vereinbarungen:

#on("bold")#Farbe:#off("bold")# Negative Farben werden XOR gezeichnet (dunkel wird hell und

2 rot

3 blau

5 schwarz

> 6 nicht normierte Sonderfarben

1/10 mm.

#on("bold")#Linientyp:#off("bold")#

0 keine sichtbare Linie

2 gepunktete Linie

3 kurz gestrichelte Linie

4 lang gestrichelte Linie

#on("bold")#Verdeckte Linien:#off("bold")#

TRUE Verdeckte Linien werden mitgezeichnet

dimensionalen PICTURE)

* pen out of range

#on("italics")#pen#off("italics")# muss im Bereich 1-16 sein.

background

PROC background (PICFILE VAR p, INT CONST colour)

INT PROC background (PICFILE CONST p):

Zweck: Liefert die eingestellte Hintergrundfarbe.

diese nicht senkrecht zur Betrachtungsebene steht.

PROC view (PICFILE VAR p, REAL CONST phi, theta)

Betrachtungsrichtung durch die Polarwinkel #on("italics")#phi#off("italics")# und #on("italics")#theta#off("italics")# (im Gradmass)

angegeben werden. Voreingestellt ist #on("italics")#phi#off("italics")# = 0 und #on("italics")#theta#off("bold")# = 0, d.h. senk-

recht von oben.

Im Gegensatz zu #on("italics")#rotate#off("italics")# hat #on("italics")#view#off("italics")# keine Wirkung auf das eigentliche Bild

zwar aufeinanderfolgende #on("italics")#Rotationen#off("italics")#, #on("italics")#view#off("italics")# aber geht immer von der

Nullstellung aus. Auch kann das Bild durch eine #on("italics")#Rotation#off("italics")# ganz oder

teilweise aus oder in das Darstellungsfenster (#on("italics")#window#off("italics")# gedreht werden. Bei

wird mitgedreht.

PROC view (PICFILE VAR p, REAL CONST x, y, z)

Zweck: Wie oben, nur werden die Winkel nicht in Polarkoordinaten angegeben,

sondern es wird die Blickrichtung als Vektor in Karthesischen Koordina-

viewport

PROC viewport (PICFILE VAR p, REAL CONST hormin, hormax, vertmin,

vertmax) : 1-709

#on("italics")#hormin - hormax#off("italics")# in der Horizontalen,

#on("italics")#vertmin - vertmax#off("italics")# in der Vertikalen.

So liegt der linke untere Eckpunkt dann bei (#on("italics")#hormin, hormax#off("italics")#), der rechte

obere Eckpunkt bei (#on("italics")#hormax, vertmax#off("italics")#).

b) #on("bold")#Absolute Koordinaten#off("bold")#

Voreingestellt ist

viewport (0.0, 1.0, 0.0, 1.0)

ist. Da man oft quadratische Fenster (#on("italics")#window#off("italics")#) verwendet, wurde als

Hinweis: Mit der Prozedur #on("italics")#check limit#off("italics")# aus dem PACKET #on("italics")#basis plot#off("italics")# kann die

window

PROC window (PICFILE VAR p, REAL CONST x min, x max, y min, y max)

lende Fenster definiert. Alle Bildpunkte, deren X-Koordinaten im In-

tervall [#on("italics")#x min, x max#off("italics")#] und deren Y-Koordinaten im Bereich [#on("italics")#y min, y

(s.dort).

#ub# x max - x min #ue#

#ub# y max - y min #ue#

PROC window (PICFILE VAR p, REAL CONST x min, x max, y min, y max,

z min, z max)

Fenster definiert. Alle Bildpunkte, deren X-Koordinaten im Intervall [#on("italics")#x

min, x max#off("italics")#], deren Y-Koordinaten im Bereich [#on("italics")#y min, y max#off("italics")#] und

definierten Fenster. Dieses dreidimensionale Fenster (#on("italics")#Quader#off("italics")#) wird ent-

sprechend der eingestellten Projektionsart (orthographisch, perspektivisch

oder schiefwinklig) und den Betrachtungswinkeln (s. #on("italics")#view#off("italics")#) auf die spezi-

nicht mehr nur durch das Zusammenspiel von #on("italics")#window#off("italics")# und #on("italics")#viewport#off("italics")# zu

beschreiben. Hier spielen auch die Projektionsart und Darstellungswinkel

herein.

oblique:

PROC oblique (PICFILE VAR p, REAL CONST a, b)

Projektionsart eingestellt. Dabei ist (#on("italics")#a, b#off("italics")#) der Punkt auf der X-Y-

Ebene, auf den der Einheitsvektor der Z-Richtung abgebildet werden

soll.

orthographic

PROC orthographic (PICFILE VAR p)

Projektionsart eingestellt. Bei der orthographischen Projektion wird ein

jektionsebene dabgebildet.

perpective

PROC perspective (PICFILE VAR p, REAL CONST cx, cy, cz)

Projektionsart eingestellt. Der Punkt (#on("italics")#cx, 1/cy, cz#off("underline")#) ist der Fluchtpunkt der

Projektion, d. h. alle Parallen zur Z-Achse schneiden sich in diesem

Punkt.

extrema

PROC extrema (PICFILE VAR p, REAL VAR x min, x max, y min, y max)

PROC extrema (PICFILE VAR p, REAL VAR x min,x max,y min,y max,z

min,z max) : 1-651

#on("underline")#Prozeduren zur Manipulation von PICFILE#off("underline")#

:=

OP := (PICFILE VAR p, DATASPACE CONST d)

Zweck: Assoziert die PICFILE Variable #on("italics")#p#off("italics")# mit dem Datenraum #on("italics")#d#off("italics")# und initialisiert

* dataspace is no PICFILE

picture file

DATASPACE PROC picture file (TEXT CONST name)

get

PROC get (PICFILE VAR p, FILE VAR f)

Zweck: Liest den Inhalt eines PICFILE aus einem FILE. Die Informationen

Fehlerfall:

* Picfile overflow

werden.

to first pic

to pic

PROC to pic (PICFILE VAR p, INT CONST pos)

Zweck: Positioniert auf das PICTURE Nummer #on("italics")#pos#off("italics")#.

* Position underflow

Es wurde eine Position kleiner Null angegeben. * Position after

eof Es wurde versucht, hinter das Ende eines PICFILE zu positionieren

up

PROC up (PICFILE VAR p)

Fehlerfall:

* Position underflow

Es wurde versucht, vor das erste PICTURE zu positionieren

PROC up (PICFILE VAR p, INT CONST n)

Fehlerfall:

* Position underflow

Es wurde versucht, vor das erste PICTURE zu positionieren

down

PROC down (PICFILE VAR p)

Fehlerfall:

* Position after eof

Es wurde versucht, hinter das Ende eines PICFILE zu positionieren

PROC down (PICFILE VAR p, INT CONST n)

Fehlerfall:

* Position after eof

Es wurde versucht, hinter das Ende eines PICFILE zu positionieren

delete picture

PROC delete picture (PICFILE VAR p)

insert picture

PROC insert picture (PICFILE VAR p)

read picture

PROC read picture (PICFILE CONST p, PICTURE VAR pic)

put picture

PROC write picture (PICFILE VAR p, PICTURE CONST pic)

Zweck: Schreibt das PICTURE #on("italics")#pic#off("italics")# hinter das letzte PICTURE des PICFILE.

#page#

#on("italics")#Wo wir sind, da klappt nichts,

#type ("basker14")#

#on("bold")#Kurzbeschreibung des Graphik-Editors#off("bold")#

#off("revers")#

PICTURE PROC pic neu

PICFILE PROC picfile neu