Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  923 1785 (N61W15 L=217)   614     55        1 ( 896/1751- 956/1810)  26.6 W11-W19 N57-N63
      2  292 1327 (N36E55 L=147)   560     85        2 ( 254/1303- 322/1346)   6.3 E60-E50 N34-N37
      3  890 1210 (N20E05 L=197)   625    267        1 ( 785/1183- 998/1255)  -8.7 E11-W02 N17-N22
      4 1758 1036 (S08W50 L=252)   344     65        1 (1738/1012-1778/1075) -59.0 W47-W51 S09-S04
      5  190  997 (N16E64 L=138)  1368    203        3 ( 126/ 935- 252/1047) -20.2 E75-E56 N11-N18
      6 1009  803 (S06E05 L=198)   276     68        0 ( 975/ 780-1040/ 828) -26.6 E06-E02 S07-S04
      7 1597  787 (S19W33 L=235)   275     88        0 (1561/ 759-1638/ 805)   0.0 W30-W36 S20-S17
      8 1348  762 (S15W15 L=218)   275    103        0 (1315/ 719-1379/ 800)  31.0 W12-W17 S17-S13
      9  278  658 (S06E62 L=141)  1714    310        3 ( 222/ 558- 317/ 726) -74.7 E66-E57 S12-S01
     10 1775  613 (S36W54 L=256)  1027    105        1 (1721/ 594-1827/ 638)  -6.7 W46-W63 S38-S34
     11 1238  506 (S30W04 L=207)  1361    302        1 (1159/ 408-1348/ 621)  36.3 E02-W13 S35-S23
     12 1580  553 (S35W32 L=234)   627    112        1 (1527/ 525-1627/ 588)   0.0 W26-W36 S36-S32
     13  692  537 (S18E31 L=172)   544    143        0 ( 631/ 515- 751/ 573) -29.7 E34-E26 S19-S14
     14  910  532 (S22E16 L=186)   305     69        1 ( 887/ 506- 943/ 553)  21.8 E18-E13 S23-S20
     15  705  325 (S34E40 L=162)  3020    354        6 ( 629/ 179- 802/ 447)  27.6 E68-E26 S47-S24
  

    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