;Simplex.lsp Copyright 2002 By JefferyPSanders.com
;Email : jps@jefferypsanders.com
;More fonts available for US $25.00 each.
;Make a request at http://www.jefferypsanders.com/autolisp.html
(defun UA(a)
(command "PLINE" a (setq a(polar a (+ ra 1.2087)(* sf 1.0693))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0919))))
(command (setq a(polar a (+ ra 5.0757)(* sf 1.0698))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0892))))
(command (setq a(polar a (+ ra 1.9341)(* sf 0.3184))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.4468))))
(command (setq a(polar a (+ ra 4.3503)(* sf 0.3183))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0891))) "")
(setq a(polar a (+ ra 1.0211)(* sf 0.4468)))
(command "PLINE" a (setq a(polar a (+ ra 1.2087)(* sf 0.5403))))
(command (setq a(polar a (+ ra 5.0757)(* sf 0.5406))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.3835))) "")
(setq a(polar a (+ ra 5.8660)(* sf 0.9402)))
a
)
(defun UB(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.9990))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.4103))))
(command (setq a(polar a (+ ra 6.1892)(* sf 0.0485))))
(command (setq a(polar a (+ ra 6.0326)(* sf 0.0323))))
(command (setq a(polar a (+ ra 5.8918)(* sf 0.0404))))
(command (setq a(polar a (+ ra 5.7533)(* sf 0.0311))))
(command (setq a(polar a (+ ra 5.6182)(* sf 0.0387))))
(command (setq a(polar a (+ ra 5.4727)(* sf 0.0365))))
(command (setq a(polar a (+ ra 5.3303)(* sf 0.0371))))
(command (setq a(polar a (+ ra 5.1872)(* sf 0.0368))))
(command (setq a(polar a (+ ra 5.0409)(* sf 0.0387))))
(command (setq a(polar a (+ ra 4.8995)(* sf 0.0343))))
(command (setq a(polar a (+ ra 4.7855)(* sf 0.0246))))
(command (setq a(polar a (+ ra 4.6843)(* sf 0.0277))))
(command (setq a(polar a (+ ra 4.5895)(* sf 0.0213))))
(command (setq a(polar a (+ ra 4.4792)(* sf 0.0357))))
(command (setq a(polar a (+ ra 4.3266)(* sf 0.0431))))
(command (setq a(polar a (+ ra 4.1753)(* sf 0.0350))))
(command (setq a(polar a (+ ra 4.0454)(* sf 0.0320))))
(command (setq a(polar a (+ ra 3.9379)(* sf 0.0235))))
(command (setq a(polar a (+ ra 3.8448)(* sf 0.0246))))
(command (setq a(polar a (+ ra 3.7651)(* sf 0.0166))))
(command (setq a(polar a (+ ra 5.7125)(* sf 0.0204))))
(command (setq a(polar a (+ ra 5.6299)(* sf 0.0263))))
(command (setq a(polar a (+ ra 5.5261)(* sf 0.0324))))
(command (setq a(polar a (+ ra 5.4192)(* sf 0.0280))))
(command (setq a(polar a (+ ra 5.3087)(* sf 0.0345))))
(command (setq a(polar a (+ ra 5.1903)(* sf 0.0325))))
(command (setq a(polar a (+ ra 5.0696)(* sf 0.0357))))
(command (setq a(polar a (+ ra 4.9459)(* sf 0.0342))))
(command (setq a(polar a (+ ra 4.8194)(* sf 0.0373))))
(command (setq a(polar a (+ ra 4.6948)(* sf 0.0331))))
(command (setq a(polar a (+ ra 4.5827)(* sf 0.0302))))
(command (setq a(polar a (+ ra 4.4671)(* sf 0.0352))))
(command (setq a(polar a (+ ra 4.3349)(* sf 0.0396))))
(command (setq a(polar a (+ ra 4.2077)(* sf 0.0323))))
(command (setq a(polar a (+ ra 4.0973)(* sf 0.0301))))
(command (setq a(polar a (+ ra 3.9723)(* sf 0.0405))))
(command (setq a(polar a (+ ra 3.8931)(* sf 0.0043))))
(command (setq a(polar a (+ ra 3.8160)(* sf 0.0393))))
(command (setq a(polar a (+ ra 3.6832)(* sf 0.0357))))
(command (setq a(polar a (+ ra 3.5699)(* sf 0.0283))))
(command (setq a(polar a (+ ra 3.4589)(* sf 0.0345))))
(command (setq a(polar a (+ ra 3.3537)(* sf 0.0250))))
(command (setq a(polar a (+ ra 3.2256)(* sf 0.0474))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.4103))) "")
(setq a(polar a (+ ra 0.7854)(* sf 0.1179)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.3989))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.3270))))
(command (setq a(polar a (+ ra 6.1856)(* sf 0.0389))))
(command (setq a(polar a (+ ra 6.0102)(* sf 0.0310))))
(command (setq a(polar a (+ ra 5.8576)(* sf 0.0298))))
(command (setq a(polar a (+ ra 5.7157)(* sf 0.0267))))
(command (setq a(polar a (+ ra 5.5957)(* sf 0.0211))))
(command (setq a(polar a (+ ra 5.4621)(* sf 0.0321))))
(command (setq a(polar a (+ ra 5.3227)(* sf 0.0235))))
(command (setq a(polar a (+ ra 5.1837)(* sf 0.0319))))
(command (setq a(polar a (+ ra 5.0209)(* sf 0.0330))))
(command (setq a(polar a (+ ra 4.8545)(* sf 0.0333))))
(command (setq a(polar a (+ ra 4.6865)(* sf 0.0336))))
(command (setq a(polar a (+ ra 4.5089)(* sf 0.0371))))
(command (setq a(polar a (+ ra 4.3163)(* sf 0.0396))))
(command (setq a(polar a (+ ra 4.1282)(* sf 0.0353))))
(command (setq a(polar a (+ ra 3.9389)(* sf 0.0401))))
(command (setq a(polar a (+ ra 3.7727)(* sf 0.0262))))
(command (setq a(polar a (+ ra 3.6257)(* sf 0.0324))))
(command (setq a(polar a (+ ra 3.4770)(* sf 0.0268))))
(command (setq a(polar a (+ ra 3.2756)(* sf 0.0533))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.3270))) "")
(setq a(polar a (+ ra 2.2718)(* sf 0.5245)))
(setq a(polar a (+ ra 0.2361)(* sf 0.3480)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.3501))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.3270))))
(command (setq a(polar a (+ ra 6.1726)(* sf 0.0386))))
(command (setq a(polar a (+ ra 5.9480)(* sf 0.0399))))
(command (setq a(polar a (+ ra 5.7217)(* sf 0.0392))))
(command (setq a(polar a (+ ra 5.4945)(* sf 0.0402))))
(command (setq a(polar a (+ ra 5.2764)(* sf 0.0360))))
(command (setq a(polar a (+ ra 5.0818)(* sf 0.0320))))
(command (setq a(polar a (+ ra 4.8951)(* sf 0.0332))))
(command (setq a(polar a (+ ra 4.7142)(* sf 0.0300))))
(command (setq a(polar a (+ ra 4.5463)(* sf 0.0287))))
(command (setq a(polar a (+ ra 4.3641)(* sf 0.0350))))
(command (setq a(polar a (+ ra 4.1553)(* sf 0.0380))))
(command (setq a(polar a (+ ra 3.9442)(* sf 0.0358))))
(command (setq a(polar a (+ ra 3.7138)(* sf 0.0447))))
(command (setq a(polar a (+ ra 3.4645)(* sf 0.0424))))
(command (setq a(polar a (+ ra 3.2424)(* sf 0.0352))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.3270)))"")
(setq a(polar a (+ ra 5.7263)(* sf 1.0701)))
a
)
(defun UC(a)
(setq a(polar a (+ ra 0.2978)(* sf 0.7450)))
(command "PLINE" a (setq a(polar a (+ ra 2.6553)(* sf 0.0834))))
(command (setq a(polar a (+ ra 4.1160)(* sf 0.0897))))
(command (setq a(polar a (+ ra 3.8649)(* sf 0.0896))))
(command (setq a(polar a (+ ra 3.5472)(* sf 0.0894))))
(command (setq a(polar a (+ ra 3.1621)(* sf 0.0893))))
(command (setq a(polar a (+ ra 2.7732)(* sf 0.0894))))
(command (setq a(polar a (+ ra 2.4470)(* sf 0.0896))))
(command (setq a(polar a (+ ra 2.1910)(* sf 0.0897))))
(command (setq a(polar a (+ ra 1.9817)(* sf 0.0898))))
(command (setq a(polar a (+ ra 1.8011)(* sf 0.0898))))
(command (setq a(polar a (+ ra 1.6349)(* sf 0.0898))))
(command (setq a(polar a (+ ra 1.4720)(* sf 0.0898))))
(command (setq a(polar a (+ ra 1.3040)(* sf 0.0898))))
(command (setq a(polar a (+ ra 1.1181)(* sf 0.0897))))
(command (setq a(polar a (+ ra 0.9015)(* sf 0.0897))))
(command (setq a(polar a (+ ra 0.6315)(* sf 0.0895))))
(command (setq a(polar a (+ ra 0.2901)(* sf 0.0893))))
(command (setq a(polar a (+ ra 6.1777)(* sf 0.0893))))
(command (setq a(polar a (+ ra 5.8039)(* sf 0.0895))))
(command (setq a(polar a (+ ra 5.5018)(* sf 0.0896))))
;(command (setq a(polar a (+ ra 5.5650)(* sf 0.1093))))
;(command (setq a(polar a (+ ra 2.7003)(* sf 0.0207))))
(command (setq a(polar a (+ ra 5.2623)(* sf 0.0897))))
(command (setq a(polar a (+ ra 0.4863)(* sf 0.0834))))
(command (setq a(polar a (+ ra 2.1097)(* sf 0.0895))))
(command (setq a(polar a (+ ra 2.2997)(* sf 0.0895))))
(command (setq a(polar a (+ ra 2.5201)(* sf 0.0894))))
(command (setq a(polar a (+ ra 2.7752)(* sf 0.0893))))
(command (setq a(polar a (+ ra 3.0587)(* sf 0.0893))))
(command (setq a(polar a (+ ra 3.3499)(* sf 0.0893))))
(command (setq a(polar a (+ ra 3.6228)(* sf 0.0894))))
(command (setq a(polar a (+ ra 3.8629)(* sf 0.0894))))
(command (setq a(polar a (+ ra 4.0692)(* sf 0.0895))))
(command (setq a(polar a (+ ra 4.2483)(* sf 0.0895))))
(command (setq a(polar a (+ ra 4.4082)(* sf 0.0895))))
(command (setq a(polar a (+ ra 4.5558)(* sf 0.0895))))
(command (setq a(polar a (+ ra 4.6975)(* sf 0.0895))))
(command (setq a(polar a (+ ra 4.8385)(* sf 0.0895))))
(command (setq a(polar a (+ ra 4.9844)(* sf 0.0895))))
(command (setq a(polar a (+ ra 5.1411)(* sf 0.0895))))
(command (setq a(polar a (+ ra 5.3155)(* sf 0.0895))))
(command (setq a(polar a (+ ra 5.5154)(* sf 0.0894))))
(command (setq a(polar a (+ ra 5.7480)(* sf 0.0894))))
(command (setq a(polar a (+ ra 6.0147)(* sf 0.0893))))
(command (setq a(polar a (+ ra 0.0207)(* sf 0.0893))))
(command (setq a(polar a (+ ra 0.3081)(* sf 0.0893))))
(command (setq a(polar a (+ ra 0.5703)(* sf 0.0894))))
(command (setq a(polar a (+ ra 0.7979)(* sf 0.0894))))
(command (setq a(polar a (+ ra 0.9937)(* sf 0.0895)))"")
(setq a(polar a (+ ra 5.6432)(* sf 0.3661)))
a
)
(defun UD(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0000))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.3023))))
(command (setq a(polar a (+ ra 6.2025)(* sf 0.0465))))
(command (setq a(polar a (+ ra 6.0161)(* sf 0.0631))))
(command (setq a(polar a (+ ra 5.8249)(* sf 0.0565))))
(command (setq a(polar a (+ ra 5.6642)(* sf 0.0540))))
(command (setq a(polar a (+ ra 5.5262)(* sf 0.0513))))
(command (setq a(polar a (+ ra 5.4067)(* sf 0.0496))))
(command (setq a(polar a (+ ra 5.2947)(* sf 0.0546))))
(command (setq a(polar a (+ ra 5.1917)(* sf 0.0499))))
(command (setq a(polar a (+ ra 5.0940)(* sf 0.0575))))
(command (setq a(polar a (+ ra 5.0002)(* sf 0.0525))))
(command (setq a(polar a (+ ra 4.9169)(* sf 0.0503))))
(command (setq a(polar a (+ ra 4.8408)(* sf 0.0470))))
(command (setq a(polar a (+ ra 4.7708)(* sf 0.0443))))
(command (setq a(polar a (+ ra 4.7016)(* sf 0.0467))))
(command (setq a(polar a (+ ra 4.6284)(* sf 0.0495))))
(command (setq a(polar a (+ ra 4.5536)(* sf 0.0474))))
(command (setq a(polar a (+ ra 4.4822)(* sf 0.0429))))
(command (setq a(polar a (+ ra 4.4066)(* sf 0.0494))))
(command (setq a(polar a (+ ra 4.3324)(* sf 0.0373))))
(command (setq a(polar a (+ ra 4.2599)(* sf 0.0431))))
(command (setq a(polar a (+ ra 4.1674)(* sf 0.0532))))
(command (setq a(polar a (+ ra 4.0567)(* sf 0.0530))))
(command (setq a(polar a (+ ra 3.9368)(* sf 0.0515))))
(command (setq a(polar a (+ ra 3.8093)(* sf 0.0491))))
(command (setq a(polar a (+ ra 3.6727)(* sf 0.0487))))
(command (setq a(polar a (+ ra 3.4913)(* sf 0.0690))))
(command (setq a(polar a (+ ra 3.3048)(* sf 0.0434))))
(command (setq a(polar a (+ ra 3.1860)(* sf 0.0255))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.3023)))"")
(setq a(polar a (+ ra 0.7854)(* sf 0.1179)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.8333))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.2190))))
(command (setq a(polar a (+ ra 6.1707)(* sf 0.0463))))
(command (setq a(polar a (+ ra 5.9547)(* sf 0.0463))))
(command (setq a(polar a (+ ra 5.7638)(* sf 0.0448))))
(command (setq a(polar a (+ ra 5.5978)(* sf 0.0465))))
(command (setq a(polar a (+ ra 5.4562)(* sf 0.0443))))
(command (setq a(polar a (+ ra 5.3338)(* sf 0.0447))))
(command (setq a(polar a (+ ra 5.2299)(* sf 0.0396))))
(command (setq a(polar a (+ ra 5.1621)(* sf 0.0210))))
(command (setq a(polar a (+ ra 5.1000)(* sf 0.0382))))
(command (setq a(polar a (+ ra 5.0005)(* sf 0.0617))))
(command (setq a(polar a (+ ra 4.8908)(* sf 0.0555))))
(command (setq a(polar a (+ ra 4.8003)(* sf 0.0470))))
(command (setq a(polar a (+ ra 4.7208)(* sf 0.0442))))
(command (setq a(polar a (+ ra 4.6497)(* sf 0.0366))))
(command (setq a(polar a (+ ra 4.5784)(* sf 0.0446))))
(command (setq a(polar a (+ ra 4.5052)(* sf 0.0373))))
(command (setq a(polar a (+ ra 4.4311)(* sf 0.0421))))
(command (setq a(polar a (+ ra 4.3515)(* sf 0.0380))))
(command (setq a(polar a (+ ra 4.2652)(* sf 0.0443))))
(command (setq a(polar a (+ ra 4.1646)(* sf 0.0446))))
(command (setq a(polar a (+ ra 4.0504)(* sf 0.0451))))
(command (setq a(polar a (+ ra 3.9192)(* sf 0.0459))))
(command (setq a(polar a (+ ra 3.7955)(* sf 0.0306))))
(command (setq a(polar a (+ ra 3.6624)(* sf 0.0415))))
(command (setq a(polar a (+ ra 3.4995)(* sf 0.0373))))
(command (setq a(polar a (+ ra 3.3297)(* sf 0.0368))))
(command (setq a(polar a (+ ra 3.1915)(* sf 0.0206))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.2190)))"")
(setq a(polar a (+ ra 6.1926)(* sf 0.9209)))
a
)
(defun UE(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0000))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.6203))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.5370))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.3520))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.2993))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.2993))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.3980))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.5370))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.6203)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.9048)))
a
)
(defun UF(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0000))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.6203))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.5370))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.3520))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.2993))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.2993))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.4813))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.8446)))
a
)
(defun UG(a)
(setq a(polar a (+ ra 0.3989)(* sf 0.7012)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.0692))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1610))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0833))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.2444))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.1709))))
(command (setq a(polar a (+ ra 4.2582)(* sf 0.0426))))
(command (setq a(polar a (+ ra 4.1653)(* sf 0.0538))))
(command (setq a(polar a (+ ra 4.0516)(* sf 0.0558))))
(command (setq a(polar a (+ ra 3.9432)(* sf 0.0406))))
(command (setq a(polar a (+ ra 3.8376)(* sf 0.0461))))
(command (setq a(polar a (+ ra 3.7108)(* sf 0.0502))))
(command (setq a(polar a (+ ra 3.5918)(* sf 0.0339))))
(command (setq a(polar a (+ ra 3.4701)(* sf 0.0469))))
(command (setq a(polar a (+ ra 3.3163)(* sf 0.0503))))
(command (setq a(polar a (+ ra 3.1498)(* sf 0.0518))))
(command (setq a(polar a (+ ra 2.9929)(* sf 0.0442))))
(command (setq a(polar a (+ ra 2.8724)(* sf 0.0310))))
(command (setq a(polar a (+ ra 2.7473)(* sf 0.0504))))
(command (setq a(polar a (+ ra 2.6137)(* sf 0.0413))))
(command (setq a(polar a (+ ra 2.5160)(* sf 0.0301))))
(command (setq a(polar a (+ ra 2.4224)(* sf 0.0429))))
(command (setq a(polar a (+ ra 2.3291)(* sf 0.0345))))
(command (setq a(polar a (+ ra 2.2388)(* sf 0.0459))))
(command (setq a(polar a (+ ra 2.1505)(* sf 0.0380))))
(command (setq a(polar a (+ ra 2.0749)(* sf 0.0383))))
(command (setq a(polar a (+ ra 1.9772)(* sf 0.0666))))
(command (setq a(polar a (+ ra 1.8716)(* sf 0.0540))))
(command (setq a(polar a (+ ra 1.7696)(* sf 0.0690))))
(command (setq a(polar a (+ ra 1.6673)(* sf 0.0588))))
(command (setq a(polar a (+ ra 1.5724)(* sf 0.0620))))
(command (setq a(polar a (+ ra 1.4831)(* sf 0.0519))))
(command (setq a(polar a (+ ra 1.4063)(* sf 0.0446))))
(command (setq a(polar a (+ ra 1.3261)(* sf 0.0538))))
(command (setq a(polar a (+ ra 1.2330)(* sf 0.0563))))
(command (setq a(polar a (+ ra 1.1456)(* sf 0.0420))))
(command (setq a(polar a (+ ra 1.0455)(* sf 0.0636))))
(command (setq a(polar a (+ ra 0.9352)(* sf 0.0449))))
(command (setq a(polar a (+ ra 0.8296)(* sf 0.0507))))
(command (setq a(polar a (+ ra 0.6937)(* sf 0.0618))))
(command (setq a(polar a (+ ra 0.5507)(* sf 0.0463))))
(command (setq a(polar a (+ ra 0.4215)(* sf 0.0438))))
(command (setq a(polar a (+ ra 0.2738)(* sf 0.0526))))
(command (setq a(polar a (+ ra 0.1176)(* sf 0.0449))))
(command (setq a(polar a (+ ra 6.2666)(* sf 0.0371))))
(command (setq a(polar a (+ ra 6.1184)(* sf 0.0538))))
(command (setq a(polar a (+ ra 5.9482)(* sf 0.0539))))
(command (setq a(polar a (+ ra 5.7986)(* sf 0.0465))))
(command (setq a(polar a (+ ra 5.6603)(* sf 0.0536))))
(command (setq a(polar a (+ ra 5.5355)(* sf 0.0444))))
(command (setq a(polar a (+ ra 5.4314)(* sf 0.0443))))
(command (setq a(polar a (+ ra 5.3411)(* sf 0.0383))))
(command (setq a(polar a (+ ra 5.2592)(* sf 0.0417))))
(command (setq a(polar a (+ ra 5.1912)(* sf 0.0283))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0000))))
(command (setq a(polar a (+ ra 3.6279)(* sf 0.0834))))
(command (setq a(polar a (+ ra 2.0482)(* sf 0.0291))))
(command (setq a(polar a (+ ra 2.1259)(* sf 0.0368))))
(command (setq a(polar a (+ ra 2.2086)(* sf 0.0300))))
(command (setq a(polar a (+ ra 2.2921)(* sf 0.0318))))
(command (setq a(polar a (+ ra 2.3848)(* sf 0.0318))))
(command (setq a(polar a (+ ra 2.4970)(* sf 0.0390))))
(command (setq a(polar a (+ ra 2.6228)(* sf 0.0329))))
(command (setq a(polar a (+ ra 2.7441)(* sf 0.0300))))
(command (setq a(polar a (+ ra 2.8791)(* sf 0.0348))))
(command (setq a(polar a (+ ra 3.0188)(* sf 0.0288))))
(command (setq a(polar a (+ ra 3.1422)(* sf 0.0262))))
(command (setq a(polar a (+ ra 3.2768)(* sf 0.0339))))
(command (setq a(polar a (+ ra 3.4325)(* sf 0.0377))))
(command (setq a(polar a (+ ra 3.6154)(* sf 0.0534))))
(command (setq a(polar a (+ ra 3.7770)(* sf 0.0357))))
(command (setq a(polar a (+ ra 3.8979)(* sf 0.0401))))
(command (setq a(polar a (+ ra 4.0000)(* sf 0.0311))))
(command (setq a(polar a (+ ra 4.0957)(* sf 0.0416))))
(command (setq a(polar a (+ ra 4.1850)(* sf 0.0304))))
(command (setq a(polar a (+ ra 4.2653)(* sf 0.0403))))
(command (setq a(polar a (+ ra 4.3552)(* sf 0.0455))))
(command (setq a(polar a (+ ra 4.4377)(* sf 0.0376))))
(command (setq a(polar a (+ ra 4.5118)(* sf 0.0391))))
(command (setq a(polar a (+ ra 4.5712)(* sf 0.0238))))
(command (setq a(polar a (+ ra 4.6330)(* sf 0.0442))))
(command (setq a(polar a (+ ra 4.7162)(* sf 0.0490))))
(command (setq a(polar a (+ ra 4.8072)(* sf 0.0518))))
(command (setq a(polar a (+ ra 4.8877)(* sf 0.0344))))
(command (setq a(polar a (+ ra 4.9653)(* sf 0.0476))))
(command (setq a(polar a (+ ra 5.0573)(* sf 0.0465))))
(command (setq a(polar a (+ ra 5.1574)(* sf 0.0484))))
(command (setq a(polar a (+ ra 5.2712)(* sf 0.0495))))
(command (setq a(polar a (+ ra 5.3970)(* sf 0.0500))))
(command (setq a(polar a (+ ra 5.5287)(* sf 0.0427))))
(command (setq a(polar a (+ ra 5.6788)(* sf 0.0489))))
(command (setq a(polar a (+ ra 5.8458)(* sf 0.0420))))
(command (setq a(polar a (+ ra 6.0217)(* sf 0.0440))))
(command (setq a(polar a (+ ra 6.2053)(* sf 0.0394))))
(command (setq a(polar a (+ ra 0.1071)(* sf 0.0424))))
(command (setq a(polar a (+ ra 0.3159)(* sf 0.0537))))
(command (setq a(polar a (+ ra 0.5185)(* sf 0.0490))))
(command (setq a(polar a (+ ra 0.6648)(* sf 0.0351))))
(command (setq a(polar a (+ ra 0.7831)(* sf 0.0406))))
(command (setq a(polar a (+ ra 0.8812)(* sf 0.0275))))
(command (setq a(polar a (+ ra 0.9565)(* sf 0.0302))))
(command (setq a(polar a (+ ra 1.0271)(* sf 0.0281))))
(command (setq a(polar a (+ ra 1.0893)(* sf 0.0263)))"")
(setq a(polar a (+ ra 5.6439)(* sf 0.4566)))
a
)
(defun UH(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0000))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.4353))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.5000))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.4353))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 1.0000))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.4813))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.5000))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.4813))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.0000)(* sf 1.0473)))
a
)
(defun UI(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.0833))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1496))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.8333))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1496))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0833))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.3825))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1496))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.8333))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1496))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.3825)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.6679)))
a
)
(defun UJ(a)
(setq a(polar a (+ ra 1.5708)(* sf 0.3303)))
(command "PLINE" a (setq a(polar a (+ ra 4.7124)(* sf 0.0447))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0480))))
(command (setq a(polar a (+ ra 4.8139)(* sf 0.0482))))
(command (setq a(polar a (+ ra 5.0173)(* sf 0.0483))))
(command (setq a(polar a (+ ra 5.2232)(* sf 0.0494))))
(command (setq a(polar a (+ ra 5.4156)(* sf 0.0419))))
(command (setq a(polar a (+ ra 5.5949)(* sf 0.0432))))
(command (setq a(polar a (+ ra 5.7602)(* sf 0.0352))))
(command (setq a(polar a (+ ra 5.9124)(* sf 0.0370))))
(command (setq a(polar a (+ ra 6.0627)(* sf 0.0343))))
(command (setq a(polar a (+ ra 6.2326)(* sf 0.0463))))
(command (setq a(polar a (+ ra 0.1022)(* sf 0.0262))))
(command (setq a(polar a (+ ra 0.2303)(* sf 0.0346))))
(command (setq a(polar a (+ ra 0.3890)(* sf 0.0407))))
(command (setq a(polar a (+ ra 0.5363)(* sf 0.0292))))
(command (setq a(polar a (+ ra 0.6912)(* sf 0.0444))))
(command (setq a(polar a (+ ra 0.8542)(* sf 0.0330))))
(command (setq a(polar a (+ ra 0.9919)(* sf 0.0324))))
(command (setq a(polar a (+ ra 1.1237)(* sf 0.0301))))
(command (setq a(polar a (+ ra 1.2492)(* sf 0.0295))))
(command (setq a(polar a (+ ra 1.4410)(* sf 0.0615))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.7624))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.7624))))
(command (setq a(polar a (+ ra 4.5211)(* sf 0.0587))))
(command (setq a(polar a (+ ra 4.2185)(* sf 0.0343))))
(command (setq a(polar a (+ ra 3.9929)(* sf 0.0352))))
(command (setq a(polar a (+ ra 3.7579)(* sf 0.0372))))
(command (setq a(polar a (+ ra 3.5493)(* sf 0.0271))))
(command (setq a(polar a (+ ra 3.3547)(* sf 0.0329))))
(command (setq a(polar a (+ ra 3.1225)(* sf 0.0386))))
(command (setq a(polar a (+ ra 2.8862)(* sf 0.0341))))
(command (setq a(polar a (+ ra 2.6554)(* sf 0.0369))))
(command (setq a(polar a (+ ra 2.4390)(* sf 0.0297))))
(command (setq a(polar a (+ ra 2.2230)(* sf 0.0368))))
(command (setq a(polar a (+ ra 2.0077)(* sf 0.0295))))
(command (setq a(polar a (+ ra 1.7945)(* sf 0.0361))))
(command (setq a(polar a (+ ra 1.6239)(* sf 0.0164))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0927))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 5.8740)(* sf 0.8304)))
a
)
(defun UK(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0000))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.5228))))
(command (setq a(polar a (+ ra 0.7854)(* sf 0.7394))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1179))))
(command (setq a(polar a (+ ra 3.9270)(* sf 0.6136))))
(command (setq a(polar a (+ ra 5.3562)(* sf 0.7078))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1042))))
(command (setq a(polar a (+ ra 2.2146)(* sf 0.6334))))
(command (setq a(polar a (+ ra 3.9270)(* sf 0.2083))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.3593))))
(command (setq a(polar a (+ ra 3.1423)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.9048)))
a
)
(defun UL(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0000))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.9167))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.5370))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.6203)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.8095)))
a
)
(defun UM(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0000))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 5.0765)(* sf 0.8361))))
(command (setq a(polar a (+ ra 1.2067)(* sf 0.8361))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 1.0000))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.7660))))
(command (setq a(polar a (+ ra 4.3483)(* sf 0.8361))))
(command (setq a(polar a (+ ra 1.9349)(* sf 0.8361))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.7660))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.0000)(* sf 1.0595)))
a
)
(defun UN(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0000))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 5.2506)(* sf 0.9753))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.8374))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 1.0000))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833))))
(command (setq a(polar a (+ ra 2.1090)(* sf 0.9753))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.8374))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.9582)))
a
)
(defun UO(a)
(setq a(polar a (+ ra 0.0001)(* sf 0.3955)))
(command "PLINE" a (setq a(polar a (+ ra 3.1264)(* sf 0.0199))))
(command (setq a(polar a (+ ra 3.0463)(* sf 0.0291))))
(command (setq a(polar a (+ ra 2.9478)(* sf 0.0318))))
(command (setq a(polar a (+ ra 2.8440)(* sf 0.0339))))
(command (setq a(polar a (+ ra 2.7444)(* sf 0.0312))))
(command (setq a(polar a (+ ra 2.6442)(* sf 0.0373))))
(command (setq a(polar a (+ ra 2.5341)(* sf 0.0424))))
(command (setq a(polar a (+ ra 2.4379)(* sf 0.0317))))
(command (setq a(polar a (+ ra 2.3640)(* sf 0.0287))))
(command (setq a(polar a (+ ra 2.2884)(* sf 0.0366))))
(command (setq a(polar a (+ ra 2.2138)(* sf 0.0313))))
(command (setq a(polar a (+ ra 2.1399)(* sf 0.0401))))
(command (setq a(polar a (+ ra 2.0634)(* sf 0.0378))))
(command (setq a(polar a (+ ra 1.9931)(* sf 0.0376))))
(command (setq a(polar a (+ ra 1.9138)(* sf 0.0518))))
(command (setq a(polar a (+ ra 1.8253)(* sf 0.0526))))
(command (setq a(polar a (+ ra 1.7407)(* sf 0.0511))))
(command (setq a(polar a (+ ra 1.6645)(* sf 0.0448))))
(command (setq a(polar a (+ ra 1.5874)(* sf 0.0535))))
(command (setq a(polar a (+ ra 1.5229)(* sf 0.0290))))
(command (setq a(polar a (+ ra 1.4685)(* sf 0.0402))))
(command (setq a(polar a (+ ra 1.4032)(* sf 0.0420))))
(command (setq a(polar a (+ ra 1.3271)(* sf 0.0516))))
(command (setq a(polar a (+ ra 1.2542)(* sf 0.0353))))
(command (setq a(polar a (+ ra 1.1896)(* sf 0.0390))))
(command (setq a(polar a (+ ra 1.1178)(* sf 0.0401))))
(command (setq a(polar a (+ ra 1.0411)(* sf 0.0402))))
(command (setq a(polar a (+ ra 0.9562)(* sf 0.0437))))
(command (setq a(polar a (+ ra 0.8624)(* sf 0.0431))))
(command (setq a(polar a (+ ra 0.8081)(* sf 0.0047))))
(command (setq a(polar a (+ ra 0.7533)(* sf 0.0411))))
(command (setq a(polar a (+ ra 0.6439)(* sf 0.0458))))
(command (setq a(polar a (+ ra 0.5209)(* sf 0.0448))))
(command (setq a(polar a (+ ra 0.3918)(* sf 0.0440))))
(command (setq a(polar a (+ ra 0.2753)(* sf 0.0320))))
(command (setq a(polar a (+ ra 0.1734)(* sf 0.0320))))
(command (setq a(polar a (+ ra 0.0957)(* sf 0.0159))))
(command (setq a(polar a (+ ra 6.2801)(* sf 0.0444))))
(command (setq a(polar a (+ ra 6.1707)(* sf 0.0224))))
(command (setq a(polar a (+ ra 6.0641)(* sf 0.0438))))
(command (setq a(polar a (+ ra 5.9432)(* sf 0.0333))))
(command (setq a(polar a (+ ra 5.8437)(* sf 0.0330))))
(command (setq a(polar a (+ ra 5.7496)(* sf 0.0327))))
(command (setq a(polar a (+ ra 5.6582)(* sf 0.0345))))
(command (setq a(polar a (+ ra 5.5674)(* sf 0.0362))))
(command (setq a(polar a (+ ra 5.4835)(* sf 0.0332))))
(command (setq a(polar a (+ ra 5.4012)(* sf 0.0394))))
(command (setq a(polar a (+ ra 5.3189)(* sf 0.0375))))
(command (setq a(polar a (+ ra 5.2327)(* sf 0.0484))))
(command (setq a(polar a (+ ra 5.1521)(* sf 0.0366))))
(command (setq a(polar a (+ ra 5.0815)(* sf 0.0419))))
(command (setq a(polar a (+ ra 5.0059)(* sf 0.0457))))
(command (setq a(polar a (+ ra 4.9246)(* sf 0.0524))))
(command (setq a(polar a (+ ra 4.8481)(* sf 0.0427))))
(command (setq a(polar a (+ ra 4.7845)(* sf 0.0377))))
(command (setq a(polar a (+ ra 4.7270)(* sf 0.0357))))
(command (setq a(polar a (+ ra 4.6661)(* sf 0.0423))))
(command (setq a(polar a (+ ra 4.5889)(* sf 0.0557))))
(command (setq a(polar a (+ ra 4.5041)(* sf 0.0500))))
(command (setq a(polar a (+ ra 4.4238)(* sf 0.0471))))
(command (setq a(polar a (+ ra 4.3478)(* sf 0.0413))))
(command (setq a(polar a (+ ra 4.2669)(* sf 0.0485))))
(command (setq a(polar a (+ ra 4.1835)(* sf 0.0393))))
(command (setq a(polar a (+ ra 4.1030)(* sf 0.0404))))
(command (setq a(polar a (+ ra 4.0158)(* sf 0.0408))))
(command (setq a(polar a (+ ra 3.9224)(* sf 0.0405))))
(command (setq a(polar a (+ ra 3.8317)(* sf 0.0334))))
(command (setq a(polar a (+ ra 3.7524)(* sf 0.0277))))
(command (setq a(polar a (+ ra 3.6715)(* sf 0.0315))))
(command (setq a(polar a (+ ra 3.5798)(* sf 0.0324))))
(command (setq a(polar a (+ ra 3.4717)(* sf 0.0394))))
(command (setq a(polar a (+ ra 3.3755)(* sf 0.0222))))
(command (setq a(polar a (+ ra 3.2900)(* sf 0.0311))))
(command (setq a(polar a (+ ra 3.2212)(* sf 0.0113))))
(command (setq a(polar a (+ ra 3.1809)(* sf 0.0133)))"")
(setq a(polar a (+ ra 1.5708)(* sf 0.0834)))
(command "PLINE" a (setq a(polar a (+ ra 3.1250)(* sf 0.0181))))
(command (setq a(polar a (+ ra 3.0279)(* sf 0.0251))))
(command (setq a(polar a (+ ra 2.8951)(* sf 0.0353))))
(command (setq a(polar a (+ ra 2.7696)(* sf 0.0245))))
(command (setq a(polar a (+ ra 2.6581)(* sf 0.0324))))
(command (setq a(polar a (+ ra 2.5434)(* sf 0.0307))))
(command (setq a(polar a (+ ra 2.4354)(* sf 0.0352))))
(command (setq a(polar a (+ ra 2.3272)(* sf 0.0370))))
(command (setq a(polar a (+ ra 2.2176)(* sf 0.0423))))
(command (setq a(polar a (+ ra 2.1175)(* sf 0.0377))))
(command (setq a(polar a (+ ra 2.0201)(* sf 0.0488))))
(command (setq a(polar a (+ ra 1.9336)(* sf 0.0332))))
(command (setq a(polar a (+ ra 1.8708)(* sf 0.0285))))
(command (setq a(polar a (+ ra 1.8173)(* sf 0.0256))))
(command (setq a(polar a (+ ra 1.7626)(* sf 0.0321))))
(command (setq a(polar a (+ ra 1.7024)(* sf 0.0337))))
(command (setq a(polar a (+ ra 1.6456)(* sf 0.0295))))
(command (setq a(polar a (+ ra 1.5806)(* sf 0.0428))))
(command (setq a(polar a (+ ra 1.5168)(* sf 0.0271))))
(command (setq a(polar a (+ ra 1.4443)(* sf 0.0524))))
(command (setq a(polar a (+ ra 1.3620)(* sf 0.0373))))
(command (setq a(polar a (+ ra 1.2919)(* sf 0.0366))))
(command (setq a(polar a (+ ra 1.2249)(* sf 0.0306))))
(command (setq a(polar a (+ ra 1.1464)(* sf 0.0433))))
(command (setq a(polar a (+ ra 1.0521)(* sf 0.0415))))
(command (setq a(polar a (+ ra 0.9718)(* sf 0.0263))))
(command (setq a(polar a (+ ra 0.9071)(* sf 0.0243))))
(command (setq a(polar a (+ ra 0.8268)(* sf 0.0334))))
(command (setq a(polar a (+ ra 0.7189)(* sf 0.0384))))
(command (setq a(polar a (+ ra 0.6110)(* sf 0.0281))))
(command (setq a(polar a (+ ra 0.4675)(* sf 0.0510))))
(command (setq a(polar a (+ ra 0.3165)(* sf 0.0247))))
(command (setq a(polar a (+ ra 0.2000)(* sf 0.0295))))
(command (setq a(polar a (+ ra 0.0900)(* sf 0.0201))))
(command (setq a(polar a (+ ra 6.2543)(* sf 0.0329))))
(command (setq a(polar a (+ ra 6.1070)(* sf 0.0331))))
(command (setq a(polar a (+ ra 5.9743)(* sf 0.0284))))
(command (setq a(polar a (+ ra 5.8741)(* sf 0.0208))))
(command (setq a(polar a (+ ra 5.8146)(* sf 0.0098))))
(command (setq a(polar a (+ ra 5.7337)(* sf 0.0342))))
(command (setq a(polar a (+ ra 5.6124)(* sf 0.0364))))
(command (setq a(polar a (+ ra 5.4892)(* sf 0.0426))))
(command (setq a(polar a (+ ra 5.3793)(* sf 0.0369))))
(command (setq a(polar a (+ ra 5.2946)(* sf 0.0303))))
(command (setq a(polar a (+ ra 5.2104)(* sf 0.0409))))
(command (setq a(polar a (+ ra 5.1226)(* sf 0.0376))))
(command (setq a(polar a (+ ra 5.0349)(* sf 0.0477))))
(command (setq a(polar a (+ ra 4.9459)(* sf 0.0446))))
(command (setq a(polar a (+ ra 4.8654)(* sf 0.0414))))
(command (setq a(polar a (+ ra 4.7954)(* sf 0.0340))))
(command (setq a(polar a (+ ra 4.7285)(* sf 0.0401))))
(command (setq a(polar a (+ ra 4.6531)(* sf 0.0446))))
(command (setq a(polar a (+ ra 4.5770)(* sf 0.0399))))
(command (setq a(polar a (+ ra 4.4971)(* sf 0.0451))))
(command (setq a(polar a (+ ra 4.4137)(* sf 0.0406))))
(command (setq a(polar a (+ ra 4.3355)(* sf 0.0374))))
(command (setq a(polar a (+ ra 4.2555)(* sf 0.0383))))
(command (setq a(polar a (+ ra 4.1597)(* sf 0.0447))))
(command (setq a(polar a (+ ra 4.0471)(* sf 0.0439))))
(command (setq a(polar a (+ ra 3.9461)(* sf 0.0298))))
(command (setq a(polar a (+ ra 3.8502)(* sf 0.0342))))
(command (setq a(polar a (+ ra 3.7488)(* sf 0.0272))))
(command (setq a(polar a (+ ra 3.6210)(* sf 0.0428))))
(command (setq a(polar a (+ ra 3.4900)(* sf 0.0238))))
(command (setq a(polar a (+ ra 3.3966)(* sf 0.0208))))
(command (setq a(polar a (+ ra 3.2997)(* sf 0.0237))))
(command (setq a(polar a (+ ra 3.2064)(* sf 0.0181))) "")
(setq a(polar a (+ ra 6.1691)(* sf 0.7329)))
a
)
(defun UP(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.9990))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.4103))))
(command (setq a(polar a (+ ra 6.2097)(* sf 0.0379))))
(command (setq a(polar a (+ ra 6.0362)(* sf 0.0516))))
(command (setq a(polar a (+ ra 5.8287)(* sf 0.0554))))
(command (setq a(polar a (+ ra 5.6194)(* sf 0.0526))))
(command (setq a(polar a (+ ra 5.3913)(* sf 0.0649))))
(command (setq a(polar a (+ ra 5.1527)(* sf 0.0581))))
(command (setq a(polar a (+ ra 4.9368)(* sf 0.0533))))
(command (setq a(polar a (+ ra 4.7417)(* sf 0.0474))))
(command (setq a(polar a (+ ra 4.5478)(* sf 0.0526))))
(command (setq a(polar a (+ ra 4.3403)(* sf 0.0545))))
(command (setq a(polar a (+ ra 4.1162)(* sf 0.0611))))
(command (setq a(polar a (+ ra 3.8786)(* sf 0.0614))))
(command (setq a(polar a (+ ra 3.6731)(* sf 0.0446))))
(command (setq a(polar a (+ ra 3.4941)(* sf 0.0477))))
(command (setq a(polar a (+ ra 3.3421)(* sf 0.0307))))
(command (setq a(polar a (+ ra 3.2121)(* sf 0.0364))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.3270))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.4823))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 1.4245)(* sf 0.5717)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.3501))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.3270))))
(command (setq a(polar a (+ ra 6.2261)(* sf 0.0200))))
(command (setq a(polar a (+ ra 6.0629)(* sf 0.0371))))
(command (setq a(polar a (+ ra 5.8213)(* sf 0.0473))))
(command (setq a(polar a (+ ra 5.5970)(* sf 0.0310))))
(command (setq a(polar a (+ ra 5.3959)(* sf 0.0392))))
(command (setq a(polar a (+ ra 5.1861)(* sf 0.0341))))
(command (setq a(polar a (+ ra 4.9633)(* sf 0.0437))))
(command (setq a(polar a (+ ra 4.7538)(* sf 0.0294))))
(command (setq a(polar a (+ ra 4.5555)(* sf 0.0399))))
(command (setq a(polar a (+ ra 4.3348)(* sf 0.0372))))
(command (setq a(polar a (+ ra 4.0767)(* sf 0.0529))))
(command (setq a(polar a (+ ra 3.8288)(* sf 0.0337))))
(command (setq a(polar a (+ ra 3.6445)(* sf 0.0307))))
(command (setq a(polar a (+ ra 3.4534)(* sf 0.0361))))
(command (setq a(polar a (+ ra 3.2459)(* sf 0.0364))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.3270)))"")
(setq a(polar a (+ ra 5.6908)(* sf 1.0129)))
a
)
(defun UQ(a)
(setq a(polar a (+ ra 6.1043)(* sf 0.7016)))
(command "PLINE" a (setq a(polar a (+ ra 2.3536)(* sf 0.2242))))
(command (setq a(polar a (+ ra 3.5687)(* sf 0.0242))))
(command (setq a(polar a (+ ra 3.4796)(* sf 0.0348))))
(command (setq a(polar a (+ ra 3.3770)(* sf 0.0309))))
(command (setq a(polar a (+ ra 3.2677)(* sf 0.0371))))
(command (setq a(polar a (+ ra 3.1654)(* sf 0.0256))))
(command (setq a(polar a (+ ra 3.0521)(* sf 0.0436))))
(command (setq a(polar a (+ ra 2.9228)(* sf 0.0365))))
(command (setq a(polar a (+ ra 2.7771)(* sf 0.0571))))
(command (setq a(polar a (+ ra 2.6326)(* sf 0.0410))))
(command (setq a(polar a (+ ra 2.4999)(* sf 0.0566))))
(command (setq a(polar a (+ ra 2.3667)(* sf 0.0498))))
(command (setq a(polar a (+ ra 2.2500)(* sf 0.0524))))
(command (setq a(polar a (+ ra 2.1435)(* sf 0.0487))))
(command (setq a(polar a (+ ra 2.0468)(* sf 0.0503))))
(command (setq a(polar a (+ ra 1.9511)(* sf 0.0544))))
(command (setq a(polar a (+ ra 1.8584)(* sf 0.0529))))
(command (setq a(polar a (+ ra 1.7825)(* sf 0.0387))))
(command (setq a(polar a (+ ra 1.7141)(* sf 0.0462))))
(command (setq a(polar a (+ ra 1.6376)(* sf 0.0507))))
(command (setq a(polar a (+ ra 1.5662)(* sf 0.0405))))
(command (setq a(polar a (+ ra 1.5027)(* sf 0.0406))))
(command (setq a(polar a (+ ra 1.4278)(* sf 0.0542))))
(command (setq a(polar a (+ ra 1.3411)(* sf 0.0531))))
(command (setq a(polar a (+ ra 1.2598)(* sf 0.0442))))
(command (setq a(polar a (+ ra 1.1772)(* sf 0.0505))))
(command (setq a(polar a (+ ra 1.0943)(* sf 0.0398))))
(command (setq a(polar a (+ ra 1.0102)(* sf 0.0467))))
(command (setq a(polar a (+ ra 0.9126)(* sf 0.0472))))
(command (setq a(polar a (+ ra 0.8262)(* sf 0.0305))))
(command (setq a(polar a (+ ra 0.7365)(* sf 0.0449))))
(command (setq a(polar a (+ ra 0.6208)(* sf 0.0458))))
(command (setq a(polar a (+ ra 0.5113)(* sf 0.0342))))
(command (setq a(polar a (+ ra 0.4105)(* sf 0.0351))))
(command (setq a(polar a (+ ra 0.2941)(* sf 0.0411))))
(command (setq a(polar a (+ ra 0.1929)(* sf 0.0229))))
(command (setq a(polar a (+ ra 0.1037)(* sf 0.0322))))
(command (setq a(polar a (+ ra 6.2648)(* sf 0.0423))))
(command (setq a(polar a (+ ra 6.1329)(* sf 0.0385))))
(command (setq a(polar a (+ ra 6.0031)(* sf 0.0429))))
(command (setq a(polar a (+ ra 5.8762)(* sf 0.0400))))
(command (setq a(polar a (+ ra 5.7613)(* sf 0.0392))))
(command (setq a(polar a (+ ra 5.6516)(* sf 0.0414))))
(command (setq a(polar a (+ ra 5.5497)(* sf 0.0387))))
(command (setq a(polar a (+ ra 5.4510)(* sf 0.0445))))
(command (setq a(polar a (+ ra 5.3525)(* sf 0.0447))))
(command (setq a(polar a (+ ra 5.2547)(* sf 0.0507))))
(command (setq a(polar a (+ ra 5.1745)(* sf 0.0325))))
(command (setq a(polar a (+ ra 5.0950)(* sf 0.0550))))
(command (setq a(polar a (+ ra 5.0115)(* sf 0.0413))))
(command (setq a(polar a (+ ra 4.9341)(* sf 0.0517))))
(command (setq a(polar a (+ ra 4.8595)(* sf 0.0407))))
(command (setq a(polar a (+ ra 4.7797)(* sf 0.0602))))
(command (setq a(polar a (+ ra 4.6894)(* sf 0.0552))))
(command (setq a(polar a (+ ra 4.6064)(* sf 0.0505))))
(command (setq a(polar a (+ ra 4.5208)(* sf 0.0567))))
(command (setq a(polar a (+ ra 4.4374)(* sf 0.0447))))
(command (setq a(polar a (+ ra 4.3581)(* sf 0.0481))))
(command (setq a(polar a (+ ra 4.2679)(* sf 0.0523))))
(command (setq a(polar a (+ ra 4.1801)(* sf 0.0401))))
(command (setq a(polar a (+ ra 4.1077)(* sf 0.0318))))
(command (setq a(polar a (+ ra 4.0343)(* sf 0.0371))))
(command (setq a(polar a (+ ra 3.9525)(* sf 0.0355))))
(command (setq a(polar a (+ ra 3.8736)(* sf 0.0305))))
(command (setq a(polar a (+ ra 5.4952)(* sf 0.2071))))
(command (setq a(polar a (+ ra 3.9244)(* sf 0.0833)))"")
(setq a(polar a (+ ra 2.3536)(* sf 0.3136)))
(command "PLINE" a (setq a(polar a (+ ra 3.4508)(* sf 0.0200))))
(command (setq a(polar a (+ ra 3.3481)(* sf 0.0281))))
(command (setq a(polar a (+ ra 3.1902)(* sf 0.0429))))
(command (setq a(polar a (+ ra 3.0120)(* sf 0.0365))))
(command (setq a(polar a (+ ra 2.8561)(* sf 0.0350))))
(command (setq a(polar a (+ ra 2.7297)(* sf 0.0265))))
(command (setq a(polar a (+ ra 2.5966)(* sf 0.0438))))
(command (setq a(polar a (+ ra 2.4431)(* sf 0.0472))))
(command (setq a(polar a (+ ra 2.3225)(* sf 0.0328))))
(command (setq a(polar a (+ ra 2.2164)(* sf 0.0443))))
(command (setq a(polar a (+ ra 2.1137)(* sf 0.0380))))
(command (setq a(polar a (+ ra 2.0304)(* sf 0.0356))))
(command (setq a(polar a (+ ra 1.9454)(* sf 0.0446))))
(command (setq a(polar a (+ ra 1.8571)(* sf 0.0421))))
(command (setq a(polar a (+ ra 1.7804)(* sf 0.0370))))
(command (setq a(polar a (+ ra 1.7133)(* sf 0.0357))))
(command (setq a(polar a (+ ra 1.6466)(* sf 0.0384))))
(command (setq a(polar a (+ ra 1.5801)(* sf 0.0356))))
(command (setq a(polar a (+ ra 1.5198)(* sf 0.0304))))
(command (setq a(polar a (+ ra 1.4548)(* sf 0.0408))))
(command (setq a(polar a (+ ra 1.3867)(* sf 0.0338))))
(command (setq a(polar a (+ ra 1.3243)(* sf 0.0331))))
(command (setq a(polar a (+ ra 1.2531)(* sf 0.0399))))
(command (setq a(polar a (+ ra 1.1618)(* sf 0.0475))))
(command (setq a(polar a (+ ra 1.0684)(* sf 0.0374))))
(command (setq a(polar a (+ ra 0.9911)(* sf 0.0289))))
(command (setq a(polar a (+ ra 0.9109)(* sf 0.0346))))
(command (setq a(polar a (+ ra 0.8203)(* sf 0.0306))))
(command (setq a(polar a (+ ra 0.7285)(* sf 0.0306))))
(command (setq a(polar a (+ ra 0.6199)(* sf 0.0365))))
(command (setq a(polar a (+ ra 0.4853)(* sf 0.0388))))
(command (setq a(polar a (+ ra 0.3438)(* sf 0.0328))))
(command (setq a(polar a (+ ra 0.2100)(* sf 0.0301))))
(command (setq a(polar a (+ ra 0.1060)(* sf 0.0169))))
(command (setq a(polar a (+ ra 0.0022)(* sf 0.0293))))
(command (setq a(polar a (+ ra 6.1162)(* sf 0.0463))))
(command (setq a(polar a (+ ra 5.9514)(* sf 0.0302))))
(command (setq a(polar a (+ ra 5.8338)(* sf 0.0287))))
(command (setq a(polar a (+ ra 5.7112)(* sf 0.0379))))
(command (setq a(polar a (+ ra 5.5999)(* sf 0.0276))))
(command (setq a(polar a (+ ra 5.5129)(* sf 0.0276))))
(command (setq a(polar a (+ ra 5.4262)(* sf 0.0331))))
(command (setq a(polar a (+ ra 5.3390)(* sf 0.0335))))
(command (setq a(polar a (+ ra 5.2575)(* sf 0.0333))))
(command (setq a(polar a (+ ra 5.1830)(* sf 0.0308))))
(command (setq a(polar a (+ ra 5.1161)(* sf 0.0299))))
(command (setq a(polar a (+ ra 5.0498)(* sf 0.0344))))
(command (setq a(polar a (+ ra 4.9741)(* sf 0.0432))))
(command (setq a(polar a (+ ra 4.8954)(* sf 0.0404))))
(command (setq a(polar a (+ ra 4.8325)(* sf 0.0271))))
(command (setq a(polar a (+ ra 4.7708)(* sf 0.0400))))
(command (setq a(polar a (+ ra 4.6968)(* sf 0.0426))))
(command (setq a(polar a (+ ra 4.6230)(* sf 0.0402))))
(command (setq a(polar a (+ ra 4.5499)(* sf 0.0399))))
(command (setq a(polar a (+ ra 4.4698)(* sf 0.0441))))
(command (setq a(polar a (+ ra 4.3892)(* sf 0.0380))))
(command (setq a(polar a (+ ra 4.3128)(* sf 0.0372))))
(command (setq a(polar a (+ ra 4.2430)(* sf 0.0280))))
(command (setq a(polar a (+ ra 4.1672)(* sf 0.0375))))
(command (setq a(polar a (+ ra 4.0792)(* sf 0.0327))))
(command (setq a(polar a (+ ra 4.0001)(* sf 0.0268))))
(command (setq a(polar a (+ ra 3.9223)(* sf 0.0283))))
(command (setq a(polar a (+ ra 3.8471)(* sf 0.0214))))
(command (setq a(polar a (+ ra 2.3536)(* sf 0.1128))))
(command (setq a(polar a (+ ra 3.9244)(* sf 0.0833))))
(command (setq a(polar a (+ ra 5.4952)(* sf 0.0901))) "")
(setq a(polar a (+ ra 6.1180)(* sf 0.5929)))
a
)
(defun UR(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.9990))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.4103))))
(command (setq a(polar a (+ ra 6.2063)(* sf 0.0397))))
(command (setq a(polar a (+ ra 6.0503)(* sf 0.0408))))
(command (setq a(polar a (+ ra 5.8889)(* sf 0.0425))))
(command (setq a(polar a (+ ra 5.7115)(* sf 0.0491))))
(command (setq a(polar a (+ ra 5.5199)(* sf 0.0498))))
(command (setq a(polar a (+ ra 5.3340)(* sf 0.0461))))
(command (setq a(polar a (+ ra 5.1737)(* sf 0.0367))))
(command (setq a(polar a (+ ra 4.9978)(* sf 0.0541))))
(command (setq a(polar a (+ ra 4.7953)(* sf 0.0504))))
(command (setq a(polar a (+ ra 4.6140)(* sf 0.0432))))
(command (setq a(polar a (+ ra 4.4636)(* sf 0.0344))))
(command (setq a(polar a (+ ra 4.3127)(* sf 0.0435))))
(command (setq a(polar a (+ ra 4.1586)(* sf 0.0360))))
(command (setq a(polar a (+ ra 4.0130)(* sf 0.0392))))
(command (setq a(polar a (+ ra 3.8718)(* sf 0.0337))))
(command (setq a(polar a (+ ra 3.7195)(* sf 0.0449))))
(command (setq a(polar a (+ ra 3.5467)(* sf 0.0443))))
(command (setq a(polar a (+ ra 3.3773)(* sf 0.0432))))
(command (setq a(polar a (+ ra 3.2176)(* sf 0.0392))))
(command (setq a(polar a (+ ra 5.2764)(* sf 0.5706))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0988))))
(command (setq a(polar a (+ ra 2.1378)(* sf 0.5717))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.2261))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.4823))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 1.4245)(* sf 0.5717)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.3501))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.3270))))
(command (setq a(polar a (+ ra 6.2100)(* sf 0.0256))))
(command (setq a(polar a (+ ra 6.0335)(* sf 0.0361))))
(command (setq a(polar a (+ ra 5.8106)(* sf 0.0418))))
(command (setq a(polar a (+ ra 5.5990)(* sf 0.0321))))
(command (setq a(polar a (+ ra 5.4136)(* sf 0.0327))))
(command (setq a(polar a (+ ra 5.2113)(* sf 0.0380))))
(command (setq a(polar a (+ ra 5.0092)(* sf 0.0327))))
(command (setq a(polar a (+ ra 4.8162)(* sf 0.0348))))
(command (setq a(polar a (+ ra 4.6235)(* sf 0.0326))))
(command (setq a(polar a (+ ra 4.4042)(* sf 0.0440))))
(command (setq a(polar a (+ ra 4.1607)(* sf 0.0410))))
(command (setq a(polar a (+ ra 3.9143)(* sf 0.0450))))
(command (setq a(polar a (+ ra 3.6978)(* sf 0.0306))))
(command (setq a(polar a (+ ra 3.5246)(* sf 0.0300))))
(command (setq a(polar a (+ ra 3.3651)(* sf 0.0258))))
(command (setq a(polar a (+ ra 3.1471)(* sf 0.3531)))"")
(setq a(polar a (+ ra 5.7338)(* sf 1.0832)))
a
)
(defun US(a)
(setq a(polar a (+ ra 1.5708)(* sf 0.1577)))
(command "PLINE" a (setq a(polar a (+ ra 5.2353)(* sf 0.0367))))
(command (setq a(polar a (+ ra 5.3646)(* sf 0.0364))))
(command (setq a(polar a (+ ra 5.4812)(* sf 0.0295))))
(command (setq a(polar a (+ ra 5.6008)(* sf 0.0381))))
(command (setq a(polar a (+ ra 5.7225)(* sf 0.0307))))
(command (setq a(polar a (+ ra 5.8372)(* sf 0.0341))))
(command (setq a(polar a (+ ra 5.9646)(* sf 0.0379))))
(command (setq a(polar a (+ ra 6.0970)(* sf 0.0369))))
(command (setq a(polar a (+ ra 6.2228)(* sf 0.0342))))
(command (setq a(polar a (+ ra 6.2832)(* sf 0.1312))))
(command (setq a(polar a (+ ra 0.0670)(* sf 0.0379))))
(command (setq a(polar a (+ ra 0.2036)(* sf 0.0393))))
(command (setq a(polar a (+ ra 0.3534)(* sf 0.0453))))
(command (setq a(polar a (+ ra 0.5009)(* sf 0.0381))))
(command (setq a(polar a (+ ra 0.6407)(* sf 0.0409))))
(command (setq a(polar a (+ ra 0.7736)(* sf 0.0341))))
(command (setq a(polar a (+ ra 0.8892)(* sf 0.0312))))
(command (setq a(polar a (+ ra 1.0197)(* sf 0.0425))))
(command (setq a(polar a (+ ra 1.1780)(* sf 0.0469))))
(command (setq a(polar a (+ ra 1.3157)(* sf 0.0308))))
(command (setq a(polar a (+ ra 1.4149)(* sf 0.0253))))
(command (setq a(polar a (+ ra 1.5197)(* sf 0.0340))))
(command (setq a(polar a (+ ra 1.6655)(* sf 0.0484))))
(command (setq a(polar a (+ ra 1.8167)(* sf 0.0371))))
(command (setq a(polar a (+ ra 1.9528)(* sf 0.0398))))
(command (setq a(polar a (+ ra 2.0861)(* sf 0.0356))))
(command (setq a(polar a (+ ra 2.2012)(* sf 0.0294))))
(command (setq a(polar a (+ ra 2.3154)(* sf 0.0351))))
(command (setq a(polar a (+ ra 2.4491)(* sf 0.0404))))
(command (setq a(polar a (+ ra 2.5696)(* sf 0.0277))))
(command (setq a(polar a (+ ra 2.6851)(* sf 0.0376))))
(command (setq a(polar a (+ ra 2.8013)(* sf 0.0281))))
(command (setq a(polar a (+ ra 2.9060)(* sf 0.0310))))
(command (setq a(polar a (+ ra 3.0015)(* sf 0.0229))))
(command (setq a(polar a (+ ra 3.0918)(* sf 0.0281))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1312))))
(command (setq a(polar a (+ ra 3.0589)(* sf 0.0289))))
(command (setq a(polar a (+ ra 2.8762)(* sf 0.0350))))
(command (setq a(polar a (+ ra 2.6788)(* sf 0.0340))))
(command (setq a(polar a (+ ra 2.5095)(* sf 0.0252))))
(command (setq a(polar a (+ ra 2.3498)(* sf 0.0307))))
(command (setq a(polar a (+ ra 2.1680)(* sf 0.0329))))
(command (setq a(polar a (+ ra 2.0048)(* sf 0.0242))))
(command (setq a(polar a (+ ra 1.8306)(* sf 0.0367))))
(command (setq a(polar a (+ ra 1.6260)(* sf 0.0348))))
(command (setq a(polar a (+ ra 1.4541)(* sf 0.0253))))
(command (setq a(polar a (+ ra 1.2775)(* sf 0.0364))))
(command (setq a(polar a (+ ra 1.1017)(* sf 0.0250))))
(command (setq a(polar a (+ ra 0.9243)(* sf 0.0370))))
(command (setq a(polar a (+ ra 0.7392)(* sf 0.0277))))
(command (setq a(polar a (+ ra 0.5598)(* sf 0.0350))))
(command (setq a(polar a (+ ra 0.3867)(* sf 0.0255))))
(command (setq a(polar a (+ ra 0.2411)(* sf 0.0255))))
(command (setq a(polar a (+ ra 0.0842)(* sf 0.0294))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1312))))
(command (setq a(polar a (+ ra 6.1830)(* sf 0.0350))))
(command (setq a(polar a (+ ra 5.9964)(* sf 0.0302))))
(command (setq a(polar a (+ ra 5.8323)(* sf 0.0272))))
(command (setq a(polar a (+ ra 5.6616)(* sf 0.0325))))
(command (setq a(polar a (+ ra 5.4964)(* sf 0.0253))))
(command (setq a(polar a (+ ra 5.3448)(* sf 0.0278))))
(command (setq a(polar a (+ ra 5.2129)(* sf 0.0184))))
(command (setq a(polar a (+ ra 5.1174)(* sf 0.0150))))
(command (setq a(polar a (+ ra 0.4348)(* sf 0.0835))))
(command (setq a(polar a (+ ra 1.9858)(* sf 0.0152))))
(command (setq a(polar a (+ ra 2.0713)(* sf 0.0289))))
(command (setq a(polar a (+ ra 2.1782)(* sf 0.0263))))
(command (setq a(polar a (+ ra 2.2704)(* sf 0.0213))))
(command (setq a(polar a (+ ra 2.3650)(* sf 0.0275))))
(command (setq a(polar a (+ ra 2.4720)(* sf 0.0278))))
(command (setq a(polar a (+ ra 2.5852)(* sf 0.0307))))
(command (setq a(polar a (+ ra 2.7021)(* sf 0.0297))))
(command (setq a(polar a (+ ra 2.8261)(* sf 0.0343))))
(command (setq a(polar a (+ ra 2.9277)(* sf 0.0181))))
(command (setq a(polar a (+ ra 3.0247)(* sf 0.0320))))
(command (setq a(polar a (+ ra 3.1141)(* sf 0.0142))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1312))))
(command (setq a(polar a (+ ra 3.1988)(* sf 0.0296))))
(command (setq a(polar a (+ ra 3.3104)(* sf 0.0281))))
(command (setq a(polar a (+ ra 3.4328)(* sf 0.0352))))
(command (setq a(polar a (+ ra 3.5878)(* sf 0.0448))))
(command (setq a(polar a (+ ra 3.7461)(* sf 0.0369))))
(command (setq a(polar a (+ ra 3.8834)(* sf 0.0340))))
(command (setq a(polar a (+ ra 4.0327)(* sf 0.0431))))
(command (setq a(polar a (+ ra 4.1829)(* sf 0.0344))))
(command (setq a(polar a (+ ra 4.3242)(* sf 0.0385))))
(command (setq a(polar a (+ ra 4.4788)(* sf 0.0413))))
(command (setq a(polar a (+ ra 4.6163)(* sf 0.0297))))
(command (setq a(polar a (+ ra 4.7283)(* sf 0.0282))))
(command (setq a(polar a (+ ra 4.8699)(* sf 0.0450))))
(command (setq a(polar a (+ ra 5.0414)(* sf 0.0435))))
(command (setq a(polar a (+ ra 5.1892)(* sf 0.0327))))
(command (setq a(polar a (+ ra 5.3000)(* sf 0.0245))))
(command (setq a(polar a (+ ra 5.4190)(* sf 0.0369))))
(command (setq a(polar a (+ ra 5.5684)(* sf 0.0402))))
(command (setq a(polar a (+ ra 5.7229)(* sf 0.0396))))
(command (setq a(polar a (+ ra 5.8571)(* sf 0.0297))))
(command (setq a(polar a (+ ra 5.9847)(* sf 0.0362))))
(command (setq a(polar a (+ ra 6.1109)(* sf 0.0290))))
(command (setq a(polar a (+ ra 6.2251)(* sf 0.0300))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1312))))
(command (setq a(polar a (+ ra 6.1886)(* sf 0.0377))))
(command (setq a(polar a (+ ra 6.0172)(* sf 0.0306))))
(command (setq a(polar a (+ ra 5.8531)(* sf 0.0348))))
(command (setq a(polar a (+ ra 5.6747)(* sf 0.0363))))
(command (setq a(polar a (+ ra 5.4891)(* sf 0.0377))))
(command (setq a(polar a (+ ra 5.3203)(* sf 0.0295))))
(command (setq a(polar a (+ ra 5.1653)(* sf 0.0323))))
(command (setq a(polar a (+ ra 4.9738)(* sf 0.0440))))
(command (setq a(polar a (+ ra 4.7767)(* sf 0.0345))))
(command (setq a(polar a (+ ra 4.6140)(* sf 0.0304))))
(command (setq a(polar a (+ ra 4.4395)(* sf 0.0391))))
(command (setq a(polar a (+ ra 4.2473)(* sf 0.0374))))
(command (setq a(polar a (+ ra 4.0747)(* sf 0.0313))))
(command (setq a(polar a (+ ra 3.9307)(* sf 0.0261))))
(command (setq a(polar a (+ ra 3.8009)(* sf 0.0257))))
(command (setq a(polar a (+ ra 3.6857)(* sf 0.0203))))
(command (setq a(polar a (+ ra 3.5761)(* sf 0.0234))))
(command (setq a(polar a (+ ra 3.4469)(* sf 0.0281))))
(command (setq a(polar a (+ ra 3.3376)(* sf 0.0155))))
(command (setq a(polar a (+ ra 3.2202)(* sf 0.0313))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1312))))
(command (setq a(polar a (+ ra 3.0485)(* sf 0.0371))))
(command (setq a(polar a (+ ra 2.8759)(* sf 0.0317))))
(command (setq a(polar a (+ ra 2.7271)(* sf 0.0276))))
(command (setq a(polar a (+ ra 2.5866)(* sf 0.0284))))
(command (setq a(polar a (+ ra 2.4602)(* sf 0.0220))))
(command (setq a(polar a (+ ra 2.3480)(* sf 0.0228))))
(command (setq a(polar a (+ ra 2.2311)(* sf 0.0239))))
(command (setq a(polar a (+ ra 2.1049)(* sf 0.0264))))
(command (setq a(polar a (+ ra 3.5764)(* sf 0.0834)))"")
(setq a(polar a (+ ra 6.1183)(* sf 0.9607)))
a
)
(defun UT(a)
(setq a(polar a (+ ra 0.0000)(* sf 0.2892)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.9167))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.2892))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0833))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.6617))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.2892))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.9167))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.5655)))
a
)
(defun UU(a)
(setq a(polar a (+ ra 1.5708)(* sf 1.0000)))
(command "PLINE" a (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.6667))))
(command (setq a(polar a (+ ra 4.7960)(* sf 0.0418))))
(command (setq a(polar a (+ ra 4.9434)(* sf 0.0318))))
(command (setq a(polar a (+ ra 5.0834)(* sf 0.0381))))
(command (setq a(polar a (+ ra 5.2254)(* sf 0.0328))))
(command (setq a(polar a (+ ra 5.3690)(* sf 0.0390))))
(command (setq a(polar a (+ ra 5.5327)(* sf 0.0428))))
(command (setq a(polar a (+ ra 5.7102)(* sf 0.0459))))
(command (setq a(polar a (+ ra 5.8703)(* sf 0.0341))))
(command (setq a(polar a (+ ra 6.0244)(* sf 0.0319))))
;(command (setq a(polar a (+ ra 6.0244)(* sf 0.0429))))
;(command (setq a(polar a (+ ra 2.9156)(* sf 0.0266))))
;(command (setq a(polar a (+ ra 6.0803)(* sf 0.0381))))
(command (setq a(polar a (+ ra 6.0803)(* sf 0.0225))))
(command (setq a(polar a (+ ra 6.2318)(* sf 0.0376))))
(command (setq a(polar a (+ ra 0.1179)(* sf 0.0470))))
(command (setq a(polar a (+ ra 0.2920)(* sf 0.0400))))
(command (setq a(polar a (+ ra 0.4373)(* sf 0.0326))))
(command (setq a(polar a (+ ra 0.5711)(* sf 0.0342))))
(command (setq a(polar a (+ ra 0.7150)(* sf 0.0377))))
(command (setq a(polar a (+ ra 0.8593)(* sf 0.0344))))
(command (setq a(polar a (+ ra 0.9830)(* sf 0.0274))))
(command (setq a(polar a (+ ra 1.1090)(* sf 0.0356))))
(command (setq a(polar a (+ ra 1.2622)(* sf 0.0409))))
(command (setq a(polar a (+ ra 1.4128)(* sf 0.0343))))
(command (setq a(polar a (+ ra 1.5261)(* sf 0.0223))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.6667))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.6667))))
(command (setq a(polar a (+ ra 4.6375)(* sf 0.0499))))
(command (setq a(polar a (+ ra 4.4986)(* sf 0.0427))))
(command (setq a(polar a (+ ra 4.3833)(* sf 0.0342))))
(command (setq a(polar a (+ ra 4.2766)(* sf 0.0370))))
(command (setq a(polar a (+ ra 4.1536)(* sf 0.0450))))
(command (setq a(polar a (+ ra 4.0326)(* sf 0.0356))))
(command (setq a(polar a (+ ra 3.9208)(* sf 0.0389))))
(command (setq a(polar a (+ ra 3.8020)(* sf 0.0403))))
(command (setq a(polar a (+ ra 3.6878)(* sf 0.0358))))
(command (setq a(polar a (+ ra 3.5814)(* sf 0.0351))))
(command (setq a(polar a (+ ra 3.4774)(* sf 0.0343))))
(command (setq a(polar a (+ ra 3.3770)(* sf 0.0326))))
(command (setq a(polar a (+ ra 3.2879)(* sf 0.0267))))
(command (setq a(polar a (+ ra 3.2001)(* sf 0.0318))))
(command (setq a(polar a (+ ra 3.0961)(* sf 0.0374))))
(command (setq a(polar a (+ ra 2.9733)(* sf 0.0444))))
(command (setq a(polar a (+ ra 2.8548)(* sf 0.0345))))
(command (setq a(polar a (+ ra 2.7525)(* sf 0.0336))))
(command (setq a(polar a (+ ra 2.6299)(* sf 0.0481))))
(command (setq a(polar a (+ ra 2.4804)(* sf 0.0515))))
(command (setq a(polar a (+ ra 2.3529)(* sf 0.0334))))
(command (setq a(polar a (+ ra 2.2499)(* sf 0.0353))))
(command (setq a(polar a (+ ra 2.1237)(* sf 0.0488))))
(command (setq a(polar a (+ ra 2.0113)(* sf 0.0261))))
(command (setq a(polar a (+ ra 1.9177)(* sf 0.0362))))
(command (setq a(polar a (+ ra 1.8010)(* sf 0.0415))))
(command (setq a(polar a (+ ra 1.7096)(* sf 0.0194))))
(command (setq a(polar a (+ ra 1.6257)(* sf 0.0366))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.6667)))"")
(setq a(polar a (+ ra 5.4986)(* sf 1.4154)))
a
)
(defun UV(a)
(setq a(polar a (+ ra 1.5708)(* sf 1.0000)))
(command "PLINE" a (setq a(polar a (+ ra 0.0000)(* sf 0.0893))))
(command (setq a(polar a (+ ra 5.0787)(* sf 0.9465))))
(command (setq a(polar a (+ ra 1.2045)(* sf 0.9465))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0893))))
(command (setq a(polar a (+ ra 4.3461)(* sf 1.0711))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0893))))
(command (setq a(polar a (+ ra 1.9371)(* sf 1.0711)))"")
(setq a(polar a (+ ra 5.5522)(* sf 1.4980)))
a
)
(defun UW(a)
(setq a(polar a (+ ra 1.5708)(* sf 1.0000)))
(command "PLINE" a (setq a(polar a (+ ra 0.0000)(* sf 0.0856))))
(command (setq a(polar a (+ ra 4.9448)(* sf 0.8417))))
(command (setq a(polar a (+ ra 1.3384)(* sf 0.8417))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0858))))
(command (setq a(polar a (+ ra 4.9448)(* sf 0.8417))))
(command (setq a(polar a (+ ra 1.3384)(* sf 0.8417))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0856))))
(command (setq a(polar a (+ ra 4.4800)(* sf 1.0276))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0856))))
(command (setq a(polar a (+ ra 1.8032)(* sf 0.8421))))
(command (setq a(polar a (+ ra 4.4800)(* sf 0.8421))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0856))))
(command (setq a(polar a (+ ra 1.8032)(* sf 1.0276)))"")
(setq a(polar a (+ ra 5.5938)(* sf 1.5722)))
a
)
(defun UX(a)
(command "PLINE" a (setq a(polar a (+ ra 0.9835)(* sf 0.6007))))
(command (setq a(polar a (+ ra 2.1581)(* sf 0.6007))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1001))))
(command (setq a(polar a (+ ra 5.2997)(* sf 0.5103))))
(command (setq a(polar a (+ ra 0.9835)(* sf 0.5103))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1001))))
(command (setq a(polar a (+ ra 4.1250)(* sf 0.6007))))
(command (setq a(polar a (+ ra 5.2997)(* sf 0.6007))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1001))))
(command (setq a(polar a (+ ra 2.1581)(* sf 0.5103))))
(command (setq a(polar a (+ ra 4.1250)(* sf 0.5103))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1001)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.9507)))
a
)
(defun UY(a)
(setq a(polar a (+ ra 1.5708)(* sf 1.0000)))
(command "PLINE" a (setq a(polar a (+ ra 0.0000)(* sf 0.1066))))
(command (setq a(polar a (+ ra 5.3862)(* sf 0.5282))))
(command (setq a(polar a (+ ra 0.8970)(* sf 0.5282))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1066))))
(command (setq a(polar a (+ ra 4.0386)(* sf 0.6324))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.5058))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.5058))))
(command (setq a(polar a (+ ra 2.2446)(* sf 0.6324)))"")
(setq a(polar a (+ ra 5.5028)(* sf 1.4214)))
a
)
(defun UZ(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.0819))))
(command (setq a(polar a (+ ra 0.9845)(* sf 1.0022))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.5544))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0833))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.6624))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0715))))
(command (setq a(polar a (+ ra 4.1261)(* sf 1.0146))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.5613))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.6624)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.9385)))
a
)
(defun N1(a)
(setq a(polar a (+ ra 1.5708)(* sf 0.7476)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.0870))))
(command (setq a(polar a (+ ra 0.2908)(* sf 0.0362))))
(command (setq a(polar a (+ ra 0.3360)(* sf 0.0343))))
(command (setq a(polar a (+ ra 0.4511)(* sf 0.0271))))
(command (setq a(polar a (+ ra 0.6396)(* sf 0.0352))))
(command (setq a(polar a (+ ra 0.7888)(* sf 0.0308))))
(command (setq a(polar a (+ ra 0.8585)(* sf 0.0359))))
(command (setq a(polar a (+ ra 0.8858)(* sf 0.0363))))
(command (setq a(polar a (+ ra 0.8952)(* sf 0.0259))))
(command (setq a(polar a (+ ra 0.8952)(* sf 0.0101))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 1.0000))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.8684))))
(command (setq a(polar a (+ ra 3.9653)(* sf 0.0341))))
(command (setq a(polar a (+ ra 3.8684)(* sf 0.0341))))
(command (setq a(polar a (+ ra 3.7315)(* sf 0.0412))))
(command (setq a(polar a (+ ra 3.5676)(* sf 0.0275))))
(command (setq a(polar a (+ ra 3.4933)(* sf 0.0345))))
(command (setq a(polar a (+ ra 3.4435)(* sf 0.0314))))
(command (setq a(polar a (+ ra 3.4324)(* sf 0.0417)))"")
(setq a(polar a (+ ra 5.5240)(* sf 1.0944)))
a
)
(defun N2(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.1524))))
(command (setq a(polar a (+ ra 0.7940)(* sf 0.6672))))
(command (setq a(polar a (+ ra 0.9481)(* sf 0.0261))))
(command (setq a(polar a (+ ra 1.1134)(* sf 0.0317))))
(command (setq a(polar a (+ ra 1.3055)(* sf 0.0354))))
(command (setq a(polar a (+ ra 1.5268)(* sf 0.0419))))
(command (setq a(polar a (+ ra 1.7685)(* sf 0.0425))))
(command (setq a(polar a (+ ra 1.9851)(* sf 0.0332))))
(command (setq a(polar a (+ ra 2.1947)(* sf 0.0401))))
(command (setq a(polar a (+ ra 2.4129)(* sf 0.0362))))
(command (setq a(polar a (+ ra 2.6003)(* sf 0.0293))))
(command (setq a(polar a (+ ra 2.7803)(* sf 0.0336))))
(command (setq a(polar a (+ ra 2.9657)(* sf 0.0312))))
(command (setq a(polar a (+ ra 3.1209)(* sf 0.0317))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0323))))
(command (setq a(polar a (+ ra 3.1490)(* sf 0.0410))))
(command (setq a(polar a (+ ra 3.2769)(* sf 0.0267))))
(command (setq a(polar a (+ ra 3.4462)(* sf 0.0325))))
(command (setq a(polar a (+ ra 3.6210)(* sf 0.0286))))
(command (setq a(polar a (+ ra 3.7958)(* sf 0.0325))))
(command (setq a(polar a (+ ra 3.9776)(* sf 0.0311))))
(command (setq a(polar a (+ ra 4.1465)(* sf 0.0280))))
(command (setq a(polar a (+ ra 4.2884)(* sf 0.0217))))
(command (setq a(polar a (+ ra 2.7068)(* sf 0.0835))))
(command (setq a(polar a (+ ra 1.1406)(* sf 0.0231))))
(command (setq a(polar a (+ ra 1.0558)(* sf 0.0207))))
(command (setq a(polar a (+ ra 0.9321)(* sf 0.0431))))
(command (setq a(polar a (+ ra 0.7685)(* sf 0.0414))))
(command (setq a(polar a (+ ra 0.6116)(* sf 0.0397))))
(command (setq a(polar a (+ ra 0.4804)(* sf 0.0281))))
(command (setq a(polar a (+ ra 0.3432)(* sf 0.0427))))
(command (setq a(polar a (+ ra 0.1868)(* sf 0.0380))))
(command (setq a(polar a (+ ra 0.0566)(* sf 0.0292))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0794))))
(command (setq a(polar a (+ ra 6.2260)(* sf 0.0295))))
(command (setq a(polar a (+ ra 6.0921)(* sf 0.0396))))
(command (setq a(polar a (+ ra 5.9675)(* sf 0.0247))))
(command (setq a(polar a (+ ra 5.8617)(* sf 0.0299))))
(command (setq a(polar a (+ ra 5.7225)(* sf 0.0420))))
(command (setq a(polar a (+ ra 5.5909)(* sf 0.0259))))
(command (setq a(polar a (+ ra 5.4847)(* sf 0.0289))))
(command (setq a(polar a (+ ra 5.3554)(* sf 0.0379))))
(command (setq a(polar a (+ ra 5.2164)(* sf 0.0339))))
(command (setq a(polar a (+ ra 5.0846)(* sf 0.0342))))
(command (setq a(polar a (+ ra 4.9485)(* sf 0.0361))))
(command (setq a(polar a (+ ra 4.7770)(* sf 0.0524))))
(command (setq a(polar a (+ ra 4.6045)(* sf 0.0366))))
(command (setq a(polar a (+ ra 4.4737)(* sf 0.0310))))
(command (setq a(polar a (+ ra 4.3458)(* sf 0.0351))))
(command (setq a(polar a (+ ra 4.2147)(* sf 0.0326))))
(command (setq a(polar a (+ ra 4.1012)(* sf 0.0261))))
(command (setq a(polar a (+ ra 4.0259)(* sf 0.0128))))
(command (setq a(polar a (+ ra 3.9356)(* sf 0.6361))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0350))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.5090))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.5923)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.9322)))
a
)
(defun N3(a)
(setq a(polar a (+ ra 1.5708)(* sf 0.1898)))
(command "PLINE" a (setq a(polar a (+ ra 0.4541)(* sf 0.0833))))
(command (setq a(polar a (+ ra 5.1665)(* sf 0.0334))))
(command (setq a(polar a (+ ra 5.1665)(* sf 0.0453))))
(command (setq a(polar a (+ ra 5.4170)(* sf 0.0373))))
(command (setq a(polar a (+ ra 5.7970)(* sf 0.0341))))
(command (setq a(polar a (+ ra 5.9760)(* sf 0.0371))))
(command (setq a(polar a (+ ra 5.9760)(* sf 0.0401))))
(command (setq a(polar a (+ ra 6.1497)(* sf 0.0350))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0484))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0369))))
(command (setq a(polar a (+ ra 0.2375)(* sf 0.0499))))
(command (setq a(polar a (+ ra 0.2972)(* sf 0.0525))))
(command (setq a(polar a (+ ra 0.5896)(* sf 0.0492))))
(command (setq a(polar a (+ ra 0.7736)(* sf 0.0440))))
(command (setq a(polar a (+ ra 1.0153)(* sf 0.0437))))
(command (setq a(polar a (+ ra 1.2489)(* sf 0.0320))))
(command (setq a(polar a (+ ra 1.2489)(* sf 0.0350))))
(command (setq a(polar a (+ ra 1.4061)(* sf 0.0478))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0322))))
(command (setq a(polar a (+ ra 1.7465)(* sf 0.0463))))
(command (setq a(polar a (+ ra 1.8639)(* sf 0.0459))))
(command (setq a(polar a (+ ra 1.8639)(* sf 0.0174))))
(command (setq a(polar a (+ ra 2.0676)(* sf 0.0344))))
(command (setq a(polar a (+ ra 2.5117)(* sf 0.0368))))
(command (setq a(polar a (+ ra 2.6965)(* sf 0.0352))))
(command (setq a(polar a (+ ra 2.7983)(* sf 0.0332))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.2837))))
(command (setq a(polar a (+ ra 0.9242)(* sf 0.4785))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.3601))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0833))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.5274))))
(command (setq a(polar a (+ ra 4.0658)(* sf 0.4785))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1430))))
(command (setq a(polar a (+ ra 5.8381)(* sf 0.0372))))
(command (setq a(polar a (+ ra 5.8381)(* sf 0.0371))))
(command (setq a(polar a (+ ra 5.8381)(* sf 0.0164))))
(command (setq a(polar a (+ ra 5.6825)(* sf 0.0351))))
(command (setq a(polar a (+ ra 5.5203)(* sf 0.0326))))
(command (setq a(polar a (+ ra 5.2717)(* sf 0.0394))))
(command (setq a(polar a (+ ra 5.0055)(* sf 0.0971))))
(command (setq a(polar a (+ ra 4.8993)(* sf 0.0470))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0645))))
(command (setq a(polar a (+ ra 4.5064)(* sf 0.0513))))
(command (setq a(polar a (+ ra 4.3904)(* sf 0.0867))))
(command (setq a(polar a (+ ra 4.1687)(* sf 0.0520))))
(command (setq a(polar a (+ ra 3.9152)(* sf 0.0880))))
(command (setq a(polar a (+ ra 3.6685)(* sf 0.0492))))
(command (setq a(polar a (+ ra 3.4388)(* sf 0.0832))))
(command (setq a(polar a (+ ra 3.3480)(* sf 0.0508))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1014))))
(command (setq a(polar a (+ ra 2.9515)(* sf 0.0613))))
(command (setq a(polar a (+ ra 2.8344)(* sf 0.0795))))
(command (setq a(polar a (+ ra 2.6837)(* sf 0.0429))))
(command (setq a(polar a (+ ra 2.3565)(* sf 0.0456))))
(command (setq a(polar a (+ ra 2.1501)(* sf 0.0422))))
(command (setq a(polar a (+ ra 2.0249)(* sf 0.0753)))"")
(setq a(polar a (+ ra 6.0850)(* sf 0.9641)))
a
)
(defun N4(a)
(setq a(polar a (+ ra 1.5708)(* sf 0.2931)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.1076))))
(command (setq a(polar a (+ ra 0.9487)(* sf 0.7374))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0929))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.6235))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1975))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1975))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.2931))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.2931))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.4394)))"")
(setq a(polar a (+ ra 0.7746)(* sf 0.1191)))
(command "PLINE" a (setq a(polar a (+ ra 0.9487)(* sf 0.6078))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.4939))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.3542)))"")
(setq a(polar a (+ ra 5.8756)(* sf 0.9497)))
a
)
(defun N5(a)
(setq a(polar a (+ ra 1.5708)(* sf 0.1791)))
(command "PLINE" a (setq a(polar a (+ ra 0.4680)(* sf 0.0834))))
(command (setq a(polar a (+ ra 5.2990)(* sf 0.0332))))
(command (setq a(polar a (+ ra 5.4548)(* sf 0.0458))))
(command (setq a(polar a (+ ra 5.6209)(* sf 0.0403))))
(command (setq a(polar a (+ ra 5.7643)(* sf 0.0377))))
(command (setq a(polar a (+ ra 5.9013)(* sf 0.0393))))
(command (setq a(polar a (+ ra 6.0489)(* sf 0.0442))))
(command (setq a(polar a (+ ra 6.2103)(* sf 0.0495))))
(command (setq a(polar a (+ ra 0.0915)(* sf 0.0472))))
(command (setq a(polar a (+ ra 0.2477)(* sf 0.0424))))
(command (setq a(polar a (+ ra 0.4076)(* sf 0.0487))))
(command (setq a(polar a (+ ra 0.5758)(* sf 0.0450))))
(command (setq a(polar a (+ ra 0.7462)(* sf 0.0451))))
(command (setq a(polar a (+ ra 0.9204)(* sf 0.0445))))
(command (setq a(polar a (+ ra 1.1245)(* sf 0.0558))))
(command (setq a(polar a (+ ra 1.3449)(* sf 0.0482))))
(command (setq a(polar a (+ ra 1.5462)(* sf 0.0455))))
(command (setq a(polar a (+ ra 1.7469)(* sf 0.0469))))
(command (setq a(polar a (+ ra 1.9520)(* sf 0.0497))))
(command (setq a(polar a (+ ra 2.1541)(* sf 0.0485))))
(command (setq a(polar a (+ ra 2.3348)(* sf 0.0422))))
(command (setq a(polar a (+ ra 2.5012)(* sf 0.0460))))
(command (setq a(polar a (+ ra 2.6461)(* sf 0.0328))))
(command (setq a(polar a (+ ra 2.7656)(* sf 0.0332))))
(command (setq a(polar a (+ ra 2.8942)(* sf 0.0407))))
(command (setq a(polar a (+ ra 3.0544)(* sf 0.0529))))
(command (setq a(polar a (+ ra 3.2051)(* sf 0.0342))))
(command (setq a(polar a (+ ra 3.3197)(* sf 0.0326))))
(command (setq a(polar a (+ ra 3.4414)(* sf 0.0382))))
(command (setq a(polar a (+ ra 3.5718)(* sf 0.0379))))
(command (setq a(polar a (+ ra 3.6111)(* sf 0.0412))))
(command (setq a(polar a (+ ra 3.6111)(* sf 0.0433))))
(command (setq a(polar a (+ ra 3.6111)(* sf 0.0361))))
(command (setq a(polar a (+ ra 3.6111)(* sf 0.0373))))
(command (setq a(polar a (+ ra 1.4530)(* sf 0.5261))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.4750))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.4010))))
(command (setq a(polar a (+ ra 4.5946)(* sf 0.2965))))
(command (setq a(polar a (+ ra 0.4518)(* sf 0.0317))))
(command (setq a(polar a (+ ra 0.3678)(* sf 0.0337))))
(command (setq a(polar a (+ ra 0.2707)(* sf 0.0378))))
(command (setq a(polar a (+ ra 0.1697)(* sf 0.0374))))
(command (setq a(polar a (+ ra 0.0676)(* sf 0.0391))))
(command (setq a(polar a (+ ra 6.2405)(* sf 0.0437))))
(command (setq a(polar a (+ ra 6.1286)(* sf 0.0402))))
(command (setq a(polar a (+ ra 6.0242)(* sf 0.0376))))
(command (setq a(polar a (+ ra 5.9267)(* sf 0.0344))))
(command (setq a(polar a (+ ra 5.8224)(* sf 0.0416))))
(command (setq a(polar a (+ ra 5.7205)(* sf 0.0316))))
(command (setq a(polar a (+ ra 5.6326)(* sf 0.0305))))
(command (setq a(polar a (+ ra 5.5376)(* sf 0.0356))))
(command (setq a(polar a (+ ra 5.3978)(* sf 0.0596))))
(command (setq a(polar a (+ ra 5.2642)(* sf 0.0294))))
(command (setq a(polar a (+ ra 5.1586)(* sf 0.0395))))
(command (setq a(polar a (+ ra 5.0347)(* sf 0.0403))))
(command (setq a(polar a (+ ra 4.8982)(* sf 0.0464))))
(command (setq a(polar a (+ ra 4.7557)(* sf 0.0434))))
(command (setq a(polar a (+ ra 4.6214)(* sf 0.0411))))
(command (setq a(polar a (+ ra 4.4853)(* sf 0.0448))))
(command (setq a(polar a (+ ra 4.3487)(* sf 0.0423))))
(command (setq a(polar a (+ ra 4.2310)(* sf 0.0338))))
(command (setq a(polar a (+ ra 4.1312)(* sf 0.0318))))
(command (setq a(polar a (+ ra 4.0347)(* sf 0.0325))))
(command (setq a(polar a (+ ra 3.9317)(* sf 0.0374))))
(command (setq a(polar a (+ ra 3.8349)(* sf 0.0295))))
(command (setq a(polar a (+ ra 3.7297)(* sf 0.0444))))
(command (setq a(polar a (+ ra 3.6097)(* sf 0.0415))))
(command (setq a(polar a (+ ra 3.4926)(* sf 0.0438))))
(command (setq a(polar a (+ ra 3.3793)(* sf 0.0400))))
(command (setq a(polar a (+ ra 3.2824)(* sf 0.0322))))
(command (setq a(polar a (+ ra 3.1795)(* sf 0.0449))))
(command (setq a(polar a (+ ra 3.0720)(* sf 0.0357))))
(command (setq a(polar a (+ ra 2.9742)(* sf 0.0375))))
(command (setq a(polar a (+ ra 2.8809)(* sf 0.0319))))
(command (setq a(polar a (+ ra 2.7862)(* sf 0.0380))))
(command (setq a(polar a (+ ra 2.6879)(* sf 0.0337))))
(command (setq a(polar a (+ ra 2.6030)(* sf 0.0274))))
(command (setq a(polar a (+ ra 2.5287)(* sf 0.0254))))
(command (setq a(polar a (+ ra 2.4526)(* sf 0.0279))))
(command (setq a(polar a (+ ra 2.3462)(* sf 0.0455))))
(command (setq a(polar a (+ ra 2.2157)(* sf 0.0428))))
(command (setq a(polar a (+ ra 2.1144)(* sf 0.0245)))"")
(setq a(polar a (+ ra 6.0937)(* sf 0.9512)))
a
)
(defun N6(a)
(setq a(polar a (+ ra 1.4066)(* sf 0.5156)))
(command "PLINE" a (setq a(polar a (+ ra 1.5299)(* sf 0.0334))))
(command (setq a(polar a (+ ra 1.4838)(* sf 0.0345))))
(command (setq a(polar a (+ ra 1.4632)(* sf 0.0311))))
(command (setq a(polar a (+ ra 1.4193)(* sf 0.0464))))
(command (setq a(polar a (+ ra 1.3625)(* sf 0.0449))))
(command (setq a(polar a (+ ra 1.2949)(* sf 0.0512))))
(command (setq a(polar a (+ ra 1.2044)(* sf 0.0423))))
(command (setq a(polar a (+ ra 1.0692)(* sf 0.0531))))
(command (setq a(polar a (+ ra 0.8561)(* sf 0.0453))))
(command (setq a(polar a (+ ra 0.6306)(* sf 0.0370))))
(command (setq a(polar a (+ ra 0.3923)(* sf 0.0460))))
(command (setq a(polar a (+ ra 0.1983)(* sf 0.0405))))
(command (setq a(polar a (+ ra 0.0608)(* sf 0.0348))))
(command (setq a(polar a (+ ra 6.2192)(* sf 0.0320))))
(command (setq a(polar a (+ ra 6.1169)(* sf 0.0322))))
(command (setq a(polar a (+ ra 6.0099)(* sf 0.0378))))
(command (setq a(polar a (+ ra 5.7684)(* sf 0.0386))))
(command (setq a(polar a (+ ra 5.5112)(* sf 0.0259))))
(command (setq a(polar a (+ ra 5.2964)(* sf 0.0303))))
(command (setq a(polar a (+ ra 5.1991)(* sf 0.0246))))
(command (setq a(polar a (+ ra 0.4867)(* sf 0.0833))))
(command (setq a(polar a (+ ra 2.0575)(* sf 0.0258))))
(command (setq a(polar a (+ ra 2.1454)(* sf 0.0370))))
(command (setq a(polar a (+ ra 2.2838)(* sf 0.0274))))
(command (setq a(polar a (+ ra 2.4173)(* sf 0.0298))))
(command (setq a(polar a (+ ra 2.5738)(* sf 0.0348))))
(command (setq a(polar a (+ ra 2.7245)(* sf 0.0237))))
(command (setq a(polar a (+ ra 2.8469)(* sf 0.0389))))
(command (setq a(polar a (+ ra 2.9409)(* sf 0.0346))))
(command (setq a(polar a (+ ra 3.0138)(* sf 0.0281))))
(command (setq a(polar a (+ ra 3.1268)(* sf 0.0568))))
(command (setq a(polar a (+ ra 3.2574)(* sf 0.0317))))
(command (setq a(polar a (+ ra 3.3650)(* sf 0.0478))))
(command (setq a(polar a (+ ra 3.5177)(* sf 0.0462))))
(command (setq a(polar a (+ ra 3.6798)(* sf 0.0373))))
(command (setq a(polar a (+ ra 3.8373)(* sf 0.0428))))
(command (setq a(polar a (+ ra 4.0233)(* sf 0.0554))))
(command (setq a(polar a (+ ra 4.1755)(* sf 0.0432))))
(command (setq a(polar a (+ ra 4.3057)(* sf 0.0532))))
(command (setq a(polar a (+ ra 4.4007)(* sf 0.0570))))
(command (setq a(polar a (+ ra 4.4702)(* sf 0.0398))))
(command (setq a(polar a (+ ra 4.5205)(* sf 0.0045))))
(command (setq a(polar a (+ ra 4.5399)(* sf 0.0621))))
(command (setq a(polar a (+ ra 4.6011)(* sf 0.0640))))
(command (setq a(polar a (+ ra 4.6538)(* sf 0.0580))))
(command (setq a(polar a (+ ra 4.6909)(* sf 0.0461))))
(command (setq a(polar a (+ ra 4.7195)(* sf 0.0529))))
(command (setq a(polar a (+ ra 4.7582)(* sf 0.0602))))
(command (setq a(polar a (+ ra 4.7818)(* sf 0.0554))))
(command (setq a(polar a (+ ra 4.8178)(* sf 0.0452))))
(command (setq a(polar a (+ ra 4.9677)(* sf 0.0449))))
(command (setq a(polar a (+ ra 5.1302)(* sf 0.0532))))
(command (setq a(polar a (+ ra 5.2956)(* sf 0.0474))))
(command (setq a(polar a (+ ra 5.4493)(* sf 0.0471))))
(command (setq a(polar a (+ ra 5.6031)(* sf 0.0484))))
(command (setq a(polar a (+ ra 5.7427)(* sf 0.0391))))
(command (setq a(polar a (+ ra 5.8842)(* sf 0.0504))))
(command (setq a(polar a (+ ra 6.0107)(* sf 0.0301))))
(command (setq a(polar a (+ ra 6.1172)(* sf 0.0379))))
(command (setq a(polar a (+ ra 6.2340)(* sf 0.0369))))
(command (setq a(polar a (+ ra 0.0633)(* sf 0.0352))))
(command (setq a(polar a (+ ra 0.1859)(* sf 0.0433))))
(command (setq a(polar a (+ ra 0.3061)(* sf 0.0334))))
(command (setq a(polar a (+ ra 0.3998)(* sf 0.0262))))
(command (setq a(polar a (+ ra 0.5102)(* sf 0.0436))))
(command (setq a(polar a (+ ra 0.6435)(* sf 0.0401))))
(command (setq a(polar a (+ ra 0.7728)(* sf 0.0404))))
(command (setq a(polar a (+ ra 0.9113)(* sf 0.0450))))
(command (setq a(polar a (+ ra 1.0511)(* sf 0.0405))))
(command (setq a(polar a (+ ra 1.1941)(* sf 0.0463))))
(command (setq a(polar a (+ ra 1.3439)(* sf 0.0441))))
(command (setq a(polar a (+ ra 1.4831)(* sf 0.0395))))
(command (setq a(polar a (+ ra 1.6290)(* sf 0.0480))))
(command (setq a(polar a (+ ra 1.7853)(* sf 0.0458))))
(command (setq a(polar a (+ ra 1.9470)(* sf 0.0517))))
(command (setq a(polar a (+ ra 2.1267)(* sf 0.0575))))
(command (setq a(polar a (+ ra 2.2890)(* sf 0.0421))))
(command (setq a(polar a (+ ra 2.4181)(* sf 0.0379))))
(command (setq a(polar a (+ ra 2.5806)(* sf 0.0637))))
(command (setq a(polar a (+ ra 2.7593)(* sf 0.0491))))
(command (setq a(polar a (+ ra 2.9108)(* sf 0.0473))))
(command (setq a(polar a (+ ra 3.0418)(* sf 0.0365))))
(command (setq a(polar a (+ ra 3.1695)(* sf 0.0453))))
(command (setq a(polar a (+ ra 3.3113)(* sf 0.0455))))
(command (setq a(polar a (+ ra 3.4408)(* sf 0.0373))))
(command (setq a(polar a (+ ra 3.5609)(* sf 0.0390))))
(command (setq a(polar a (+ ra 3.6744)(* sf 0.0328))))
(command (setq a(polar a (+ ra 3.7864)(* sf 0.0375))))
(command (setq a(polar a (+ ra 3.9149)(* sf 0.0425)))"")
(setq a(polar a (+ ra 5.9080)(* sf 0.5007)))
(command "PLINE" a (setq a(polar a (+ ra 4.7173)(* sf 0.0345))))
(command (setq a(polar a (+ ra 4.5176)(* sf 0.0521))))
(command (setq a(polar a (+ ra 4.2801)(* sf 0.0511))))
(command (setq a(polar a (+ ra 4.0572)(* sf 0.0483))))
(command (setq a(polar a (+ ra 3.8500)(* sf 0.0446))))
(command (setq a(polar a (+ ra 3.6815)(* sf 0.0332))))
(command (setq a(polar a (+ ra 3.5266)(* sf 0.0393))))
(command (setq a(polar a (+ ra 3.3751)(* sf 0.0311))))
(command (setq a(polar a (+ ra 3.2499)(* sf 0.0281))))
(command (setq a(polar a (+ ra 3.1188)(* sf 0.0347))))
(command (setq a(polar a (+ ra 2.9792)(* sf 0.0316))))
(command (setq a(polar a (+ ra 2.8129)(* sf 0.0460))))
(command (setq a(polar a (+ ra 2.6338)(* sf 0.0382))))
(command (setq a(polar a (+ ra 2.4899)(* sf 0.0285))))
(command (setq a(polar a (+ ra 2.3212)(* sf 0.0475))))
(command (setq a(polar a (+ ra 2.1354)(* sf 0.0362))))
(command (setq a(polar a (+ ra 1.9423)(* sf 0.0491))))
(command (setq a(polar a (+ ra 1.7592)(* sf 0.0235))))
(command (setq a(polar a (+ ra 1.6320)(* sf 0.0425))))
(command (setq a(polar a (+ ra 1.4042)(* sf 0.0522))))
(command (setq a(polar a (+ ra 1.1977)(* sf 0.0374))))
(command (setq a(polar a (+ ra 1.0178)(* sf 0.0423))))
(command (setq a(polar a (+ ra 0.8273)(* sf 0.0433))))
(command (setq a(polar a (+ ra 0.6367)(* sf 0.0427))))
(command (setq a(polar a (+ ra 0.4519)(* sf 0.0434))))
(command (setq a(polar a (+ ra 0.2717)(* sf 0.0409))))
(command (setq a(polar a (+ ra 0.0859)(* sf 0.0463))))
(command (setq a(polar a (+ ra 6.1821)(* sf 0.0431))))
(command (setq a(polar a (+ ra 6.0079)(* sf 0.0387))))
(command (setq a(polar a (+ ra 5.8289)(* sf 0.0449))))
(command (setq a(polar a (+ ra 5.6522)(* sf 0.0376))))
(command (setq a(polar a (+ ra 5.4855)(* sf 0.0378))))
(command (setq a(polar a (+ ra 5.3164)(* sf 0.0380))))
(command (setq a(polar a (+ ra 5.1287)(* sf 0.0456))))
(command (setq a(polar a (+ ra 4.9160)(* sf 0.0466))))
(command (setq a(polar a (+ ra 4.8024)(* sf 0.0026)))"")
(setq a(polar a (+ ra 5.6237)(* sf 0.5307)))
a
)
(defun N7(a)
(setq a(polar a (+ ra 0.0000)(* sf 0.0994)))
(command "PLINE" a (setq a(polar a (+ ra 1.1264)(* sf 1.0153))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.5359))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0833))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.6678))))
(command (setq a(polar a (+ ra 4.2680)(* sf 1.1076))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0923)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.8535)))
a
)
(defun N8(a)
(setq a(polar a (+ ra 0.0023)(* sf 0.3365)))
(command "PLINE" a (setq a(polar a (+ ra 3.1068)(* sf 0.0366))))
(command (setq a(polar a (+ ra 3.0098)(* sf 0.0444))))
(command (setq a(polar a (+ ra 2.9108)(* sf 0.0364))))
(command (setq a(polar a (+ ra 2.8151)(* sf 0.0389))))
(command (setq a(polar a (+ ra 2.7146)(* sf 0.0363))))
(command (setq a(polar a (+ ra 2.6249)(* sf 0.0272))))
(command (setq a(polar a (+ ra 2.5328)(* sf 0.0340))))
(command (setq a(polar a (+ ra 2.4254)(* sf 0.0327))))
(command (setq a(polar a (+ ra 2.3049)(* sf 0.0364))))
(command (setq a(polar a (+ ra 2.1798)(* sf 0.0298))))
(command (setq a(polar a (+ ra 2.0555)(* sf 0.0312))))
(command (setq a(polar a (+ ra 1.9094)(* sf 0.0358))))
(command (setq a(polar a (+ ra 1.7640)(* sf 0.0275))))
(command (setq a(polar a (+ ra 1.5513)(* sf 0.0438))))
(command (setq a(polar a (+ ra 1.4895)(* sf 0.0300))))
(command (setq a(polar a (+ ra 1.3951)(* sf 0.0322))))
(command (setq a(polar a (+ ra 1.2940)(* sf 0.0359))))
(command (setq a(polar a (+ ra 1.1844)(* sf 0.0413))))
(command (setq a(polar a (+ ra 1.1221)(* sf 0.0413))))
(command (setq a(polar a (+ ra 1.0754)(* sf 0.0310))))
(command (setq a(polar a (+ ra 0.9975)(* sf 0.0377))))
(command (setq a(polar a (+ ra 0.8946)(* sf 0.0274))))
(command (setq a(polar a (+ ra 0.7780)(* sf 0.0292))))
(command (setq a(polar a (+ ra 0.6359)(* sf 0.0378))))
(command (setq a(polar a (+ ra 0.5139)(* sf 0.0247))))
(command (setq a(polar a (+ ra 0.4339)(* sf 0.0211))))
(command (setq a(polar a (+ ra 2.6855)(* sf 0.0253))))
(command (setq a(polar a (+ ra 2.5731)(* sf 0.0395))))
(command (setq a(polar a (+ ra 2.4023)(* sf 0.0413))))
(command (setq a(polar a (+ ra 2.2561)(* sf 0.0320))))
(command (setq a(polar a (+ ra 2.1158)(* sf 0.0315))))
(command (setq a(polar a (+ ra 1.9834)(* sf 0.0325))))
(command (setq a(polar a (+ ra 1.8270)(* sf 0.0442))))
(command (setq a(polar a (+ ra 1.6565)(* sf 0.0322))))
(command (setq a(polar a (+ ra 1.3507)(* sf 0.0448))))
(command (setq a(polar a (+ ra 1.0816)(* sf 0.0328))))
(command (setq a(polar a (+ ra 0.8372)(* sf 0.0538))))
(command (setq a(polar a (+ ra 0.6225)(* sf 0.0417))))
(command (setq a(polar a (+ ra 0.4938)(* sf 0.0286))))
(command (setq a(polar a (+ ra 0.3884)(* sf 0.0381))))
(command (setq a(polar a (+ ra 0.2734)(* sf 0.0435))))
(command (setq a(polar a (+ ra 0.1642)(* sf 0.0418))))
(command (setq a(polar a (+ ra 0.0639)(* sf 0.0413))))
(command (setq a(polar a (+ ra 6.2476)(* sf 0.0430))))
(command (setq a(polar a (+ ra 6.1547)(* sf 0.0349))))
(command (setq a(polar a (+ ra 6.0588)(* sf 0.0420))))
(command (setq a(polar a (+ ra 5.9585)(* sf 0.0330))))
(command (setq a(polar a (+ ra 5.8460)(* sf 0.0425))))
(command (setq a(polar a (+ ra 5.6923)(* sf 0.0463))))
(command (setq a(polar a (+ ra 5.5214)(* sf 0.0355))))
(command (setq a(polar a (+ ra 5.3595)(* sf 0.0285))))
(command (setq a(polar a (+ ra 5.1494)(* sf 0.0404))))
(command (setq a(polar a (+ ra 4.8968)(* sf 0.0311))))
(command (setq a(polar a (+ ra 4.6632)(* sf 0.0250))))
(command (setq a(polar a (+ ra 4.5122)(* sf 0.0356))))
(command (setq a(polar a (+ ra 4.3623)(* sf 0.0363))))
(command (setq a(polar a (+ ra 4.2118)(* sf 0.0374))))
(command (setq a(polar a (+ ra 4.0648)(* sf 0.0328))))
(command (setq a(polar a (+ ra 3.9316)(* sf 0.0314))))
(command (setq a(polar a (+ ra 3.7919)(* sf 0.0348))))
(command (setq a(polar a (+ ra 3.6596)(* sf 0.0316))))
(command (setq a(polar a (+ ra 3.5795)(* sf 0.0157))))
(command (setq a(polar a (+ ra 5.8293)(* sf 0.0322))))
(command (setq a(polar a (+ ra 5.7145)(* sf 0.0322))))
(command (setq a(polar a (+ ra 5.5766)(* sf 0.0345))))
(command (setq a(polar a (+ ra 5.4307)(* sf 0.0330))))
(command (setq a(polar a (+ ra 5.3194)(* sf 0.0314))))
(command (setq a(polar a (+ ra 5.2293)(* sf 0.0365))))
(command (setq a(polar a (+ ra 5.1780)(* sf 0.0288))))
(command (setq a(polar a (+ ra 5.1412)(* sf 0.0350))))
(command (setq a(polar a (+ ra 5.0715)(* sf 0.0349))))
(command (setq a(polar a (+ ra 4.9568)(* sf 0.0441))))
(command (setq a(polar a (+ ra 4.8140)(* sf 0.0513))))
(command (setq a(polar a (+ ra 4.7245)(* sf 0.0207))))
(command (setq a(polar a (+ ra 4.5486)(* sf 0.0521))))
(command (setq a(polar a (+ ra 4.3177)(* sf 0.0489))))
(command (setq a(polar a (+ ra 4.1112)(* sf 0.0500))))
(command (setq a(polar a (+ ra 3.9550)(* sf 0.0327))))
(command (setq a(polar a (+ ra 3.8311)(* sf 0.0397))))
(command (setq a(polar a (+ ra 3.7409)(* sf 0.0168))))
(command (setq a(polar a (+ ra 3.6538)(* sf 0.0417))))
(command (setq a(polar a (+ ra 3.5460)(* sf 0.0351))))
(command (setq a(polar a (+ ra 3.4515)(* sf 0.0364))))
(command (setq a(polar a (+ ra 3.3643)(* sf 0.0326))))
(command (setq a(polar a (+ ra 3.2814)(* sf 0.0351))))
(command (setq a(polar a (+ ra 3.2113)(* sf 0.0233))))
(command (setq a(polar a (+ ra 3.1643)(* sf 0.0162)))"")
(setq a(polar a (+ ra 1.5673)(* sf 0.6432)))
(command "PLINE" a (setq a(polar a (+ ra 2.9804)(* sf 0.0330))))
(command (setq a(polar a (+ ra 2.8486)(* sf 0.0416))))
(command (setq a(polar a (+ ra 2.7590)(* sf 0.0480))))
(command (setq a(polar a (+ ra 2.5613)(* sf 0.0406))))
(command (setq a(polar a (+ ra 2.3194)(* sf 0.0381))))
(command (setq a(polar a (+ ra 2.0929)(* sf 0.0297))))
(command (setq a(polar a (+ ra 1.8850)(* sf 0.0374))))
(command (setq a(polar a (+ ra 1.7090)(* sf 0.0188))))
(command (setq a(polar a (+ ra 1.3007)(* sf 0.0233))))
(command (setq a(polar a (+ ra 0.9666)(* sf 0.0229))))
(command (setq a(polar a (+ ra 0.7338)(* sf 0.0296))))
(command (setq a(polar a (+ ra 0.5499)(* sf 0.0313))))
(command (setq a(polar a (+ ra 0.3878)(* sf 0.0400))))
(command (setq a(polar a (+ ra 0.2486)(* sf 0.0378))))
(command (setq a(polar a (+ ra 0.1385)(* sf 0.0301))))
(command (setq a(polar a (+ ra 0.0517)(* sf 0.0275))))
(command (setq a(polar a (+ ra 6.2425)(* sf 0.0364))))
(command (setq a(polar a (+ ra 6.1404)(* sf 0.0317))))
(command (setq a(polar a (+ ra 6.0512)(* sf 0.0242))))
(command (setq a(polar a (+ ra 5.9445)(* sf 0.0371))))
(command (setq a(polar a (+ ra 5.8247)(* sf 0.0220))))
(command (setq a(polar a (+ ra 5.7056)(* sf 0.0271))))
(command (setq a(polar a (+ ra 5.5045)(* sf 0.0341))))
(command (setq a(polar a (+ ra 5.1889)(* sf 0.0273))))
(command (setq a(polar a (+ ra 4.7991)(* sf 0.0156))))
(command (setq a(polar a (+ ra 4.5205)(* sf 0.0245))))
(command (setq a(polar a (+ ra 4.3756)(* sf 0.0247))))
(command (setq a(polar a (+ ra 4.2124)(* sf 0.0268))))
(command (setq a(polar a (+ ra 4.0131)(* sf 0.0341))))
(command (setq a(polar a (+ ra 3.7877)(* sf 0.0370))))
(command (setq a(polar a (+ ra 3.6012)(* sf 0.0312))))
(command (setq a(polar a (+ ra 3.4938)(* sf 0.0311))))
(command (setq a(polar a (+ ra 3.4347)(* sf 0.0378))))
(command (setq a(polar a (+ ra 3.3410)(* sf 0.0300)))"")
(setq a(polar a (+ ra 4.7082)(* sf 0.5598)))
(command "PLINE" a (setq a(polar a (+ ra 3.1092)(* sf 0.0255))))
(command (setq a(polar a (+ ra 3.0159)(* sf 0.0358))))
(command (setq a(polar a (+ ra 2.8947)(* sf 0.0425))))
(command (setq a(polar a (+ ra 2.7722)(* sf 0.0333))))
(command (setq a(polar a (+ ra 2.6535)(* sf 0.0326))))
(command (setq a(polar a (+ ra 2.5231)(* sf 0.0321))))
(command (setq a(polar a (+ ra 2.3664)(* sf 0.0372))))
(command (setq a(polar a (+ ra 2.2139)(* sf 0.0210))))
(command (setq a(polar a (+ ra 2.0415)(* sf 0.0349))))
(command (setq a(polar a (+ ra 1.8113)(* sf 0.0299))))
(command (setq a(polar a (+ ra 1.5132)(* sf 0.0216))))
(command (setq a(polar a (+ ra 1.4849)(* sf 0.0391))))
(command (setq a(polar a (+ ra 1.3614)(* sf 0.0245))))
(command (setq a(polar a (+ ra 1.2513)(* sf 0.0295))))
(command (setq a(polar a (+ ra 1.1642)(* sf 0.0262))))
(command (setq a(polar a (+ ra 1.1234)(* sf 0.0268))))
(command (setq a(polar a (+ ra 1.0847)(* sf 0.0290))))
(command (setq a(polar a (+ ra 1.0027)(* sf 0.0354))))
(command (setq a(polar a (+ ra 0.8714)(* sf 0.0216))))
(command (setq a(polar a (+ ra 0.6889)(* sf 0.0365))))
(command (setq a(polar a (+ ra 0.5029)(* sf 0.0240))))
(command (setq a(polar a (+ ra 0.4015)(* sf 0.0305))))
(command (setq a(polar a (+ ra 0.3284)(* sf 0.0368))))
(command (setq a(polar a (+ ra 0.2950)(* sf 0.0205))))
(command (setq a(polar a (+ ra 0.1958)(* sf 0.0226))))
(command (setq a(polar a (+ ra 0.0301)(* sf 0.0113))))
(command (setq a(polar a (+ ra 6.1076)(* sf 0.0311))))
(command (setq a(polar a (+ ra 5.9841)(* sf 0.0273))))
(command (setq a(polar a (+ ra 5.9363)(* sf 0.0386))))
(command (setq a(polar a (+ ra 5.8404)(* sf 0.0342))))
(command (setq a(polar a (+ ra 5.6973)(* sf 0.0229))))
(command (setq a(polar a (+ ra 5.5287)(* sf 0.0295))))
(command (setq a(polar a (+ ra 5.3351)(* sf 0.0388))))
(command (setq a(polar a (+ ra 5.2105)(* sf 0.0408))))
(command (setq a(polar a (+ ra 5.1486)(* sf 0.0422))))
(command (setq a(polar a (+ ra 5.0324)(* sf 0.0490))))
(command (setq a(polar a (+ ra 4.8856)(* sf 0.0244))))
(command (setq a(polar a (+ ra 4.8025)(* sf 0.0186))))
(command (setq a(polar a (+ ra 4.7091)(* sf 0.0310))))
(command (setq a(polar a (+ ra 4.4697)(* sf 0.0346))))
(command (setq a(polar a (+ ra 4.2303)(* sf 0.0334))))
(command (setq a(polar a (+ ra 4.0522)(* sf 0.0256))))
(command (setq a(polar a (+ ra 3.9150)(* sf 0.0269))))
(command (setq a(polar a (+ ra 3.7655)(* sf 0.0381))))
(command (setq a(polar a (+ ra 3.6480)(* sf 0.0205))))
(command (setq a(polar a (+ ra 3.5793)(* sf 0.0172))))
(command (setq a(polar a (+ ra 3.4861)(* sf 0.0367))))
(command (setq a(polar a (+ ra 3.3631)(* sf 0.0380))))
(command (setq a(polar a (+ ra 3.2492)(* sf 0.0369))))
(command (setq a(polar a (+ ra 3.1710)(* sf 0.0163)))"")
(setq a(polar a (+ ra 6.1498)(* sf 0.6326)))
a
)
(defun N9(a)
(setq a(polar a (+ ra 1.3007)(* sf 0.1523)))
(command "PLINE" a (setq a(polar a (+ ra 5.1991)(* sf 0.0293))))
(command (setq a(polar a (+ ra 5.2850)(* sf 0.0260))))
(command (setq a(polar a (+ ra 5.3937)(* sf 0.0301))))
(command (setq a(polar a (+ ra 5.5515)(* sf 0.0367))))
(command (setq a(polar a (+ ra 5.7334)(* sf 0.0381))))
(command (setq a(polar a (+ ra 5.9343)(* sf 0.0473))))
(command (setq a(polar a (+ ra 6.0727)(* sf 0.0430))))
(command (setq a(polar a (+ ra 6.1693)(* sf 0.0423))))
(command (setq a(polar a (+ ra 6.2566)(* sf 0.0229))))
(command (setq a(polar a (+ ra 0.0638)(* sf 0.0400))))
(command (setq a(polar a (+ ra 0.1694)(* sf 0.0352))))
(command (setq a(polar a (+ ra 0.2876)(* sf 0.0442))))
(command (setq a(polar a (+ ra 0.4141)(* sf 0.0293))))
(command (setq a(polar a (+ ra 0.5384)(* sf 0.0350))))
(command (setq a(polar a (+ ra 0.7054)(* sf 0.0476))))
(command (setq a(polar a (+ ra 0.8534)(* sf 0.0320))))
(command (setq a(polar a (+ ra 0.9757)(* sf 0.0406))))
(command (setq a(polar a (+ ra 1.1065)(* sf 0.0540))))
(command (setq a(polar a (+ ra 1.2224)(* sf 0.0462))))
(command (setq a(polar a (+ ra 1.2938)(* sf 0.0481))))
(command (setq a(polar a (+ ra 1.3515)(* sf 0.0409))))
(command (setq a(polar a (+ ra 1.4058)(* sf 0.0539))))
(command (setq a(polar a (+ ra 1.4576)(* sf 0.0494))))
(command (setq a(polar a (+ ra 1.4955)(* sf 0.0438))))
(command (setq a(polar a (+ ra 1.5307)(* sf 0.0513))))
(command (setq a(polar a (+ ra 1.5747)(* sf 0.0571))))
(command (setq a(polar a (+ ra 1.6066)(* sf 0.0455))))
(command (setq a(polar a (+ ra 1.6315)(* sf 0.0666))))
(command (setq a(polar a (+ ra 1.6508)(* sf 0.0537))))
(command (setq a(polar a (+ ra 1.8101)(* sf 0.0549))))
(command (setq a(polar a (+ ra 1.9676)(* sf 0.0401))))
(command (setq a(polar a (+ ra 2.1169)(* sf 0.0506))))
(command (setq a(polar a (+ ra 2.2594)(* sf 0.0368))))
(command (setq a(polar a (+ ra 2.3638)(* sf 0.0277))))
(command (setq a(polar a (+ ra 2.4614)(* sf 0.0330))))
(command (setq a(polar a (+ ra 2.5597)(* sf 0.0285))))
(command (setq a(polar a (+ ra 2.6409)(* sf 0.0226))))
(command (setq a(polar a (+ ra 2.7343)(* sf 0.0366))))
(command (setq a(polar a (+ ra 2.8392)(* sf 0.0302))))
(command (setq a(polar a (+ ra 2.9343)(* sf 0.0306))))
(command (setq a(polar a (+ ra 3.0325)(* sf 0.0323))))
(command (setq a(polar a (+ ra 3.1357)(* sf 0.0339))))
(command (setq a(polar a (+ ra 3.2301)(* sf 0.0267))))
(command (setq a(polar a (+ ra 3.3142)(* sf 0.0272))))
(command (setq a(polar a (+ ra 3.4153)(* sf 0.0374))))
(command (setq a(polar a (+ ra 3.5344)(* sf 0.0384))))
(command (setq a(polar a (+ ra 3.6438)(* sf 0.0309))))
(command (setq a(polar a (+ ra 3.7560)(* sf 0.0397))))
(command (setq a(polar a (+ ra 3.8809)(* sf 0.0383))))
(command (setq a(polar a (+ ra 3.9916)(* sf 0.0302))))
(command (setq a(polar a (+ ra 4.1165)(* sf 0.0465))))
(command (setq a(polar a (+ ra 4.2576)(* sf 0.0396))))
(command (setq a(polar a (+ ra 4.3882)(* sf 0.0395))))
(command (setq a(polar a (+ ra 4.5098)(* sf 0.0339))))
(command (setq a(polar a (+ ra 4.6259)(* sf 0.0358))))
(command (setq a(polar a (+ ra 4.7266)(* sf 0.0246))))
(command (setq a(polar a (+ ra 4.8497)(* sf 0.0492))))
(command (setq a(polar a (+ ra 5.0018)(* sf 0.0423))))
(command (setq a(polar a (+ ra 5.1367)(* sf 0.0392))))
(command (setq a(polar a (+ ra 5.2739)(* sf 0.0443))))
(command (setq a(polar a (+ ra 5.4175)(* sf 0.0439))))
(command (setq a(polar a (+ ra 5.5504)(* sf 0.0384))))
(command (setq a(polar a (+ ra 5.6687)(* sf 0.0354))))
(command (setq a(polar a (+ ra 5.7742)(* sf 0.0309))))
(command (setq a(polar a (+ ra 5.8856)(* sf 0.0395))))
(command (setq a(polar a (+ ra 6.0041)(* sf 0.0358))))
(command (setq a(polar a (+ ra 6.1057)(* sf 0.0291))))
(command (setq a(polar a (+ ra 6.1963)(* sf 0.0290))))
(command (setq a(polar a (+ ra 0.0061)(* sf 0.0306))))
(command (setq a(polar a (+ ra 0.0990)(* sf 0.0290))))
(command (setq a(polar a (+ ra 0.1770)(* sf 0.0210))))
(command (setq a(polar a (+ ra 0.2495)(* sf 0.0253))))
(command (setq a(polar a (+ ra 0.3307)(* sf 0.0265))))
(command (setq a(polar a (+ ra 0.4126)(* sf 0.0256))))
(command (setq a(polar a (+ ra 0.4893)(* sf 0.0230))))
(command (setq a(polar a (+ ra 0.5634)(* sf 0.0237))))
(command (setq a(polar a (+ ra 0.6289)(* sf 0.0174))))
(command (setq a(polar a (+ ra 0.6958)(* sf 0.0243))))
(command (setq a(polar a (+ ra 0.7883)(* sf 0.0332))))
(command (setq a(polar a (+ ra 4.6714)(* sf 0.0221))))
(command (setq a(polar a (+ ra 4.6462)(* sf 0.0265))))
(command (setq a(polar a (+ ra 4.6139)(* sf 0.0481))))
(command (setq a(polar a (+ ra 4.5732)(* sf 0.0307))))
(command (setq a(polar a (+ ra 4.5356)(* sf 0.0254))))
(command (setq a(polar a (+ ra 4.5039)(* sf 0.0347))))
(command (setq a(polar a (+ ra 4.4662)(* sf 0.0226))))
(command (setq a(polar a (+ ra 4.4174)(* sf 0.0340))))
(command (setq a(polar a (+ ra 4.3575)(* sf 0.0246))))
(command (setq a(polar a (+ ra 4.2976)(* sf 0.0314))))
(command (setq a(polar a (+ ra 4.1892)(* sf 0.0321))))
(command (setq a(polar a (+ ra 4.0726)(* sf 0.0283))))
(command (setq a(polar a (+ ra 3.9115)(* sf 0.0304))))
(command (setq a(polar a (+ ra 3.7233)(* sf 0.0356))))
(command (setq a(polar a (+ ra 3.5097)(* sf 0.0415))))
(command (setq a(polar a (+ ra 3.3422)(* sf 0.0323))))
(command (setq a(polar a (+ ra 3.2813)(* sf 0.0079))))
(command (setq a(polar a (+ ra 3.2057)(* sf 0.0289))))
(command (setq a(polar a (+ ra 3.0908)(* sf 0.0310))))
(command (setq a(polar a (+ ra 2.9925)(* sf 0.0289))))
(command (setq a(polar a (+ ra 2.9102)(* sf 0.0317))))
(command (setq a(polar a (+ ra 2.8066)(* sf 0.0173))))
(command (setq a(polar a (+ ra 2.6719)(* sf 0.0236))))
(command (setq a(polar a (+ ra 2.4759)(* sf 0.0215))))
(command (setq a(polar a (+ ra 2.3129)(* sf 0.0187))))
(command (setq a(polar a (+ ra 2.1568)(* sf 0.0264))))
(command (setq a(polar a (+ ra 2.0575)(* sf 0.0261))))
(command (setq a(polar a (+ ra 3.6283)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.8711)(* sf 0.4222)))
(command "PLINE" a (setq a(polar a (+ ra 3.0912)(* sf 0.0220))))
(command (setq a(polar a (+ ra 2.9893)(* sf 0.0266))))
(command (setq a(polar a (+ ra 2.8757)(* sf 0.0265))))
(command (setq a(polar a (+ ra 2.7559)(* sf 0.0294))))
(command (setq a(polar a (+ ra 2.6157)(* sf 0.0365))))
(command (setq a(polar a (+ ra 2.4713)(* sf 0.0305))))
(command (setq a(polar a (+ ra 2.3428)(* sf 0.0274))))
(command (setq a(polar a (+ ra 2.2133)(* sf 0.0307))))
(command (setq a(polar a (+ ra 2.0805)(* sf 0.0289))))
(command (setq a(polar a (+ ra 1.9604)(* sf 0.0243))))
(command (setq a(polar a (+ ra 1.8461)(* sf 0.0252))))
(command (setq a(polar a (+ ra 1.7253)(* sf 0.0270))))
(command (setq a(polar a (+ ra 1.5762)(* sf 0.0381))))
(command (setq a(polar a (+ ra 1.4227)(* sf 0.0288))))
(command (setq a(polar a (+ ra 1.2815)(* sf 0.0321))))
(command (setq a(polar a (+ ra 1.1452)(* sf 0.0275))))
(command (setq a(polar a (+ ra 1.0009)(* sf 0.0368))))
(command (setq a(polar a (+ ra 0.8355)(* sf 0.0372))))
(command (setq a(polar a (+ ra 0.6881)(* sf 0.0290))))
(command (setq a(polar a (+ ra 0.5503)(* sf 0.0349))))
(command (setq a(polar a (+ ra 0.4104)(* sf 0.0307))))
(command (setq a(polar a (+ ra 0.2720)(* sf 0.0337))))
(command (setq a(polar a (+ ra 0.1345)(* sf 0.0309))))
(command (setq a(polar a (+ ra 6.2661)(* sf 0.0417))))
(command (setq a(polar a (+ ra 6.1184)(* sf 0.0284))))
(command (setq a(polar a (+ ra 5.9865)(* sf 0.0330))))
(command (setq a(polar a (+ ra 5.8580)(* sf 0.0274))))
(command (setq a(polar a (+ ra 5.7473)(* sf 0.0246))))
(command (setq a(polar a (+ ra 5.6117)(* sf 0.0378))))
(command (setq a(polar a (+ ra 5.4513)(* sf 0.0344))))
(command (setq a(polar a (+ ra 5.3023)(* sf 0.0328))))
(command (setq a(polar a (+ ra 5.1785)(* sf 0.0226))))
(command (setq a(polar a (+ ra 5.0526)(* sf 0.0324))))
(command (setq a(polar a (+ ra 4.8800)(* sf 0.0326))))
(command (setq a(polar a (+ ra 4.7713)(* sf 0.0339))))
(command (setq a(polar a (+ ra 4.5693)(* sf 0.0440))))
(command (setq a(polar a (+ ra 4.3833)(* sf 0.0367))))
(command (setq a(polar a (+ ra 4.2151)(* sf 0.0372))))
(command (setq a(polar a (+ ra 4.0483)(* sf 0.0376))))
(command (setq a(polar a (+ ra 3.8989)(* sf 0.0294))))
(command (setq a(polar a (+ ra 3.7590)(* sf 0.0342))))
(command (setq a(polar a (+ ra 3.6150)(* sf 0.0330))))
(command (setq a(polar a (+ ra 3.4886)(* sf 0.0264))))
(command (setq a(polar a (+ ra 3.3567)(* sf 0.0350))))
(command (setq a(polar a (+ ra 3.2484)(* sf 0.0159))))
(command (setq a(polar a (+ ra 3.1760)(* sf 0.0187))) "")
(setq a(polar a (+ ra 5.6399)(* sf 0.7831)))
a
)
(defun N0(a)
(setq a(polar a (+ ra 6.2832)(* sf 0.3399)))
(command "PLINE" a (setq a(polar a (+ ra 3.0906)(* sf 0.0236))))
(command (setq a(polar a (+ ra 2.9659)(* sf 0.0348))))
(command (setq a(polar a (+ ra 2.8360)(* sf 0.0282))))
(command (setq a(polar a (+ ra 2.7250)(* sf 0.0289))))
(command (setq a(polar a (+ ra 2.6190)(* sf 0.0295))))
(command (setq a(polar a (+ ra 2.5136)(* sf 0.0338))))
(command (setq a(polar a (+ ra 2.4143)(* sf 0.0318))))
(command (setq a(polar a (+ ra 2.3142)(* sf 0.0418))))
(command (setq a(polar a (+ ra 2.2178)(* sf 0.0371))))
(command (setq a(polar a (+ ra 2.1336)(* sf 0.0397))))
(command (setq a(polar a (+ ra 2.0578)(* sf 0.0362))))
(command (setq a(polar a (+ ra 1.9801)(* sf 0.0489))))
(command (setq a(polar a (+ ra 1.9043)(* sf 0.0410))))
(command (setq a(polar a (+ ra 1.8430)(* sf 0.0367))))
(command (setq a(polar a (+ ra 1.7843)(* sf 0.0415))))
(command (setq a(polar a (+ ra 1.7202)(* sf 0.0476))))
(command (setq a(polar a (+ ra 1.6619)(* sf 0.0359))))
(command (setq a(polar a (+ ra 1.6141)(* sf 0.0338))))
(command (setq a(polar a (+ ra 1.5668)(* sf 0.0356))))
(command (setq a(polar a (+ ra 1.5218)(* sf 0.0303))))
(command (setq a(polar a (+ ra 1.4725)(* sf 0.0414))))
(command (setq a(polar a (+ ra 1.4237)(* sf 0.0285))))
(command (setq a(polar a (+ ra 1.3786)(* sf 0.0347))))
(command (setq a(polar a (+ ra 1.3208)(* sf 0.0435))))
(command (setq a(polar a (+ ra 1.2596)(* sf 0.0358))))
(command (setq a(polar a (+ ra 1.1970)(* sf 0.0406))))
(command (setq a(polar a (+ ra 1.1293)(* sf 0.0367))))
(command (setq a(polar a (+ ra 1.0696)(* sf 0.0269))))
(command (setq a(polar a (+ ra 1.0070)(* sf 0.0350))))
(command (setq a(polar a (+ ra 0.9267)(* sf 0.0382))))
(command (setq a(polar a (+ ra 0.8351)(* sf 0.0374))))
(command (setq a(polar a (+ ra 0.7490)(* sf 0.0270))))
(command (setq a(polar a (+ ra 0.6556)(* sf 0.0361))))
(command (setq a(polar a (+ ra 0.5398)(* sf 0.0348))))
(command (setq a(polar a (+ ra 0.4082)(* sf 0.0380))))
(command (setq a(polar a (+ ra 0.2555)(* sf 0.0393))))
(command (setq a(polar a (+ ra 0.1095)(* sf 0.0303))))
(command (setq a(polar a (+ ra 6.2634)(* sf 0.0297))))
(command (setq a(polar a (+ ra 6.1293)(* sf 0.0329))))
(command (setq a(polar a (+ ra 5.9896)(* sf 0.0345))))
(command (setq a(polar a (+ ra 5.8635)(* sf 0.0301))))
(command (setq a(polar a (+ ra 5.7330)(* sf 0.0429))))
(command (setq a(polar a (+ ra 5.6279)(* sf 0.0214))))
(command (setq a(polar a (+ ra 5.5546)(* sf 0.0279))))
(command (setq a(polar a (+ ra 5.4830)(* sf 0.0239))))
(command (setq a(polar a (+ ra 5.4123)(* sf 0.0316))))
(command (setq a(polar a (+ ra 5.3410)(* sf 0.0290))))
(command (setq a(polar a (+ ra 5.2817)(* sf 0.0254))))
(command (setq a(polar a (+ ra 5.2542)(* sf 0.0010))))
(command (setq a(polar a (+ ra 5.2224)(* sf 0.0310))))
(command (setq a(polar a (+ ra 5.1591)(* sf 0.0360))))
(command (setq a(polar a (+ ra 5.0925)(* sf 0.0397))))
(command (setq a(polar a (+ ra 5.0276)(* sf 0.0392))))
(command (setq a(polar a (+ ra 4.9627)(* sf 0.0447))))
(command (setq a(polar a (+ ra 4.8997)(* sf 0.0407))))
(command (setq a(polar a (+ ra 4.8443)(* sf 0.0372))))
(command (setq a(polar a (+ ra 4.7871)(* sf 0.0453))))
(command (setq a(polar a (+ ra 4.7292)(* sf 0.0395))))
(command (setq a(polar a (+ ra 4.6730)(* sf 0.0431))))
(command (setq a(polar a (+ ra 4.6136)(* sf 0.0434))))
(command (setq a(polar a (+ ra 4.5459)(* sf 0.0530))))
(command (setq a(polar a (+ ra 4.4790)(* sf 0.0390))))
(command (setq a(polar a (+ ra 4.4169)(* sf 0.0423))))
(command (setq a(polar a (+ ra 4.3450)(* sf 0.0464))))
(command (setq a(polar a (+ ra 4.2735)(* sf 0.0357))))
(command (setq a(polar a (+ ra 4.2034)(* sf 0.0387))))
(command (setq a(polar a (+ ra 4.1321)(* sf 0.0311))))
(command (setq a(polar a (+ ra 4.0533)(* sf 0.0393))))
(command (setq a(polar a (+ ra 3.9645)(* sf 0.0329))))
(command (setq a(polar a (+ ra 3.8747)(* sf 0.0331))))
(command (setq a(polar a (+ ra 3.7733)(* sf 0.0342))))
(command (setq a(polar a (+ ra 3.6642)(* sf 0.0315))))
(command (setq a(polar a (+ ra 3.5537)(* sf 0.0294))))
(command (setq a(polar a (+ ra 3.4695)(* sf 0.0142))))
(command (setq a(polar a (+ ra 3.3858)(* sf 0.0271))))
(command (setq a(polar a (+ ra 3.2661)(* sf 0.0299))))
(command (setq a(polar a (+ ra 3.1719)(* sf 0.0140)))"")
(setq a(polar a (+ ra 1.5708)(* sf 0.0833)))
(command "PLINE" a (setq a(polar a (+ ra 3.0698)(* sf 0.0211))))
(command (setq a(polar a (+ ra 2.8350)(* sf 0.0530))))
(command (setq a(polar a (+ ra 2.5858)(* sf 0.0389))))
(command (setq a(polar a (+ ra 2.4409)(* sf 0.0279))))
(command (setq a(polar a (+ ra 2.3338)(* sf 0.0314))))
(command (setq a(polar a (+ ra 2.1589)(* sf 0.0876))))
(command (setq a(polar a (+ ra 2.0022)(* sf 0.0445))))
(command (setq a(polar a (+ ra 1.9131)(* sf 0.0451))))
(command (setq a(polar a (+ ra 1.8340)(* sf 0.0406))))
(command (setq a(polar a (+ ra 1.7640)(* sf 0.0418))))
(command (setq a(polar a (+ ra 1.6973)(* sf 0.0418))))
(command (setq a(polar a (+ ra 1.6338)(* sf 0.0400))))
(command (setq a(polar a (+ ra 1.5750)(* sf 0.0357))))
(command (setq a(polar a (+ ra 1.5197)(* sf 0.0358))))
(command (setq a(polar a (+ ra 1.4622)(* sf 0.0385))))
(command (setq a(polar a (+ ra 1.4012)(* sf 0.0383))))
(command (setq a(polar a (+ ra 1.3401)(* sf 0.0349))))
(command (setq a(polar a (+ ra 1.2824)(* sf 0.0312))))
(command (setq a(polar a (+ ra 1.2175)(* sf 0.0393))))
(command (setq a(polar a (+ ra 1.1427)(* sf 0.0354))))
(command (setq a(polar a (+ ra 1.0606)(* sf 0.0378))))
(command (setq a(polar a (+ ra 0.9678)(* sf 0.0365))))
(command (setq a(polar a (+ ra 0.8698)(* sf 0.0320))))
(command (setq a(polar a (+ ra 0.7641)(* sf 0.0310))))
(command (setq a(polar a (+ ra 0.6435)(* sf 0.0308))))
(command (setq a(polar a (+ ra 0.5110)(* sf 0.0271))))
(command (setq a(polar a (+ ra 0.3812)(* sf 0.0220))))
(command (setq a(polar a (+ ra 0.2141)(* sf 0.0328))))
(command (setq a(polar a (+ ra 0.0063)(* sf 0.0300))))
(command (setq a(polar a (+ ra 6.1001)(* sf 0.0269))))
(command (setq a(polar a (+ ra 5.9429)(* sf 0.0238))))
(command (setq a(polar a (+ ra 5.7857)(* sf 0.0340))))
(command (setq a(polar a (+ ra 5.6413)(* sf 0.0280))))
(command (setq a(polar a (+ ra 5.5293)(* sf 0.0286))))
(command (setq a(polar a (+ ra 5.4358)(* sf 0.0262))))
(command (setq a(polar a (+ ra 5.3661)(* sf 0.0200))))
(command (setq a(polar a (+ ra 5.2966)(* sf 0.0310))))
(command (setq a(polar a (+ ra 5.2292)(* sf 0.0226))))
(command (setq a(polar a (+ ra 5.1568)(* sf 0.0417))))
(command (setq a(polar a (+ ra 5.0728)(* sf 0.0414))))
(command (setq a(polar a (+ ra 4.9952)(* sf 0.0423))))
(command (setq a(polar a (+ ra 4.9217)(* sf 0.0424))))
(command (setq a(polar a (+ ra 4.8448)(* sf 0.0528))))
(command (setq a(polar a (+ ra 4.7724)(* sf 0.0399))))
(command (setq a(polar a (+ ra 4.7052)(* sf 0.0468))))
(command (setq a(polar a (+ ra 4.6416)(* sf 0.0361))))
(command (setq a(polar a (+ ra 4.5773)(* sf 0.0464))))
(command (setq a(polar a (+ ra 4.5039)(* sf 0.0434))))
(command (setq a(polar a (+ ra 4.4257)(* sf 0.0470))))
(command (setq a(polar a (+ ra 4.3327)(* sf 0.0526))))
(command (setq a(polar a (+ ra 4.2359)(* sf 0.0391))))
(command (setq a(polar a (+ ra 4.1493)(* sf 0.0335))))
(command (setq a(polar a (+ ra 4.0523)(* sf 0.0384))))
(command (setq a(polar a (+ ra 3.9396)(* sf 0.0329))))
(command (setq a(polar a (+ ra 3.8223)(* sf 0.0299))))
(command (setq a(polar a (+ ra 3.6689)(* sf 0.0390))))
(command (setq a(polar a (+ ra 3.4931)(* sf 0.0273))))
(command (setq a(polar a (+ ra 3.3511)(* sf 0.0193))))
(command (setq a(polar a (+ ra 3.2139)(* sf 0.0218))) "")
(setq a(polar a (+ ra 6.1469)(* sf 0.6132)))
a
)
(defun LA(a)
(setq a(polar a (+ ra 0.0000)(* sf 0.5304)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.0972))))
(command (setq a(polar a (+ ra 3.8999)(* sf 0.0385))))
(command (setq a(polar a (+ ra 3.7574)(* sf 0.0510))))
(command (setq a(polar a (+ ra 3.6011)(* sf 0.0445))))
(command (setq a(polar a (+ ra 3.4476)(* sf 0.0470))))
(command (setq a(polar a (+ ra 3.2901)(* sf 0.0452))))
(command (setq a(polar a (+ ra 3.1218)(* sf 0.0525))))
(command (setq a(polar a (+ ra 2.9601)(* sf 0.0414))))
(command (setq a(polar a (+ ra 2.8229)(* sf 0.0391))))
(command (setq a(polar a (+ ra 2.6947)(* sf 0.0372))))
(command (setq a(polar a (+ ra 2.6281)(* sf 0.0030))))
(command (setq a(polar a (+ ra 2.5470)(* sf 0.0468))))
(command (setq a(polar a (+ ra 2.4151)(* sf 0.0356))))
(command (setq a(polar a (+ ra 2.2996)(* sf 0.0384))))
(command (setq a(polar a (+ ra 2.1890)(* sf 0.0341))))
(command (setq a(polar a (+ ra 2.0716)(* sf 0.0447))))
(command (setq a(polar a (+ ra 1.9448)(* sf 0.0423))))
(command (setq a(polar a (+ ra 1.7913)(* sf 0.0652))))
(command (setq a(polar a (+ ra 1.6443)(* sf 0.0391))))
(command (setq a(polar a (+ ra 1.5160)(* sf 0.0525))))
(command (setq a(polar a (+ ra 1.3609)(* sf 0.0577))))
(command (setq a(polar a (+ ra 1.2180)(* sf 0.0426))))
(command (setq a(polar a (+ ra 1.0974)(* sf 0.0404))))
(command (setq a(polar a (+ ra 0.9664)(* sf 0.0478))))
(command (setq a(polar a (+ ra 0.8224)(* sf 0.0467))))
(command (setq a(polar a (+ ra 0.6756)(* sf 0.0467))))
(command (setq a(polar a (+ ra 0.5363)(* sf 0.0394))))
(command (setq a(polar a (+ ra 0.3780)(* sf 0.0559))))
(command (setq a(polar a (+ ra 0.1978)(* sf 0.0503))))
(command (setq a(polar a (+ ra 0.0144)(* sf 0.0563))))
(command (setq a(polar a (+ ra 6.1338)(* sf 0.0387))))
(command (setq a(polar a (+ ra 5.9973)(* sf 0.0412))))
(command (setq a(polar a (+ ra 5.8575)(* sf 0.0418))))
(command (setq a(polar a (+ ra 5.7377)(* sf 0.0306))))
(command (setq a(polar a (+ ra 5.6190)(* sf 0.0428))))
(command (setq a(polar a (+ ra 5.5076)(* sf 0.0275))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0972))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.6665))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 2.7872)(* sf 0.2404)))
(command "PLINE" a (setq a(polar a (+ ra 3.0418)(* sf 0.0291))))
(command (setq a(polar a (+ ra 2.8994)(* sf 0.0307))))
(command (setq a(polar a (+ ra 2.7696)(* sf 0.0244))))
(command (setq a(polar a (+ ra 2.6345)(* sf 0.0336))))
(command (setq a(polar a (+ ra 2.4869)(* sf 0.0328))))
(command (setq a(polar a (+ ra 2.3405)(* sf 0.0363))))
(command (setq a(polar a (+ ra 2.2028)(* sf 0.0301))))
(command (setq a(polar a (+ ra 2.0752)(* sf 0.0335))))
(command (setq a(polar a (+ ra 1.9390)(* sf 0.0381))))
(command (setq a(polar a (+ ra 1.7811)(* sf 0.0460))))
(command (setq a(polar a (+ ra 1.6221)(* sf 0.0397))))
(command (setq a(polar a (+ ra 1.4790)(* sf 0.0394))))
(command (setq a(polar a (+ ra 1.3418)(* sf 0.0347))))
(command (setq a(polar a (+ ra 1.2078)(* sf 0.0366))))
(command (setq a(polar a (+ ra 1.0751)(* sf 0.0327))))
(command (setq a(polar a (+ ra 0.9415)(* sf 0.0347))))
(command (setq a(polar a (+ ra 0.7853)(* sf 0.0410))))
(command (setq a(polar a (+ ra 0.6324)(* sf 0.0298))))
(command (setq a(polar a (+ ra 0.4819)(* sf 0.0379))))
(command (setq a(polar a (+ ra 0.3058)(* sf 0.0375))))
(command (setq a(polar a (+ ra 0.1617)(* sf 0.0229))))
(command (setq a(polar a (+ ra 0.0384)(* sf 0.0283))))
(command (setq a(polar a (+ ra 6.1840)(* sf 0.0286))))
(command (setq a(polar a (+ ra 6.0387)(* sf 0.0316))))
(command (setq a(polar a (+ ra 5.8940)(* sf 0.0302))))
(command (setq a(polar a (+ ra 5.7515)(* sf 0.0326))))
(command (setq a(polar a (+ ra 5.6048)(* sf 0.0331))))
(command (setq a(polar a (+ ra 5.4663)(* sf 0.0315))))
(command (setq a(polar a (+ ra 5.3312)(* sf 0.0353))))
(command (setq a(polar a (+ ra 5.1856)(* sf 0.0386))))
(command (setq a(polar a (+ ra 5.0380)(* sf 0.0375))))
(command (setq a(polar a (+ ra 4.9053)(* sf 0.0344))))
(command (setq a(polar a (+ ra 4.7662)(* sf 0.0421))))
(command (setq a(polar a (+ ra 4.6050)(* sf 0.0447))))
(command (setq a(polar a (+ ra 4.4569)(* sf 0.0359))))
(command (setq a(polar a (+ ra 4.3172)(* sf 0.0391))))
(command (setq a(polar a (+ ra 4.1796)(* sf 0.0309))))
(command (setq a(polar a (+ ra 4.0557)(* sf 0.0308))))
(command (setq a(polar a (+ ra 3.9323)(* sf 0.0296))))
(command (setq a(polar a (+ ra 3.8109)(* sf 0.0275))))
(command (setq a(polar a (+ ra 3.6818)(* sf 0.0300))))
(command (setq a(polar a (+ ra 3.5479)(* sf 0.0285))))
(command (setq a(polar a (+ ra 3.4243)(* sf 0.0247))))
(command (setq a(polar a (+ ra 3.2741)(* sf 0.0382))))
(command (setq a(polar a (+ ra 3.1462)(* sf 0.0142)))"")
(setq a(polar a (+ ra 6.1348)(* sf 0.5645)))
a
)
(defun LB(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0011))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.4318))))
(command (setq a(polar a (+ ra 0.7558)(* sf 0.0401))))
(command (setq a(polar a (+ ra 0.6179)(* sf 0.0465))))
(command (setq a(polar a (+ ra 0.4722)(* sf 0.0426))))
(command (setq a(polar a (+ ra 0.3361)(* sf 0.0388))))
(command (setq a(polar a (+ ra 0.2092)(* sf 0.0359))))
(command (setq a(polar a (+ ra 0.0923)(* sf 0.0322))))
(command (setq a(polar a (+ ra 6.2479)(* sf 0.0418))))
(command (setq a(polar a (+ ra 6.1071)(* sf 0.0401))))
(command (setq a(polar a (+ ra 5.9728)(* sf 0.0387))))
(command (setq a(polar a (+ ra 5.8217)(* sf 0.0514))))
(command (setq a(polar a (+ ra 5.6687)(* sf 0.0420))))
(command (setq a(polar a (+ ra 5.5457)(* sf 0.0352))))
(command (setq a(polar a (+ ra 5.4120)(* sf 0.0510))))
(command (setq a(polar a (+ ra 5.2633)(* sf 0.0475))))
(command (setq a(polar a (+ ra 5.1286)(* sf 0.0441))))
(command (setq a(polar a (+ ra 5.0200)(* sf 0.0313))))
(command (setq a(polar a (+ ra 4.9133)(* sf 0.0438))))
(command (setq a(polar a (+ ra 4.7980)(* sf 0.0381))))
(command (setq a(polar a (+ ra 4.6852)(* sf 0.0423))))
(command (setq a(polar a (+ ra 4.5473)(* sf 0.0559))))
(command (setq a(polar a (+ ra 4.4103)(* sf 0.0407))))
(command (setq a(polar a (+ ra 4.2892)(* sf 0.0433))))
(command (setq a(polar a (+ ra 4.1662)(* sf 0.0405))))
(command (setq a(polar a (+ ra 4.0495)(* sf 0.0372))))
(command (setq a(polar a (+ ra 3.9445)(* sf 0.0311))))
(command (setq a(polar a (+ ra 3.8527)(* sf 0.0274))))
(command (setq a(polar a (+ ra 3.7321)(* sf 0.0477))))
(command (setq a(polar a (+ ra 3.5940)(* sf 0.0364))))
(command (setq a(polar a (+ ra 3.4761)(* sf 0.0341))))
(command (setq a(polar a (+ ra 3.3450)(* sf 0.0430))))
(command (setq a(polar a (+ ra 3.2369)(* sf 0.0200))))
(command (setq a(polar a (+ ra 3.1427)(* sf 0.0347))))
(command (setq a(polar a (+ ra 3.0255)(* sf 0.0333))))
(command (setq a(polar a (+ ra 2.9214)(* sf 0.0275))))
(command (setq a(polar a (+ ra 2.8207)(* sf 0.0318))))
(command (setq a(polar a (+ ra 2.7303)(* sf 0.0219))))
(command (setq a(polar a (+ ra 2.6631)(* sf 0.0185))))
(command (setq a(polar a (+ ra 2.5903)(* sf 0.0258))))
(command (setq a(polar a (+ ra 2.4964)(* sf 0.0322))))
(command (setq a(polar a (+ ra 2.3838)(* sf 0.0388))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0972))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.2691)(* sf 0.3134)))
(command "PLINE" a (setq a(polar a (+ ra 3.0896)(* sf 0.0202))))
(command (setq a(polar a (+ ra 2.9444)(* sf 0.0396))))
(command (setq a(polar a (+ ra 2.7433)(* sf 0.0461))))
(command (setq a(polar a (+ ra 2.5433)(* sf 0.0415))))
(command (setq a(polar a (+ ra 2.3485)(* sf 0.0487))))
(command (setq a(polar a (+ ra 2.1558)(* sf 0.0460))))
(command (setq a(polar a (+ ra 1.9799)(* sf 0.0428))))
(command (setq a(polar a (+ ra 1.7933)(* sf 0.0291))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0525))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0525))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0199))))
(command (setq a(polar a (+ ra 1.2542)(* sf 0.0396))))
(command (setq a(polar a (+ ra 1.0958)(* sf 0.0421))))
(command (setq a(polar a (+ ra 0.9343)(* sf 0.0397))))
(command (setq a(polar a (+ ra 0.7639)(* sf 0.0432))))
(command (setq a(polar a (+ ra 0.5597)(* sf 0.0494))))
(command (setq a(polar a (+ ra 0.3782)(* sf 0.0306))))
(command (setq a(polar a (+ ra 0.2420)(* sf 0.0275))))
(command (setq a(polar a (+ ra 0.1086)(* sf 0.0277))))
(command (setq a(polar a (+ ra 6.2573)(* sf 0.0279))))
(command (setq a(polar a (+ ra 6.1177)(* sf 0.0301))))
(command (setq a(polar a (+ ra 5.9581)(* sf 0.0368))))
(command (setq a(polar a (+ ra 5.7776)(* sf 0.0411))))
(command (setq a(polar a (+ ra 5.5952)(* sf 0.0415))))
(command (setq a(polar a (+ ra 5.4277)(* sf 0.0373))))
(command (setq a(polar a (+ ra 5.2585)(* sf 0.0465))))
(command (setq a(polar a (+ ra 5.0911)(* sf 0.0401))))
(command (setq a(polar a (+ ra 4.9504)(* sf 0.0347))))
(command (setq a(polar a (+ ra 4.8046)(* sf 0.0439))))
(command (setq a(polar a (+ ra 4.6597)(* sf 0.0361))))
(command (setq a(polar a (+ ra 4.5198)(* sf 0.0395))))
(command (setq a(polar a (+ ra 4.3616)(* sf 0.0448))))
(command (setq a(polar a (+ ra 4.2054)(* sf 0.0374))))
(command (setq a(polar a (+ ra 4.0581)(* sf 0.0357))))
(command (setq a(polar a (+ ra 3.8936)(* sf 0.0433))))
(command (setq a(polar a (+ ra 3.7203)(* sf 0.0371))))
(command (setq a(polar a (+ ra 3.5530)(* sf 0.0359))))
(command (setq a(polar a (+ ra 3.4105)(* sf 0.0248))))
(command (setq a(polar a (+ ra 3.2945)(* sf 0.0242))))
(command (setq a(polar a (+ ra 3.1880)(* sf 0.0202)))"")
(setq a(polar a (+ ra 6.1538)(* sf 0.6461)))
a
)
(defun LC(a)
(setq a(polar a (+ ra 0.2551)(* sf 0.5886)))
(command "PLINE" a (setq a(polar a (+ ra 4.0946)(* sf 0.0412))))
(command (setq a(polar a (+ ra 3.9697)(* sf 0.0406))))
(command (setq a(polar a (+ ra 3.8505)(* sf 0.0356))))
(command (setq a(polar a (+ ra 3.7222)(* sf 0.0443))))
(command (setq a(polar a (+ ra 3.5674)(* sf 0.0497))))
(command (setq a(polar a (+ ra 3.4303)(* sf 0.0318))))
(command (setq a(polar a (+ ra 3.3059)(* sf 0.0411))))
(command (setq a(polar a (+ ra 3.1611)(* sf 0.0430))))
(command (setq a(polar a (+ ra 3.0226)(* sf 0.0373))))
(command (setq a(polar a (+ ra 2.8817)(* sf 0.0450))))
(command (setq a(polar a (+ ra 2.7358)(* sf 0.0414))))
(command (setq a(polar a (+ ra 2.6138)(* sf 0.0322))))
(command (setq a(polar a (+ ra 2.5126)(* sf 0.0301))))
(command (setq a(polar a (+ ra 2.4118)(* sf 0.0331))))
(command (setq a(polar a (+ ra 2.3059)(* sf 0.0347))))
(command (setq a(polar a (+ ra 2.1762)(* sf 0.0505))))
(command (setq a(polar a (+ ra 2.0293)(* sf 0.0486))))
(command (setq a(polar a (+ ra 1.8891)(* sf 0.0483))))
(command (setq a(polar a (+ ra 1.7579)(* sf 0.0440))))
(command (setq a(polar a (+ ra 1.6281)(* sf 0.0483))))
(command (setq a(polar a (+ ra 1.4933)(* sf 0.0479))))
(command (setq a(polar a (+ ra 1.3836)(* sf 0.0301))))
(command (setq a(polar a (+ ra 1.2769)(* sf 0.0451))))
(command (setq a(polar a (+ ra 1.1547)(* sf 0.0399))))
(command (setq a(polar a (+ ra 1.0380)(* sf 0.0396))))
(command (setq a(polar a (+ ra 0.9250)(* sf 0.0358))))
(command (setq a(polar a (+ ra 0.8052)(* sf 0.0422))))
(command (setq a(polar a (+ ra 0.6795)(* sf 0.0377))))
(command (setq a(polar a (+ ra 0.5576)(* sf 0.0379))))
(command (setq a(polar a (+ ra 0.4224)(* sf 0.0440))))
(command (setq a(polar a (+ ra 0.2671)(* sf 0.0481))))
(command (setq a(polar a (+ ra 0.1233)(* sf 0.0359))))
(command (setq a(polar a (+ ra 6.2756)(* sf 0.0400))))
(command (setq a(polar a (+ ra 6.1149)(* sf 0.0533))))
(command (setq a(polar a (+ ra 5.9675)(* sf 0.0331))))
(command (setq a(polar a (+ ra 5.8643)(* sf 0.0283))))
(command (setq a(polar a (+ ra 5.7382)(* sf 0.0481))))
(command (setq a(polar a (+ ra 5.6182)(* sf 0.0260))))
(command (setq a(polar a (+ ra 5.5240)(* sf 0.0335))))
(command (setq a(polar a (+ ra 5.4147)(* sf 0.0370))))
(command (setq a(polar a (+ ra 5.3131)(* sf 0.0299))))
(command (setq a(polar a (+ ra 3.8419)(* sf 0.0845))))
(command (setq a(polar a (+ ra 2.1348)(* sf 0.0277))))
(command (setq a(polar a (+ ra 2.2744)(* sf 0.0422))))
(command (setq a(polar a (+ ra 2.4224)(* sf 0.0284))))
(command (setq a(polar a (+ ra 2.5777)(* sf 0.0414))))
(command (setq a(polar a (+ ra 2.7429)(* sf 0.0315))))
(command (setq a(polar a (+ ra 2.9011)(* sf 0.0360))))
(command (setq a(polar a (+ ra 3.0851)(* sf 0.0401))))
(command (setq a(polar a (+ ra 3.2932)(* sf 0.0460))))
(command (setq a(polar a (+ ra 3.5203)(* sf 0.0494))))
(command (setq a(polar a (+ ra 3.7472)(* sf 0.0506))))
(command (setq a(polar a (+ ra 3.9502)(* sf 0.0433))))
(command (setq a(polar a (+ ra 4.1189)(* sf 0.0391))))
(command (setq a(polar a (+ ra 4.2576)(* sf 0.0315))))
(command (setq a(polar a (+ ra 4.4148)(* sf 0.0514))))
(command (setq a(polar a (+ ra 4.6102)(* sf 0.0535))))
(command (setq a(polar a (+ ra 4.7901)(* sf 0.0456))))
(command (setq a(polar a (+ ra 4.9414)(* sf 0.0356))))
(command (setq a(polar a (+ ra 5.1020)(* sf 0.0500))))
(command (setq a(polar a (+ ra 5.2964)(* sf 0.0501))))
(command (setq a(polar a (+ ra 5.4902)(* sf 0.0438))))
(command (setq a(polar a (+ ra 5.6702)(* sf 0.0405))))
(command (setq a(polar a (+ ra 5.8579)(* sf 0.0421))))
(command (setq a(polar a (+ ra 6.0748)(* sf 0.0499))))
(command (setq a(polar a (+ ra 6.2751)(* sf 0.0336))))
(command (setq a(polar a (+ ra 0.1289)(* sf 0.0225))))
(command (setq a(polar a (+ ra 0.2980)(* sf 0.0486))))
(command (setq a(polar a (+ ra 0.4784)(* sf 0.0293))))
(command (setq a(polar a (+ ra 0.6072)(* sf 0.0273))))
(command (setq a(polar a (+ ra 0.7707)(* sf 0.0484))))
(command (setq a(polar a (+ ra 0.9669)(* sf 0.0476))))
(command (setq a(polar a (+ ra 5.5829)(* sf 0.0845)))"")
(setq a(polar a (+ ra 5.8136)(* sf 0.3283)))
a
)
(defun LD(a)
(setq a(polar a (+ ra 0.0000)(* sf 0.5301)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.0972))))
(command (setq a(polar a (+ ra 3.9075)(* sf 0.0337))))
(command (setq a(polar a (+ ra 3.8014)(* sf 0.0333))))
(command (setq a(polar a (+ ra 3.6719)(* sf 0.0465))))
(command (setq a(polar a (+ ra 3.5240)(* sf 0.0426))))
(command (setq a(polar a (+ ra 3.3750)(* sf 0.0454))))
(command (setq a(polar a (+ ra 3.2179)(* sf 0.0461))))
(command (setq a(polar a (+ ra 3.0305)(* sf 0.0626))))
(command (setq a(polar a (+ ra 2.8542)(* sf 0.0404))))
(command (setq a(polar a (+ ra 2.7065)(* sf 0.0474))))
(command (setq a(polar a (+ ra 2.5518)(* sf 0.0466))))
(command (setq a(polar a (+ ra 2.3774)(* sf 0.0628))))
(command (setq a(polar a (+ ra 2.1812)(* sf 0.0649))))
(command (setq a(polar a (+ ra 1.9953)(* sf 0.0608))))
(command (setq a(polar a (+ ra 1.8328)(* sf 0.0522))))
(command (setq a(polar a (+ ra 1.6764)(* sf 0.0585))))
(command (setq a(polar a (+ ra 1.4985)(* sf 0.0683))))
(command (setq a(polar a (+ ra 1.3152)(* sf 0.0616))))
(command (setq a(polar a (+ ra 1.1494)(* sf 0.0538))))
(command (setq a(polar a (+ ra 0.9961)(* sf 0.0502))))
(command (setq a(polar a (+ ra 0.8378)(* sf 0.0540))))
(command (setq a(polar a (+ ra 0.6702)(* sf 0.0527))))
(command (setq a(polar a (+ ra 0.5031)(* sf 0.0502))))
(command (setq a(polar a (+ ra 0.3324)(* sf 0.0520))))
(command (setq a(polar a (+ ra 0.1522)(* sf 0.0537))))
(command (setq a(polar a (+ ra 6.2422)(* sf 0.0584))))
(command (setq a(polar a (+ ra 6.0556)(* sf 0.0503))))
(command (setq a(polar a (+ ra 5.8855)(* sf 0.0502))))
(command (setq a(polar a (+ ra 5.7393)(* sf 0.0381))))
(command (setq a(polar a (+ ra 5.5702)(* sf 0.0670))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.4318))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 1.0011))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 1.5708)(* sf 0.2676)))
(command "PLINE" a (setq a(polar a (+ ra 4.3942)(* sf 0.0402))))
(command (setq a(polar a (+ ra 4.2407)(* sf 0.0402))))
(command (setq a(polar a (+ ra 4.0494)(* sf 0.0551))))
(command (setq a(polar a (+ ra 3.8804)(* sf 0.0270))))
(command (setq a(polar a (+ ra 3.7220)(* sf 0.0450))))
(command (setq a(polar a (+ ra 3.5145)(* sf 0.0456))))
(command (setq a(polar a (+ ra 3.3030)(* sf 0.0440))))
(command (setq a(polar a (+ ra 3.1717)(* sf 0.0098))))
(command (setq a(polar a (+ ra 3.0237)(* sf 0.0515))))
(command (setq a(polar a (+ ra 2.8054)(* sf 0.0405))))
(command (setq a(polar a (+ ra 2.5973)(* sf 0.0493))))
(command (setq a(polar a (+ ra 2.3929)(* sf 0.0446))))
(command (setq a(polar a (+ ra 2.2192)(* sf 0.0388))))
(command (setq a(polar a (+ ra 2.0722)(* sf 0.0342))))
(command (setq a(polar a (+ ra 1.9168)(* sf 0.0478))))
(command (setq a(polar a (+ ra 1.7394)(* sf 0.0467))))
(command (setq a(polar a (+ ra 1.5784)(* sf 0.0410))))
(command (setq a(polar a (+ ra 1.4145)(* sf 0.0490))))
(command (setq a(polar a (+ ra 1.2488)(* sf 0.0396))))
(command (setq a(polar a (+ ra 1.0790)(* sf 0.0493))))
(command (setq a(polar a (+ ra 0.8993)(* sf 0.0409))))
(command (setq a(polar a (+ ra 0.7124)(* sf 0.0480))))
(command (setq a(polar a (+ ra 0.5215)(* sf 0.0388))))
(command (setq a(polar a (+ ra 0.3406)(* sf 0.0396))))
(command (setq a(polar a (+ ra 0.1723)(* sf 0.0310))))
(command (setq a(polar a (+ ra 0.0343)(* sf 0.0263))))
(command (setq a(polar a (+ ra 6.1392)(* sf 0.0473))))
(command (setq a(polar a (+ ra 5.9504)(* sf 0.0317))))
(command (setq a(polar a (+ ra 5.7855)(* sf 0.0402))))
(command (setq a(polar a (+ ra 5.6193)(* sf 0.0339))))
(command (setq a(polar a (+ ra 5.4568)(* sf 0.0419))))
(command (setq a(polar a (+ ra 5.3078)(* sf 0.0320))))
(command (setq a(polar a (+ ra 5.1612)(* sf 0.0425))))
(command (setq a(polar a (+ ra 5.0160)(* sf 0.0328))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.1314)))"")
(setq a(polar a (+ ra 5.6605)(* sf 0.4587)))
a
)
(defun LE(a)
(setq a(polar a (+ ra 0.2551)(* sf 0.5887)))
(command "PLINE" a (setq a(polar a (+ ra 3.9899)(* sf 0.1090))))
(command (setq a(polar a (+ ra 3.6410)(* sf 0.1089))))
(command (setq a(polar a (+ ra 3.2720)(* sf 0.1089))))
(command (setq a(polar a (+ ra 2.8964)(* sf 0.1089))))
(command (setq a(polar a (+ ra 2.5326)(* sf 0.1089))))
(command (setq a(polar a (+ ra 2.1909)(* sf 0.1090))))
(command (setq a(polar a (+ ra 1.8702)(* sf 0.1091))))
(command (setq a(polar a (+ ra 1.5611)(* sf 0.1091))))
(command (setq a(polar a (+ ra 1.2517)(* sf 0.1090))))
(command (setq a(polar a (+ ra 0.9299)(* sf 0.1090))))
(command (setq a(polar a (+ ra 0.5867)(* sf 0.1089))))
(command (setq a(polar a (+ ra 0.2217)(* sf 0.1089))))
(command (setq a(polar a (+ ra 6.1292)(* sf 0.1089))))
(command (setq a(polar a (+ ra 5.7611)(* sf 0.1089))))
(command (setq a(polar a (+ ra 5.4138)(* sf 0.1090))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.1728))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.4899))))
(command (setq a(polar a (+ ra 4.8528)(* sf 0.0882))))
(command (setq a(polar a (+ ra 5.1865)(* sf 0.0882))))
(command (setq a(polar a (+ ra 5.5475)(* sf 0.0881))))
(command (setq a(polar a (+ ra 5.9449)(* sf 0.0880))))
(command (setq a(polar a (+ ra 0.0852)(* sf 0.0879))))
(command (setq a(polar a (+ ra 0.5013)(* sf 0.0880))))
(command (setq a(polar a (+ ra 0.8836)(* sf 0.0881))))
(command (setq a(polar a (+ ra 5.5829)(* sf 0.0845)))"")
(setq a(polar a (+ ra 1.8540)(* sf 0.2854)))
(command "PLINE" a (setq a(polar a (+ ra 3.1416)(* sf 0.3915))))
(command (setq a(polar a (+ ra 1.0758)(* sf 0.0822))))
(command (setq a(polar a (+ ra 0.7395)(* sf 0.0821))))
(command (setq a(polar a (+ ra 0.3711)(* sf 0.0820))))
(command (setq a(polar a (+ ra 6.2606)(* sf 0.0820))))
(command (setq a(polar a (+ ra 5.8690)(* sf 0.0820))))
(command (setq a(polar a (+ ra 5.5034)(* sf 0.0821))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0648)))"")
(setq a(polar a (+ ra 5.4322)(* sf 0.5620)))
a
)
(defun LF(a)
(setq a(polar a (+ ra 0.0000)(* sf 0.1008)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.6260))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1008))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0833))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1013))))
(command (setq a(polar a (+ ra 1.4358)(* sf 0.0794))))
(command (setq a(polar a (+ ra 1.2455)(* sf 0.0794))))
(command (setq a(polar a (+ ra 1.0102)(* sf 0.0793))))
(command (setq a(polar a (+ ra 0.6892)(* sf 0.0790))))
(command (setq a(polar a (+ ra 0.2526)(* sf 0.0777))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0651))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0642))))
(command (setq a(polar a (+ ra 3.5501)(* sf 0.0651))))
(command (setq a(polar a (+ ra 4.0757)(* sf 0.0663))))
(command (setq a(polar a (+ ra 4.3600)(* sf 0.0665))))
(command (setq a(polar a (+ ra 4.5645)(* sf 0.0665))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.1482))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.1488))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.6260))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.4683)))
a
)
(defun LG(a)
(setq a(polar a (+ ra 5.1367)(* sf 0.3271)))
(command "PLINE" a (setq a(polar a (+ ra 0.9613)(* sf 0.0841))))
(command (setq a(polar a (+ ra 5.8084)(* sf 0.0740))))
(command (setq a(polar a (+ ra 6.1582)(* sf 0.0740))))
(command (setq a(polar a (+ ra 0.2331)(* sf 0.0740))))
(command (setq a(polar a (+ ra 0.5764)(* sf 0.0740))))
(command (setq a(polar a (+ ra 0.8932)(* sf 0.0741))))
(command (setq a(polar a (+ ra 1.1876)(* sf 0.0741))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.1855))))
(command (setq a(polar a (+ ra 3.8281)(* sf 0.0834))))
(command (setq a(polar a (+ ra 3.5552)(* sf 0.0834))))
(command (setq a(polar a (+ ra 3.2715)(* sf 0.0834))))
(command (setq a(polar a (+ ra 2.9839)(* sf 0.0834))))
(command (setq a(polar a (+ ra 2.7009)(* sf 0.0834))))
(command (setq a(polar a (+ ra 2.4293)(* sf 0.0834))))
(command (setq a(polar a (+ ra 2.1714)(* sf 0.0835))))
(command (setq a(polar a (+ ra 1.9257)(* sf 0.0835))))
(command (setq a(polar a (+ ra 1.6882)(* sf 0.0835))))
(command (setq a(polar a (+ ra 1.4534)(* sf 0.0835))))
(command (setq a(polar a (+ ra 1.2159)(* sf 0.0835))))
(command (setq a(polar a (+ ra 0.9702)(* sf 0.0835))))
(command (setq a(polar a (+ ra 0.7123)(* sf 0.0834))))
(command (setq a(polar a (+ ra 0.4407)(* sf 0.0834))))
(command (setq a(polar a (+ ra 0.1577)(* sf 0.0834))))
(command (setq a(polar a (+ ra 6.1533)(* sf 0.0834))))
(command (setq a(polar a (+ ra 5.8695)(* sf 0.0834))))
(command (setq a(polar a (+ ra 5.5966)(* sf 0.0834))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.0972))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.7548))))
(command (setq a(polar a (+ ra 4.4267)(* sf 0.0694))))
(command (setq a(polar a (+ ra 4.2256)(* sf 0.0694))))
(command (setq a(polar a (+ ra 4.0171)(* sf 0.0694))))
(command (setq a(polar a (+ ra 3.7995)(* sf 0.0694))))
(command (setq a(polar a (+ ra 3.5723)(* sf 0.0694))))
(command (setq a(polar a (+ ra 3.3374)(* sf 0.0694))))
(command (setq a(polar a (+ ra 3.0984)(* sf 0.0694))))
(command (setq a(polar a (+ ra 2.8603)(* sf 0.0694))))
(command (setq a(polar a (+ ra 2.6278)(* sf 0.0694)))"")
(setq a(polar a (+ ra 1.4770)(* sf 0.4327)))
(command "PLINE" a (setq a(polar a (+ ra 2.2669)(* sf 0.0907))))
(command (setq a(polar a (+ ra 1.9087)(* sf 0.0907))))
(command (setq a(polar a (+ ra 1.5706)(* sf 0.0908))))
(command (setq a(polar a (+ ra 1.2331)(* sf 0.0907))))
(command (setq a(polar a (+ ra 0.8751)(* sf 0.0907))))
(command (setq a(polar a (+ ra 0.4801)(* sf 0.0905))))
(command (setq a(polar a (+ ra 0.0500)(* sf 0.0905))))
(command (setq a(polar a (+ ra 5.8988)(* sf 0.0905))))
(command (setq a(polar a (+ ra 5.4942)(* sf 0.0906))))
(command (setq a(polar a (+ ra 5.1289)(* sf 0.0907))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.1314))))
(command (setq a(polar a (+ ra 4.2963)(* sf 0.0907))))
(command (setq a(polar a (+ ra 3.9304)(* sf 0.0906))))
(command (setq a(polar a (+ ra 3.5258)(* sf 0.0905))))
(command (setq a(polar a (+ ra 3.0915)(* sf 0.0905))))
(command (setq a(polar a (+ ra 2.6616)(* sf 0.0905)))"")
(setq a(polar a (+ ra 6.0931)(* sf 0.7021)))
a
)
(defun LH(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 1.0011))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.4318))))
(command (setq a(polar a (+ ra 0.7200)(* sf 0.0627))))
(command (setq a(polar a (+ ra 0.5178)(* sf 0.0626))))
(command (setq a(polar a (+ ra 0.3084)(* sf 0.0626))))
(command (setq a(polar a (+ ra 0.0941)(* sf 0.0626))))
(command (setq a(polar a (+ ra 6.1613)(* sf 0.0626))))
(command (setq a(polar a (+ ra 5.9474)(* sf 0.0626))))
(command (setq a(polar a (+ ra 5.7389)(* sf 0.0626))))
(command (setq a(polar a (+ ra 5.5377)(* sf 0.0627))))
(command (setq a(polar a (+ ra 5.3443)(* sf 0.0627))))
(command (setq a(polar a (+ ra 5.1581)(* sf 0.0627))))
(command (setq a(polar a (+ ra 4.9775)(* sf 0.0627))))
(command (setq a(polar a (+ ra 4.8004)(* sf 0.0627))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.3333))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0834))))
(command (setq a(polar a (+ ra 1.5708)(* sf 0.3333))))
(command (setq a(polar a (+ ra 1.6432)(* sf 0.0398))))
(command (setq a(polar a (+ ra 1.7833)(* sf 0.0361))))
(command (setq a(polar a (+ ra 1.9951)(* sf 0.0757))))
(command (setq a(polar a (+ ra 2.2974)(* sf 0.0757))))
(command (setq a(polar a (+ ra 2.6265)(* sf 0.0756))))
(command (setq a(polar a (+ ra 2.9820)(* sf 0.0756))))
(command (setq a(polar a (+ ra 3.3478)(* sf 0.0756))))
(command (setq a(polar a (+ ra 3.6993)(* sf 0.0756))))
(command (setq a(polar a (+ ra 4.0256)(* sf 0.0757))))
(command (setq a(polar a (+ ra 4.3256)(* sf 0.0757))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.3990))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 0.0000)(* sf 0.9515)))
a
)
(defun LI(a)
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.6677))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.6677))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833)))"")
(setq a(polar a (+ ra 1.4800)(* sf 0.9193)))
(command "PLINE" a (setq a(polar a (+ ra 1.5708)(* sf 0.0833))))
(command (setq a(polar a (+ ra 3.1416)(* sf 0.0833))))
(command (setq a(polar a (+ ra 4.7124)(* sf 0.0833))))
(command (setq a(polar a (+ ra 0.0000)(* sf 0.0833)))"")
(setq a(polar a (+ ra 5.0147)(* sf 0.9590)))
a
)
(defun LJ(a)
(setq a(polar a (+ ra 4.7124)(* sf 0.3151)))
(command "PLINE" a (setq a(polar a (+ ra 0.2230)(* sf 0.0582))))
(command (setq a(polar a (+ ra 0.4941)(* sf 0.0582))))
(command (setq a (
geocities.com/wpsmoke/acadalisptrng) (
geocities.com/wpsmoke)