chiark - git - mdw - ssr/blob - StraySrc/Sculptrix/sculptrix/sh/rules

   1 ;
   2 ; rules.sh
   3 ;
   4 ; Draws horizontal and vertical rules for Sculptrix borders
   5 ;
   6 ; © 1995-1998 Straylight
   7 ;
   8
   9 ;----- Licensing note -------------------------------------------------------
  10 ;
  11 ; This file is part of Straylight's Sculptrix.
  12 ;
  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)
  16 ; any later version.
  17 ;
  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.
  22 ;
  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.
  26
  27 ;----- Overview -------------------------------------------------------------
  28 ;
  29 ; Functions provided:
  30 ;
  31 ;  rule_left
  32 ;  rule_right
  33 ;  rule_top
  34 ;  rule_bottom
  35 ;  rule_pTop
  36 ;  rule_pBottom
  37 ;  rule_border
  38
  39                 [       :LNOT::DEF:rules__dfn
  40                 GBLL    rules__dfn
  41
  42 ; --- rule_left ---
  43 ;
  44 ; On entry:     R3 == left hand side of the icon
  45 ;               R4 == bottom y position
  46 ;               R5 == unused
  47 ;               R6 == top y position
  48 ;               R7 == pixel width
  49 ;               R8 == pixel height
  50 ;               R9 == start position for mitring
  51 ;
  52 ; On exit:      R0-R6 corrupted
  53 ;
  54 ; Use:          Plots a vertical rule in the current colour.
  55
  56                 IMPORT  rule_left
  57
  58 ; --- rule_right ---
  59 ;
  60 ; On entry:     R3 == unused
  61 ;               R4 == bottom y position
  62 ;               R5 == right hand side of the icon
  63 ;               R6 == top y position
  64 ;               R7 == pixel width
  65 ;               R8 == pixel height
  66 ;               R9 == start position for mitring
  67 ;
  68 ; On exit:      R0-R6 corrupted
  69 ;
  70 ; Use:          Plots a vertical rule in the current colour.
  71
  72                 IMPORT  rule_right
  73
  74 ; --- rule_top ---
  75 ;
  76 ; On entry:     R3 == left hand side of the icon
  77 ;               R4 == unused
  78 ;               R5 == right hand side of the icon
  79 ;               R6 == top y position
  80 ;               R7 == pixel width
  81 ;               R8 == pixel height
  82 ;               R9 == start position for mitring
  83 ;
  84 ; On exit:      R0-R6 corrupted
  85 ;
  86 ; Use:          Plots a horizontal rule in the current colour.
  87
  88                 IMPORT  rule_top
  89
  90 ; --- rule_bottom ---
  91 ;
  92 ; On entry:     R3 == left hand side of the icon
  93 ;               R4 == unused
  94 ;               R5 == right hand side of the icon
  95 ;               R6 == top y position
  96 ;               R7 == pixel width
  97 ;               R8 == pixel height
  98 ;               R9 == start position for mitring
  99 ;
 100 ; On exit:      R0-R6 corrupted
 101 ;
 102 ; Use:          Plots a horizontal rule in the current colour.
 103
 104                 IMPORT  rule_bottom
 105
 106 ; --- rule_pTop ---
 107 ;
 108 ; On entry:     R3 == left hand side of the icon
 109 ;               R4 == unused
 110 ;               R5 == right hand side of the icon
 111 ;               R6 == top y position
 112 ;               R7 == pixel width
 113 ;               R8 == pixel height
 114 ;               R9 == start position for mitring
 115 ;
 116 ; On exit:      R0-R6 corrupted
 117 ;
 118 ; Use:          Plots a horizontal rule in the current colour, without
 119 ;               mitring.
 120
 121                 IMPORT  rule_pTop
 122
 123 ; --- rule_pBottom ---
 124 ;
 125 ; On entry:     R3 == left hand side of the icon
 126 ;               R4 == unused
 127 ;               R5 == right hand side of the icon
 128 ;               R6 == top y position
 129 ;               R7 == pixel width
 130 ;               R8 == pixel height
 131 ;               R9 == start position for mitring
 132 ;
 133 ; On exit:      R0-R6 corrupted
 134 ;
 135 ; Use:          Plots a horizontal rule in the current colour, without
 136 ;               mitring.
 137
 138                 IMPORT  rule_pBottom
 139
 140 ; --- rule_border ---
 141 ;
 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
 146 ;               R7 == pixel width
 147 ;               R8 == pixel height
 148 ;               R9 == start position for mitring
 149 ;
 150 ; On exit:      R0-R6 corrupted
 151 ;
 152 ; Use:          Fills the icon in, and plots a border around it, using the
 153 ;               current foreground and background colours.
 154
 155                 IMPORT  rule_border
 156
 157                 ]
 158
 159 ;----- That's all, folks ----------------------------------------------------
 160
 161                 END