Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1139 1659 (N45W23 L=235)   893    138        3 (1085/1614-1209/1696) -40.6 W18-W26 N40-N48
      2  614 1580 (N48E26 L=186)  1706    408        4 ( 460/1485- 778/1639) -19.9 E46-E10 N38-N53
      3 1598 1526 (N26W53 L=265)   679     93        3 (1559/1494-1632/1557)   0.0 W48-W58 N24-N28
      4 1076 1494 (N34W12 L=224)  1418    346        4 ( 924/1468-1243/1523) -14.6 W00-W23 N30-N36
      5 1730 1416 (N17W60 L=272)  1586    168        1 (1669/1362-1776/1460) -63.4 W55-W64 N12-N20
      6 1278 1326 (N20W21 L=233)   219     49        1 (1257/1305-1300/1349)  33.7 W19-W22 N19-N21
      7 1755 1253 (N07W55 L=268)   432     68        1 (1724/1225-1781/1278) -36.9 W52-W57 N04-N08
      8  612 1129 (N18E25 L=187)   212    114        0 ( 562/1094- 647/1149) -26.6 E28-E22 N15-N19
      9  398  993 (N12E42 L=170)   896    357        1 ( 289/ 938- 547/1031)   0.0 E52-E30 N08-N13
     10  744  858 (S00E19 L=193)   262     39        1 ( 719/ 840- 771/ 884)   0.0 E21-E17 S01-N01
     11 1193  744 (S13W06 L=219)   834    358        4 (1076/ 671-1297/ 849)  25.0 E01-W14 S16-S08
     12 1101  782 (S09W01 L=213)   466    139        5 (1061/ 714-1137/ 834)  81.9 E01-W03 S13-S06
     13  387  767 (S02E46 L=166)  1031    184        5 ( 312/ 688- 452/ 825) -63.4 E52-E40 S07-N01
     14 1518  706 (S21W28 L=240)   405     95        0 (1478/ 678-1561/ 729)  18.4 W24-W31 S22-S20
     15 1587  644 (S27W34 L=246)   275     76        2 (1568/ 610-1604/ 683)  78.7 W31-W34 S29-S24
     16 1277  612 (S23W10 L=222)  1094    234        5 (1213/ 574-1374/ 677)  -5.2 W05-W16 S26-S17
     17  452  638 (S11E44 L=168)   440    166        1 ( 386/ 624- 528/ 656)   0.0 E50-E37 S11-S09
     18 1181  582 (S24W03 L=216)   216     54        1 (1162/ 562-1205/ 613) -76.0 W01-W05 S25-S21
     19  764  533 (S21E25 L=188)   446    146        1 ( 721/ 487- 806/ 604)  45.0 E28-E20 S23-S16
     20  440  537 (S17E50 L=163)   771    110        2 ( 411/ 490- 471/ 576)  80.5 E52-E46 S20-S14
     21  675  390 (S30E37 L=176)   428     92        0 ( 653/ 346- 695/ 429)  36.9 E41-E33 S33-S27
  

    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