6/17/2003

----------------  start LISP      source file with next line -----------------

;;; Example of a user defined      tool or function.

;;; This is a function definition      in LISP that can be loaded

;;; using 'TOOLS / Load Tool',      and used with 'TOOLS / command line'.

;;; (See 'HELP / TOOLS / Load-tool').

;;; The definition below can      also be pasted into the 

;;; 'TOOLS / command line' dialog      

;;; (which will look funny but      will still work).

;;; Eg:  after loading this      file then:

;;; 'TOOLS / command line'

;;; type (pythag 3 4)

;;; and see this in the command      result window:

;;;  (pythag 3 4)

;;;  5.0

(defun pythag (x y)

  (sqrt (+ (* x x) (* y y)))

  )

;;; Note that lines can be broken      up at any white space.

;;; Note that this function      is interpreted, not compiled, and will therefore      run more slowly.

;;; (Comment lines start with      semi-colons.)

--------------- end LISP source      file with previous line ---------------------