Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  907 1704 (N30E28 L=140)  1674    415        2 ( 835/1576-1000/1777)  85.9 E34-E21 N21-N36
      2  444 1711 (N21E66 L=102)  1244    106        2 ( 409/1680- 479/1748)  26.6 E72-E63 N18-N24
      3 1320 1656 (N40W00 L=169)   616    154        0 (1266/1592-1361/1710) -31.0 E05-W05 N36-N42
      4  414 1651 (N16E63 L=105)  2139    275        8 ( 317/1574- 527/1692)  35.5 E76-E53 N10-N20
      5  512 1474 (N07E44 L=125)   504    130        0 ( 450/1443- 557/1513)  39.8 E47-E41 N03-N09
      6 1819 1396 (N40W52 L=220)   599    106        2 (1783/1346-1847/1437) -29.7 W47-W55 N37-N42
      7 1744 1246 (N26W41 L=210)   320    115        1 (1724/1186-1767/1295) -45.0 W39-W44 N23-N29
      8  612 1221 (S06E29 L=140)   262     66        1 ( 583/1194- 641/1253)  53.1 E30-E27 S07-S03
      9 1529 1142 (N13W26 L=195)   403    102        0 (1510/1084-1545/1197) -74.1 W24-W28 N09-N16
     10  396 1074 (S19E41 L=127)   299     96        3 ( 373/1029- 414/1117)  78.7 E42-E39 S21-S16
     11 1682 1054 (N13W39 L=208)   450     94        1 (1643/1029-1722/1083)   0.0 W35-W42 N11-N14
     12  868  861 (S20E05 L=164)   584    206        1 ( 787/ 788- 918/ 907) -16.7 E10-W00 S23-S18
     13  325  849 (S33E45 L=123)   450    121        0 ( 296/ 799- 352/ 903)  53.1 E48-E42 S37-S29
     14  477  755 (S36E30 L=138)   713    216        0 ( 445/ 672- 534/ 846) -51.3 E33-E24 S40-S30
     15  267  786 (S39E52 L=116)   342     35        1 ( 241/ 774- 298/ 801)   0.0 E55-E48 S39-S37
     16 1610  715 (S07W44 L=213)   586    115        1 (1574/ 674-1635/ 762)  90.0 W41-W46 S10-S04
     17 1441  441 (S27W47 L=216)  1150    300        1 (1307/ 408-1559/ 488)  38.2 W37-W54 S31-S20
     18  699  298 (S64W01 L=169)  1775    228        3 ( 617/ 262- 808/ 356)   0.0 E11-W15 S67-S60
     19 1113  315 (S46W34 L=203)   449     85        0 (1093/ 271-1138/ 351) -45.0 W31-W39 S48-S42
     20 1570  327 (S28W70 L=238)  1685    156        1 (1496/ 302-1637/ 349)  10.9 W61-W87 S31-S25
     21 1228  196 (S49W58 L=227)  1036     61        1 (1189/ 164-1259/ 233)  53.1 W51-W64 S51-S46
  

    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