Записки программиста, обо всем и ни о чем. Но, наверное, больше профессионального.

2011-05-17

Bulge

Ура, я почти закончил! На свободу с чистой совестью!
Не так это и сложно, спустя 20 лет вспомнить тригонометрию.

Есть в чертежах (DWG) AutoCAD такой примитив как polyline, иногда LWPolyline. Ничего особенного, набор точек, соединенных отрезками. Подвох в том, что у любого отрезка (определяемого двумя соседними точками) может быть ненулевым такой параметр как bulge. Эту хрень придумали чтоб мне было чем заняться чтобы можно было в полилинию встраивать не только прямые отрезки, но и дуги (arc).
Вот как описывает bulge один почтипоэт:

Bulges are something that women have (mostly to please the opposite sex it seems) and something that guys try to get by placing socks in strategic places. At least until they get older. Which is the time they tend to develop bulges in not so strategic places. In other words: bulges are all about curvature.
...
In AutoCAD's online help reference, it says about bulges for polylines:
The bulge is the tangent of 1/4 of the included angle for the arc between the selected vertex and the next vertex in the polyline's vertex list. A negative bulge value indicates that the arc goes clockwise from the selected vertex to the next vertex. A bulge of 0 indicates a straight segment, and a bulge of 1 is a semicircle.

afralisp.net/archive/lisp/Bulges
Предупреждаю, если полезете по сцылке, рекомендую отключить в браузере использование стилей. В моем ФФ4 видно белый текст на белом фоне, если со стилями.

А мне надо эти полилинии с булжами преобразовать в обычные полилинии, где кроме прямых отрезков нет ничего. Соответственно, дуги надо аппроксимировать отрезками. Правда, сначала надо превратить две точки и число (bulge) в геометрическую фигуру — дугу. Но оказалось не слишком все тяжко. Полдня поисков, полдня воспоминаний школьного курса тригонометрии и полдня передирания формул из ёкселя в Python.

Черновой вариант превращения сегмента полилинии с булжем в обычную полилинию готов. 
UPD
Не готов, ибо начиная с центра дуги, считает неправильно. Когда будет правильно - обновлю пост. А пока так
UPD2
Вот теперь правильно. Проверено отладкой на сегментах в разных квадрантах и с разным направлением.
#!/usr/bin/env python
# -*- coding: utf-8 -*-
# (c) Valik mailto:vasnake@gmail.com

import sys, os, math

def autoLispAngle(x1,y1, x2,y2):
 return math.atan2(y2-y1, x2-x1)

def polar(x1,y1, phi, dist):
 x = x1 + dist * math.cos(phi)
 y = y1 + dist * math.sin(phi)
 return (x,y)

def sign(n):
 if n < 0.0: return -1.0
 return 1.0

def testBulge(x1, y1, x2, y2, bulge, sublen=0.01):
 ''' AutoCAD polyline arc segment approximation.
 Bulge to arc to line segments (facets)
 http://www.cadtutor.net/forum/showthread.php?51511-Points-along-a-lwpoly-arc&
 att\FacetBulge_rev1.zip\FacetBulge\BulgeCalc_Rev1.xls - formulas with errors, which eliminate with:
 http://www.afralisp.net/archive/lisp/Bulges1.htm
 '''
 print 'calcBulge: p1 [%s], p2 [%s], bulge [%s], sublen [%s]' % ((x1,y1), (x2,y2), bulge, sublen)
 res = {}
# midpoint (F9, G9) # arc midpoint [(12.41925, 13.5352)]; // 16.73, 11.77
 mx1 = (x1 + x2) / 2.0
 my1 = (y1 + y2) / 2.0
 s1 = 'chord midpoint [%s]' % ((mx1, my1),)
 res['chordmidpoint'] = (mx1, my1)
# angle (K13) # angle/2 (K14)
 angle = math.atan(bulge) * 4.0
 angleDeg = angle * (180.0 / math.pi)
 s2 = 'arc angle [%0.5f] rad, [%0.5f] deg' % (angle, angleDeg)
 res['angleRad'] = angle
 res['angleDeg'] = angleDeg
# dist (F5)
 dist = math.sqrt((x2-x1)**2 + (y2-y1)**2)
 s3 = 'chord len [%0.5f]' % dist
 res['chordLen'] = dist
# sagitta length (http://en.wikipedia.org/wiki/Sagitta_%28geometry%29)
 sagitta = dist/2.0 * bulge
