_3DTEST_S	SET	1

	machine	68060
	fpu	1

	include	Macros.inc
	include	3DTest.inc
	include	3D.inc

	XDEF	_ThreeDTest

	xref	_AmiBall_object

	xref	_C2PFull
	xref	_SwitchBuffer
	xref	_LoadRGBx


CLRBUF	MACRO	; \1 = adr
LPCNT	SET	4
	movem.l	d0/a0,-(sp)
	move.l	#(64000/(4*LPCNT))-1,d0
	move.l	\1,a0
.l\@
	REPT	LPCNT
	clr.l	(a0)+
	ENDR
	dbra	d0,.l\@
	movem.l	(sp)+,d0/a0
	ENDM

_ThreeDTest:

	lea	RedPalette,a0
	movem.l	d0-7/a0-6,-(sp)
	jsr	_LoadRGBx
	movem.l	(sp)+,d0-7/a0-6

	lea.l	_AmiBall_object,a0
	M_ObjSetPosition a0, #1<<8, #1<<8, #5<<8

	move.l	#127,d7
.l1
	move.l	#$100,d0
	move.l	#$100,d1
	move.l	#$100,d2
	move.l	d7,d3
	asl.l	#1,d3
	move.l	#0,d3
	move.l	d7,d4
	move.l	d7,d5
	neg.l	d5
	move.l	#0,d5
	move.l	#_AmiBall_object,a0
	lea	OBJ_AXIS(a0),a0
	jsr	SetAxis


	move.l	#_AmiBall_object,a0
	jsr	TransformObject

	move.l	#_AmiBall_object,a0
	move.l	#chunky,a1
	jsr	RenderObject

	move.l	#chunky,a0
	move.l	d7,d0
	and.l	#1,d0
	movem.l	d0-7/a0-6,-(sp)
	jsr	_C2PFull
	movem.l	(sp)+,d0-7/a0-6

	movem.l	d0-7/a0-6,-(sp)
	jsr	_SwitchBuffer
	movem.l	(sp)+,d0-7/a0-6

	CLRBUF	#chunky

	dbra	d7,.l1

	rts



chunky:	ds.b	64000

	even
RedPalette:
INDEX	SET	0
	REPT	256
	dc.b	INDEX
	dc.b	0
	dc.b	0
	dc.b	0
INDEX	SET	INDEX+1
	ENDR
	

.