;
; sculptrix.s
;
; Interface to Sculptrix SWIs
;
; © 1994-1998 Straylight
;

;----- Licensing note -------------------------------------------------------
;
; This file is part of Straylight's Steel library.
;
; Steel 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.
;
; Steel 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 Steel.  If not, write to the Free Software Foundation,
; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

		GET	libs:header
		GET	libs:swis

		AREA	|C$$Code|,CODE,READONLY

		IMPORT	visdelay_suspend
		IMPORT	visdelay_resume

		EXPORT	sculptrix_redrawWindow
sculptrix_redrawWindow
		MOV	a2,a1
		SWI	XSculptrix_RedrawWindow
		MOVVC	a1,#0
		MOVS	pc,lr

		EXPORT	sculptrix_doSlab
sculptrix_doSlab
		SWI	XSculptrix_DoSlab
		MOVVSS	pc,lr
		CMP	a4,#0
		STRNE	a3,[a4]
		MOV	a1,#0
		MOVS	pc,lr

		EXPORT	sculptrix_slabIcon
sculptrix_slabIcon
		SWI	XSculptrix_SlabIcon
		MOVVC	a1,#0
		MOVS	pc,lr

		EXPORT	sculptrix_unslabIcon
sculptrix_unslabIcon
		MOV	ip,sp
		STMFD	sp!,{v1,fp,ip,lr,pc}
		SUB	fp,ip,#4

		SUB	sp,sp,#8
		MOV	v1,a1
		MOV	a1,sp
		BL	visdelay_suspend
		MOV	a3,v1
		SWI	XSculptrix_UnslabIcon
		MOVVC	v1,#0
		MOVVS	v1,a1
		LDMIA	sp!,{a1,a2}
		BL	visdelay_resume
		MOV	a1,v1
		LDMDB	fp,{v1,fp,sp,pc}^

		EXPORT	sculptrix_boundingBox
sculptrix_boundingBox
		MOV	a2,a1
		SWI	XSculptrix_BoundingBox
		MOVS	pc,lr

		EXPORT	sculptrix_plotIcon
sculptrix_plotIcon
		SWI	XSculptrix_PlotIcon
		MOVVC	a1,#0
		MOVS	pc,lr

		EXPORT	sculptrix_plotGroupBox
sculptrix_plotGroupBox
		SWI	XSculptrix_PlotGroupBox
		MOVVC	a1,#0
		MOVS	pc,lr

		EXPORT	sculptrix_setSpriteArea
sculptrix_setSpriteArea
		SWI	XSculptrix_SetSpriteArea
		MOVVC	a1,#0
		MOVS	pc,lr

		EXPORT	sculptrix_updateIcon
sculptrix_updateIcon
		SWI	XSculptrix_UpdateIcon
		MOVVC	a1,#0
		MOVS	pc,lr

		EXPORT	sculptrix_slabColour
sculptrix_slabColour
		SWI	XSculptrix_SlabColour
		MOV	a1,a3
		MOVS	pc,lr

		END