# radius (K15) # r = ((dist/2.0)**2+sagitta**2)/2.0*sagitta
 radius = (dist/2.0) / math.sin( abs(angle/2.0) )
 if radius == 0.0: radius = 0.000000000000001
 s4 = 'radius [%0.5f]' % radius
 res['radius'] = radius
# arc length (F14) l = 2*pi*r
 alen = abs(radius * angle)
 s5 = 'arc length [%0.5f]' % alen
 res['arcLen'] = alen
# center (F19, G19)
 t = '''
wrong algo:
 k5 = ( (math.sqrt(radius**2 - (dist / 2.0)**2))*2 ) / dist
 cx = mx1 + (((y1-y2)/2.0) * k5 * sign(bulge))
 cy = my1 + (((x2-x1)/2.0) * k5 * sign(bulge))
 s6 = 'arc center [%s]' % ((cx, cy),)
 res['center'] = (cx, cy)
good algo:
 (setq bulge 2.5613 p1 (list 11.7326 11.8487) p2 (list 13.1059 15.2217) r 2.68744
   theta (* 4.0 (atan (abs bulge)))
   gamma (/ (- pi theta) 2.0)
   phi (+ (angle p1 p2) gamma)
   p (polar p1 phi r)
 )
 '''
 theta = 4.0 * math.atan(abs(bulge))
 gamma = (math.pi - theta) / 2.0
 phi = autoLispAngle(x1,y1, x2,y2) + gamma * sign(bulge)
 cx,cy = polar(x1,y1, phi, radius)
 s6 = 'arc center [%s]' % ((cx, cy),) # 14.2498, 12.7899
 res['center'] = (cx, cy)
# start, end angle (G21, G22)
 startAngle = math.acos((x1 - cx) / radius)
 if not sign(y1 - cy) > 0:
  startAngle = (2.0 * math.pi) - startAngle
 endAngle = startAngle + angle
 s7 = 'start, end arc angles [%s]' % ((startAngle, endAngle),)
 res['seAngles'] = (startAngle, endAngle)
# subangle (F27), numsub (# of Divisions K26)
 if sublen <= 0.0: sublen = alen / 10.0
 numsub = round(alen/sublen, 0)
 if numsub < 2:
  numsub = 2.0
 subangle = angle / numsub
 s8 = 'numsub, subangle [%s]' % ((numsub, subangle),)
# length of subarc L27
 realSublen = abs(2 * (math.sin(subangle/2.0) * radius) )
 s9 = 'real sublen [%0.5f]' % realSublen
# sub points
 currangle = startAngle + (subangle/2.0) + (math.pi/2.0 * sign(bulge))
 sx = x1
 sy = y1
 listPoints = [(x1,y1)]
 for cnt in range(int(numsub-1)):
  if not cnt == 0:
   currangle = currangle + subangle
  sx = sx + (realSublen * math.cos(currangle))
  sy = sy + (realSublen * math.sin(currangle))
  listPoints.append((sx, sy))
 listPoints.append((x2, y2))
 res['points'] = listPoints
 print 'doBulge done [%s; %s; %s; %s; %s; %s; %s; %s; %s; subpoints %s]' % (s1,s2,s3,s4,s5,s6,s7,s8,s9,listPoints)
 return res
#def testBulge(self, x1, y1, x2, y2, bulge, sublen=10):

def main():
 testBulge(13.0, 9.0, 21.68, 33.65, -0.45, 7)
 #~ testBulge(11.7326, 11.8487, 13.1059, 15.2217, 2.5613, 1)
 #~ testBulge(5.9228, 12.0274, 8.1062, 22.8887, 2.2893, 3)
 #~ testBulge(24.2884, 10.3276, 27.3493, 14.9170, -4.5373, 3)
 #~ testBulge(-34.8952, -21.6100, -32.7117, -10.7486, 2.2893, 5)
 #~ testBulge(-16.5296, -23.3098, -13.4687, -18.7203, -4.5373, 5)
 #~ testBulge(10.7004, -22.2329, 12.8839, -11.3716, 2.2893, 2)
 #~ testBulge(29.0660, -23.9327, 32.1270, -19.3433, -4.5373, 2)
 #~ testBulge(-34.2720, 12.0274, -32.0886, 22.8887, 2.2893, 2)
 #~ testBulge(-15.9064, 10.3276, -12.8455, 14.9170, -4.5373, 2)
 #~ testBulge(8.0555, 5.0696, -6.8401, -6.4998, -0.3324, 2)
 #~ testBulge(-3.6195, 4.3654, 6.0425, -6.4998, 2.1734, 2)
 #~ testBulge(6.0425, -6.4998, -3.6195, 4.3654, -2.1734, 2)
 #~ testBulge(1.0, 0.0, 0.0, 1.0, 1, 0.5)
 #~ testBulge(0, 1, -1, 0, 1, 0.5)
 #~ testBulge(1.0, 0.0, 0.99, -0.044, 44.53, 0.3)
 #~ testBulge(0.0, 0.0, 0.0, 0.0, 45, 0.3)

