Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  287 1529 (N10E66 L=141)   882    143        3 ( 257/1473- 313/1576) -81.9 E69-E63 N06-N13
      2  312 1420 (N04E58 L=150)  1491    260        5 ( 281/1290- 342/1548) -66.4 E62-E53 S04-N12
      3  720 1530 (N17E30 L=177)   328     97        0 ( 676/1511- 777/1546)  33.7 E32-E26 N14-N18
      4  640 1450 (N10E33 L=175)   401    134        1 ( 619/1386- 659/1492) -50.2 E34-E29 N06-N13
      5  198 1001 (S23E58 L=150)  2558    416        3 ( 136/ 826- 271/1148)  65.8 E63-E52 S33-S13
      6 1020  995 (S09W00 L=208)   186     69        0 ( 978/ 979-1046/1013)  33.7 E02-W01 S09-S07
      7 1172  954 (S08W10 L=217)   194     57        1 (1153/ 927-1189/ 983) -45.0 W08-W11 S09-S06
      8 1042  847 (S17W05 L=212)   725    347        1 ( 923/ 729-1122/ 982)  71.6 W00-W07 S25-S07
      9  722  856 (S23E15 L=193)   545    138        0 ( 664/ 801- 781/ 899)  53.1 E17-E11 S27-S19
     10 1144  827 (S16W11 L=219)   181     75        1 (1122/ 803-1187/ 843)  14.0 W09-W13 S17-S14
     11 1562  605 (S18W45 L=252)  3098    875        5 (1155/ 444-1837/ 783)  44.2 W24-W63 S37-N00
     12  237  640 (S45E56 L=152)   595    132        1 ( 209/ 618- 273/ 672) -71.6 E58-E51 S46-S43
     13 1092  602 (S30W15 L=222)   694    192        0 ( 998/ 584-1187/ 640)  13.0 W07-W20 S31-S27
     14  397  583 (S47E40 L=168)   814    129        1 ( 355/ 541- 464/ 624) -16.7 E43-E33 S48-S44
     15 1648  436 (S24W61 L=268)  1693    221        5 (1582/ 396-1723/ 496)  52.1 W56-W66 S27-S18
  

    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