Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  700 1776 (N38E39 L=139)   493    103        2 ( 659/1760- 748/1790)  26.6 E43-E35 N36-N39
      2  414 1579 (N21E52 L=126)   632    195        4 ( 395/1514- 431/1634) -45.0 E56-E48 N16-N24
      3 1415 1585 (N36W18 L=197)   406     86        1 (1384/1555-1453/1617)  26.6 W15-W21 N32-N38
      4  202 1400 (N08E68 L=110)  3015    443        6 ( 139/1300- 243/1508) -60.3 E79-E60 N01-N15
      5 1629 1388 (N26W35 L=214)   910    130        5 (1559/1362-1687/1416)   5.7 W29-W39 N24-N28
      6 1743 1260 (N20W45 L=223)   855    138        2 (1700/1209-1788/1313) -45.0 W41-W49 N17-N23
      7 1405 1147 (N07W21 L=199)   277    115        0 (1350/1109-1451/1169)  -8.1 W17-W24 N05-N07
      8 1438  981 (S02W25 L=204)   222     62        1 (1426/ 946-1450/1021)  90.0 W24-W26 S04-N00
      9  971  876 (S16E01 L=178)   455    162        2 ( 871/ 849-1052/ 907)  29.1 E06-W03 S18-S12
     10 1145  796 (S18W11 L=189)   925    328        3 (1002/ 714-1290/ 895)  47.0 W03-W17 S24-S09
     11 1668  596 (S20W52 L=231)  1800    399        6 (1549/ 498-1741/ 679)  60.3 W46-W59 S27-S13
     12 1714  519 (S23W60 L=239)   433     82        2 (1691/ 487-1743/ 549)  68.2 W58-W61 S25-S20
     13  321  503 (S48E53 L=125)  1190    265        3 ( 264/ 483- 380/ 534)  12.1 E59-E45 S49-S45
     14  864  213 (S66W05 L=184)   444     85        2 ( 836/ 190- 889/ 234) -20.6 W01-W09 S67-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