Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1239 1842 (N65W03 L= 78)  3671    414        6 (1071/1760-1420/1901)  -2.2 E25-W30 N59-N69
      2 1225 1662 (N46W04 L= 79)  2021    409        3 (1032/1586-1364/1712)  -3.9 E13-W17 N41-N48
      3  646 1631 (N33E40 L= 35)   723    198        1 ( 601/1548- 710/1681) -84.8 E42-E37 N26-N37
      4  474 1316 (N10E41 L= 34)   582    213        2 ( 419/1230- 511/1386) -36.0 E47-E36 N05-N13
      5 1665 1215 (N21W42 L=117)  1016    182        2 (1601/1138-1724/1281) -37.9 W36-W47 N16-N24
      6 1752 1075 (N14W50 L=125)   388     53        0 (1720/1058-1781/1095)  18.4 W47-W53 N12-N15
      7  241  845 (S22E57 L= 18)   398     68        0 ( 227/ 812- 255/ 882) -63.4 E58-E55 S24-S20
      8  389  721 (S28E42 L= 33)   364    125        0 ( 344/ 677- 423/ 768)  37.9 E47-E38 S31-S24
      9  943  708 (S20E00 L= 75)   282     96        0 ( 890/ 686- 984/ 723) -11.3 E03-W02 S21-S19
     10 1415  671 (S16W31 L=106)   307     77        1 (1385/ 648-1450/ 693)  36.9 W29-W33 S17-S14
     11  745  659 (S27E13 L= 62)   484    187        0 ( 648/ 644- 825/ 670)   8.7 E20-E07 S28-S24
     12 1702  647 (S13W55 L=130)   363     42        2 (1684/ 623-1718/ 669) -71.6 W53-W57 S14-S11
     13  491  615 (S34E33 L= 42)   451    135        0 ( 437/ 585- 561/ 646)  22.6 E38-E26 S36-S30
     14 1255  555 (S25W23 L= 98)   296    163        0 (1192/ 514-1316/ 602)  53.1 W20-W26 S29-S21
  

    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