4 ; Draws horizontal and vertical rules for Sculptrix borders
6 ; © 1995-1998 Straylight
9 ;----- Licensing note -------------------------------------------------------
11 ; This file is part of Straylight's Sculptrix.
13 ; Sculptrix is free software; you can redistribute it and/or modify
14 ; it under the terms of the GNU General Public License as published by
15 ; the Free Software Foundation; either version 2, or (at your option)
18 ; Sculptrix is distributed in the hope that it will be useful,
19 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ; GNU General Public License for more details.
23 ; You should have received a copy of the GNU General Public License
24 ; along with Sculptrix. If not, write to the Free Software Foundation,
25 ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
27 ;----- Overview -------------------------------------------------------------
39 [ :LNOT::DEF:rules__dfn
44 ; On entry: R3 == left hand side of the icon
45 ; R4 == bottom y position
47 ; R6 == top y position
50 ; R9 == start position for mitring
52 ; On exit: R0-R6 corrupted
54 ; Use: Plots a vertical rule in the current colour.
60 ; On entry: R3 == unused
61 ; R4 == bottom y position
62 ; R5 == right hand side of the icon
63 ; R6 == top y position
66 ; R9 == start position for mitring
68 ; On exit: R0-R6 corrupted
70 ; Use: Plots a vertical rule in the current colour.
76 ; On entry: R3 == left hand side of the icon
78 ; R5 == right hand side of the icon
79 ; R6 == top y position
82 ; R9 == start position for mitring
84 ; On exit: R0-R6 corrupted
86 ; Use: Plots a horizontal rule in the current colour.
92 ; On entry: R3 == left hand side of the icon
94 ; R5 == right hand side of the icon
95 ; R6 == top y position
98 ; R9 == start position for mitring
100 ; On exit: R0-R6 corrupted
102 ; Use: Plots a horizontal rule in the current colour.
108 ; On entry: R3 == left hand side of the icon
110 ; R5 == right hand side of the icon
111 ; R6 == top y position
114 ; R9 == start position for mitring
116 ; On exit: R0-R6 corrupted
118 ; Use: Plots a horizontal rule in the current colour, without
123 ; --- rule_pBottom ---
125 ; On entry: R3 == left hand side of the icon
127 ; R5 == right hand side of the icon
128 ; R6 == top y position
131 ; R9 == start position for mitring
133 ; On exit: R0-R6 corrupted
135 ; Use: Plots a horizontal rule in the current colour, without
140 ; --- rule_border ---
142 ; On entry: R3 == left hand side of the icon
143 ; R4 == bottom edge of icon
144 ; R5 == right hand side of the icon
145 ; R6 == top y position
148 ; R9 == start position for mitring
150 ; On exit: R0-R6 corrupted
152 ; Use: Fills the icon in, and plots a border around it, using the
153 ; current foreground and background colours.
159 ;----- That's all, folks ----------------------------------------------------