Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  940 1548 (N25E20 L=283)  1500    581        6 ( 799/1345-1084/1762) -27.2 E41-E04 N15-N35
      2 1252 1599 (N37E02 L=301)   884    172        3 (1203/1520-1297/1662) -41.6 E07-W02 N32-N41
      3 1647 1622 (N56W38 L=341)   824     82        2 (1617/1587-1682/1650)  29.4 W32-W48 N51-N60
      4  394  888 (S27E38 L=265)  1203    343        0 ( 304/ 772- 523/ 957)  41.6 E47-E28 S36-S20
      5  197  853 (S34E61 L=242)   827    101        2 ( 175/ 809- 230/ 901)  63.4 E65-E56 S36-S30
      6 1702  648 (S06W56 L=359)   470     74        2 (1683/ 612-1732/ 677)  78.7 W53-W58 S08-S03
      7  890  620 (S31W03 L=306)  1016    285        0 ( 748/ 603-1011/ 645)  31.0 E06-W10 S35-S25
      8 1130  563 (S27W20 L=323)   370     90        1 (1098/ 528-1171/ 593)  71.6 W18-W21 S30-S24
      9 1436  509 (S22W42 L=345)   260     38        1 (1415/ 490-1456/ 531)   0.0 W40-W44 S22-S20
     10 1345  469 (S27W38 L=341)   808    145        0 (1314/ 398-1374/ 525) -66.0 W35-W41 S31-S22
     11  644  329 (S61E08 L=295)  1397    245        4 ( 550/ 260- 736/ 406) -10.9 E21-W06 S64-S56
     12 1529  344 (S28W63 L=  6)   982    198        4 (1448/ 310-1602/ 397)  63.4 W55-W69 S32-S22
     13 1405  364 (S31W50 L=353)   434    118        0 (1352/ 346-1459/ 386)  45.0 W46-W53 S33-S27
     14  905  219 (S60W28 L=331)   535     77        1 ( 874/ 181- 932/ 245) -12.1 W22-W36 S62-S57
  

    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