Great ideas (non-lispy), however, Tracey's trying to learn by asking questions. I'm sure anyone who can write code can whip out what she's asked for or spell out 20 different ways..., but she'd like to learn by doing. I think one of the first lisps I ever did was a rectangle. Rectangle was already in existence, so why write it again? For the learning experience. One of the earliest lisps I ever wrote was very simple and I actually found myself using it today on a bunch of line connections. It was this:
(DEFUN C:L1 (/ A)
(WHILE
(SETQ A (GETPOINT "\nFrom Point: ")
)
(COMMAND "LINE" A PAUSE "")
) ;WHILE
(PRINC)
)
Boy, what ugly code, but I learned from it. It allows you to draw multiple, dual-vertice lines. Simple, ugly, effective.