;Place a sized ellipse to scale at the station and invert specified.  Also places a leader line and formatted text
;beginning with the size of the pipe represented.  It is for profiles with a
;vertical scale 10x the horizontal scale.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;
;		All rights reserved without prejudice.
;
;	Copyright:	3-2-95
;	Edited:		3-2-95
;
;
;
(DEFUN C:SXEL ( / smode clayr dimsc styldf stynm styft styht pt1 pt2 pt3 pt4 pt5 pt6)
  (setq smode (getvar"osmode"))
  (if dimscl nil (load"dimscl"))
  (dimscl)
  (if c:mklayr nil (load"mklayr"))(c:svlayr)
(if getstyle (getstyle "A")(progn (load "getstyle")(getstyle "A")))
  (setvar "osmode" 0)
  (if(not(or(= prod "ROAD")(= prod "WALK")(= prod "DRVW")(= prod "WATC")))
    (progn
      (setq sxpsz (uint 0 "" "Pipe size (inches) or <enter> for none" (if sxpsz sxpsz nil)))
      (setq pt1 (upoint 0 "" "Station and Elevation [enter (x,y) or pick]" nil nil))
    );progn
      (setq pt1 (upoint 0 "" "Station and Grade [enter (x,y) or pick]" nil nil))  
  );if
  (if sxpsz
    (setq pt2 (polar pt1 (/ pi 2.00)
              (if(>(*(/ 3.00 64.00)dimsc)(*(/ sxpsz 12.00)10.00))
                (*(/ 3.00 64.00)dimsc)
                (*(/ sxpsz 12.00)10.00)
              ))
          pt3 (if(>(*(/ 3.00 128.00)dimsc)(/ sxpsz 24.00))
                (strcat "@"(rtos(*(/ 3.00 128.00)dimsc))",0")
                (strcat "@"(rtos(/ sxpsz 24.00))",0")
              )
          pt4 (polar pt2 (/ pi 2.00) (* 0.0875 dimsc))
          pt5 (polar pt4 (/ pi 2.00) (* 3.0 dimsc))
          pt6 (polar(polar pt4 (/ pi 2.00)(* 0.75 dimsc)) pi (* 0.0875 0.625 dimsc))
    );setq
    (setq pt4 (polar pt1 (/ pi 2.00) (* 0.0875 dimsc))
    );setq
  );if    
    (setq teofx (car pt4))
    (if teoff
      (setq teoff (cons teofx (cdr teoff)))
    );if
    (setq teoff (upoint 1 "" "Top Limit of note" teoff teoff))
    (setq pt5 (cons(car pt4)(cdr teoff)))
    (setq pt6 (polar pt5 pi (* 0.0875 0.625 dimsc)))
  (if mklayr nil (load"mklayr"))
  (c:mklayr)
  (if sxpsz
    (command ".ellipse" pt1 pt2 pt3)
  );if
  (setq txhgt (* 0.0875 dimsc))
  (setq colr "1" modf "NOTE")
  (setq llt "-")
  (c:mklayr)
  (command ".line" pt4 pt5 "")
  (setq colr "2")
  (c:mklayr)
  (if sxpsz
    (command ".text" "j" "r" pt6 txhgt 90 (strcat(rtos sxpsz 2 0)"\" " (if pxtxt pxtxt "")))
    (command ".text" "j" "r" pt6 txhgt 90 (if pxtxt pxtxt ""))
  );if
  (setvar "osmode" smode)
  (c:rslayr)
  (getstyle "")
);defun