1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
INCLUDE "Name der Include-Datei";
PLOTTER "Plottername",<Station>,<Kanal>,<Xpixel>,<Ypixel>,<Xcm>,<Ycm>;
LINK <Station>/<Kanal>,<Station>/<Kanal>....;
COLORS "<RGB-Kombinationen als 3-Byte Codefolge>";
.
.
.
<Hier koennen Endgeraetspezifische Prozeduren/Variablen (globalebene)
eingefuegt werden. Achtung! um Namenskonflikte mit globalobjekten
anderer Endgeraete zu vermeiden sollten die Namen dieser Objekte
auch stets den Endgeraet-Namen enthalten
(z.B. 'TEXT PROC videostar koordinaten (INT CONST x,y)')
>
PROC initplot:
Warnung: Da der Configurator den Prozedur-Rumpf in ein Refinement
verwandelt, muessen Namenskonflikte vermieden wrden !
END PROC initplot;
PROC endplot:
END PROC endplot;
PROC prepare:
END PROC prepare;
PROC clear:
END PROC clear;
PROC home:
END PROC home;
PROC moveto (INT CONST x,y):
END PROC moveto;
PROC drawto (INT CONST x,y):
END PROC drawto;
PROC setpixel (INT CONST x,y):
END PROC setpixel;
PROC foreground (INT CONST type):
END PROC foreground;
PROC background (INT CONST type):
END PROC background;
PROC setpalette:
END PROC setpalette:
PROC circle (INT CONST x,y,rad,from,to):
END PROC circle;
PROC box (INT CONST x1,y1,x2,y2,pattern):
END PROC box;
PROC fill (INT CONST x,y,pattern):
END PROC fill;
EDITOR; (* Durch EDITOR wird das optionale Vorhandensein nachfolgender
Editor-Befehle angezeigt *)
PROC get cursor (INT VAR x,y,TEXT VAR exit char):
END PROC get cursor;
PROC graphik cursor (INT CONST x,y,BOOL CONST on):
END PROC graphik cursor;
PROC set marker (INT CONST x,y,type):
END PROC set marker;
|
