--- ray/src/hd/sm_qtree.h	1998/08/25 11:03:27	3.3
+++ ray/src/hd/sm_qtree.h	2003/02/22 02:07:25	3.13
@@ -1,7 +1,4 @@
-/* Copyright (c) 1998 Silicon Graphics, Inc. */
-
-/* SCCSid "$SunId$ SGI" */
-
+/* RCSid: $Id: sm_qtree.h,v 3.13 2003/02/22 02:07:25 greg Exp $ */
 /*
  *  sm_qtree.h - header file for routines using spherical quadtrees.
  *
@@ -20,6 +17,15 @@
  *		< -1:	it is an index to a set of objects
  */
 
+typedef struct _FUNC {
+    int (*func)();
+    int (*func_after)();
+    int *argptr;
+}FUNC;
+
+#define F_FUNC(f) (f.func)
+#define F_FUNC2(f) (f.func_after)
+#define F_ARGS(f) (f.argptr)
 #define  QUADTREE		int
 
 #define  EMPTY		(-1)
@@ -34,6 +40,7 @@
 #define  QT_BLOCK(qt)		((qt)>>10)	/* quadtree block index */
 #define  QT_BLOCK_INDEX(qt)   (((qt)&0x3ff)<<2)	/* quadtree index in block */
 
+
 #ifndef  QT_MAX_BLK
 #ifdef  BIGMEM
 #define  QT_MAX_BLK	16383		/* maximum quadtree block */
@@ -50,34 +57,103 @@
 
 
 /* QUADTREE NODE FLAGS */
-#define QT_OFFSET(qt)		((qt)>>5)
-#define QT_F_BIT(qt)		((qt)&0x1f)
-#define QT_F_OP(f,qt,op)	((f)[QT_OFFSET(qt)] op (0x1<<QT_F_BIT(qt)))
-#define QT_IS_FLAG(qt)		QT_F_OP(quad_flag,qt,&)
-#define QT_SET_FLAG(qt)		QT_F_OP(quad_flag,qt,|=)
-#define QT_CLR_FLAG(qt)		QT_F_OP(quad_flag,qt,|=~)
+#define QT_IS_FLAG(qt)		IS_FLAG(quad_flag,qt)
+#define QT_SET_FLAG(qt)		SET_FLAG(quad_flag,qt)
+#define QT_CLR_FLAG(qt)		CLR_FLAG(quad_flag,qt)
+#define QT_LEAF_IS_FLAG(qt)	IS_FLAG(qtsetflag,QT_INDEX(qt))
+#define QT_LEAF_SET_FLAG(qt)	SET_FLAG(qtsetflag,QT_INDEX(qt))
+#define QT_LEAF_CLR_FLAG(qt)	CLR_FLAG(qtsetflag,QT_INDEX(qt))
 
-
 /* OBJECT SET CODE */
 #define QT_SET_CNT(s)          ((s)[0])
 #define QT_SET_NTH_ELEM(s,n)   ((s)[(n)])   
 
 #define QT_CLEAR_SET(s)        ((s)[0] = 0)
-#define QT_SET_NEXT_ELEM(p)    (*(p)++)
+#define QT_SET_NEXT_ELEM(p)    (*(++p))
 #define QT_SET_PTR(s)          (&((s)[1]))
 
 
-#define QT_MAX_SET        255
-#define MAXCSET           QT_MAX_SET*2
+#define QT_MAXSET        511
+#define MAXCSET          2*QT_MAXSET
+#define QT_MAXCSET       MAXCSET
 #ifndef QT_SET_THRESHOLD
-#define QT_SET_THRESHOLD  30  
+#define QT_SET_THRESHOLD 32  
 #endif
 
 #ifndef QT_MAX_LEVELS
-#define QT_MAX_LEVELS     17
+#define QT_MAX_LEVELS     10
 #endif
 
