Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1085 1866 (N55W50 L=272)   995    114        0 (1056/1819-1122/1904)  11.3 W41-W61 N52-N57
      2 1707 1596 (N16W71 L=293)  2250    191        8 (1633/1515-1769/1658) -70.0 W66-W78 N09-N20
      3 1540 1596 (N22W54 L=275)   364     96        0 (1493/1567-1573/1616) -59.0 W51-W56 N19-N24
      4  911 1474 (N35W07 L=228)  1391    472        2 ( 725/1432-1147/1510) -29.2 E06-W19 N25-N40
      5 1652 1431 (N10W53 L=274)   610    126        0 (1614/1384-1676/1489)  24.0 W47-W56 N07-N12
      6 1128 1272 (N17W13 L=234)   586    273        0 ( 992/1245-1242/1312) -17.4 W04-W20 N15-N20
      7 1342 1226 (N08W23 L=245)   549    189        0 (1270/1155-1390/1281) -78.7 W20-W25 N03-N13
      8  767 1186 (N22E11 L=211)   706    219        0 ( 675/1155- 875/1217) -13.0 E16-E03 N19-N23
      9  283 1140 (N31E49 L=172)   412     63        1 ( 260/1106- 300/1175)  76.0 E52-E47 N28-N32
     10 1824 1124 (S12W56 L=277)   760    176        2 (1771/1087-1873/1166)  -4.4 W50-W63 S14-S09
     11  759 1063 (N15E14 L=207)   476    247        0 ( 694/1008- 868/1091) -10.3 E19-E08 N11-N16
     12  253  899 (N17E56 L=166)   882    228        1 ( 167/ 849- 350/ 943) -20.2 E66-E47 N12-N20
     13 1597  835 (S21W29 L=251)   412    126        0 (1556/ 784-1634/ 883)  20.6 W25-W33 S22-S18
     14  161  722 (N08E76 L=145)  1514    102        2 ( 140/ 673- 186/ 778)  60.3 E82-E72 N04-N11
     15 1762  593 (S44W45 L=267)  2612    293        3 (1665/ 514-1842/ 726)  20.9 W32-W56 S47-S37
     16  226  676 (N04E67 L=154)   458     47        1 ( 210/ 645- 245/ 707) -90.0 E68-E65 N02-N06
     17  779  447 (S21E32 L=189)   711    150        1 ( 756/ 363- 800/ 511)  48.4 E36-E28 S26-S16
     18 1512  415 (S47W16 L=238)   534    114        0 (1459/ 389-1561/ 451)   5.7 W10-W21 S48-S46
     19 1027  248 (S42E28 L=193)   396     54        1 ( 998/ 229-1057/ 269)   9.5 E31-E25 S43-S41
     20 1186  221 (S51E20 L=202)  1387    243        2 (1078/ 181-1292/ 249)  -7.8 E31-E09 S54-S48
  

    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