Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1318 1676 (N41W01 L=270)  1135    201        3 (1285/1614-1357/1748) -65.6 E02-W05 N37-N48
      2  981 1603 (N26E18 L=251)   345     98        0 ( 963/1554- 994/1644) -50.2 E20-E15 N22-N28
      3  711 1523 (N14E32 L=238)  1096    233        0 ( 688/1427- 735/1625) -53.1 E36-E27 N08-N20
      4  277 1467 (N04E65 L=204)   965    174        1 ( 234/1411- 315/1492) -29.1 E71-E60 N00-N05
      5 1327 1413 (N23W08 L=277)   324     52        0 (1311/1375-1340/1451) -68.2 W06-W09 N20-N25
      6  831 1339 (N06E19 L=250)   676    191       -1 ( 757/1298- 894/1400) -11.3 E24-E14 N03-N08
      7 1315 1152 (N07W13 L=282)  1063    264        2 (1281/1010-1348/1287) -57.3 W08-W18 N00-N14
      8  163 1136 (S18E64 L=205)  4873    686        7 ( 103/1025- 246/1241)  72.9 E73-E57 S23-S10
      9  494  925 (S25E31 L=238)   827    264        0 ( 381/ 886- 593/ 974)  31.0 E39-E24 S28-S19
     10 1399  896 (S05W24 L=294)   204     27        0 (1380/ 873-1415/ 918) -63.4 W23-W25 S05-S03
     11  195  813 (S37E57 L=213)  1332    381        2 ( 133/ 761- 283/ 853)  20.6 E63-E47 S40-S33
     12 1888  760 (N04W71 L=340)  1064    181        1 (1864/ 728-1922/ 807) -38.7 W67-W76 N01-N06
     13 1499  602 (S18W41 L=310)   316     71        0 (1460/ 591-1540/ 617)  31.0 W38-W43 S19-S16
     14 1571  486 (S21W52 L=321)  1066    137        1 (1514/ 435-1613/ 557) -83.7 W49-W54 S25-S16
  

    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