Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101
Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
(command "Layer" "s" "0" "")
(setq V (getreal "Mjerilo 1:X: "))
(setq B (/ 0.5 V))
(setq txt "a")
(while (/= txt "")
(setq txt (getstring "Poz: "))
(if (/= txt "")
(progn
(setq pt1 (getpoint "Po
etak linije: "))
(setq pt2 (getpoint pt1 "Kraj linije: "))
(setq l (* (strlen txt) (/ 4 V)))
(if (or (> (car pt1) (car pt2)))
(progn
(setq pt3 (list (- (car pt2) l) (cadr pt2)))
(setq
pt4 (list (- (car pt2) (/ l 2)) (+ (cadr pt2) (/ 1.5 V)))
)
(setq ang (angle pt1 pt2))
(setq pt5 (polar pt1 ang 0.5))
)
(progn
(setq pt3 (list (+ (car pt2) l) (cadr pt2)))
(setq
pt4 (list (+ (car pt2) (/ l 2)) (+ (cadr pt2) (/ 1.5 V)))
)
(se