(defun dfn_ssget_removeflags
(f c sse
/ rr k a lk b1 b2 b3
) (js_ldc21
"0x08BB:M560" (list (list f
"1 int" c
"1 int" sse
"1pick") "dfn_ssget_removeflags")) (setq;|a4834255|; b1
nil) (setq;|a4834293|; b1
(js_ldc21
"0x0F31:M561" (list ))) (setq;|a4834341|; a
(js_ldc21
"0x48F2:M564" (list sse k
)) lk
(js_ldc21
"0xD248:M565" (list f a
)));e-defun
c2 1
teta te
a (/ (* te const_pi2) 360.0)
na (* n a)
c3
(if c3
(js_ldc21
"0x7A5A:M188" (list a
"r")) (sin a
))) (setq;|a4658501|; c4
(if c3
(js_ldc21
"0x607B:M189" (list na
"r")) (cos na
))) (setq;|a4658547|; c5
(if c3
(js_ldc21
"0x7A5A:M190" (list na
"r")) (sin na
))) (setq;|a4658597|; bx (* c3 150.0 c4)
teta (+ teta d)
teta
(- teta
(* (js_ldc21
"0x601F:M191" (list (/ teta z
))) z
))) (setq;|a4658759|; fi
(* n teta
)) (setq;|a4658781|; fi
(- fi
(* (js_ldc21
"0x601F:M192" (list (/ fi z
))) z
))) (setq;|a4658831|; x (/ (* const_pi2 fi) z)
s (/ (* const_pi2 teta) z)
c3
(if c3
(js_ldc21
"0x7A5A:M193" (list x
"r")) (sin x
))) (setq;|a4658933|; c4
(if c3
(js_ldc21
"0x607B:M194" (list s
"r")) (cos s
))) (setq;|a4658979|; c5
(if c3
(js_ldc21
"0x7A5A:M195" (list s
"r")) (sin s
))) (setq;|a4659037|; ax (* c3 150.0 c4)
ay (* c3 150.0 c5)
p1
(list (+ x0 bx
) (+ y0 by
) 0.0) p2
(list (+ x0 ax
) (+ y0 ay
) 0.0)) (princ "\rP=") (princ (js_ldc21
"0x270B:M196" (list (/ (* c
100.0) z
) 2 0))) (princ "%") (if (= tipo
"L") (js_ldc21
"0x59B1:M197" (list p1 p2
"" c123
"")) (if (= tipo
"P") (setq;|a4659349|; lpot
(js_ldc21
"0x2ABB:M198" (list lpot
(list p1
)))))) (if (= tipo
"G") (js_ldc21
"0x3DC6:M199" (list p1 p2 c123
))) (setq;|a4659449|;