Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  848 1654 (N32E20 L= 95)   375     78        1 ( 819/1633- 889/1682)  21.8 E22-E16 N30-N34
      2 1258 1561 (N30W10 L=124)   432    169        0 (1217/1492-1297/1638) -56.3 W06-W12 N25-N35
      3 1059 1432 (N19E02 L=112)   314    132        0 (1044/1369-1084/1492) -69.4 E03-W00 N15-N23
      4 1490 1463 (N27W26 L=141)   287     70        0 (1455/1443-1530/1484)  -9.5 W23-W29 N25-N27
      5  886 1330 (N11E11 L=103)   213     84        0 ( 857/1291- 913/1368)  68.2 E12-E10 N08-N13
      6 1765 1225 (N16W48 L=163)   715     89        3 (1741/1176-1794/1269)  56.3 W46-W51 N12-N18
      7 1699 1113 (N08W42 L=157)  1703    412        2 (1563/ 948-1783/1248) -34.4 W31-W51 N00-N14
      8 1856 1197 (N16W58 L=172)   696    136        5 (1833/1145-1885/1235) -38.7 W55-W61 N13-N18
      9 1841 1107 (N10W56 L=170)   418     69        3 (1812/1085-1870/1131)  15.9 W52-W59 N08-N11
     10  310 1021 (S11E48 L= 67)   504     82        0 ( 290/ 974- 326/1063) -68.2 E49-E46 S13-S08
     11  191 1023 (S11E60 L= 55)   771     94        3 ( 140/ 989- 223/1053) -16.7 E66-E55 S13-S09
     12 1249 1022 (S03W13 L=128)   457    185        0 (1163/ 961-1296/1053) -12.5 W07-W16 S06-S01
     13  231  853 (S21E56 L= 58)  3270    458        8 ( 121/ 761- 344/ 958)  20.6 E70-E44 S26-S14
     14  525  866 (S19E30 L= 84)   690    285        0 ( 452/ 814- 587/ 941) -24.0 E35-E26 S22-S14
     15 1851  744 (S11W65 L=179)  5425    396       15 (1781/ 598-1938/ 882) -86.8 W57-W76 S20-S02
     16 1198  843 (S14W12 L=127)   198     58        0 (1169/ 824-1227/ 865) -14.0 W10-W14 S15-S13
     17 1664  680 (S18W48 L=163)   811    220        2 (1572/ 637-1754/ 727)  23.2 W41-W55 S21-S13
     18 1486  651 (S22W35 L=150)   543    145        1 (1456/ 593-1528/ 723) -45.0 W32-W39 S24-S17
     19 1745  616 (S20W59 L=173)   829    139        2 (1724/ 548-1774/ 668) -66.8 W55-W63 S23-S16
     20  444  549 (S40E41 L= 73)  1473    212        4 ( 346/ 517- 554/ 586)  11.8 E54-E30 S42-S37
  

    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