Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1590 1513 (N16W52 L=192)   457     67        2 (1554/1490-1628/1530) -26.6 W49-W55 N14-N17
      2 1730 1431 (N07W59 L=199)   568     98        1 (1683/1402-1759/1467)   0.0 W53-W63 N05-N08
      3 1837 1129 (S13W56 L=196)  6286    619        8 (1774/ 865-1925/1325)  37.9 W49-W84 S28-S05
      4 1574 1291 (N05W40 L=180)   267     68        0 (1540/1272-1606/1305) -45.0 W37-W42 N02-N06
      5 1011 1249 (N19W06 L=145)   498    110        1 ( 947/1232-1077/1267) -20.6 W01-W09 N16-N20
      6  849 1152 (N18E06 L=133)   451    198        0 ( 770/1104- 915/1199) -45.0 E10-E03 N13-N21
      7 1688 1155 (S06W43 L=183)   399     75        1 (1665/1127-1719/1184) -76.0 W41-W45 S08-S04
      8 1887 1154 (S13W64 L=203)   585     63        1 (1863/1115-1904/1184) -90.0 W60-W66 S15-S11
      9  277  974 (N21E51 L= 88)  2071    381        3 ( 176/ 835- 362/1145) -52.7 E62-E45 N12-N33
     10 1685 1051 (S11W40 L=180)   307    116        1 (1640/1029-1722/1084)  -8.1 W36-W43 S12-S09
     11 1750 1014 (S16W45 L=184)   767    107        1 (1709/ 959-1779/1058)  68.2 W41-W46 S19-S13
     12  963 1024 (N08E03 L=136)   206    107        0 ( 912/1010-1013/1040)  -9.5 E06-W00 N07-N09
     13  489  976 (N17E33 L=106)   428    151        0 ( 435/ 939- 549/1013) -40.6 E37-E29 N13-N19
     14 1224  802 (S11W05 L=145)   882    349        1 (1175/ 641-1249/ 947)  53.7 E02-W09 S19-S03
     15 1577  887 (S17W28 L=168)   352     91        0 (1526/ 872-1621/ 898) -26.6 W25-W31 S18-S14
     16 1366  561 (S30W07 L=147)  3469    582        8 (1216/ 370-1531/ 780)  28.1 E08-W22 S38-S20
     17 1115  673 (S15E05 L=135)   252    114        0 (1059/ 653-1166/ 687) -38.7 E07-E01 S17-S13
     18  384  617 (S01E52 L= 88)  1368    200        3 ( 302/ 565- 464/ 681) -21.0 E60-E47 S05-N02
     19  556  611 (S05E39 L=101)   951    217        5 ( 508/ 498- 590/ 680)  65.6 E44-E34 S11-N00
     20  754  446 (S19E34 L=106)  1114    317        3 ( 732/ 301- 790/ 589)  46.6 E42-E25 S29-S11
     21  925  462 (S23E22 L=117)   803    273        2 ( 865/ 364- 960/ 572)  40.2 E30-E16 S28-S16
  

    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