1\ Words implementing frame drawing
2\ XXX Filled boxes are left as an exercise for the reader... ;-/
| 1\ Words implementing frame drawing
2\ XXX Filled boxes are left as an exercise for the reader... ;-/
|
3\ $FreeBSD: head/share/examples/bootforth/frames.4th 50476 1999-08-28 00:22:10Z peter $
| 3\ $FreeBSD: head/share/examples/bootforth/frames.4th 124676 2004-01-18 15:16:12Z nyan $
|
4
5marker task-frames.4th
6
7variable h_el
8variable v_el
9variable lt_el
10variable lb_el
11variable rt_el
12variable rb_el
13variable fill
14
| 4
5marker task-frames.4th
6
7variable h_el
8variable v_el
9variable lt_el
10variable lb_el
11variable rt_el
12variable rb_el
13variable fill
14
|
15\ Single frames
16196 constant sh_el
17179 constant sv_el
18218 constant slt_el
19192 constant slb_el
20191 constant srt_el
21217 constant srb_el
22\ Double frames
23205 constant dh_el
24186 constant dv_el
25201 constant dlt_el
26200 constant dlb_el
27187 constant drt_el
28188 constant drb_el
29\ Fillings
300 constant fill_none
3132 constant fill_blank
32176 constant fill_dark
33177 constant fill_med
34178 constant fill_bright
| 15s" arch-pc98" environment? [if]
16 \ Single frames
17 149 constant sh_el
18 150 constant sv_el
19 152 constant slt_el
20 154 constant slb_el
21 153 constant srt_el
22 155 constant srb_el
23 \ Double frames
24 149 constant dh_el
25 150 constant dv_el
26 152 constant dlt_el
27 154 constant dlb_el
28 153 constant drt_el
29 155 constant drb_el
30 \ Fillings
31 0 constant fill_none
32 32 constant fill_blank
33 135 constant fill_dark
34 135 constant fill_med
35 135 constant fill_bright
36[else]
37 \ Single frames
38 196 constant sh_el
39 179 constant sv_el
40 218 constant slt_el
41 192 constant slb_el
42 191 constant srt_el
43 217 constant srb_el
44 \ Double frames
45 205 constant dh_el
46 186 constant dv_el
47 201 constant dlt_el
48 200 constant dlb_el
49 187 constant drt_el
50 188 constant drb_el
51 \ Fillings
52 0 constant fill_none
53 32 constant fill_blank
54 176 constant fill_dark
55 177 constant fill_med
56 178 constant fill_bright
57[then]
|
35
| 58
|
36
| |
37: hline ( len x y -- ) \ Draw horizontal single line
38 at-xy \ move cursor
39 0 do
40 h_el @ emit
41 loop
42;
43
44: f_single ( -- ) \ set frames to single
--- 46 unchanged lines hidden --- | 59: hline ( len x y -- ) \ Draw horizontal single line
60 at-xy \ move cursor
61 0 do
62 h_el @ emit
63 loop
64;
65
66: f_single ( -- ) \ set frames to single
--- 46 unchanged lines hidden --- |