Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1436 1784 (N40W64 L=129)   770     75        0 (1412/1747-1464/1822)  10.6 W57-W73 N38-N41
      2 1449 1507 (N24W41 L=106)   419     90        0 (1406/1479-1492/1535) -59.0 W39-W43 N21-N26
      3 1079 1464 (N31W15 L= 80)   366     54        1 (1051/1432-1103/1497)  63.4 W13-W16 N29-N33
      4 1456 1308 (N13W33 L= 98)   533    225        0 (1433/1234-1512/1390)  60.9 W30-W36 N08-N17
      5 1640 1298 (N07W46 L=110)  1271    191        3 (1568/1237-1716/1359) -35.0 W40-W50 N02-N11
      6  620 1296 (N32E20 L= 44)   215     87        0 ( 590/1258- 655/1314)  18.4 E23-E17 N29-N32
      7  915 1093 (N13E05 L= 60)   573    270        0 ( 838/1027- 986/1149) -36.9 E09-E01 N08-N16
      8 1468 1061 (S01W27 L= 92)   437    183        0 (1455/ 977-1491/1146)  77.5 W25-W28 S06-N03
      9 1886 1011 (S16W62 L=126)  7056    384        8 (1818/ 860-1947/1146)  39.1 W51-W74 S24-S09
     10  425 1008 (N18E39 L= 26)  1749    456        1 ( 265/ 946- 597/1072) -24.8 E53-E27 N11-N23
     11 1807 1013 (S13W52 L=117)   646     99        1 (1773/ 966-1828/1064)  56.3 W48-W54 S16-S10
     12  880 1016 (N10E09 L= 56)   223     77        0 ( 841/ 990- 914/1037) -45.0 E10-E06 N07-N11
     13 1768  898 (S19W46 L=111)  1139    165        1 (1725/ 844-1808/ 962) -56.3 W42-W51 S23-S14
     14 1261  712 (S16W07 L= 72)   777    256        0 (1173/ 629-1326/ 812)  33.7 W00-W12 S19-S11
     15 1568  514 (S39W26 L= 91)  6437    876       10 (1172/ 296-1820/ 704)   9.6 E09-W55 S45-S32
     16 1075  613 (S18E06 L= 58)   325    109        1 (1034/ 594-1136/ 641) -33.7 E08-E02 S19-S15
     17  520  534 (S12E44 L= 21)   384     82        1 ( 484/ 516- 557/ 562) -53.1 E47-E41 S13-S09
     18  453  472 (S15E53 L= 12)   427     76        1 ( 431/ 436- 477/ 501)  76.0 E54-E50 S17-S13
     19 1397  209 (S64W08 L= 73)  1726    133        2 (1345/ 183-1456/ 243) -39.0 W01-W23 S73-S56
  

    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