1 \ Copyright (c) 2003 Scott Long <scottl@FreeBSD.org>
2 \ Copyright (c) 2012-2015 Devin Teske <dteske@FreeBSD.org>
5 \ Redistribution and use in source and binary forms, with or without
6 \ modification, are permitted provided that the following conditions
8 \ 1. Redistributions of source code must retain the above copyright
9 \ notice, this list of conditions and the following disclaimer.
10 \ 2. Redistributions in binary form must reproduce the above copyright
11 \ notice, this list of conditions and the following disclaimer in the
12 \ documentation and/or other materials provided with the distribution.
14 \ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 \ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 \ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 \ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 \ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 \ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 \ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 \ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 \ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 marker task-frames.4th
30 vocabulary frame-drawing
31 only forth also frame-drawing definitions
33 \ XXX Filled boxes are left as an exercise for the reader... ;-/
43 \ ASCII frames (used when serial console is detected)
44 45 constant ascii_dash
45 61 constant ascii_equal
46 124 constant ascii_pipe
47 43 constant ascii_plus
49 s" arch-pc98" environment? [if]
66 32 constant fill_blank
67 135 constant fill_dark
69 135 constant fill_bright
87 32 constant fill_blank
88 176 constant fill_dark
90 178 constant fill_bright
93 only forth definitions also frame-drawing
95 : hline ( len x y -- ) \ Draw horizontal single line
102 : f_ascii ( -- ) ( -- ) \ set frames to ascii
111 : f_single ( -- ) \ set frames to single
112 boot_serial? if f_ascii exit then
121 : f_double ( -- ) \ set frames to double
135 : vline ( len x y -- ) \ Draw vertical single line
146 : box ( w h x y -- ) \ Draw a box
147 2dup 1+ 4 pick 1- -rot
148 vline \ Draw left vert line
149 2dup 1+ swap 5 pick + swap 4 pick 1- -rot
150 vline \ Draw right vert line
151 2dup swap 1+ swap 5 pick 1- -rot
152 hline \ Draw top horiz line
153 2dup swap 1+ swap 4 pick + 5 pick 1- -rot
154 hline \ Draw bottom horiz line
155 2dup at-xy lt_el @ emit \ Draw left-top corner
156 2dup 4 pick + at-xy lb_el @ emit \ Draw left bottom corner
157 2dup swap 5 pick + swap at-xy rt_el @ emit \ Draw right top corner
158 2 pick + swap 3 pick + swap at-xy rb_el @ emit
165 only forth definitions