Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1408 1551 (N24W38 L=357)   294     84        0 (1385/1513-1441/1581)  18.4 W34-W41 N21-N25
      2 1092 1490 (N28W15 L=334)   410     81        1 (1046/1461-1136/1516) -51.3 W13-W17 N25-N30
      3 1859 1288 (S02W65 L= 24)  4623    593        7 (1746/1102-1945/1401)  83.7 W50-W82 S14-N04
      4 1465 1348 (N11W34 L=352)   442     96        1 (1421/1328-1505/1371) -31.0 W31-W36 N09-N13
      5 1716 1145 (S06W46 L=  5)   672    151        4 (1691/1094-1742/1215)  63.4 W43-W49 S09-S02
      6 1678 1008 (S13W40 L=359)   527    102        2 (1638/ 976-1720/1041)  15.9 W36-W44 S14-S10
      7 1568  797 (S22W29 L=347)  2620    603        3 (1324/ 651-1768/ 934)   9.2 W09-W46 S25-S18
      8  467  881 (N06E37 L=282)   342     99        2 ( 423/ 841- 499/ 915) -45.0 E39-E34 N03-N08
      9 1219  850 (S11W07 L=326)   303    159        0 (1145/ 825-1285/ 883)   0.0 W02-W11 S11-S10
     10  267  817 (N06E55 L=264)  1356    213        3 ( 194/ 760- 358/ 867)   0.0 E64-E46 N03-N08
     11  912  746 (S11E12 L=306)   536    196        0 ( 889/ 663- 970/ 828)  41.2 E15-E07 S15-S06
     12 1126  530 (S28E05 L=313)  1079    337        4 (1035/ 406-1256/ 613)  20.2 E15-W04 S34-S24
     13  597  313 (S31E52 L=267)  2098    296       10 ( 518/ 222- 721/ 395)  10.0 E71-E37 S36-S26
     14  859  256 (S41E36 L=283)   582    134        2 ( 805/ 218- 916/ 295)   8.1 E42-E28 S43-S39
  

    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