Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  868 1867 (N64W26 L=  5)  1441    193        2 ( 794/1807- 936/1922)   9.5 W13-W44 N60-N67
      2  769 1796 (N61W08 L=347)   373     36        1 ( 746/1771- 789/1819)  68.2 W05-W10 N58-N63
      3 1088 1674 (N40W25 L=  4)  1873    408        0 ( 912/1641-1275/1711) -19.1 W11-W37 N32-N45
      4 1662 1579 (N18W61 L= 40)   393     98        0 (1611/1560-1706/1604)  -4.4 W55-W68 N17-N18
      5 1310 1573 (N28W34 L= 13)   226     12        0 (1292/1554-1329/1590)   0.0 W32-W35 N26-N28
      6  662 1537 (N43E11 L=328)   472     76        1 ( 632/1496- 697/1576)  38.7 E14-E07 N40-N45
      7 1626 1425 (N11W49 L= 27)   600     78        0 (1593/1383-1659/1463) -71.6 W46-W50 N07-N13
      8 1827 1267 (S03W60 L= 39)   412     37        2 (1802/1246-1851/1286) -18.4 W57-W63 S04-S02
      9 1361 1181 (N04W23 L=  2)   458    110        1 (1318/1130-1397/1225) -74.1 W20-W24 N00-N07
     10  239 1124 (N27E53 L=286)   440     55        3 ( 220/1091- 267/1157)  21.8 E55-E49 N24-N29
     11  400 1108 (N23E38 L=301)   418     69        2 ( 374/1073- 434/1140) -76.0 E39-E34 N20-N24
     12  192 1043 (N23E59 L=280)  3369    330        8 ( 129/ 953- 257/1123) -50.2 E68-E51 N16-N28
     13 1721 1062 (S11W44 L= 23)   419     58        0 (1693/1031-1749/1092) -53.1 W42-W46 S13-S09
     14 1371  925 (S10W17 L=356)  1068    279        0 (1323/ 806-1399/1062)  55.3 W11-W21 S15-S02
     15  574  969 (N11E27 L=311)   973    224        2 ( 479/ 911- 669/1049) -47.7 E32-E22 N05-N17
     16 1759  996 (S16W46 L= 25)   369     79        1 (1737/ 955-1775/1040)  51.3 W43-W48 S18-S13
     17  304 1002 (N18E47 L=291)   415     74        2 ( 278/ 966- 328/1035)  76.0 E49-E44 N16-N20
     18  196  751 (N06E65 L=273)  3312    254        9 ( 139/ 651- 240/ 854)  32.9 E77-E57 N00-N11
     19 1822  636 (S42W54 L= 33)  1162    144        0 (1762/ 614-1886/ 657) -13.0 W44-W71 S45-S37
     20 1655  538 (S43W34 L= 12)  1168    226        1 (1566/ 458-1735/ 613)  15.5 W24-W42 S45-S39
     21 1028  492 (S27E14 L=325)   242     59        0 (1000/ 461-1052/ 521)  36.9 E16-E12 S28-S24
     22  630  211 (S36E61 L=278)   804     75        1 ( 595/ 185- 659/ 250)  16.4 E71-E54 S38-S33
  

    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