;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-18-2004
;;;>		   EDITED: 02-18-2004
;;;
(DEFUN C:RBRKL ( / rbrklpt1 rbrklpt PLLST)
  (SETQ curvno (GETVAR "cvport"))
  (SETQ cvpss (SSGET "X" (LIST (CONS 69 curvno))))
  (SETQ cvpent (ENTGET (SSNAME cvpss 0)))
  (SETQ dimsc (/ (GETVAR "viewsize") (CDR (ASSOC 41 cvpent))))
  (SETQ claycolr (CDR(ASSOC 62(TBLSEARCH "LAYER" (GETVAR "CLAYER")))))
  (IF upoint NIL (LOAD "upoint"))
  (SETQ rbrklpt1 (upoint 1 "" "Rough breakline start point" nil nil))
  (SETQ PLLST (APPEND PLLST (LIST rbrklpt1)))
  (WHILE (AND (SETQ rbrklpt (GRREAD T 1 0))(EQ (CAR rbrklpt) 5))
    (IF (AND rbrklpt
	     rbrklpt1
	     (> (DISTANCE (CADR rbrklpt) rbrklpt1) (/ dimsc 8.0))
;;;	     (IF (>(LENGTH PLLST)1)
;;;	       (>(ABS(-(SIN(ANGLE(NTH 1(REVERSE PLLST))(LAST PLLST)))(SIN(*(ANGLE(CADR rbrklpt)rbrklpt1)0.95))))0.25)
;;;	       T
;;;	     )
	)
      (PROGN
	(GRDRAW rbrklpt1 (CADR rbrklpt) claycolr)
        (SETQ rbrklpt1 (CADR rbrklpt)
	      PLLST (APPEND PLLST (LIST rbrklpt1))
        )
      )
    )
  )
  (IF (EQ(LAST PLLST)(CADR rbrklpt))
    NIL
    (SETQ rbrklpt1 (CADR rbrklpt)
          PLLST (APPEND PLLST (LIST rbrklpt1))
    )
  )
  (IF (AND PLLST (>(LENGTH PLLST)3))
    (PROGN
      (COMMAND ".PLINE")
      (FOREACH n PLLST (COMMAND n))
      (COMMAND "")
      (REDRAW)
    )
  )
  (PRINC)
)