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 --- |