선 편집 리습 소수점 인식 불가 문제 질문드립니다.

우선 첨부 이미지 참고하시면,
제가 만드려는 리습은

선 1번과 2번을 순서대로 클릭하면 오른쪽과 같이 수정해주는 리습입니다.

그런데 코드를 보시면
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;기존 선 다시 그리기
  (setq p4 (list (+ (car p2) 1) (cadr p2) 0) )
  (command “line” p1 p4 “”)

  (setq p5 (list (car p2) (+ (cadr p2) 3) 0) )
  (command “line” p3 p5 “”)

  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

부분에서 
  (setq p4 (list (+ (car p2) 1) (cadr p2) 0) )를
  (setq p4 (list (+ (car p2) 0.5) (cadr p2) 0) )로 바꾸면
기존 선이 0.5만큼 길어져야하는데 원래 길이로 그려집니다.

1 이상의 숫자는 괜찮은데 1 미만으로 가면 이상해지네요.
해결법 아시는 고수분들 좀 부탁드립니다 ㅠ