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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
INCLUDE "std primitives";
INCLUDE "matrix printer";
PLOTTER "NEC P3",3,15,1024,1024,21.68,21.68;
COLORS "000999";
(* Version vom 21.10.87 BJ *)
(******** Hilfsvariablen fuer nec-plot ***************)
LET nec x pixel = 1024,nec y pixel d 16 = 64;
LET nec y max = 1023;
LET BITLINE = ROW nec x pixel INT;
BOUND ROW nec y pixeld16 BITLINE VAR nec map;
BITLINE VAR nec nilline;
DATASPACE VAR nec ds;
INT VAR nec x,nec y;
(*****************************************************)
PROC prepare:
call (29, "", printer); (* wait for halt *)
continue (channel (plotter))
END PROC prepare;
PROC initplot:
INT VAR nec i;
FOR nec i FROM 1 UPTO nec x pixel REP
nec nilline[nec i] := 0
PER;
forget(nec ds);
nec ds := nilspace;
nec map := nec ds;
disable stop
END PROC initplot;
PROC endplot:
out(""27"T16");
INT VAR nec i;
FOR nec i FROM 1 UPTO necypixeld16 REP
nec out line (nec i)
PER;
out(""12"");
break(quiet);
call (26,"",printer); (* start spool *)
enable stop
END PROC endplot;
PROC nec out line (INT CONST i):
INT VAR c,j :: 1,d;
WHILE j <= nec x pixel REP
c := nec map[i][j];
d := 0;
WHILE j <= nec x pixel CAND nec map[i][j] = c REP
j INCR 1;
d INCR 1
PER;
IF j <= nec x pixel OR c <> 0
THEN TEXT VAR t :: text(d,4);
change all(t," ","0");
INT VAR kk :: c;rotate(kk,8);
out(""27"W"+t+code(c AND 255) + code(kk AND 255))
FI
PER;
out(""13""10"")
END PROC nec out line;
PROC clear:
INT VAR nec i;
FOR nec i FROM 1 UPTO nec y pixeld16 REP
nec map[nec i] := nec nilline
PER
END PROC clear;
PROC home:
move to (0,0)
END PROC home;
PROC moveto (INT CONST x,y):
nec x := x;
nec y := y
END PROC moveto;
PROC drawto (INT CONST x,y):
printer line (nec x+1, nec y max - nec y,x+1,nec y max - y,
PROC (INT CONST, INT CONST) nec p3 set pixel);
nec x:=x;nec y:=y
END PROC drawto;
PROC setpixel (INT CONST x,y):
setbit(nec map[(nec y max-y) DIV 16 + 1][x+1],(nec y max-y) AND 15)
END PROC setpixel;
PROC nec p3 set pixel (INT CONST x,y):
set bit(nec map[y DIV 16 + 1][x],y AND 15)
END PROC nec p3 set pixel;
BOOL PROC nec p3 is pixel (INT CONST x,y):
bit (nec map[y DIV 16 + 1][x],y AND 15)
END PROC nec p3 is pixel;
PROC foreground (INT VAR type):
type := 1; (* Nur Schwarz auf Weiss-Druck moeglich *)
END PROC foreground;
PROC background (INT VAR type):
type := 0;
END PROC background;
PROC setpalette:
END PROC setpalette;
PROC circle (INT CONST x,y,rad,from,to):
std circle (x,y,rad,from,to)
END PROC circle;
PROC box (INT CONST x1,y1,x2,y2,pattern):
std box (x1, y1, x2, y2, pattern)
END PROC box;
PROC fill (INT CONST x,y,pattern):
printer fill (x,x,nec y max - y,1,
BOOL PROC (INT CONST, INT CONST) nec p3 is pixel,
PROC (INT CONST, INT CONST) nec p3 set pixel)
END PROC fill;
|
