 ; This file contains two routines: Star.lsp which draws a five pointed star
 ; around the perimeter, and Starr.lsp which does the same but draws across
 ; the centre.
 ; Copyright 1993, 2010 by Rocket Software Ltd.
 ; You could do this by hand if you had paid attention in grade three geometry.
 (DEFUN C:STAR (/ pa sid angg bb)
  (setvar "cmdecho" 0)
  (setq pa (getpoint "Top: "))
  (setq sid (getdist pa "Side length: "))
  (setq angg (* 1.6 pi))
  (command ".pline" pa)
  (repeat 5
         (setq pb (polar pa angg sid))
         (command pb)
         (setq angg (- angg (* 1.6 pi)))
         (setq pa pb)
         (setq pb (polar pa angg sid))
         (command pb)
         (setq angg (- angg (* 0.8 pi)))
         (setq pa pb))
  (command "")
 (princ))

 (DEFUN C:STARR (/ pa sid angg bb)
  (setvar "cmdecho" 0)
  (setq pa (getpoint "Top: "))
  (setq sid (getdist pa "Side length: "))
  (setq angg (* 1.6 pi))
  (command ".pline" pa)
  (repeat 5
         (setq pb (polar pa angg sid))
         (command pb)
         (setq angg (- angg (* 0.8 pi)))
         (setq pa pb))
  (command "")
 (princ))

 (princ)