함수 설명

호의 형태로 된 세 점의 진행 방향이 시계방향인지의 판단

 

구성

(xi:Clockwise-p p1 p2 p3)

    p1 : point 좌표

    p2 : point 좌표

    p3 : point 좌표

반환 : 시계방향: T, 반시계방향: nil

 

 

예제)

(if
   (and
      (setq pt1 (getpoint "\n 첫번째 점 지정"))
      (setq pt2 (getpoint "\n 두번째 점 지정")) 
      (setq pt3 (getpoint "\n 세번째 점 지정")) 
   )
   (if (xi:Clockwise-p pt1 pt2 pt3)
      (list pt1 pt2 pt3)
      (list pt3 pt2 pt1)
   )
)