; ; plot.sh ; ; Plots border types ; ; © 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: ; ; plot_border ; plot_group ; plot_tnsBBox [ :LNOT::DEF:plot__dfn GBLL plot__dfn ; --- plot_border --- ; ; On entry: R0 == pointer to border type ; R1 == pointer to icon block ; R2,R3 == window origin position ; ; On exit: May return an error ; ; Use: Plots the given border type. IMPORT plot_border ; --- plot_group --- ; ; On entry: R0 == pointer to border type ; R1 == pointer to icon block ; R2,R3 == window origin position ; R6 == pointer to group title ; ; On exit: May return an error ; ; Use: Plots a group box. IMPORT plot_group ; --- plot_tnsBBox --- ; ; On entry: R1 == pointer to an icon block ; ; On exit: CS if sprite found, and ; R0-R3 == bounding box of icon ; R4 == icon flags word (modified) ; else CC and registers preserved ; ; Use: Works out where the text of the icon ought to be. (Actually ; the box returned is too wide, although this will probably ; be good enough for most purposes.) IMPORT plot_tnsBBox ] ;----- That's all, folks ---------------------------------------------------- END