Contents || Index
12/12/2003

;; 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.)