+#define QT_FILL_THRESHOLD 2
+#define QT_EXPAND   8
+#define QT_COMPRESS 16
+#define QT_DONE 32
+#define QT_MODIFIED 64
+
+#define QT_FLAG_FILL_TRI(f)  (((f)&0x7) == QT_FILL_THRESHOLD)
+#define QT_FLAG_UPDATE(f)    ((f)& (QT_EXPAND | QT_COMPRESS))
+#define QT_FLAG_IS_DONE(f)   ((f)& QT_DONE)
+#define QT_FLAG_SET_DONE(f)   ((f) |= QT_DONE)
+#define QT_FLAG_IS_MODIFIED(f)   ((f)& QT_MODIFIED)
+#define QT_FLAG_SET_MODIFIED(f)   ((f) |= QT_MODIFIED)
+
+#define qtSubdivide(qt) (qt = qtAlloc(),QT_CLEAR_CHILDREN(qt))
+#define qtSubdivide_tri(v0,v1,v2,a,b,c) (EDGE_MIDPOINT(a,v1,v2), \
+					 EDGE_MIDPOINT(b,v2,v0), \
+					 EDGE_MIDPOINT(c,v0,v1))
+ 
 extern QUADTREE  qtnewleaf(), qtaddelem(), qtdelelem();
 
 extern QUADTREE  *quad_block[QT_MAX_BLK];	/* quadtree blocks */
 extern int4  *quad_flag;			/* zeroeth quadtree flag */
+
+extern OBJECT	**qtsettab;		/* quadtree leaf node table */
+extern QUADTREE  qtnumsets;		/* number of used set indices */
+extern int4   *qtsetflag;
+#ifdef DEBUG
+extern OBJECT	*qtqueryset();
+#else
+#define qtqueryset(qt)	(qtsettab[QT_SET_INDEX(qt)])
+#endif
+#if 0
+#define qtremovelast(qt) ((*(qtqueryset(qt)))--)
+#endif
+#define qtinset(qt,id)	inset(qtqueryset(qt),id)
+#define qtgetset(os,qt)	setcopy(os,qtqueryset(qt))
+
+
+#define SIDES_GTR(b0,b1,b2,s0,s1,s2,a,b,c) \
+    (s0 = ((b0[0] > a?4:0) | (b1[0] > a?2:0) | (b2[0] > a?1:0)), \
+     s1 = ((b0[1] > b?4:0) | (b1[1] > b?2:0) | (b2[1] > b?1:0)), \
+     s2 = ((b0[2] > c?4:0) | (b1[2] > c?2:0) | (b2[2] > c?1:0)))
+
+#define SIDES_LESS(b0,b1,b2,s0,s1,s2,a,b,c) \
+    (s0 = ((b0[0] < a?4:0) | (b1[0] < a?2:0) | (b2[0] < a?1:0)), \
+     s1 = ((b0[1] < b?4:0) | (b1[1] < b?2:0) | (b2[1] < b?1:0)), \
+     s2 = ((b0[2] < c?4:0) | (b1[2] < c?2:0) | (b2[2] < c?1:0)))
+
+/* 
+QUADTREE qtRoot_point_locate(qt,q0,q1,q2,peq,pt,r0,r1,r2)
+   QUADTREE qt;
+   FVECT q0,q1,q2;
+   FPEQ peq;
+   FVECT pt;
+   FVECT r0,r1,r2;
+
+   Return the quadtree node containing pt. It is assumed that pt is in
+   the root node qt with ws vertices q0,q1,q2 and plane equation peq.
+   If r0 != NULL will return coordinates of node in (r0,r1,r2). 
+*/
+
+extern QUADTREE qtRoot_point_locate();
+extern QUADTREE qtRoot_add_tri();
+extern QUADTREE qtRoot_remove_tri();
+extern QUADTREE qtAdd_tri();
+extern QUADTREE qtRoot_visit_tri_edges();
+extern QUADTREE qtRoot_trace_ray();
+
+
+
+
+
+