Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  952 1742 (N39E19 L=137)   390     82        1 ( 902/1722- 995/1760)  26.6 E22-E16 N37-N40
      2  440 1539 (N18E49 L=107)  2457    547        5 ( 366/1354- 489/1666) -46.4 E62-E41 N05-N26
      3  647 1628 (N26E36 L=120)   526    104        1 ( 611/1589- 679/1665) -29.7 E39-E32 N23-N28
      4  372 1586 (N20E57 L= 99)   735    110        3 ( 346/1560- 411/1615)  21.8 E60-E53 N18-N22
      5  261 1472 (N12E64 L= 92)  1314    275        4 ( 205/1433- 302/1506)  15.3 E71-E57 N09-N14
      6  337 1421 (N09E53 L=102)  1098    162        1 ( 293/1345- 388/1469)  63.4 E57-E50 N04-N12
      7  698 1383 (N10E25 L=131)   248    108        0 ( 664/1359- 746/1423) -26.6 E28-E22 N09-N12
      8 1833 1314 (N27W54 L=210)   498    144        0 (1795/1295-1872/1328)  24.0 W49-W58 N24-N28
      9 1035 1211 (N05E02 L=154)   248    128        0 ( 983/1149-1063/1242) -38.7 E05-W00 N01-N06
     10  216  973 (S19E56 L=100)   435     94        0 ( 204/ 918- 228/1017)  80.5 E57-E55 S21-S15
     11 1336  778 (S15W23 L=179)   554    140        1 (1264/ 755-1411/ 809)  32.0 W18-W27 S17-S12
     12  462  718 (S32E34 L=121)   259     84        0 ( 430/ 699- 496/ 737)  26.6 E37-E31 S33-S30
     13  316  577 (S43E50 L=106)   746    171        1 ( 285/ 530- 351/ 627)  41.2 E55-E46 S46-S39
     14  464  497 (S48E38 L=118)  1046    243        2 ( 381/ 478- 543/ 529)   3.4 E46-E29 S49-S45
     15  857  207 (S67W06 L=162)   561     69        2 ( 832/ 184- 885/ 236)  26.6 W02-W10 S69-S63
  

    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