Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  917 1862 (N63W36 L=164)   528    131        0 ( 900/1825- 938/1893)  15.9 W29-W43 N60-N65
      2 1448 1705 (N31W53 L=180)  1180    167        4 (1380/1657-1510/1767) -84.3 W50-W55 N26-N36
      3 1087 1437 (N27W16 L=144)   708    132        2 (1026/1386-1165/1476) -60.9 W12-W19 N22-N31
      4  399 1236 (N35E36 L= 91)   283     59        1 ( 371/1214- 429/1260) -11.3 E38-E33 N33-N35
      5 1341  960 (S06W16 L=143)   882    432        3 (1275/ 797-1411/1114)  58.0 W09-W23 S15-N01
      6 1578 1025 (S09W32 L=160)   424    147        2 (1536/ 962-1636/1073)  16.7 W27-W37 S11-S07
      7 1814 1043 (S16W51 L=179)   374     65        1 (1797/1005-1829/1068) -90.0 W50-W53 S18-S14
      8  699 1028 (N15E18 L=109)   218     69        1 ( 665/ 992- 731/1058) -68.2 E20-E17 N12-N17
      9 1158 1002 (N02W07 L=134)   199     78        0 (1146/ 964-1174/1037)  45.0 W05-W08 N00-N03
     10 1584  883 (S17W29 L=157)  1335    289        2 (1484/ 751-1653/ 991)  35.5 W19-W34 S22-S11
     11 1129  868 (S05W02 L=129)   567    125        1 (1101/ 809-1165/ 929)  83.7 W00-W03 S09-N00
     12  341  873 (N14E47 L= 80)   486    184        0 ( 283/ 861- 413/ 890) -15.3 E52-E41 N12-N15
     13  230  817 (N13E60 L= 68)   490    154        4 ( 187/ 755- 269/ 862) -45.0 E63-E57 N08-N15
     14  193  756 (N10E67 L= 61)   503     67        1 ( 181/ 728- 209/ 786)  56.3 E69-E64 N08-N11
     15 1677  704 (S32W33 L=161)   482    160        2 (1620/ 681-1738/ 729) -11.3 W28-W38 S32-S30
     16  375  680 (N02E51 L= 77)   409    101        3 ( 352/ 649- 398/ 716)  26.6 E53-E47 N00-N04
     17 1461  552 (S34W14 L=141)   708    147        3 (1417/ 506-1509/ 594)  38.7 W10-W18 S37-S31
     18  846  455 (S22E27 L=100)   459    210        1 ( 826/ 383- 868/ 549)  55.0 E31-E24 S25-S15
     19  526  452 (S14E49 L= 79)  1180    369        6 ( 373/ 389- 627/ 502) -34.5 E60-E42 S19-S08
     20  491  397 (S17E55 L= 72)   539    188        4 ( 463/ 348- 527/ 422)  16.7 E60-E50 S20-S15
     21  680  307 (S27E46 L= 81)  1114    336        2 ( 604/ 245- 722/ 412)  42.5 E53-E39 S31-S20
  

    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