Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1452 1720 (N57W15 L=213)   440     37        1 (1427/1697-1475/1741)  45.0 W12-W18 N53-N59
      2 1503 1706 (N57W22 L=219)   604     49        1 (1478/1683-1525/1730) -63.4 W18-W25 N54-N60
      3  554 1666 (N25E53 L=145)   683     76        1 ( 526/1634- 579/1710) -68.2 E56-E50 N22-N28
      4 1258 1635 (N41E01 L=197)   418     65        2 (1224/1603-1287/1663) -21.8 E04-W01 N39-N43
      5  360 1599 (N16E68 L=130)   602     91        2 ( 325/1568- 395/1637)  71.6 E71-E65 N13-N19
      6 1361 1467 (N32W11 L=208)   281     82        1 (1337/1437-1387/1508) -45.0 W08-W12 N30-N34
      7  134 1095 (S18E73 L=125)   989     52        2 ( 112/1064- 156/1121)  90.0 E78-E68 S19-S16
      8  440  844 (S27E35 L=163)   733    180        2 ( 372/ 784- 481/ 907)  51.3 E40-E31 S32-S22
      9 1606  676 (S08W46 L=244)   792    207        1 (1528/ 610-1682/ 747)  55.0 W42-W50 S13-S03
     10  439  677 (S38E34 L=164)   690    110        2 ( 408/ 635- 490/ 707)  26.6 E36-E28 S40-S35
     11  494  517 (S48E29 L=169)   736    114        1 ( 463/ 466- 536/ 562)  63.4 E32-E24 S52-S44
     12  519  446 (S54E27 L=171)   349     86        1 ( 497/ 402- 542/ 478)  63.4 E29-E23 S57-S49
     13  597  363 (S59E17 L=180)   621     83        1 ( 566/ 330- 627/ 400)  52.1 E22-E13 S63-S54
     14 1563  343 (S28W67 L=264)   860    118        2 (1511/ 318-1624/ 366)  22.6 W61-W73 S30-S25
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y