;
; rules.sh
;
; Draws horizontal and vertical rules for Sculptrix borders
;
;  1995-1998 Straylight
;

;----- Licensing note -------------------------------------------------------
;
; This file is part of Straylight's Sculptrix.
;
; Sculptrix is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2, or (at your option)
; any later version.
;
; Sculptrix is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with Sculptrix.  If not, write to the Free Software Foundation,
; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

;----- Overview -------------------------------------------------------------
;
; Functions provided:
;
;  rule_left
;  rule_right
;  rule_top
;  rule_bottom
;  rule_pTop
;  rule_pBottom
;  rule_border

		[	:LNOT::DEF:rules__dfn
		GBLL	rules__dfn

; --- rule_left ---
;
; On entry:	R3 == left hand side of the icon
;		R4 == bottom y position
;		R5 == unused
;		R6 == top y position
;		R7 == pixel width
;		R8 == pixel height
;		R9 == start position for mitring
;
; On exit:	R0-R6 corrupted
;
; Use:		Plots a vertical rule in the current colour.

		IMPORT	rule_left

; --- rule_right ---
;
; On entry:	R3 == unused
;		R4 == bottom y position
;		R5 == right hand side of the icon
;		R6 == top y position
;		R7 == pixel width
;		R8 == pixel height
;		R9 == start position for mitring
;
; On exit:	R0-R6 corrupted
;
; Use:		Plots a vertical rule in the current colour.

		IMPORT	rule_right

; --- rule_top ---
;
; On entry:	R3 == left hand side of the icon
;		R4 == unused
;		R5 == right hand side of the icon
;		R6 == top y position
;		R7 == pixel width
;		R8 == pixel height
;		R9 == start position for mitring
;
; On exit:	R0-R6 corrupted
;
; Use:		Plots a horizontal rule in the current colour.

		IMPORT	rule_top

; --- rule_bottom ---
;
; On entry:	R3 == left hand side of the icon
;		R4 == unused
;		R5 == right hand side of the icon
;		R6 == top y position
;		R7 == pixel width
;		R8 == pixel height
;		R9 == start position for mitring
;
; On exit:	R0-R6 corrupted
;
; Use:		Plots a horizontal rule in the current colour.

		IMPORT	rule_bottom

; --- rule_pTop ---
;
; On entry:	R3 == left hand side of the icon
;		R4 == unused
;		R5 == right hand side of the icon
;		R6 == top y position
;		R7 == pixel width
;		R8 == pixel height
;		R9 == start position for mitring
;
; On exit:	R0-R6 corrupted
;
; Use:		Plots a horizontal rule in the current colour, without
;		mitring.

		IMPORT	rule_pTop

; --- rule_pBottom ---
;
; On entry:	R3 == left hand side of the icon
;		R4 == unused
;		R5 == right hand side of the icon
;		R6 == top y position
;		R7 == pixel width
;		R8 == pixel height
;		R9 == start position for mitring
;
; On exit:	R0-R6 corrupted
;
; Use:		Plots a horizontal rule in the current colour, without
;		mitring.

		IMPORT	rule_pBottom

; --- rule_border ---
;
; On entry:	R3 == left hand side of the icon
;		R4 == bottom edge of icon
;		R5 == right hand side of the icon
;		R6 == top y position
;		R7 == pixel width
;		R8 == pixel height
;		R9 == start position for mitring
;
; On exit:	R0-R6 corrupted
;
; Use:		Fills the icon in, and plots a border around it, using the
;		current foreground and background colours.

		IMPORT	rule_border

		]

;----- That's all, folks ----------------------------------------------------

		END
