; Grdraw a point
; Display variables that might worth exploring: (mapcar 'getvar '(viewsize viewctr screensize))
; (* (/ (cadr (getvar 'screensize)) YourScreenResolution2ndNumber YourPhysicalScreenHeight)) somewhere Kent Cooper explained
; (GrdrawPoint (getpoint "\nPick:") nil nil nil nil)
; (GrdrawPoint (getpoint "\nPick:") 1 nil nil 10)
; (GrdrawPoint '(0. 0. 0.) -3 nil 3 10)
(defun GrdrawPoint
( p c d n idx
/ i L
) (or (and (eq 'INT
(type n
)) (< 0 n
)) (setq n
12)) ; n - number of increments (or (and (eq 'INT
(type idx
)) (< 0 n
)) (setq idx
1)) ; idx - highlighting index
; (grdraw (polar p (* PI -0.25) (* d 2.)) (polar p (* PI 0.75) (* d 2.)) c)
; (grdraw (polar p (* PI -0.75) (* d 2.)) (polar p (* PI 0.25) (* d 2.)) c)
'((-0.25 0.75)(-0.75 0.25)) ; '((-0.25 0.75)(-0.75 0.25)(1. 0.)(0.5 -0.5))
); mapcar
); repeat
L
)
); cond
); defun GrdrawPoint