COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	FROB DECLARATIONS
C00003 00003	PROCEDURE BUILD_FROB
C00006 ENDMK
C⊗;
COMMENT FROB DECLARATIONS;
ITEMVAR U_CIRCLE,IDXF,SIDXF;
ITEMVAR PEDESTAL,SHAFT,BORE,WINDOW_DRILL,SMALL_HOLE_DRILL,
	BEVELED_HOLE_DRILL,
	RECT_HOLE_DRILL,
	V_SMALL_HOLE_DRILL,
	INNER_CUT,
	KEY_SHAFT,
	KEY_SIDE,
	KEY_HOLE_DRILL,
	FROB;
PROCEDURE BUILD_FROB;
BEGIN
! procedure calls to build a frob;
U_CIRCLE←B_CIRC_FACE(0.5);
IDXF←B_XF(0,0,0,0,0,0,1);
SIDXF←B_XF(3,3,0,0,0,0,1);
PEDESTAL←B_CYL(0.2,2.0,2.0,LINEAR,U_CIRCLE,
		NAMELESS,NAMELESS,NAMELESS);
SHAFT←B_CYL(3.2,1.6,1.6,LINEAR,U_CIRCLE,NAMELESS,NAMELESS,NAMELESS);
BORE←B_CYL(3.0,1.4,1.4,LINEAR,U_CIRCLE,NAMELESS,NAMELESS,NAMELESS);
WINDOW_DRILL←B_CYL(1.0,0.65,0.65,LINEAR,U_CIRCLE,
		NAMELESS,NAMELESS,NAMELESS);
SMALL_HOLE_DRILL←B_CYL(1.0,0.1,0.1,LINEAR,U_CIRCLE,
		NAMELESS,NAMELESS,NAMELESS);
BEVELED_HOLE_DRILL←B_CYL(1.0,0.5,0.0,LINEAR,U_CIRCLE,
		NAMELESS,NAMELESS,NAMELESS);
RECT_HOLE_DRILL←B_CYL(1.0,1.0,1.0,LINEAR,B_RECT_FACE(0.2,0.25),
		NAMELESS,NAMELESS,NAMELESS);
V_SMALL_HOLE_DRILL←B_CYL(1.0,0.08,0.08,LINEAR,U_CIRCLE,
		NAMELESS,NAMELESS,NAMELESS);
INNER_CUT←B_CYL(0.15,1.5,1.5,LINEAR,U_CIRCLE,
		NAMELESS,NAMELESS,NAMELESS);
KEY_SHAFT←B_CYL(7.0,0.9,0.9,LINEAR,U_CIRCLE,
		NAMELESS,NAMELESS,NAMELESS);
KEY_SIDE←B_CYL(7.0,1.0,1.0,LINEAR,B_RECT_FACE(0.2,0.3),
		NAMELESS,NAMELESS,NAMELESS);
KEY_HOLE_DRILL←B_PLIST_BODY(
	{{B_PART(IDXF,KEY_SHAFT,UCOD,KEY_SHAFT,KEY_SHAFT),
	  B_PART(B_XF(0.45,0,0,0,0,0,1.),KEY_SIDE,
				UCOD,KEY_SIDE,KEY_SIDE)}});
FROB←B_PLIST_BODY(
	{{B_PART(SIDXF,PEDESTAL,UCOD,PEDESTAL,PEDESTAL),
	  B_PART(SIDXF,SHAFT,UCOD,SHAFT,PEDESTAL),
	  B_PART(SIDXF,BORE,SCOD,BORE,BORE),
	  B_PART(SIDXF,INNER_CUT,SCOD,INNER_CUT,INNER_CUT)}});
! ACTUALLY THERE IS MORE TO THIS BODY;
END;