summaryrefslogtreecommitdiff
path: root/app/mpg/2.2/src/Muster
blob: cebb35ca27a59eb885ff2cdaded6efce808d8d20 (plain)
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
74
75
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;