(setq precnik (* poluprecnik 2))
(setq stranicaKvadrata (/ precnik (sqrt 2)))
(setq polaStranice (/ stranicaKvadrata 2))
(setq goreLevoX (- x1 polaStranice))
(setq goreLevoY (+ y1 polaStranice))
(setq doleDesnoX (+ x1 polaStranice))
(setq doleDesnoY (- y1 polaStranice))
(command "rectang" (list goreLevoX goreLevoY) (list doleDesnoX doleDesnoY))