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