 ; Melon - draw in inches, create in millimeters.
 ; Copyright 1997 by Rocket Software
 ; 
 (DEFUN C:MELON (/ pa pb dirr lenp len)
  (setq pa (getpoint "Start/base: "))
  (setq pb (Getpoint pa "\nDirection: "))
  (setq dirr (angle pa pb))
  (setq lenp (distance pa pb))
  (setq len (getdist pa (strcat "\nLength (" (rtos lenp 2 2) " inches): ")))
  (if (null len) (setq len lenp))
  (setq pb (polar pa dirr (* 25.4 len)))
  (command ".line" pa pb "")
 (princ))