;************************************************************************
;*
;*  EFT // ex-Impulse contribution 2 the great #amycoders *circlecompo*
;* ---------------------------------------------------------------------
;*  this routine will be compete with the other speed-optim conquerors
;*
;* ..... need any comment ? i dont think so.... its too silly.....;)
;*
;*
;*		-=*=-   Winners NEVER use TABLES !   -=*=-
;*
;************************************************************************

		CNOP 2,4			; hey! this line is enabled ? if not then should be deleted...
_line
_circle:
c

CIRCLE_DOTOUT	MACRO
		move.b	d3,(a0,d7.l)		; silly rutta need silly macro....;)
		ENDM

		move.w	#$100,a6		;.L may faster on 040/060.... but who care ?
		lsl.w	#8,d1
		move.b	d0,d1
		move.w	d2,d5
		move.w	d2,d4
		move.w	d5,d0
		lsl.w	#8,d0
		clr.l	d2
		clr.l	d6
.loop
		subq.w	#1,d4
		bpl.s	.skip
		subq.w	#1,d5
		add.w	d5,d4
		add.w	d5,d4
		sub.w	a6,d0
.skip
		move.w	d1,d7
		add.b	d2,d7			; oriX
		add.w	d0,d7			; oriY
	CIRCLE_DOTOUT
		move.b	d1,d7
		sub.b	d2,d7
	CIRCLE_DOTOUT
		sub.w	d0,d7
		sub.w	d0,d7
	CIRCLE_DOTOUT
		move.b	d1,d7
		add.b	d2,d7
	CIRCLE_DOTOUT

		sub.w	d2,d4			; yes.... ugly

		move.w	d1,d7
		add.b	d5,d7
		add.w	d6,d7
	CIRCLE_DOTOUT
		move.b	d1,d7
		sub.b	d5,d7
	CIRCLE_DOTOUT
		sub.w	d6,d7
		sub.w	d6,d7
	CIRCLE_DOTOUT
		move.b	d1,d7
		add.b	d5,d7
	CIRCLE_DOTOUT

		sub.w	d2,d4
		addq.w	#1,d2
		add.w	a6,d6
		cmp.w	d5,d2
		bmi.s	.loop
d
	rts