Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1482 1640 (N27W52 L=  1)   638    121        0 (1422/1621-1548/1657) -20.0 W47-W58 N24-N28
      2 1054 1435 (N29W14 L=322)   607    115        1 (1002/1408-1116/1456) -14.0 W10-W18 N27-N30
      3 1053 1352 (N24W11 L=319)   337     81        1 (1016/1333-1100/1378) -31.0 W08-W13 N22-N26
      4  719 1324 (N32E11 L=298)   280     80        0 ( 676/1309- 756/1344) -21.8 E13-E08 N30-N32
      5 1762 1058 (S13W47 L=355)  1007    154        0 (1725/ 985-1787/1134)  33.7 W42-W51 S15-S09
      6 1878 1080 (S16W60 L=  9)  1439    170        5 (1828/1032-1935/1121)  -7.1 W54-W70 S19-S12
      7  634 1099 (N21E21 L=287)   852    262        1 ( 521/1070- 763/1120) -13.2 E29-E12 N17-N22
      8  946  996 (N07E05 L=303)   212     76        1 ( 912/ 966- 971/1029) -68.2 E06-E03 N05-N10
      9  445  873 (N12E39 L=269)  1155    211        0 ( 419/ 767- 466/ 971)  81.3 E41-E36 N05-N18
     10 1540  842 (S17W25 L=334)   333     95        0 (1511/ 803-1571/ 887)  26.6 W22-W28 S19-S15
     11 1327  822 (S12W12 L=320)   478    141        1 (1274/ 749-1374/ 868)  26.6 W07-W15 S15-S10
     12  491  780 (N06E38 L=270)   413     89        1 ( 475/ 738- 524/ 826)  68.2 E39-E35 N03-N08
     13  288  748 (N08E56 L=252)   796    101        2 ( 246/ 712- 328/ 791) -39.8 E59-E52 N05-N10
     14  228  705 (N06E65 L=243)   833    105        2 ( 212/ 646- 246/ 759)  41.2 E69-E61 N02-N09
     15 1499  683 (S26W19 L=328)   399    102        0 (1476/ 632-1528/ 725)  33.7 W16-W22 S28-S23
     16  437  530 (S08E52 L=257)   378     45        1 ( 418/ 501- 452/ 559)  53.1 E53-E49 S09-S05
     17  968  498 (S22E18 L=290)   718    106        2 ( 933/ 437-1000/ 548)  60.3 E21-E15 S25-S18
     18  643  472 (S15E39 L=269)   372     60        0 ( 623/ 444- 668/ 505)  78.7 E40-E37 S17-S12
     19  521  448 (S14E49 L=259)  1280    202        2 ( 463/ 393- 610/ 487)   0.0 E55-E41 S18-S11
     20  916  421 (S25E24 L=284)   281     52        0 ( 898/ 387- 933/ 447)  63.4 E26-E22 S27-S23
     21  556  344 (S22E54 L=255)  1961    240        6 ( 485/ 290- 635/ 385)   0.0 E61-E44 S26-S18
     22  858  192 (S41E45 L=264)  1271    175        0 ( 813/ 133- 897/ 268)  26.6 E56-E34 S46-S35
  

    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