Contents || Index
04/22/2005

                                                                  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 ---------------------