*******************************************************************
*								  *
*			THE 3D EDITOR  V1.1			  *
*		BY EUREKA FROM CONCEPT AUGUST 1991		  *
*								  *
*******************************************************************

	This util was made to make easier the conception of
3D object for your demos...

	Need the wonderfull REQ.LIBRARY thanks to it cause
if it not exist I never do this update, I'm so lazy ....



MAIN MENU:

	F1:  Ask how many points,lines and faces you want

	F2:  Line editor

	        Row keys to scroll the lines

		'return' or 'enter' to enter
		the line with the keypad

		1/Q 2/W keys to change the line

	F3:  Face editor

		Row keys scroll the faces and the '*'

		1/Q keys change the selected value


	F4:  Load file

		change object number with the keypad
		or just press return

	F5:  Save file

		Same

	F6:  Save ASCII file

		change object number will also change
		labels in the ASCII file



	HELP:
		Anim Switcher (click on the rotate incons
		after to make it move)


HOW TO ENTER COORDS:

		When the main menu is print you can enter
		the coords

		'enter' or 'return' to enter coords with 
		the keypad

		1/Q , A/Z  to change the X coord
		2/W , S/X  to change the Y coord
		3/E , D/C  to change the Z coord


THE ASCII FILE:

	The file is composed by 3 parts:

Tbl_Coords_Obj000			the coords of all the points
	dc.w	008			number of points
	dc.w	500,500,500		the 3 coords of a point	
	dc.w	500,500,-500
	dc.w	500,-500,500
	dc.w	500,-500,-500
	dc.w	-500,500,500
	dc.w	-500,500,-500
	dc.w	-500,-500,500
	dc.w	-500,-500,-500

Tbl_Lines_Obj000			the lines
	dc.w	012			number of lines
	dc.w	000,001			N° of the two points of the line
	dc.w	001,003
	dc.w	003,002
	dc.w	002,000
	dc.w	004,005
	dc.w	005,007
	dc.w	007,006
	dc.w	006,004
	dc.w	000,004
	dc.w	001,005
	dc.w	003,007
	dc.w	002,006

Tbl_Faces_Obj000			the faces
	dc.w	006			number of faces

	dc.w	005,001			number of point for this face, color
	dc.w	000,001,003,002,000	the points of the face
	dc.w	005,001
	dc.w	000,001,005,004,000
	dc.w	005,002
	dc.w	000,002,006,004,000
	dc.w	005,002
	dc.w	001,005,007,003,001
	dc.w	005,003
	dc.w	006,004,005,007,006
	dc.w	005,003
	dc.w	003,002,006,007,003


	The number after the labels is just the No of
the object



	If you want to change the N° of the point by the offset
in Tbl_Coords_Obj then use the following prg....


******** remake lines coords to tbl_coords offset
; a0 = Tbl_Lines_Objxxx
; d0/d1/d2/d3 are used

offset_line	move	(a0)+,d0
		subq	#1,d0
		moveq	#6,d1
loop_off_line	movem	(a0),d2/d3
		mulu	d1,d2
		mulu	d1,d3
		movem	d2/d3,(a0)
		lea	4(a0),a0
		dbra	d0,loop_off_line
		rts

******** remake faces coords to tbl_coords offset
; a0 = Tbl_Faces_Objxxx
; d0/d1/d2/d3 are used

offset_face	move	(a0)+,d0
		subq	#1,d0
		moveq	#6,d3
loop_off_face	move	(a0)+,d1
		subq	#1,d1
		lea	2(a0),a0
loop_off_face1	move	(a0),d2
		mulu	d3,d2
		move	d2,(a0)+
		dbra	d1,loop_off_face1
		dbra	d0,loop_off_face
		rts