import time, traceback
print time.strftime('%Y-%m-%d %H:%M:%S')
if __name__ == "__main__":
 try:
  main()
 except Exception, e:
  if type(e).__name__ == 'COMError': print 'COM Error, msg [%s]' % e
  else:
   print 'Error, program failed:'
   traceback.print_exc(file=sys.stderr)
print time.strftime('%Y-%m-%d %H:%M:%S')


Надо будет подчистить, убрать накопление ошибки при аппроксимации большим количеством сегментов, обобщить, чтобы и просто дуги с окружностями (circle) можно было в полилинии превращать. Ну и отладить эту байду. Еще полдня — день.

Спасибо Autodesk-у за то, что у меня есть работа, причем достаточно интересная.
Это была реклама Autodesk и его софтины AutoCAD :)

Комментариев нет:

Отправить комментарий

Архив блога

Ярлыки

linux (241) python (191) citation (186) web-develop (170) gov.ru (159) video (124) бытовуха (115) sysadm (100) GIS (97) Zope(Plone) (88) бурчалки (84) Book (83) programming (82) грабли (77) Fun (76) development (73) windsurfing (72) Microsoft (64) hiload (62) internet provider (57) opensource (57) security (57) опыт (55) movie (52) Wisdom (51) ML (47) driving (45) hardware (45) language (45) money (42) JS (41) curse (40) bigdata (39) DBMS (38) ArcGIS (34) history (31) PDA (30) howto (30) holyday (29) Google (27) Oracle (27) tourism (27) virtbox (27) health (26) vacation (24) AI (23) Autodesk (23) SQL (23) humor (23) Java (22) knowledge (22) translate (20) CSS (19) cheatsheet (19) hack (19) Apache (16) Klaipeda (15) Manager (15) web-browser (15) Никонов (15) functional programming (14) happiness (14) music (14) todo (14) PHP (13) course (13) scala (13) weapon (13) HTTP. Apache (12) SSH (12) frameworks (12) hero (12) im (12) settings (12) HTML (11) SciTE (11) USA (11) crypto (11) game (11) map (11) HTTPD (9) ODF (9) Photo (9) купи/продай (9) benchmark (8) documentation (8) 3D (7) CS (7) DNS (7) NoSQL (7) cloud (7) django (7) gun (7) matroska (7) telephony (7) Microsoft Office (6) VCS (6) bluetooth (6) pidgin (6) proxy (6) Donald Knuth (5) ETL (5) NVIDIA (5) Palanga (5) REST (5) bash (5) flash (5) keyboard (5) price (5) samba (5) CGI (4) LISP (4) RoR (4) cache (4) car (4) display (4) holywar (4) nginx (4) pistol (4) spark (4) xml (4) Лебедев (4) IDE (3) IE8 (3) J2EE (3) NTFS (3) RDP (3) holiday (3) mount (3) Гоблин (3) кухня (3) урюк (3) AMQP (2) ERP (2) IE7 (2) NAS (2) Naudoc (2) PDF (2) address (2) air (2) british (2) coffee (2) fitness (2) font (2) ftp (2) fuckup (2) messaging (2) notify (2) sharepoint (2) ssl/tls (2) stardict (2) tests (2) tunnel (2) udev (2) APT (1) Baltic (1) CRUD (1) Canyonlands (1) Cyprus (1) DVDShrink (1) Jabber (1) K9Copy (1) Matlab (1) Portugal (1) VBA (1) WD My Book (1) autoit (1) bike (1) cannabis (1) chat (1) concurrent (1) dbf (1) ext4 (1) idioten (1) join (1) krusader (1) license (1) life (1) migration (1) mindmap (1) navitel (1) pneumatic weapon (1) quiz (1) regexp (1) robot (1) science (1) seaside (1) serialization (1) shore (1) spatial (1) tie (1) vim (1) Науру (1) крысы (1) налоги (1) пианино (1)