Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1214 1736 (N41W42 L=260)   691    115        1 (1162/1687-1252/1775)  12.1 W34-W48 N39-N42
      2 1647 1663 (N21W70 L=288)  1079    100        3 (1584/1637-1689/1692)  -5.4 W61-W82 N19-N22
      3 1673 1518 (N13W59 L=277)  2080    155        4 (1606/1443-1715/1596)  45.0 W52-W65 N09-N17
      4 1599 1564 (N18W56 L=274)   477     66        0 (1566/1539-1627/1586) -45.0 W52-W58 N16-N19
      5  991 1422 (N30W10 L=228)   866    198        1 ( 907/1365-1086/1455) -41.6 W04-W14 N24-N33
      6  290 1326 (N43E49 L=169)   329     37        0 ( 278/1298- 307/1351)  90.0 E51-E46 N40-N44
      7 1561 1293 (N06W39 L=257)   680    192        1 (1480/1240-1638/1336) -55.0 W34-W42 N00-N10
      8 1417 1147 (N03W25 L=243)   845    343        0 (1332/1008-1458/1286)  35.5 W16-W31 S03-N09
      9 1793 1024 (S16W49 L=267)   715    187        0 (1727/ 959-1832/1050) -41.2 W42-W53 S20-S13
     10  965  881 (N00E07 L=211)   610    207        0 ( 938/ 801-1020/ 952)  54.5 E09-E02 S04-N03
     11 1781  895 (S23W45 L=264)   350     69        0 (1740/ 878-1813/ 920)  -8.1 W41-W49 S24-S22
     12  437  767 (N06E43 L=176)   396     85        0 ( 386/ 753- 487/ 782) -14.0 E46-E38 N04-N08
     13  619  561 (S09E37 L=181)  1683    357        7 ( 542/ 453- 726/ 667)  19.4 E43-E26 S16-S04
     14  525  478 (S12E47 L=171)  1253    251        6 ( 484/ 404- 585/ 589)  71.6 E52-E41 S17-S05
     15  740  504 (S15E32 L=186)   385    104        0 ( 693/ 487- 789/ 525)   0.0 E35-E27 S16-S14
     16  686  409 (S20E40 L=178)   929    243        3 ( 590/ 356- 765/ 477)  10.0 E48-E31 S22-S17
     17  896  386 (S27E28 L=191)  1173    188        3 ( 841/ 313- 952/ 466)  26.6 E34-E20 S31-S22
     18  482  334 (S21E62 L=156)  1654    159        4 ( 436/ 271- 519/ 408)  22.2 E75-E53 S25-S16
     19 1049  334 (S35E21 L=197)  1191    228        1 ( 939/ 298-1134/ 390)   0.0 E29-E12 S37-S33
     20  707  222 (S34E53 L=165)   624     44        1 ( 681/ 198- 736/ 255)  21.8 E58-E48 S35-S31
  

    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