anchor.diff:    (mapcar '+ startPoint relPoint)
   )
   
  +; (defun poliliniya()
  +
  +; )
  +
   (defun 3dPart()
     (setq part nil)
   
  
positive.code:     ((= t "2d") (2dPart))
      ((= t "3d") (3dPart))
    )
  )
  
  (defun skipExtraLine(part f)
  
negative.code: (defun c:OSAP()
    (setq file nil)
  
    (OStartDialog)
  )
  
  (defun OStartDialog()
    (setq action nil)
  
    ; TODO: show skip when a file has been selected
    (initget 1 "Open Color Skip Exit")
    (setq action (getkword "Select an action [Open file/Color/Skip/Exit]\n"))
  
    (cond
      ((= action "Open") (progn
        (setq file (openFile))
        (ODialog)
      ))
      ((= action "Color") (OColorDialog))
      ((= action "Skip") (ODialog))
      ((= action "Exit") (exit))
    )
  )
  
  (defun ODialog()
  