TITLE Geometry Library User Words

INCLUDE GEROMID.H
INCLUDE GEEXTDEC.H

*****************************************************************
* The user module contains the "xNames" - the user words.  These
* will be visible to the user.  The nibble that precedes each
* xName tells the parser that this is a non-algebraic.  Note that
* the user words are specified with the compiler directive
* "xNAME".
*****************************************************************
ASSEMBLE
        CON(1)  8
RPL
xNAME ACONE
::
  CK2&Dispatch REALREAL ( real real ) GEDoACone
;
*****************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME VCONE
::
  CK2&Dispatch REALREAL ( real real ) GEDoVCone
;
*****************************************************************