Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1634 1681 (N27W63 L=303)   750    112        2 (1610/1654-1659/1709)  36.9 W59-W65 N25-N28
      2 1619 1510 (N17W51 L=291)  1091    159        3 (1569/1467-1680/1543) -10.3 W46-W57 N15-N19
      3 1786 1467 (N11W66 L=306)  1274    333        1 (1726/1434-1837/1514)   2.7 W57-W78 N09-N12
      4 1174 1418 (N22W18 L=257)   957    300        0 (1036/1383-1334/1464) -27.9 W10-W27 N18-N27
      5 1753 1333 (N04W56 L=295)   322    119        1 (1720/1310-1787/1354)   0.0 W51-W59 N03-N05
      6  653 1209 (N20E19 L=221)  2090    598        5 ( 426/1168- 952/1245) -17.9 E34-W00 N13-N24
      7 1898 1111 (S12W65 L=304)  1538    245        7 (1870/1071-1940/1160)   9.5 W60-W72 S13-S08
      8  971 1060 (N05E02 L=237)   229     34        1 ( 952/1036- 995/1082)  18.4 E03-W00 N04-N06
      9  218  987 (N15E56 L=184)   682    184        1 ( 184/ 907- 262/1056) -68.2 E58-E53 N09-N19
     10 1874  865 (S26W57 L=297)  2910    261        2 (1813/ 773-1921/ 975)  51.3 W50-W63 S30-S19
     11 1382  866 (S14W18 L=257)   306     39        0 (1360/ 841-1403/ 895)  56.3 W16-W19 S15-S12
     12 1159  852 (S10W04 L=244)   234     80        0 (1119/ 819-1192/ 876)  21.8 W01-W06 S11-S09
     13 1291  769 (S18W11 L=250)   364    160        0 (1200/ 752-1364/ 797) -10.3 W04-W15 S18-S16
     14 1186  686 (S21W03 L=242)   207     50        1 (1162/ 667-1219/ 700) -14.0 W00-W04 S21-S19
     15  304  565 (S11E62 L=178)   603     97        2 ( 275/ 538- 336/ 594)  -8.1 E65-E58 S12-S08
     16  258  524 (S13E70 L=169)  2034    213        3 ( 225/ 482- 293/ 558) -78.7 E75-E65 S15-S10
     17 1652  518 (S44W37 L=276)   619     98        1 (1621/ 489-1681/ 552)   0.0 W33-W39 S46-S41
     18 1474  391 (S49W20 L=259)  1150    125        2 (1419/ 354-1514/ 444)  32.0 W14-W24 S53-S45
     19  725  349 (S33E38 L=202)  1375    265        2 ( 661/ 268- 772/ 441)  38.2 E47-E31 S37-S26
  

    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