include	"offsetsd3.i"
		include	"d3libs.i"

drawcolor	equ	$0f40
backcolor	equ	$0123
	
distant		equ	$2000
		OpenD3	cleanup
		
		Lib	D3,OpenD3Screen
		
		OpenD3Window	#0,#0,#310,#240,#1
		
		TestZero	d0,error

		ColorSet	#drawcolor,#backcolor	
		
		D3Dist		#distant
		move.l	#08,d7
		move.w	#$1000,d6		;kiertokulma
loop		move.w	d6,d1
		move.w	#$0600,d2
		move.w	#$0800,d0
		
		D3Rot	#$0600,d6,#$0800
		
		lea	nurkat(pc),a0
		add.w	#$02,12(a0)
		D3Cubic	nurkat
		add.w	#$0800,d6
		dbf	d7,loop
			

error		ClickD3Window	#1
clean		
		Lib	D3,CloseD3Screen		;closelibs
cleanup		CloseD3
		rts

		
_D3Base		dc.l 	0
nurkat		dc.w	$0400,$0200,$0000,$0600,-$0300,$0400

vari		dc.w	1


		end