Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1453 1780 (N41W65 L=258)   484     47        1 (1432/1753-1473/1800)   5.2 W59-W70 N39-N42
      2 1322 1763 (N45W50 L=243)   492     68        1 (1298/1735-1360/1785)   0.0 W45-W54 N43-N46
      3 1131 1720 (N48W30 L=223)   412     63        1 (1097/1690-1160/1742) -36.9 W27-W33 N45-N49
      4  822 1601 (N47E01 L=192)  1696    336        5 ( 719/1521- 976/1666)   4.8 E10-W14 N43-N49
      5  659 1385 (N36E18 L=176)   346    103        1 ( 609/1353- 699/1405) -35.5 E21-E14 N32-N37
      6  249 1345 (N39E60 L=133)   405     44        1 ( 224/1319- 272/1365)  18.4 E64-E57 N37-N40
      7 1088 1229 (N18W08 L=201)  1361    340        1 ( 980/1102-1175/1349) -71.6 W03-W10 N08-N26
      8  644 1011 (N13E23 L=170)   307    114        2 ( 616/ 956- 680/1058) -74.1 E24-E21 N09-N16
      9  268  992 (N17E53 L=140)   304     78        0 ( 249/ 959- 286/1037) -68.2 E55-E51 N14-N19
     10 1744  943 (S14W46 L=239)   374     63        0 (1727/ 909-1760/ 981)  53.1 W43-W47 S15-S11
     11  934  818 (S03E09 L=184)   429    164        0 ( 914/ 744- 957/ 895)  60.3 E10-E06 S07-N00
     12 1778  796 (S24W48 L=241)  1199    207        1 (1721/ 747-1843/ 864) -52.1 W42-W56 S28-S19
     13  472  828 (N05E38 L=155)   237     45        1 ( 450/ 807- 492/ 851) -56.3 E39-E36 N03-N06
     14  167  756 (N03E72 L=121)  2573    248        5 ( 116/ 658- 224/ 835) -70.0 E82-E67 S03-N08
     15 1203  690 (S16W04 L=197)   392    146        0 (1155/ 624-1228/ 749)  45.0 W00-W06 S19-S12
     16  350  677 (S03E52 L=141)   320     24        1 ( 333/ 656- 374/ 697) -33.7 E54-E50 S04-S01
     17 1395  523 (S32W14 L=207)   238     57        0 (1367/ 501-1419/ 553)  21.8 W11-W16 S33-S30
     18  766  441 (S24E30 L=163)  1261    241        3 ( 727/ 330- 806/ 547)  49.4 E36-E23 S31-S17
     19  428  451 (S18E56 L=137)  3154    291       11 ( 338/ 324- 498/ 531)  86.4 E64-E49 S28-S12
     20 1662  461 (S46W40 L=234)  1733    265        2 (1555/ 397-1763/ 531)   4.4 W28-W55 S49-S42
     21  314  466 (S17E70 L=123)   801     90        1 ( 278/ 432- 338/ 493) -51.3 E76-E66 S19-S14
     22 1214  426 (S34E01 L=192)   272    110        0 (1191/ 373-1239/ 476)  60.3 E03-W02 S38-S31
     23  509  422 (S21E50 L=143)   614     83        0 ( 479/ 380- 536/ 461)  71.6 E52-E48 S24-S18
     24  921  275 (S40E27 L=166)   377     47        0 ( 893/ 262- 952/ 292) -45.0 E29-E24 S41-S37
     25 1148  198 (S54E15 L=178)  1669    274        2 (1045/ 150-1261/ 247)   4.8 E27-E02 S57-S50
  

    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