Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1313 1748 (N38W46 L=137)   351     72        1 (1281/1733-1355/1764) -53.1 W43-W48 N35-N39
      2 1451 1628 (N26W47 L=137)   956    192        3 (1398/1556-1518/1666)  13.0 W39-W53 N23-N28
      3 1611 1517 (N16W52 L=143)   558     99        1 (1589/1477-1637/1573)  45.0 W50-W56 N13-N18
      4 1210 1531 (N28W26 L=116)   423     98        0 (1159/1512-1263/1550) -26.6 W22-W28 N25-N29
      5 1132 1328 (N18W14 L=104)  1293    469        1 ( 984/1266-1338/1438) -46.7 W07-W24 N10-N27
      6 1643 1426 (N10W50 L=141)   304    135        0 (1577/1410-1696/1436) -24.0 W44-W54 N07-N11
      7  760 1301 (N26E09 L= 82)  1869    584        2 ( 525/1191- 981/1361) -31.6 E25-W02 N14-N32
      8 1859 1218 (S07W62 L=153)  2684    374        2 (1802/1023-1897/1359)  52.6 W53-W69 S17-N00
      9  641 1154 (N20E19 L= 71)   253    113        0 ( 585/1142- 699/1163) -23.2 E23-E15 N18-N21
     10 1708  920 (S19W40 L=131)  1431    283        3 (1595/ 823-1811/ 976)   5.7 W29-W50 S22-S17
     11 1908  875 (S29W63 L=154)  1350    107        2 (1866/ 839-1965/ 897)  -2.7 W56-W77 S30-S26
     12 1316  854 (S13W12 L=103)   195     49        0 (1287/ 833-1339/ 872)  14.0 W10-W14 S13-S11
     13  973  827 (S06E07 L= 83)   228     93        0 ( 936/ 786- 991/ 857) -78.7 E08-E06 S08-S03
     14  950  753 (S10E11 L= 80)   213     76        0 ( 925/ 727- 969/ 797)  36.9 E12-E08 S10-S07
     15 1716  754 (S30W39 L=130)   432    110        1 (1658/ 713-1760/ 788)   5.7 W33-W43 S30-S28
     16  580  550 (S13E39 L= 51)  4697    849       14 ( 360/ 361- 859/ 752) -53.1 E49-E26 S27-N02
     17  439  583 (S08E48 L= 42)   618    126        3 ( 406/ 537- 467/ 646)  82.9 E51-E44 S11-S03
     18  794  539 (S18E26 L= 64)   223     52        0 ( 759/ 524- 824/ 557)   0.0 E28-E23 S19-S17
     19  379  451 (S15E62 L= 29)  1171    158        3 ( 305/ 432- 445/ 478) -17.1 E69-E54 S16-S11
     20  562  275 (S30E60 L= 31)  4488    276       11 ( 487/ 170- 651/ 372)  39.0 E76-E52 S39-S22
     21 1496  278 (S61W18 L=108)   471     45        1 (1471/ 253-1519/ 307) -48.8 W14-W22 S65-S57
  

    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