;Place a sized ellipse to scale at the station and invert supplied.
;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:	8-18-95
;	Edited:		8-18-95
;
(DEFUN C:PPS ( / smode clayr dimsc styldf stynm styft styht pt1 pt2 pt3 pt4 pt5 pt6)
  (setq smode (getvar"osmode")
        dimsc (getvar"dimscale")
  );setq
;  (if c:mklayr nil (load"mklayr"))(c:svlayr)
  (setvar "osmode" 0)
  (setq pppsz (uint 1 "" "Pipe size (inches)" pppsz))
  (setq tdzz (ureal 1 "" "Distance to top (feet)" tdzz))
  (setq pt0 (upoint 0 "" "Station and Elevation [enter (x,y) or pick]" nil nil))
  (setq pt1 (polar pt0 (* 1.5 pi) (+(*(/ pppsz 12)10)(* tdzz 10))))
  (setq pt2 (polar pt1 (/ pi 2.00)
            (if(>(*(/ 3.00 64.00)dimsc)(*(/ pppsz 12.00)10.00))
              (*(/ 3.00 64.00)dimsc)
              (*(/ pppsz 12.00)10.00)
            ))
        pt3 (if(>(*(/ 3.00 128.00)dimsc)(/ pppsz 24.00))
              (strcat "@"(rtos(*(/ 3.00 128.00)dimsc))",0")
              (strcat "@"(rtos(/ pppsz 24.00))",0")
            )
        pt4 (polar pt2 (/ pi 2.00) (* 0.125 dimsc))
        pt5 (polar pt4 (/ pi 2.00) (* 3.0 dimsc))
        pt6 (polar(polar pt4 (/ pi 2.00)(* 0.75 dimsc)) pi (* 0.125 0.625 dimsc))
  );setq
  (setq pt4 (polar pt1 (/ pi 2.00) (* 0.125 dimsc))
  );setq
;  (if mklayr nil (load"mklayr"))
;  (c:mklayr)
  (command ".ellipse" pt1 pt2 pt3)
  (setvar "osmode" smode)
;  (c:rslayr)
);defun